毕业设计源代码

1、毕业设计源代码学生姓名： 班级学号： 指导教师： 职 称： 所在系（教研室）： 其中登录按钮的源码如下:private sub cmdlogin_click() 首先检查用户是否输入了用户名和密码 if txtuser.text = then msgbox 请输入用户名！, vbokonly + vbinformation, 注意 txtuser.setfocus exit sub elseif txtpwd.text = then msgbox 请输入密码！, vbokonly + vbinformation, 注意 txtpwd.setfocus exit sub end if dim s

2、qluser as string 构造查询该用户名和密码的sql语句 sqluser = select * from usertable where username = & txtuser.text _ & and password = & txtpwd.text & rs_user.cursorlocation = aduseclient 打开数据游标 rs_user.open sqluser, conn, adopenkeyset, adlockpessimistic if rs_user.eof = true then msgbox 用户名或密码不正确！, vbokonly + vbi

3、nformation, 注意 rs_user.close 清空txtuser和txtpwd文本框 txtuser.text = txtpwd.text = exit sub else 还需使其他菜单可用 mdifrmmain.mnadduser.enabled = true mdifrmmain.mnbasicdata.enabled = true mdifrmmain.mnwuye.enabled = true mdifrmmain.mndatatg.enabled = true 提示用户登录成功并关闭游标和登录窗口 msgbox 登录成功！, vbokonly + vbinformatio

4、n, 注意 rs_user.close unload me end if end sub并添加相关代码.其中重点分析按钮源码如下:。添加按钮的代码：private sub cmdadd_click() 设置除保存和取消按钮外的其他按钮不可用 cmdadd.enabled = false cmdedit.enabled = false cmddel.enabled = false cmdsave.enabled = true cmdcancel.enabled = true cmdfirst.enabled = false cmdprev.enabled = false cmdnext.enab

5、led = false cmdlast.enabled = false cmdquery.enabled = false 需要清空所有text框，并且设置它们可写 for i = 0 to 14 text1(i).text = text1(i).enabled = true next i combo1.enabled = true add变量用于保存时判断是从添加还是修改后保存 add = 1 text1(0).setfocus text1(13).text = dateend sub修改按钮的源码:private sub cmdedit_click() 设置除保存和取消按钮外的其他按钮不可用

6、 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框可写 for i = 1 to 14 text1(i).enabled = true n

7、ext i combo1.enabled = true add = 0end sub删除按钮的源码如下:private sub cmddel_click() 当单击删除记录时，需要弹出一个提示框，警告用户 dim answer as string answer = msgbox(确定要删除吗？, vbyesno, ) 确实删除 if answer = vbyes then rs_client.delete 删除当前记录 rs_client.update 更新删除 msgbox 成功删除！, vbokonly + vbexclamation, else exit sub end if 删除之后，

8、显示总信息条数需要减 1 text2.text = val(text2.text) - 1 删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则显示上一条记录 先移动rs_client记录到后一条 rs_client.movenext if rs_client.eof then rs_client.moveprevious 如果没有到记录首则显示改记录 if not rs_client.bof then for i = 0 to 14 text1(i).text = rs_client.fields(i) next i if rs_client.fields(15) = 男 the

9、n combo1.listindex = 0 else combo1.listindex = 1 end if 如果到记录首，则表格已经为空，置所有text框显示为空 elseif rs_client.bof then for i = 0 to 14 text1(i).text = next i end if 如果删除的不是首尾记录，则显示当前记录即可 else for i = 0 to 14 text1(i).text = rs_client.fields(i) next i if rs_client.fields(15) = 男 then combo1.listindex = 0 else

10、 combo1.listindex = 1 end if end if end sub保存按钮的源码如下:private sub cmdsave_click() 检测数据是否完整 if text1(0).text = then msgbox 住户编号不可为空！, vbokonly + vbinformation, 注意 text1(0).setfocus exit sub elseif text1(1).text = then msgbox 物业地址不可为空！, vbokonly + vbinformation, 注意 text1(1).setfocus exit sub elseif tex

11、t1(3).text = or isnumeric(text1(3).text) = false then msgbox 建筑面积应为数字！, vbokonly + vbinformation, 注意 text1(3).setfocus exit sub elseif text1(4).text = or isnumeric(text1(4).text) = false then msgbox 使用面积应为数字！, vbokonly + vbinformation, 注意 text1(4).setfocus exit sub elseif text1(5).text = then msgbox

12、 业主姓名不可为空！, vbokonly + vbinformation, 注意 text1(5).setfocus exit sub elseif isdate(text1(13).text) = false then msgbox 入住日期书写不对，应为2000-1-1这样的格式！, vbokonly + vbinformation, 注意 text1(13).setfocus exit sub elseif not text1(14).text = and isdate(text1(14).text) = false then msgbox 迁出时间应为空或2000-1-1这样的格式！,

