《2854.B基于VB6.0的机房实验课预约系统.doc》由会员分享，可在线阅读，更多相关《2854.B基于VB6.0的机房实验课预约系统.doc（7页珍藏版）》请在三一办公上搜索。
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 fr
17、mAddUser.Option1(1).Value = True Thenx = 1End IfSelect Case xCase 0:DbConn frmAddUser.Adodc1, teacherfrmAddUser.Adodc1.Recordset.AddNewCase 1:DbConn frmAddUser.Adodc1, studentfrmAddUser.Adodc1.Recordset.AddNewCase 2:End SelectEnd Sub设计器DataEnvironment1:Private Sub DataEnvironment_Initialize() DataEnvironment1.Connection1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & RegSys.mdb;Persist Security Info=FalseEnd Sub
