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

来源：用户分享时间：2025/8/20 16:36:00 本文由

loading 分享下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

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

六VB数据库设计

6.1编辑型窗体编辑，

以学生住宿编辑窗体为例

将ADO控件连接到数据源

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

并将TEXTBOX控件连接到ADO控件

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

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

员工信息编辑窗体

租赁信息编辑窗体

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

宿舍编辑窗体

权限编辑窗体

这六个编辑窗体的代码为： 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

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

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

搜索更多关于：学生宿舍管理系统安徽工业大学数据库课程设计doc资料的文档

学生宿舍管理系统安徽工业大学数据库课程设计doc资料.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.diyifanwen.net/c25qa53srny4vbt01gdv99bpag891bi0044s_5.html（转载请注明文章来源）