4. 6. 2 界面制作与实现方法 日期的设置同上面一样，只读属性。公寓名称与寝室名称要人工输入，没有选择，这是因为考虑到它不会像卫生记录那样每天要添加一次，每次要添加很多，所以为了减少系统进程，它没有使用combo，没有在窗体中进行加载。窗体中的数量与单价在填写之后会自动把总价格计算出来，类似于上图中的得分一样。部分代码如下： If Text5.Text = “” Or Text2.Text = “” Or Text3.Text = “” Then MsgBox “请输入详细信息！”, , “提示” Else With Adodc1 .Recordset.AddNew .Recordset.Fields(0).Value = Text1.Text .Recordset.Fields(1).Value = Text8.Text .Recordset.Fields(2).Value = Text2.Text .Recordset.Fields(3).Value = Text3.Text .Recordset.Fields(4).Value = Text4.Text .Recordset.Fields(5).Value = Text5.Text .Recordset.Fields(6).Value = Text6.Text .Recordset.Fields(7).Value = Text7.Text .Recordset.Update End With Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh Text2.Text = “” Text3.Text = “” Text4.Text = “” Text5.Text = “” Text6.Text = “” Text7.Text = “” End If 4.7记录查看记录查看可以让你对已录入的记录进行各种符合条件的查找，显示符合条件的记录。这里主要包括四个方面的查看：卫生查看、请假查看、违规查看、资产查看。下面分别介绍。 4.7.1 卫生查看 ①界面效果图 ②界面制作与实现方法 这是一个比较简单的窗体操作。看起来精简、小巧。它主要的功能是对已经录入的卫生记录进行符合条件的查询。在查询类别中选择可以选择全部查看以及按日期查看。查看全部即显示所有记录，选择按日期查看后在下面的列表框中选择所要查看的日期，点击确定后即可以看到该日期的记录。 在进行查询前，要对所操作的表进行绑定，代码如下： Dim s As String provider = "provider=Microsoft.jet.oledb.4.0" datasource = "data source=" & App.Path & "\DB.mdb" With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdTable .RecordSource = "weigui" .Refresh End With 日期后面的下拉列表框中可以显示出所有已经录入记录的日期，它是通过对当前表进行分类查询后得到的结果，然后将其添加在combo中，实现代码如下： s = "select distinct 日期 from weisheng" With Adodc2 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdText .RecordSource = s .Refresh End With For I = 1 To Adodc2.Recordset.RecordCount Combo1.AddItem (Adodc2.Recordset.Fields("日期")) Adodc2.Recordset.MoveNext Next 查看全部，即把当前表中的记录全部赋给当前用来显示的表格，按日期查看，则是在表中先进行查询，然后对结果进行重绑定，在赋值。它们的判断主要是通过单选框的选取来完成的，实现方法如下： s = Combo1.Text If Option1.Value = True Then Set main.DataGrid1.datasource = Adodc1 main.DataGrid1.Refresh ElseIf Option2.Value = True Then sql = "select * from weisheng where 日期=''" & Trim(s) & "''" With Adodc3 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdText .RecordSource = sql .Refresh End With Set main.DataGrid1.datasource = Adodc3 main.DataGrid1.Refresh End If Unload Me
| 
