毕业设计源代码.docx
- 文档编号:30446787
- 上传时间:2023-08-15
- 格式:DOCX
- 页数:46
- 大小:28.46KB
毕业设计源代码.docx
《毕业设计源代码.docx》由会员分享,可在线阅读,更多相关《毕业设计源代码.docx(46页珍藏版)》请在冰豆网上搜索。
毕业设计源代码
毕业设计源代码
学生姓名:
班级学号:
指导教师:
职称:
所在系(教研室):
其中登录按钮的源码如下:
PrivateSubcmdLogin_Click()
'首先检查用户是否输入了用户名和密码
IftxtUser.Text=""Then
MsgBox"请输入用户名!
",vbOKOnly+vbInformation,"注意"
Focus
ExitSub
ElseIftxtPwd.Text=""Then
MsgBox"请输入密码!
",vbOKOnly+vbInformation,"注意"
ExitSub
EndIf
DimsqluserAsString
'构造查询该用户名和密码的sql语句
sqluser="select*fromUserTablewhereUsername='"&txtUser.Text_
&"'andPassword='"&txtPwd.Text&"'"
rs_user.CursorLocation=adUseClient
'打开数据游标
rs_user.Opensqluser,conn,adOpenKeyset,adLockPessimistic
Ifrs_user.EOF=TrueThen
MsgBox"用户名或密码不正确!
",vbOKOnly+vbInformation,"注意"
'清空txtUser和txtPwd文本框
txtUser.Text=""
txtPwd.Text=""
ExitSub
Else
'还需使其他菜单可用
MDIfrmMain.mnAddUser.Enabled=True
MDIfrmMain.mnBasicData.Enabled=True
MDIfrmMain.mnWuYe.Enabled=True
MDIfrmMain.mnDataTg.Enabled=True
'提示用户登录成功并关闭游标和登录窗口
MsgBox"登录成功!
",vbOKOnly+vbInformation,"注意"
UnloadMe
EndIf
EndSub
并添加相关代码.其中重点分析按钮源码如下:
。
添加按钮的代码:
PrivateSubcmdAdd_Click()
'设置除保存和取消按钮外的其他按钮不可用
cmdAdd.Enabled=False
cmdEdit.Enabled=False
cmdDel.Enabled=False
cmdSave.Enabled=True
cmdCancel.Enabled=True
cmdFirst.Enabled=False
cmdPrev.Enabled=False
cmdNext.Enabled=False
cmdLast.Enabled=False
cmdQuery.Enabled=False
'需要清空所有text框,并且设置它们可写
Fori=0To14
Text1(i).Text=""
Text1(i).Enabled=True
Nexti
Combo1.Enabled=True
'add变量用于保存时判断是从添加还是修改后保存
add=1
Text1(0).SetFocus
Text1(13).Text=Date
EndSub
修改按钮的源码:
PrivateSubcmdEdit_Click()
'设置除保存和取消按钮外的其他按钮不可用
cmdAdd.Enabled=False
cmdEdit.Enabled=False
cmdDel.Enabled=False
cmdSave.Enabled=True
cmdCancel.Enabled=True
abled=False
cmdPrev.Enabled=False
cmdNext.Enabled=False
cmdLast.Enabled=False
cmdQuery.Enabled=False
'需要设置除主键之外的text框可写
Fori=1To14
Text1(i).Enabled=True
Nexti
Combo1.Enabled=True
add=0
EndSub
删除按钮的源码如下:
PrivateSubcmdDel_Click()
'当单击删除记录时,需要弹出一个提示框,警告用户
DimanswerAsString
answer=MsgBox("确定要删除吗?
",vbYesNo,"")
'确实删除
Ifanswer=vbYesThen
rs_client.Delete'删除当前记录
rs_client.Update'更新删除
MsgBox"成功删除!
",vbOKOnly+vbExclamation,""
Else
ExitSub
EndIf
'删除之后,显示总信息条数需要减1
Text2.Text=Val(Text2.Text)-1
'删除当前记录后,需要显示下一条记录,如果删除的是最后一条记录,则显示上一条记录
'先移动rs_client记录到后一条
Ifrs_client.EOFThen
'如果没有到记录首则显示改记录
IfNotrs_client.BOFThen
Fori=0To14
Text1(i).Text=rs_client.Fields(i)
Nexti
Ifrs_client.Fields(15)="男"Then
Combo1.ListIndex=0
Else
Combo1.ListIndex=1
EndIf
'如果到记录首,则表格已经为空,置所有text框显示为空
ElseIfrs_client.BOFThen
Fori=0To14
Text1(i).Text=""
Nexti
EndIf
'如果删除的不是首尾记录,则显示当前记录即可
Else
Fori=0To14
Text1(i).Text=rs_client.Fields(i)
Nexti
Ifrs_client.Fields(15)="男"Then
Combo1.ListIndex=0
Else
Combo1.ListIndex=1
EndIf
EndIf
EndSub
保存按钮的源码如下:
PrivateSubcmdSave_Click()
'检测数据是否完整
IfText1(0).Text=""Then
MsgBox"住户编号不可为空!
",vbOKOnly+vbInformation,"注意"
Text1(0).SetFocus
ExitSub
ElseIfText1
(1).Text=""Then
MsgBox"物业地址不可为空!
",vbOKOnly+vbInformation,"注意"
Text1
(1).SetFocus
ExitSub
ElseIfText1(3).Text=""OrIsNumeric(Text1(3).Text)=FalseThen
MsgBox"建筑面积应为数字!
",vbOKOnly+vbInformation,"注意"
Text1(3).SetFocus
ExitSub
ElseIfText1(4).Text=""OrIsNumeric(Text1(4).Text)=FalseThen
MsgBox"使用面积应为数字!
",vbOKOnly+vbInformation,"注意"
Text1(4).SetFocus
ExitSub
ElseIfText1(5).Text=""Then
MsgBox"业主姓名不可为空!
",vbOKOnly+vbInformation,"注意"
Text1(5).SetFocus
ExitSub
ElseIfIsDate(Text1(13).Text)=FalseThen
MsgBox"入住日期书写不对,应为2000-1-1这样的格式!
",vbOKOnly+vbInformation,"注意"
Text1(13).SetFocus
ExitSub
ElseIfNotText1(14).Text=""AndIsDate(Text1(14).Text)=FalseThen
MsgBox"迁出时间应为空或2000-1-1这样的格式!
",vbOKOnly+vbInformation,"注意"
Text1(14).SetFocus
ExitSub
EndIf
'添加数据后保存
Ifadd=1Then
'检测住户编号这个主键是否已经在表中存在
DimsqlCheckAsString
sqlCheck="select*fromClientwhere住户编号='"&(Text1(0).Text)&"'"
rs_check.OpensqlCheck,conn,adOpenStatic,adLockOptimistic
IfNotrs_check.EOFAndNotrs_check.BOFThen
MsgBox"该住户编号已经存在,请重填一个!
",vbOKOnly+vbInformation,"注意"
Text1(0).SetFocus
Text1(0).Text=""
ExitSub
EndIf
'主键不重复,可以加入表中
Fori=0To14
rs_client.Fields(i)=Text1(i).Text
Nexti
r
'添加保存之后,显示总信息条数需要加1
Text2.Text=Val(Text2.Text)-1
'修改数据后的保存
Else
EndIf
MsgBox"保存数据成功!
",vbOKOnly+vbInformation,"祝贺"
'保存后需要设置其他按钮可用,以及各个text框不可写
cmdAdd.Enabled=True
abled=True
cmdDel.Enabled=True
cmdSave.Enabled=False
cmdCancel.Enabled=False
cmdFirst.Enabled=True
cmdPrev.Enabled=True
cmdNext.Enabled=True
cmdLast.Enabled=True
cmdQuery.Enabled=True
Fori=0To14
Text1(i).Enabled=False
Nexti
Combo1.Enabled=False
EndSub
其中添加,修改,删除按包的源码设计同上,重点分析保存按钮的源码如下:
PrivateSubcmdSave_Click()
'检测数据是否完整
IfText1(0).Text=""Then
MsgBox"设备编号不可为空!
",vbOKOnly+vbInformation,"注意"
Text1(0).SetFocus
ExitSub
ElseIfText1
(1).Text=""Then
MsgBox"设备名称不可为空!
",vbOKOnly+vbInformation,"注意"
Text1
(1).SetFocus
ExitSub
ElseIfIsDate(Text1(5).Text)=FalseThen
MsgBox"购买日期书写不对,应为2000-1-1这样的格式!
",vbOKOnly+vbInformation,"注意"
Text1(5).SetFocus
ExitSub
EndIf
'添加数据后保存
Ifadd=1Then
'检测房间编号这个主键是否已经在表中存在
DimsqlCheckAsString
sqlCheck="select*fromEquipmentwhere设备编号='"&(Text1(0).Text)&"'"
rs_check.OpensqlCheck,conn,adOpenStatic,adLockOptimistic
IfNotrs_check.EOFAndNotrs_check.BOFThen
MsgBox"该设备编号已经存在,请重填一个!
",vbOKOnly+vbInformation,"注意"
Text1(0).SetFocus
Text1(0).Text=""
ExitSub
EndIf
'主键不重复,可以加入表中
Fori=0To6
rs_equip.Fields(i)=Text1(i).Text
Nexti
'添加之后显示总共条数信息加1
Text2.Text=Val(Text2.Text)+1
'修改数据后的保存
Else
EndIf
MsgBox"保存数据成功!
",vbOKOnly+vbInformation,"祝贺"
'保存后需要设置其他按钮可用,以及各个text框不可写
cmdAdd.Enabled=True
cmdEdit.Enabled=True
cmdDel.Enabled=True
cmdSave.Enabled=False
cmdCancel.Enabled=False
cmdFirst.Enabled=True
cmdPrev.Enabled=True
cmdNext.Enabled=True
cmdLast.Enabled=True
cmdQuery.Enabled=True
Fori=0To6
Text1(i).Enabled=False
Nexti
EndSub
(该模块其它几个窗体的设计跟此窗体的设计雷同)
其中排序按钮的源码如下:
PrivateSubcmdOrder_Click()
DimsqlAsString
Ifrs_order.State=adStateOpenThen
EndIf
rs_order.CursorLocation=adUseClient
rs_order.Opensql,conn,adOpenStatic,adLockOptimistic
'设置DataGrid1的数据源
SetDataGrid1.DataSource=rs_order
'使用分组统计,并显示在DataGrid2中
'首先需要设置DataGrid2可见
DataGrid2.Visible=True
'设置网格不可写
DataGrid2.AllowAddNew=False
DataGrid2.AllowDelete=False
DataGrid2.AllowUpdate=False
Dimsql2AsString
sql2="select"&Combo1.Text&",count("&Combo1.Text&_
")as数量统计fromEquipmentgroupby"&Combo1.Text&"orderby
Ifrs_tg.State=adStateOpenThen
EndIf
rs_tg.CursorLocation=adUseClient
rs_tg.Opensql2,conn,adOpenStatic,adLockOptimistic
'设置DataGrid2的数据源
SetDataGrid2.DataSource=rs_tg
EndSub
[Root]
MostRecentPackage=标准安装软件包1
[Package|标准安装软件包1|Root]
BuildFolder=f:
\小区物业管理
[Package|标准安装软件包1|ConfigureDAOISAMs]
Applicable=No
[Package|标准安装软件包1|ConfigureDAOODBC]
JetWorkspace=
ODBCDirect=
[Package|标准安装软件包1|FilesFound]
[Package|标准安装软件包1|FilesReleased]
[Package|标准安装软件包1|MissingDependencyInformation]
D:
\ProgramFiles\CommonFiles\System\ado\msado25.tlb=
D:
\WINNT\system32\msstdfmt.dll=
C:
\ProgramFiles\CommonFiles\System\ado\msado25.tlb=
[Package|标准安装软件包1|Out-of-DateDependencyInformation]
D:
\WINNT\system32\mscomctl.ocx=
D:
\WINNT\system32\msdatgrd.ocx=
D:
\WINNT\system32\tabctl32.ocx=
C:
\WINDOWS\system32\MSCOMCTL.OCX=
C:
\WINDOWS\system32\MSSTDFMT.DLL=
[Package|标准安装软件包1|FilesAdded]
xiaoquguanli.mdb=
[Package|标准安装软件包1|FilesRemoved]
d:
\programfiles\commonfiles\system\ado\msado25.tlb=
[Package|标准安装软件包1|FilesInProject]
F:
\源代码\小区物业管理系统.exe=Yes
C:
\WINDOWS\system32\msvbvm60.dll=Yes
C:
\WINDOWS\system32\oleaut32.dll=Yes
C:
\WINDOWS\system32\olepro32.dll=Yes
C:
\WINDOWS\system32\asycfilt.dll=Yes
C:
\WINDOWS\system32\stdole2.tlb=Yes
D:
\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=Yes
C:
\WINDOWS\system32\VB6CHS.DLL=Yes
C:
\ProgramFiles\CommonFiles\System\ado\msado25.tlb=Yes
C:
\WINDOWS\system32\MSADODC.OCX=Yes
C:
\WINDOWS\system32\MSSTDFMT.DLL=Yes
C:
\WINDOWS\system32\STDFTCHS.DLL=Yes
C:
\WINDOWS\system32\ADODCCHS.DLL=Yes
C:
\WINDOWS\system32\TABCTL32.OCX=Yes
C:
\WINDOWS\system32\TABCTCHS.DLL=Yes
C:
\WINDOWS\system32\MSDATGRD.OCX=Yes
C:
\WINDOWS\system32\DATGDCHS.DLL=Yes
C:
\WINDOWS\system32\MSCOMCTL.OCX=Yes
C:
\WINDOWS\system32\MSCMCCHS.DLL=Yes
D:
\VB98\Wizards\PDWizard\SETUP.EXE=Yes
D:
\VB98\Wizards\PDWizard\SETUP1.EXE=Yes
C:
\WINDOWS\system32\VB6STKIT.DLL=Yes
D:
\VB98\Wizards\PDWizard\ST6UNST.EXE=Yes
F:
\源代码\XiaoQuGuanli.mdb=Yes
[Package|标准安装软件包1|ConfigureRegistryFiles]
Applicable=No
[Package|标准安装软件包1|ConfigureRemoteServers]
Applicable=No
[Package|标准安装软件包1|InstallLocations]
H:
\未完成\VB房产建筑\第4章小区物业管理系统\源代码\小区物业管理系统.exe=$(AppPath)
D:
\WINNT\system32\MSVBVM60.DLL=$(WinSysPathSysFile)
D:
\WINNT\system32\oleaut32.dll=$(WinSysPathSysFile)
D:
\WINNT\system32\olepro32.dll=$(WinSysPathSysFile)
D:
\WINNT\system32\asycfilt.dll=$(WinSysPathSysFile)
D:
\WINNT\system32\stdole2.tlb=$(WinSysPathSysFile)
E:
\ProgramFiles\MicrosoftVisualStudio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL=$(WinSysPathSysFile)
D:
\WINNT\system32\vb6chs.dll=$(WinSysPath)
D:
\ProgramFiles\CommonFiles\System\ado\msado25.tlb=$(WinSysPath)
D:
\WINNT\system32\MSADODC.OCX=$(WinSysPath)
D:
\WINNT\system32\msstdfmt.dll=$(WinSysPath)
D:
\WINNT\system32\ADODCCHS.DLL=$(WinSysPath)
D:
\WINNT\system32\tabctl32.ocx=$(WinSysPath)
D:
\WINNT\system32\tabctchs.dll=$(WinSysPath)
D:
\WINNT\system32\msdatgr
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 毕业设计 源代码
![提示](https://static.bdocx.com/images/bang_tan.gif)