学生宿舍管理系统安徽工业大学数据库课程设计doc资料

数据库课程设计--学生宿舍管理系统

Private Sub Command8_Click() Adodc1.Refresh End Sub

Private Sub DataCombo1_Click(Area As Integer)

End Sub

6.2查询窗体编辑

学生住宿查询窗体

连接到数据源

通过Recordsource属性连接

20

数据库课程设计--学生宿舍管理系统

代码如下：

Private Sub Command1_Click()Adodc1.RecordSource = \学生住宿表 where 学号='\Adodc1.Refresh

If Adodc1.Recordset.RecordCount = 0 Then MsgBox \无此学生！\End If End Sub

Private Sub Command2_Click()

Adodc1.RecordSource = \学生住宿表 \Adodc1.Refresh End Sub

6.3菜单编辑

首先用菜单编辑器编辑

用Toolbar控件建立图标，并且为每个图标赋值

21

数据库课程设计--学生宿舍管理系统

代码如下：

Private Sub LFZXXBJ_Click() 来访者信息编辑.Show End Sub

Private Sub qxsz_Click() 权限编辑.Show End Sub

Private Sub sjbf_Click()

FileCopy \数据库课程设计\\宿舍管理课程设计1.mdb\\宿舍管理课程设计1.mdb\End Sub

Private Sub sjhf_Click()

FileCopy \数据库课程设计\\宿舍管理课程设计1.mdb\\宿舍管理课程设计1.mdb\End Sub

Private Sub SSBJ_Click() 宿舍编辑.Show End Sub

Private Sub tch_Click() End End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index End Sub

Private Sub XSZSBJ_Click() 学生住宿编辑.Show End Sub

Private Sub XSZSCX_Click() 学生住宿查询.Show End Sub

Private Sub YGXXBJ_Click() 员工信息编辑.Show End Sub

Private Sub ZLXXBJ_Click() 租赁信息编辑.Show End Sub

Private Sub ZLXXTJ_Click() DataReport2.Show End Sub

22

数据库课程设计--学生宿舍管理系统

6.4用户登陆窗体

通过CONNECTIONSTRING属性连接数据库

通过Recordsource属性连接

用户登陆窗体的代码为

If Adodc1.Recordset.RecordCount <> 0 Then

If Adodc1.Recordset.Fields(\权限类别\宿舍管理员\Formmain.JBXXBJ.Enabled = True Formmain.ZLXXBJ.Enabled = True

Formmain.tjbb.Enabled = True

Formmain.XSZSCX.Enabled = True Formmain.xtgl.Enabled = True Unload Me

Formmain.Show Else

Formmain.JBXXBJ.Enabled = True

23