(8).Value=Text9.Text
.Recordset.Update
EndWith
Setmain.DataGrid1.datasource=Adodc1
main.DataGrid1.Refresh
EndIf
4.4.2学生违规
①学生违规记录图片显示
图4.10学生违规效果图
此界面与上面的请假记录差不多。它主要是对学生的违规记录做一个添加。其中的日期也是系统当前的日期,它是不可以进行更改的,然后在其它文本框中输入其它详细资料即可以这里的违规操作用的也是Adodc控件,所有的文本框在初始的时候也没有同Adodc绑定,它也是在代码中与数据库中表的字段进行的绑定,然后进行添加操作。其它操作同上面基本是一致的,对于违规在主界面的左侧并没有快速显示操作,只可以用记录查看里面的违规查看进行选择查看。在这里所添写的记录也要全面一些,主要是为了以后查找更为方便,如果不全,系统会提示的!
②违规部分代码如下:
在load事件里对数据库链接的处理,以及日期文本框的设置,代码如下:
provider="provider=Microsoft.jet.oledb.4.0"
datasource="datasource="&App.Path&"\DB.mdb"
WithAdodc1
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdTable
.RecordSource="qingjia"
.Refresh
EndWith
Text1.Text=Date
Text1.Enabled=False
确定无误后,进行添加,代码如下:
IfText1.Text=""OrText2.Text=""OrText3.Text=""OrText4.Text=""OrText5.Text=""OrText6.Text=""OrText7.Text=""OrText8.Text=""OrText9.Text=""Then
MsgBox"请输入详细信息!",,"系统提示"
Else
WithAdodc1
.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.Fields(6).Value=Text7.Text
.Recordset.Fields(7).Value=Text8.Text
.Recordset.Fields(8).Value=Text9.Text
.Recordset.Update
EndWith
Setmain.DataGrid1.datasource=Adodc1
main.DataGrid1.Refresh
4.5卫生检查
公寓卫生可以说是一个高校固定资产管理系统中最常见到的问题了。公寓卫生每天要清扫,寝室卫生每天要检查,但是如果这些都用纸来进行填写,一定会十分麻烦,且保存也不是十分方便,在一些评比中也会忙的很遭。所以在这个软件中编写了此功能。
4.5.1公寓卫生添加效果图
图4.11公寓卫生添加效果图
①在这个界面中主要用到了文本框以及起到美观作用的frame控件。
日期已经设置成只读属性,检查记录的日期是不能随便改写的。公寓名称可以在下拉列表框中进行选择,如果在下拉列表框中没有发现,可以人工输入,但是要确定公寓名称的正确性。寝室名称需要自己输入。这里的卫生标准一共有五项可以填写,在每一项里已经基本设置了所不全标准的记录,你可以在下拉列表框中进行选择即可,但是如果没有你想输入的记录的话,你也可以自己输入。输入完成后,在减分后面的文本框中输入一共要对此寝室减掉的分数,单击得分后面的文本框会自动算出应该得到的分数。然后跟据得分的分数,你要选择该寝室的卫生等级,卫生等级为必选值且为固定值,正确的选择此项可以在主界面的左侧中快速对卫生等级进行查看。
②公寓选择栏中代码的实现:
Combo3.Clear
DimIAsInteger
I=1
IfAdodc1.Recordset.RecordCount<>0Then
DoWhileI
Combo3.AddItem(Adodc1.Recordset.Fields("公寓名称"))
Adodc1.Recordset.MoveNext
I=I+1
Loop
EndIf
卫生选择栏中的代码实现基本同上,它也是一个表中的字段值!
DimJAsInteger
J=1
IfAdodc4.Recordset.RecordCount<>0Then
DoWhileJ
Combo2.AddItem(Adodc4.Recordset.Fields("等级"))
Adodc4.Recordset.MoveNext
J=J+1
Loop
EndIf
Combo2.Text="优秀"
不合标准的卫生记录填写情况如下:
Combo4.AddItem("门窗不干净")
Combo4.AddItem("地面不干净")
Combo4.AddItem("阳台不干净")
Combo4.AddItem("床铺不整齐")
Combo4.AddItem("不叠被")
Combo4.AddItem("桌面不整齐")
Combo4.AddItem("书柜摆放不整齐")
由于此窗体中涉及到公寓与寝室,在填写时要确定其名称的正确,所以在添加记录前要对它们进行检查,如发现不存在的记录,则显示提示。检查记录时用的是adodc中的find命令。类似于用户登录时的判断,同样记录的输入也要详细。代码如下:
Adodc1.Refresh
Adodc1.Recordset.Find"公寓名称='"&Combo3.Text&"'"
IfAdodc1.Recordset.EOF=TrueThen
MsgBox"查无此公寓",,"提示"
Adodc1.Recordset.MoveFirst
ExitSub
EndIf
Adodc3.Refresh
Adodc3.Recordset.Find"寝室='"&Text5.Text&"'"
IfAdodc3.Recordset.EOF=TrueThen
MsgBox"查无此寝室",,"提示"
Adodc3.Recordset.MoveFirst
ExitSub
EndIf
IfCombo3.Text=""OrCombo2.Text=""OrText5.Text=""OrText2.Text=""OrText3.Text=""Then
MsgBox"请输入详细信息!",,"系统提示"
Else
确认一切无误后,开始对所填写记录进行添加并显示:
WithAdodc2
.Recordset.AddNew
.Recordset.Fields(0).Value=Combo3.Text
.Recordset.Fields(1).Value=Text5.Text
.Recordset.Fields(2).Value=Combo4.Text
.Recordset.Fields(3).Value=Combo5.Text
.Recordset.Fields(4).Value=Combo6.Text
.Recordset.Fields(5).Value=Combo7.Text
.Recordset.Fields(6).Value=Combo8.Text
.Recordset.Fields(7).Value=Text2.Text
.Recordset.Fields(8).Value=Text3.Text
.Recordset.Fields(9).Value=Combo2.Text
.Recordset.Fields(10).Value=Text4.Text
.Recordset.Fields(11).Value=Text1.Text
.Recordset.Update
EndWith
Setmain.DataGrid1.datasource=Adodc2
main.DataGrid1.Refresh
4.6公寓资产
公寓资产可以及时对公寓里进出财务进行统计,以免遗忘,造成不必要的损失或不必要的麻烦,它的实现方法基本同上面的卫生记录的添加,相对比来说比上面的简单一些。不足的是目前只做出了入库管理,对于出库记录还没有实现。
4.6.1公寓资产添加设置效果图
图4.12公寓资产添加效果图
4.6.2界面制作与实现方法
日期的设置同上面一样,只读属性。公寓名称与寝室名称要人工输入,没有选择,这是因为考虑到它不会像卫生记录那样每天要添加一次,每次要添加很多,所以为了减少系统进程,它没有使用combo,没有在窗体中进行加载。窗体中的数量与单价在填写之后会自动把总价格计算出来,类似于上图中的得分一样。部分代码如下:
IfText5.Text=""OrText2.Text=""OrText3.Text=""Then
MsgBox"请输入详细信息!",,"提示"
Else
WithAdodc1
.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
EndWith
Setmain.DataGrid1.datasource=Adodc1
main.DataGrid1.Refresh
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
上一篇:
餐饮酒店管理系统(论文和程序)
下一篇:
试析影响公路路面平整度的因素及应采取的施工措施