13、 vbokonly + vbinformation, 注意 text1(14).setfocus exit sub end if 添加数据后保存 if add = 1 then 检测住户编号这个主键是否已经在表中存在 dim rs_check as new adodb.recordset dim sqlcheck as string sqlcheck = select * from client where 住户编号= & (text1(0).text) & rs_check.open sqlcheck, conn, adopenstatic, adlockoptimistic if not

14、rs_check.eof and not rs_check.bof then msgbox 该住户编号已经存在，请重填一个！, vbokonly + vbinformation, 注意 rs_check.close text1(0).setfocus text1(0).text = exit sub end if rs_check.close 主键不重复，可以加入表中 rs_client.addnew for i = 0 to 14 rs_client.fields(i) = text1(i).text next i rs_client.fields(15) = combo1.text rs_

15、client.update 添加保存之后，显示总信息条数需要加1 text2.text = val(text2.text) - 1 修改数据后的保存 else rs_client.update end if msgbox 保存数据成功！, vbokonly + vbinformation, 祝贺 保存后需要设置其他按钮可用，以及各个text框不可写 cmdadd.enabled = true cmdedit.enabled = true cmddel.enabled = true cmdsave.enabled = false cmdcancel.enabled = false cmdfirs

16、t.enabled = true cmdprev.enabled = true cmdnext.enabled = true cmdlast.enabled = true cmdquery.enabled = true for i = 0 to 14 text1(i).enabled = false next i combo1.enabled = falseend sub其中添加,修改,删除按包的源码设计同上,重点分析保存按钮的源码如下:private sub cmdsave_click() 检测数据是否完整 if text1(0).text = then msgbox 设备编号不可为空！,

17、vbokonly + vbinformation, 注意 text1(0).setfocus exit sub elseif text1(1).text = then msgbox 设备名称不可为空！, vbokonly + vbinformation, 注意 text1(1).setfocus exit sub elseif isdate(text1(5).text) = false then msgbox 购买日期书写不对，应为2000-1-1这样的格式！, vbokonly + vbinformation, 注意 text1(5).setfocus exit sub end if 添加数

18、据后保存 if add = 1 then 检测房间编号这个主键是否已经在表中存在 dim rs_check as new adodb.recordset dim sqlcheck as string sqlcheck = select * from equipment where 设备编号= & (text1(0).text) & rs_check.open sqlcheck, conn, adopenstatic, adlockoptimistic if not rs_check.eof and not rs_check.bof then msgbox 该设备编号已经存在，请重填一个！, v

19、bokonly + vbinformation, 注意 rs_check.close text1(0).setfocus text1(0).text = exit sub end if rs_check.close 主键不重复，可以加入表中 rs_equip.addnew for i = 0 to 6 rs_equip.fields(i) = text1(i).text next i rs_equip.update 添加之后显示总共条数信息加 1 text2.text = val(text2.text) + 1 修改数据后的保存 else rs_equip.update end if msgb

20、ox 保存数据成功！, 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 = tru

21、e for i = 0 to 6 text1(i).enabled = false next i end sub(该模块其它几个窗体的设计跟此窗体的设计雷同)其中排序按钮的源码如下:private sub cmdorder_click() dim sql as string if rs_order.state = adstateopen then rs_order.close end if sql = select * from equipment order by & combo1.text rs_order.cursorlocation = aduseclient rs_order.ope

22、n sql, conn, adopenstatic, adlockoptimistic 设置datagrid1的数据源 set datagrid1.datasource = rs_order datagrid1.refresh 使用分组统计，并显示在datagrid2中 首先需要设置datagrid2可见 datagrid2.visible = true 设置网格不可写 datagrid2.allowaddnew = false datagrid2.allowdelete = false datagrid2.allowupdate = false dim sql2 as string 下面的s

23、ql语句已用户选择的combo1.text分组、排序，并且统计同一个combo1.text的数量 sql2 = select & combo1.text & , count( & combo1.text & _ ) as 数量统计 from equipment group by & combo1.text & order by & combo1.text if rs_tg.state = adstateopen then rs_tg.close end if rs_tg.cursorlocation = aduseclient rs_tg.open sql2, conn, adopenstat

24、ic, adlockoptimistic 设置datagrid2的数据源 set datagrid2.datasource = rs_tg datagrid2.refresh end subrootmost recent package=标准安装软件包 1package|标准安装软件包 1|rootsubwizprogid=pdwizard.setuppkgsubwizbuildfolder=f:小区物业管理package|标准安装软件包 1|configure dao isamsapplicable=nopackage|标准安装软件包 1|configure dao odbcjetworks

