2854.B基于VB6.0的机房实验课预约系统

1、窗体frmadduser:private sub command1_click()dbconn adodc2, regdim str as stringstr = select * from reg where 预约人= & text1.text & adodc2.recordsource = stradodc2.refreshif adodc2.recordset.eof true thenmsgbox 姓名与已有记录有冲突，请重新输入!exit subelseadodc1.recordset.addnewmsgbox 用户添加成功，已经录入数据库。unload meend ifend su

2、bprivate sub option1_click(index as integer)adduserinitend subfrmlogin:private sub command1_click() if text = and text2 = then msg , 2 else usercheck adodc1, text1, db, text2, text3, frmlogin end ifend subprivate sub command2_click()endend subprivate sub command3_click()unload mefrmsel.showend subpr

3、ivate sub form_load()initformlogindbconn adodc1, dbend subfrmmain:private sub help_click(index as integer)msgbox 申请预约请选择基本操作-申请预约 修改预约信息请选择基本操作-预约管理 操作完成后请点击退出关闭本系统 end subprivate sub mdiform_load() stylecheck (db) frmmainer.showend subprivate sub mdiform_unload(cancel as integer) unload frmloginend

4、 subprivate sub menu_print_click() datareport1.showend subprivate sub menuadminadd_click()frmadduser.showend subprivate sub menuadminedit_click()frmuseredit.showend subprivate sub menuadminregedit_click()frmregedit.showend subprivate sub menueditsingle_click()frmregedit.showend subprivate sub menued

5、itteacher_click()frmregedit.showend subprivate sub menuexit_click() unload frmlogin endend subprivate sub menuregsingle_click()frmreg.showend subprivate sub menuregteacher_click()frmreg.showend subfrmmainer:private sub command1_click() dbconn adodc1, regend subprivate sub command2_click()end subpriv

6、ate sub form_load() tim = date dbconn adodc1, reg if db = admin then datagrid1.allowdelete = true datagrid1.allowupdate = true end ifend subprivate sub monthview1_dateclick(byval dateclicked as date) query adodc1, reg, dateclickedend subfrmreg:private sub command1_click()adodc1.recordset.addnewunloa

7、d meend subprivate sub command3_click()dbconn adodc2, regdim str as stringstr = select 预约方式 from reg where 节次= & combo1.text & and 日期=# & text2.text & # and 机房 = & combo2.text & adodc2.recordsource = stradodc2.refreshif adodc2.recordset.eof true thenmsgbox 有冲突，请重新选择!exit subelsecommand1.enabled = tr

8、uecommand3.enabled = falsemsgbox 可以提交，请单击提交按钮！end ifend subprivate sub dtpicker1_change()text2.text = dtpicker1.valueend subprivate sub form_load()dbconn adodc1, regadodc1.recordset.addnewinitformregtext2.text = datedbconn adodc3, roomwhile adodc3.recordset.eof = falsecombo2.additem adodc3.recordset

9、.fields(1)adodc3.recordset.movenextwendend subfrmregedit:private sub form_load()dbconn adodc1, regif frmlogin.text1 = admin thenadodc1.recordsource = select * from regadodc1.refreshme.caption = 所有信息elseadodc1.recordsource = select * from reg where 预约人 = & frmlogin.text1 & adodc1.refreshme.caption =

10、frmlogin.text1 & 的预约信息end ifend subfrmsel:private sub label_click(index as integer)unload men = indexfrmlogin.showend subfrmuseredit:private sub form_load()dbconn adodc1, studentdbconn adodc2, teacherend sub模块mod：public sysflag as integerpublic db as stringpublic sub dbconn(byval adoname, byval dbna

11、me) adoname.connectionstring = provider=microsoft.jet.oledb.4.0; & data source= & app.path + regsys.mdb & ;persist security info=false adoname.recordsource = select * from & dbname adoname.refreshend subpublic sub usercheck(byval adoname, byval user, byval dbname, byval pwdcheck1, byval pwdcheck2, b

12、yval formname) adoname.recordsource = select 密码 from & dbname & where 用户名 = & user & adoname.refresh if pwdcheck1 = pwdcheck2 then msg user, 1 formname.hide frmmain.show else msg user, 0 end ifend subpublic sub msg(optional name, optional flag)select case flagcase 1:msgbox name & ，欢迎您的登录！case 0:msgb

13、ox name & ，请检查您的用户名或密码。case 2:msgbox 用户名密码不能为空！end selectend subpublic sub stylecheck(byval group) select case group case admin: frmmain.menuaction.visible = false sysflag = 1 case student: frmmain.menuadminaction.visible = false frmmain.menuregteacher.visible = false frmmain.menueditteacher.visible

14、 = false sysflag = 2 case teacher: frmmain.menuadminaction.visible = false frmmain.menuregsingle.visible = false frmmain.menueditsingle.visible = false sysflag = 3 end selectend subpublic sub query(byval adoname, byval dbname, byval dater) adoname.recordsource = select * from & dbname & where 日期 = &

15、 dater & adoname.refreshend subpublic sub initformlogin() select case frmsel.n case 1: db = student frmlogin.lblname.caption = 学生姓名 frmlogin.caption = 学生登录 case 2: db = teacher frmlogin.lblname.caption = 教师姓名 frmlogin.caption = 教师登录 case 3: db = admin frmlogin.lblname.caption = 管理员 frmlogin.caption

16、= 管理员登录 end selectend subpublic sub initformreg()frmreg.text1(0).text = frmlogin.text1.textselect case sysflagcase 2: frmreg.text1(1).text = 个人预约case 3: frmreg.text1(1).text = 集体预约end selectend subpublic sub adduserinit()dim x as integerx = 2if frmadduser.option1(0).value = true thenx = 0end ifif frmadduser.option1(1).value = true thenx = 1end ifselect case xcase 0:dbconn frmadduser.adodc1, teacherfrmadduser.adodc1.recordset.addnewcase 1:dbconn frmadduser.adodc1, studentfrmadduse