西北师范大学知行学院（计算机与电子信息工程系）
图3.11
可以进行对需要维修物品的登记
如何没有输入信息就点击【登记】时就会出现登记错误提示
图3.12
如果填写正确
西北师范大学知行学院（计算机与电子信息工程系）
图3.13
点击【登记】，就把输入的记录登记进去了
图3.14
维修模块代码
Private Sub Command1_Click() On Error Resume Next
If Text1.Text = \ MsgBox \请输入详细信息！\提示\Else
With Adodc1
.Recordset.AddNew
.Recordset.Fields(0).Value = Text1.Text .Recordset.Fields(1).Value = Text2.Text .Recordset.Fields(2).Value = Text3.Text .Recordset.Fields(3).Value = Text4.Text .Recordset.Fields(4).Value = Text5.Text .Recordset.Fields(5).Value = Text6.Text .Recordset.Update
西北师范大学知行学院（计算机与电子信息工程系）
End With End If End Sub
公寓财产模块
包括添加物品功能、按时间查询资产功能、按公寓查询资产功能。 点击【添加物品】
图3.15
就会出现添加物品栏目，按照要求添加就能将信息成功填写进数据表里面了 点击【按时间查询资产功能】
图3.16
当输入错误格式时候显示
图3.17
当正确填写查询资产的时侯，就会显示出要求信息
西北师范大学知行学院（计算机与电子信息工程系）
图3.18
点击【按公寓查询资产功能】
图3.19
当输入错误的格式时候就显示
图3.20
当正确填写信息后，就会显示出要求查询的信息
图3.21
点击窗口中的【查询资产功能】