25、pace=odbcdirect=package|标准安装软件包 1|files foundxiaoquguanli.mdb=f:源代码xiaoquguanli.mdbpackage|标准安装软件包 1|files releasedpackage|标准安装软件包 1|missing dependency informationd:program filescommon filessystemadomsado25.tlb=d:winntsystem32msstdfmt.dll=c:program filescommon filessystemadomsado25.tlb=package|标准安装软

26、件包 1|out-of-date dependency informationd:winntsystem32mscomctl.ocx=d:winntsystem32msdatgrd.ocx=d:winntsystem32tabctl32.ocx=c:windowssystem32mscomctl.ocx=c:windowssystem32msstdfmt.dll=package|标准安装软件包 1|files addedxiaoquguanli.mdb=package|标准安装软件包 1|files removedd:program filescommon filessystemadomsad

27、o25.tlb=package|标准安装软件包 1|files in projectf:源代码小区物业管理系统.exe=yesc:windowssystem32msvbvm60.dll=yesc:windowssystem32oleaut32.dll=yesc:windowssystem32olepro32.dll=yesc:windowssystem32asycfilt.dll=yesc:windowssystem32stdole2.tlb=yesd:vb98wizardspdwizardredistcomcat.dll=yesc:windowssystem32vb6chs.dll=yesc

28、:program filescommon filessystemadomsado25.tlb=yesc:windowssystem32msadodc.ocx=yesc:windowssystem32msstdfmt.dll=yesc:windowssystem32stdftchs.dll=yesc:windowssystem32adodcchs.dll=yesc:windowssystem32tabctl32.ocx=yesc:windowssystem32tabctchs.dll=yesc:windowssystem32msdatgrd.ocx=yesc:windowssystem32dat

29、gdchs.dll=yesc:windowssystem32mscomctl.ocx=yesc:windowssystem32mscmcchs.dll=yesd:vb98wizardspdwizardsetup.exe=yesd:vb98wizardspdwizardsetup1.exe=yesc:windowssystem32vb6stkit.dll=yesd:vb98wizardspdwizardst6unst.exe=yesf:源代码xiaoquguanli.mdb=yespackage|标准安装软件包 1|configure registry filesapplicable=nopac

30、kage|标准安装软件包 1|configure remote serversapplicable=nopackage|标准安装软件包 1|install locationsh:未完成vb房产建筑第4章 小区物业管理系统源代码小区物业管理系统.exe=$(apppath)d:winntsystem32msvbvm60.dll=$(winsyspathsysfile)d:winntsystem32oleaut32.dll=$(winsyspathsysfile)d:winntsystem32olepro32.dll=$(winsyspathsysfile)d:winntsystem32asycf

31、ilt.dll=$(winsyspathsysfile)d:winntsystem32stdole2.tlb=$(winsyspathsysfile)e:program filesmicrosoft visual studiovb98wizardspdwizardredistcomcat.dll=$(winsyspathsysfile)d:winntsystem32vb6chs.dll=$(winsyspath)d:program filescommon filessystemadomsado25.tlb=$(winsyspath)d:winntsystem32msadodc.ocx=$(wi

32、nsyspath)d:winntsystem32msstdfmt.dll=$(winsyspath)d:winntsystem32adodcchs.dll=$(winsyspath)d:winntsystem32tabctl32.ocx=$(winsyspath)d:winntsystem32tabctchs.dll=$(winsyspath)d:winntsystem32msdatgrd.ocx=$(winsyspath)d:winntsystem32datgdchs.dll=$(winsyspath)d:winntsystem32mscomctl.ocx=$(winsyspath)d:wi

33、nntsystem32mscmcchs.dll=$(winsyspath)e:program filesmicrosoft visual studiovb98wizardspdwizardsetup.exe=$(apppath)e:program filesmicrosoft visual studiovb98wizardspdwizardsetup1.exe=$(winpath)d:winntsystem32vb6stkit.dll=$(winsyspathsysfile)e:program filesmicrosoft visual studiovb98wizardspdwizardst6

