是对已经录入的卫生记录进行符合条件的查询。在查询类别中选择可以选择全部查看以及按日期查看。查看全部即显示所有记录,选择按日期查看后在下面的列表框中选择所要查看的日期,点击确定后即可以看到该日期的记录。
在进行查询前,要对所操作的表进行绑定,代码如下:
DimsAsString
provider="provider=Microsoft.jet.oledb.4.0"
datasource="datasource="&App.Path&"\DB.mdb"
WithAdodc1
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdTable
.RecordSource="weigui"
.Refresh
EndWith
日期后面的下拉列表框中可以显示出所有已经录入记录的日期,它是通过对当前表进行分类查询后得到的结果,然后将其添加在combo中,实现代码如下:
s="selectdistinct日期fromweisheng"
WithAdodc2
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdText
.RecordSource=s
.Refresh
EndWith
ForI=1ToAdodc2.Recordset.RecordCount
Combo1.AddItem(Adodc2.Recordset.Fields("日期"))
Adodc2.Recordset.MoveNext
Next
查看全部,即把当前表中的记录全部赋给当前用来显示的表格,按日期查看,则是在表中先进行查询,然后对结果进行重绑定,在赋值。它们的判断主要是通过单选框的选取来完成的,实现方法如下:
s=Combo1.Text
IfOption1.Value=TrueThen
Setmain.DataGrid1.datasource=Adodc1
main.DataGrid1.Refresh
ElseIfOption2.Value=TrueThen
sql="select*fromweishengwhere日期='"&Trim(s)&"'"
WithAdodc3
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdText
.RecordSource=sql
.Refresh
EndWith
Setmain.DataGrid1.datasource=Adodc3
main.DataGrid1.Refresh
EndIf
UnloadMe
4.7.2其它记录查看
在记录查看中还有其它三项查看方式,分别是请假、违规、资产三项记录查看。它们的实现方法与窗体与上面的卫生查看基本相同。
①请假查看
图4.14请假查看效果图
用它可以对当前所有记录以及有效日期内的记录进行查看。
代码如下:
DimsqlAsString
DimsAsString
s=Combo1.Text
IfOption1.Value=TrueThen
Setmain.DataGrid1.datasource=Adodc1
main.DataGrid1.Refresh
ElseIfOption2.Value=TrueThen
sql="select*fromqingjiawhere日期='"&Trim(s)&"'"
WithAdodc3
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdText
.RecordSource=sql
.Refresh
EndWith
Setmain.DataGrid1.datasource=Adodc3
main.DataGrid1.Refresh
EndIf
UnloadMe
在窗体的load中要设置已经添加的日期,需要对表进行条件查询,代码如下:
s="selectdistinct日期fromqingjia"
WithAdodc2
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdText
.RecordSource=s
.Refresh
EndWith
ForI=1ToAdodc2.Recordset.RecordCount
Combo1.AddItem(Adodc2.Recordset.Fields("日期"))
Adodc2.Recordset.MoveNext
Next
②违规查看
图4.15违规查看效果图
目前此类功能还不是十分理想,有些查看方式会在以后的程序中进行升级。
在Load事件设置了窗体运行时所有需要的东西。
代码如下:
Option1.Value=True
DimsAsString
provider="provider=Microsoft.jet.oledb.4.0"
datasource="datasource="&App.Path&"\DB.mdb"
WithAdodc1
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdTable
.RecordSource="weigui"
.Refresh
EndWith
s="selectdistinct日期fromweigui"
WithAdodc2
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdText
.RecordSource=s
.Refresh
EndWith
ForI=1ToAdodc2.Recordset.RecordCount
Combo1.AddItem(Adodc2.Recordset.Fields("日期"))
Adodc2.Recordset.MoveNext
Next
查看部分的源代码如下:
DimsqlAsString
DimsAsString
s=Combo1.Text
IfOption1.Value=TrueThen
Setmain.DataGrid1.datasource=Adodc1
main.DataGrid1.Refresh
ElseIfOption2.Value=TrueThen
sql="select*fromweiguiwhere日期='"&Trim(s)&"'"
WithAdodc3
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdText
.RecordSource=sql
.Refresh
EndWith
Setmain.DataGrid1.datasource=Adodc3
main.DataGrid1.Refresh
EndIf
UnloadMe
③资产查看
图4.16资产查看效果图
在Load事件设置了窗体运行时所有需要的东西。
代码如下:
ResumeNext
Option1.Value=True
DimsAsString
provider="provider=Microsoft.jet.oledb.4.0"
datasource="datasource="&App.Path&"\DB.mdb"
WithAdodc1
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdTable
.RecordSource="zichan"
.Refresh
EndWith
s="selectdistinct日期fromzichan"
WithAdodc3
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdText
.RecordSource=s
.Refresh
EndWith
ForI=1ToAdodc3.Recordset.RecordCount
Combo1.AddItem(Adodc3.Recordset.Fields("日期"))
Adodc3.Recordset.MoveNext
Next
查看部分代码如下所示:
ResumeNext
DimsqlAsString
DimsAsString
s=Combo1.Text
IfOption1.Value=TrueThen
Setmain.DataGrid1.datasource=Adodc1
main.DataGrid1.Refresh
ElseIfOption2.Value=TrueThen
sql="select*fromzichanwhere日期='"&Trim(s)&"'"
WithAdodc2
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdText
.RecordSource=sql
.Refresh
EndWith
Setmain.DataGrid1.datasource=Adodc2
main.DataGrid1.Refresh
EndIf
Calldx1
UnloadMe
4.8记录删除
删除是一个数据库软件中最基本的操作之一。在本软件的工具栏中也有一个删除按钮,其功能也是将所找到的记录删除,但是它每次只能删除一条记录,且此删除记录的前提是在右侧的显示中容易找出,即记录不多的情况下使用。如果一旦数据记录很多,一条条查找比较不方便时,即可以使用此窗体进行删除。这里的删除也有四个窗体,分别为卫生删除、请假删除、违规删除、资产删除。下面分别介绍。
4.8.1卫生删除
①效果图
图4.17卫生删除效果图
②界面制作与实现方法
这个界面总体来说各个控件比较简单,但是作为一个删除操作,它已经连接到了数据库,与数据库的表相联。且有三种删除记录方式可以选择。
默认为单条删除,选择此项后需要在日期中选择所删除记录的添加日期,以及所在的公寓与寝室,当这三条全部符合要求后,在表中进行查找,找到后确认删除。选择批量删除后,在下面只有一个日期可以选择,这样将会把所选日期内的所有记录都将删除掉,所以称其为批量删除。全部即是把当前表清空,全部删除掉,建议使用此操作前对当前数据库进行备份处理,否则数据将不会恢复。首先要进行数据库连接,如上面例子所示,这里就不在介绍,接下来要对本窗体中的日期进行加载,如下所示:
s="selectdistinct日期
上一篇:
vb餐饮酒店管理系统(论文和程序)
下一篇:
法律专业开题报告范文