关于界面
关于界面代码分析:
PrivateSubLabel6_Click()
DimEmail
Email=ShellExecute(0&,vbNullString,"mailto:zcjvcbe@263.net",vbNullString,vbNullString,vbNormalFocus)
EndSub
PrivateSubLabel6_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
EndSub
PrivateSubOK_Click()
UnloadMe
EndSub
4.资料查询界面:
代码分析:
PrivateSubCheck1_Click(IndexAsInteger)
DimiAsInteger
Fori=0To10
Text1(i).Enabled=Check1(i).Value
Nexti
'判断性别输入是否有效
Option1(0).Enabled=Check1(3).Value
Option1(1).Enabled=Check1(3).Value
'判断年龄输入是否有效
Frame2.Enabled=Check1(4).Value
Fori=0To1
Check2(i).Enabled=Frame2.Enabled
Nexti
EndSub
PrivateSubCommand1_Click()'模糊查询
GoToErrHandle
'判断昵称查询
IfCheck1(0).Value=1AndNotIsNull(Text1(0).Text)Then
SQLadd=SQLadd+"andLovelike'*"+Text1(0).Text+"*'"
EndIf
'判断QQ查询
IfCheck1(1).Value=1AndNotIsNull(Text1(1).Text)Then
SQLadd=SQLadd+"andOicqlike'*"+Text1(1).Text+"*'"
EndIf
'判断姓名查询
IfCheck1(2).Value=1AndNotIsNull(Text1(2).Text)Then
SQLadd=SQLadd+"andNamelike'*"+Text1(2).Text+"*'"
EndIf
'性别查询
IfCheck1(3).Value=1Then
IfOption1(0).Value=TrueThen
SQLadd=SQLadd+"andSex='"+"男"+"'"
Else
SQLadd=SQLadd+"andSex='"+"女"+"'"
EndIf
EndIf
'年龄查询
IfCheck1(4).Value=1Then
IfCheck2(0).Value=1AndIsNumeric(Text2(0).Text)Then
IfCheck2(1).Value=1Then
SQLadd=SQLadd+"andAge<="+Text2(1).Text
SQLadd=SQLadd+"andAge>="+Text2(0).Text
Else
SQLadd=SQLadd+"andAge>="+Text2(0).Text
EndIf
Else
IfCheck2(1).Value=1Then
SQLadd=SQLadd+"andAge<="+Text2(1).Text
EndIf
EndIf
EndIf
'判断电话查询
IfCheck1(5).Value=1AndNotIsNull(Text1(5).Text)Then
SQLadd=SQLadd+"andTelepNolike'*"+Text1(5).Text+"*'"
EndIf
'判断手机查询
IfCheck1(6).Value=1AndNotIsNull(Text1(6).Text)Then
SQLadd=SQLadd+"andMoveCalllike'*"+Text1(6).Text+"*'"
EndIf
'判断宅电查询
IfCheck1(7).Value=1AndNotIsNull(Text1(7).Text)Then
SQLadd=SQLadd+"andHomelike'*"+Text1(7).Text+"*'"
EndIf
'判断传呼查询
IfCheck1(8).Value=1AndNotIsNull(Text1(8).Text)Then
SQLadd=SQLadd+"andCalllike'*"+Text1(8).Text+"*'"
EndIf
'判断传真查询
IfCheck1(9).Value=1AndNotIsNull(Text1(9).Text)Then
SQLadd=SQLadd+"andFaxlike'*"+Text1(9).Text+"*'"
EndIf
'判断Email查询
IfCheck1(10).Value=1AndNotIsNull(Text1(10).Text)Then
SQLadd=SQLadd+"andEmaillike'*"+Text1(10).Text+"*'"
EndIf
'更新数据库显示信息
frmData.Data1.DatabaseName=frmData.mdbFile'App.Path+"\MyNote.mdb"
frmData.Data1.RecordSource=SQLoriginal+SQLadd+SQLorder
frmData.Data1.Refresh
ListRefresh
UnloadMe
ExitSub
ErrHandle:
MsgBoxErr.Description
UnloadMe
ExitSub
EndSub
PrivateSubCommand2_Click()'精确查询
GoToErrHandle
'判断昵称查询
IfCheck1(0).Value=1AndNotIsNull(Text1(0).Text)Then
SQLadd=SQLadd+"andLove='"+Text1(0).Text+"'"
EndIf
'判断QQ查询
IfCheck1(1).Value=1AndNotIsNull(Text1(1).Text)Then
SQLadd=SQLadd+"andOicq='"+Text1(1).Text+"'"
EndIf
'判断姓名查询
IfCheck1(2).Value=1AndNotIsNull(Text1(2).Text)Then
SQLadd=SQLadd+"andName='"+Text1(2).Text+"'"
EndIf
'性别查询
IfCheck1(3).Value=1Then
IfOption1(0).Value=TrueThen
SQLadd=SQLadd+"andSex='"+"男"+"'"
Else
SQLadd=SQLadd+"andSex='"+"女"+"'"
EndIf
EndIf
'年龄查询
IfCheck1(4).Value=1Then
IfCheck2(0).Value=1AndIsNumeric(Text2(0).Text)Then
IfCheck2(1).Value=1Then
SQLadd=SQLadd+"andAge<="+Text2(1).Text
SQLadd=SQLadd+"andAge>="+Text2(0).Text
Else
SQLadd=SQLadd+"andAge>="+Text2(0).Text
EndIf
Else
IfCheck2(1).Value=1Then
SQLadd=SQLadd+"andAge<="+Text2(1).Text
EndIf
EndIf
EndIf
'判断电话查询
IfCheck1(5).Value=1AndNotIsNull(Text1(5).Text)Then
SQLadd=SQLadd+"andTelepNo='"+Text1(5).Text+"'"
EndIf
'判断手机查询
IfCheck1(6).Value=1AndNotIsNull(Text1(6).Text)Then
SQLadd=SQLadd+"andMoveCall='"+Text1(6).Text+"'"
EndIf
'判断宅电查询
IfCheck1(7).Value=1AndNotIsNull(Text1(7).Text)Then
SQLadd=SQLadd+"andHome='"+Text1(7).Text+"'"
EndIf
'判断传呼查询
IfCheck1(8).Value=1AndNotIsNull(Text1(8).Text)Then
SQLadd=SQLadd+"andCall='"+Text1(8).Text+"'"
EndIf
'判断传真查询
IfCheck1(9).Value=1AndNotIsNull(Text1(9).Text)Then
SQLadd=SQLadd+"andFax='"+Text1(9).Text+"'"
EndIf
'判断Email查询
IfCheck1(10).Value=1AndNotIsNull(Text1(10).Text)Then
SQLadd=SQLadd+"andEmail='"+Text1(10).Text+"'"
EndIf
'更新数据库显示信息
frmData.Data1.DatabaseName=frmData.mdbFile
frmData.Data1.RecordSource=SQLoriginal+SQLadd+SQLorder
frmData.Data1.Refresh
ListRefresh
UnloadMe
ExitSub
ErrHandle:
MsgBoxErr.Description
UnloadMe
ExitSub
EndSub
PrivateSubCommand3_Click()'取消查询
UnloadMe
EndSub
PrivateSubForm_Load()
DimiAsInteger
Fori=0To10
'在不处于查询状态时,把文本框设置为失效
Text1(i).Text=""
Text1(i).Enabled=False
Nexti
Option1(0).Enabled=Check1(3).Value
Option1(1).Enabled=Check1(3).Value
'判断年龄输入是否有效
Frame2.Enabled=Check1(4).Value
Fori=0To1
Check2(i).Enabled=False
Nexti
EndSub
PrivateSubCheck2_Click(IndexAsInteger)
Text2(Index).Enabled=Check2(Index).Value
EndSub
结束语
本软件的设计目的是为人们日常生活中管理记录查询联系人提供方便和帮助。通过这几个月的毕业设计,我学到很多以前没有学到的visualbasic开发技术,在软件工程学上更是取得了很大的进步。经过大量的测试和试用,作者深信本软件达到了方便和实用的设计目的,并在软件界面和易用实用等方面有着独到之处。
虽然软件基本达到设计要求并且达到同行的先进水平,但由于作者水平有限,软件存在bug也是在所难免的,您的意见和建议将极大的帮助我改进并完善软件。真诚的希望你的参与。
致谢
我首先感谢我的指导老师吕老师,在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做,这样会有好的创意,才能更有作为。
在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年,在生活和学习上给了我很大的帮助。
参考文献
1陈明.软件工程学教程.科技出版社,2002
2萨师煊,王珊.数据库系统概论.第三版.高等教育出版社,2000
3飞思科技产品研发中心.visualbasic6.0数据库应用开发.电子工业出版社,2003
4飞思科技产品研发中心.visualbasic6.0开发者手册.电子工业出版社,2002
5申旻.visualbasic6.0高手突破.清华大学出版社,2002,302
6SteveTeixeira,XaviverPacheco著,龙劲松,王瑜,谢尚书译.visualbasic6.0开发人员指南.机械工业出版社.2003
7乔林.参透Delphi/Kylix.中国铁道出版社.2003
8李维.Inside深入核心VCL架构剖析.电子工业出版社.2004
9张立科编写组.WindowsAPI函数参考手册.人民邮电出版社.2002
严蔚敏,吴伟民.数据结构.第二版.清华大学出版社.2001
10王珍玲。实用软件工程教程高等教育出版社2004
11(英)IanSommerville机械工业出版社2003
12美Cantu,U.王辉等译visualbasic6.0从入门到精通电子工业出版社2003
13李维面向对象开发实践之路(visualbasic6.0版)(BORLAND资深顾问著名visualbasic6.0专家李维最新力作)电子工业出版社2005.4
14秦斌等visualbasic6.0数据库系统开发与应用中国水利水电出版社2006.1
15刘艺visualbasic6.0面向对象编程思想机械工业出版社2003
16.visualbasic程序设计第二版谭浩强清华大学出版社2003
17.visualbasic6.0程序设计教程.胡同森赵剑锋等.浙江科学技术出版社,2002.1
18.软件工程学教程(第二版)周苏王文著科学出版社2003
19.VisualBasic6.0程序设计与开发技术求是科技人民邮电出版社2004.9
上一篇:
VB连锁店信息管理系统(论文和程序)
下一篇:
下鼻甲不同术式对鼻黏膜纤毛功能的影响