34、unst.exe=$(winpath)h:已经完成测试程序vb房产建筑第4章 小区物业管理系统源代码小区物业管理系统.exe=$(apppath)h:已经完成测试程序vb房产建筑第4章 小区物业管理系统源代码xiaoquguanli.mdb=$(apppath)f:源代码小区物业管理系统.exe=$(apppath)c:windowssystem32msvbvm60.dll=$(winsyspathsysfile)c:windowssystem32oleaut32.dll=$(winsyspathsysfile)c:windowssystem32olepro32.dll=$(winsyspat

35、hsysfile)c:windowssystem32asycfilt.dll=$(winsyspathsysfile)c:windowssystem32stdole2.tlb=$(winsyspathsysfile)d:vb98wizardspdwizardredistcomcat.dll=$(winsyspathsysfile)c:windowssystem32vb6chs.dll=$(winsyspath)c:program filescommon filessystemadomsado25.tlb=$(winsyspath)c:windowssystem32msadodc.ocx=$(w

36、insyspath)c:windowssystem32msstdfmt.dll=$(winsyspath)c:windowssystem32stdftchs.dll=$(winsyspath)c:windowssystem32adodcchs.dll=$(winsyspath)c:windowssystem32tabctl32.ocx=$(winsyspath)c:windowssystem32tabctchs.dll=$(winsyspath)c:windowssystem32msdatgrd.ocx=$(winsyspath)c:windowssystem32datgdchs.dll=$(

37、winsyspath)c:windowssystem32mscomctl.ocx=$(winsyspath)c:windowssystem32mscmcchs.dll=$(winsyspath)d:vb98wizardspdwizardsetup.exe=$(apppath)d:vb98wizardspdwizardsetup1.exe=$(winpath)c:windowssystem32vb6stkit.dll=$(winsyspathsysfile)d:vb98wizardspdwizardst6unst.exe=$(winpath)f:源代码xiaoquguanli.mdb=$(app

38、path)package|标准安装软件包 1|configure shared filesapplicable=yesh:未完成vb房产建筑第4章 小区物业管理系统源代码小区物业管理系统.exe=noh:已经完成测试程序vb房产建筑第4章 小区物业管理系统源代码小区物业管理系统.exe=noh:已经完成测试程序vb房产建筑第4章 小区物业管理系统源代码xiaoquguanli.mdb=nof:源代码小区物业管理系统.exe=nof:源代码xiaoquguanli.mdb=nopackage|标准安装软件包 1|distributiontype=singlesize=title=小区物业管理系统

39、package|标准安装软件包 1|icongroupsgroup0=小区物业管理系统privategroup0=trueparent0=$(programs)package|标准安装软件包 1|小区物业管理系统icon1=小区物业管理系统.exetitle1=小区物业管理系统startin1=$(apppath)key1=icon1package|标准安装软件包 1|packagepackagefolder=f:小区物业管理projectfolder=f:源代码serversidecab=file1=f:小区物业管理setup.exefile2=f:小区物业管理setup.lstfile3=

40、f:小区物业管理小区物业管理系统.cabhandler1=pdwizard.folderdplysubwizhandler2=pdwizard.webpostdplysubwizfrmlogin = 139, 41, 664, 481, c, 85, 210, 458, 506, cmdifrmmain = 45, 97, 636, 533, c, 34, 24, 561, 487, cfrmadduser = 18, 11, 635, 626, c, 104, 133, 545, 527, cfrmchpwd = 10, 72, 705, 610, c, 101, 43, 517, 390,

41、 cmodule1 = 126, 73, 651, 513, cfrmclient = 20, 106, 739, 683, c, -6, 81, 739, 669, cfrmqueryclient = 16, 16, 715, 540, c, 48, 67, 691, 502, cfrmtableclient = -1, 108, 737, 639, c, 13, 137, 709, 541, cfrmhouse = 44, 10, 678, 563, c, 29, 56, 729, 569, cfrmqueryhouse = 30, 27, 734, 595, c, 50, 146, 68

42、1, 569, cfrmtablehouse = 61, 34, 676, 596, c, -52, 100, 653, 476, cfrmtableemp = 107, 187, 632, 627, ci, -7, 106, 703, 528, cfrmequipment = 30, 26, 650, 617, c, 50, 119, 705, 593, cfrmqueryequip = 16, 29, 733, 601, c, 63, 74, 673, 469, cfrmyibiao = 21, 47, 694, 644, c, 16, 65, 684, 604, cfrmpark = 3

43、6, 251, 649, 736, c, 29, 202, 636, 649, cfrmquerypark = 28, 88, 690, 528, c, 47, 83, 668, 481, cfrmtousu = 22, 25, 645, 575, c, 21, -11, 715, 504, cfrmqueryts = 63, 62, 703, 588, c, 43, 125, 639, 522, cfrmbaoxiu = 48, 71, 712, 632, c, 9, 36, 714, 586, cfrmquerybx = 47, -1, 742, 474, c, 70, 94, 673,

44、490, cfrmrepair = 24, 47, 673, 618, c, 3, 117, 706, 650, cfrmqueryrepair = -28, 49, 685, 624, c, 76, 82, 697, 490, cfrmqueryyibiao = 0, 25, 698, 629, c, 52, 146, 700, 544, cfrmcharge = 17, -8, 725, 604, c, 34, 70, 715, 594, cfrmqueryfee = 12, 85, 675, 609, c, 56, 104, 672, 491, cfrmtgequip = -7, 0, 692, 513, c, 51, 145, 629, 587, cfrmtgtousu = 57, 56, 724, 557, c, 23, 68, 633, 538, cfrmtgbaoxiu = 25, 63, 669, 503, c, 16, 73, 620, 543, cfrmtgrepair = 9, 20, 679, 631, c, 7,