VB学生公寓管理系统 第8页
图4.12公寓资产添加效果图
4. 6. 2 界面制作与实现方法
代码如下：
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 卫生查看
①界面效果图
图4.13卫生查看效果图
②界面制作与实现方法
这是一个比较简单的窗体操作。看起来精简、小巧。它主要的功能是对已经录入的卫生记录进行符合条件的查询。在进行查询前，要对所操作的表进行绑定，代码如下：
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
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页