图4.10学生违规效果图
代码如下：
provider = "provider=Microsoft.jet.oledb.4.0"
datasource = "data source=" & App.Path & "\DB.mdb"
With Adodc1
.Mode = adModeReadWrite
.ConnectionString = provider & ";" & datasource
.CommandType = adCmdTable
.RecordSource = "qingjia"
.Refresh
End With
Text1.Text = Date
Text1.Enabled = False
确定无误后，进行添加，代码如下：
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Then
MsgBox "请输入详细信息！", , "系统提示"
4.5卫生检查
4.5.1 公寓卫生添加效果图
图4.11公寓卫生添加效果图
公寓选择栏中代码的实现：
Combo3.Clear
Dim I As Integer
I = 1
If Adodc1.Recordset.RecordCount <> 0 Then
Do While I < Adodc1.Recordset.RecordCount
Combo3.AddItem (Adodc1.Recordset.Fields("公寓名称"))
Adodc1.Recordset.MoveNext
I = I + 1
Loop
End If
卫生选择栏中的代码实现基本同上，它也是一个表中的字段值！
Dim J As Integer
J = 1
If Adodc4.Recordset.RecordCount <> 0 Then
Do While J < Adodc4.Recordset.RecordCount
Combo2.AddItem (Adodc4.Recordset.Fields("等级"))
Adodc4.Recordset.MoveNext
J = J + 1
Loop
End If
Combo2.Text = "优秀"
不合标准的卫生记录填写情况如下：
Combo4.AddItem ("门窗不干净")
Combo4.AddItem ("地面不干净")
Combo4.AddItem ("阳台不干净")
Combo4.AddItem ("床铺不整齐")
Combo4.AddItem ("不叠被")
Combo4.AddItem ("桌面不整齐")
Combo4.AddItem ("书柜摆放不整齐")
4.6 公寓资产
公寓资产可以及时对公寓里进出财务进行统计，以免遗忘，造成不必要的损失或不必要的麻烦，它的实现方法基本同上面的卫生记录的添加，相对比来说比上面的简单一些。不足的是目前只做出了入库管理，对于出库记录还没有实现。
4.6.1公寓资产添加设置效果图
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页