西北师范大学知行学院（计算机与电子信息工程系）
点击【编辑】后就可以修改账户信息以及密码了
图3.7
添加用户代码
On Error Resume Next
If Command1.Caption = \添加\
Command2.Enabled = False Command5.Enabled = False Command6.Enabled = False
Command1.Caption = \确定\取消\Adodc1.Recordset.AddNew
Option1.Enabled = True Option2.Enabled = True
Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True Text2.Text = \
ElseIf Text1.Text = \
MsgBox \用户名不能为空！\提示\ElseIf Text2.Text = \
MsgBox \密码不能为空！\提示\ElseIf Text2.Text <> Text3.Text Then MsgBox \密码两次需一致！\提示\ElseIf Text4.Text = \
MsgBox \请选择所建用户类型！\提示\Else
Command2.Enabled = True Command3.Enabled = True Command5.Enabled = True Command6.Enabled = True
西北师范大学知行学院（计算机与电子信息工程系）
Command3.Caption = \编辑\添加\Adodc1.Recordset.Update
Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False
Option1.Value = False Option2.Value = False Option1.Enabled = False Option2.Enabled = False End If 公寓管理
包括公寓设置、寝室设置、班级设置还有维修管理。 点击【公寓设置】
图3.8 进入公寓设置模块，默认是公寓设置，可以对公寓进行添加、修改、删除等功能。 点击【寝室管理】
西北师范大学知行学院（计算机与电子信息工程系）
图3.9
寝室设置可以对寝室进行添加、修改、删除功能。 点击【班级设置】
图3.10
班级设置可以对班级进行添加、修改、删除功能。 公寓设置代码
西北师范大学知行学院（计算机与电子信息工程系）
Public Function startree1() On Error Resume Next Adodc1.Refresh Adodc2.Refresh
TreeView1.Nodes.Clear Dim I As Integer
TreeView1.LineStyle = tvwRootLines '根线
Set nod1 = TreeView1.Nodes.add(, , \公寓管理系统\公寓管理系统\For I = 1 To Adodc1.Recordset.RecordCount
Set nod2 = TreeView1.Nodes.add(\公寓管理系统\Adodc1.Recordset.Fields(\公寓名称\ Adodc4.Mode = adModeReadWrite
Adodc4.ConnectionString = provider & \ Adodc1.Recordset.MoveNext
Adodc4.CommandType = adCmdText
Adodc4.RecordSource = \寝室 from qinshi where 公寓名称='\nod2.Text & \ Adodc4.Refresh Dim k As Long
Do While Not Adodc4.Recordset.EOF
Call TreeView1.Nodes.add(nod2, tvwChild, \& CStr(k), Adodc4.Recordset.Fields(\寝室\ k = k + 1
Adodc4.Recordset.MoveNext Loop Next
End Function
点击【维修管理】
