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

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

六VB数据库设计

6.1编辑型窗体编辑，

以学生住宿编辑窗体为例

将ADO控件连接到数据源

编辑Recordsource属性，连接到学生住宿表

并将TEXTBOX控件连接到ADO控件

16

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

用同样的方法建立来访者编辑窗体、员工信息编辑窗体、租赁信息编辑窗体、宿舍编辑窗体、权限编辑窗体 来访者编辑窗体

员工信息编辑窗体

租赁信息编辑窗体

17

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

宿舍编辑窗体

权限编辑窗体

这六个编辑窗体的代码为： Private Sub Command1_Click()

If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MovePrevious End If End Sub

Private Sub Command2_Click()

If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext End If End Sub

Private Sub Command3_Click() Adodc1.Recordset.Delete End Sub

18

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

Private Sub Command4_Click()

Text1.Enabled = True

Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command7.Enabled = False Command6.Enabled = True Adodc1.Recordset.AddNew End Sub

Private Sub Command5_Click() Text1.Enabled = True

Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command7.Enabled = False Command6.Enabled = True End Sub

Private Sub Command6_Click() 'On Error GoTo e

Adodc1.Recordset.Update Text1.Enabled = False

Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command7.Enabled = True Command6.Enabled = False Adodc1.Recordset.Update a = 0

If a > 0 Then e:

MsgBox \输入出错！\Adodc1.Refresh End If End Sub

Private Sub Command7_Click() Unload Me End Sub

19