到后确认删除。选择批量删除后,在下面只有一个日期可以选择,这样将会把所选日期内的所有记录都将删除掉,所以称其为批量删除。全部即是把当前表清空,全部删除掉,建议使用此操作前对当前数据库进行备份处理,否则数据将不会恢复。首先要进行数据库连接,如上面例子所示,这里就不在介绍,接下来要对本窗体中的日期进行加载,如下所示:
s="selectdistinct日期fromweisheng"
WithAdodc2
.Mode=adModeReadWrite
.ConnectionString=provider&";"&datasource
.CommandType=adCmdText
.RecordSource=s
.Refresh
EndWith
ForI=1ToAdodc2.Recordset.RecordCount
Combo1.AddItem(Adodc2.Recordset.Fields("日期"))
Combo2.AddItem(Adodc2.Recordset.Fields("日期"))
Adodc2.Recordset.MoveNext
Next
Option1.Value=True
Frame3.Visible=True
Frame5.Visible=False
Frame6.Visible=False
在单条删除前要确定所有条件符合要求,单条删除操作的代码主要部分如下:
If(MsgBox("你真的想删除日期为"&Combo1.Text&"公寓为"&Text1.Text&"寝室为"&Text2.Text&"的记录吗?",vbOKCancel,"系统提示"))=vbOKThen
Adodc1.Refresh
Adodc1.Recordset.ActiveConnection.Execute"deletefromweishengwhere日期='"&
Trim(s)&"'and公寓='"&Trim(Text1.Text)&"'and寝室='"&Trim(Text2.Text)&"'"',,adExecuteNoRecords
Adodc1.Recordset.Update
Combo1.Text=""
Text1.Text=""
Text2.Text=""
MsgBox"删除成功",,"系统提示"
EndIf
UnloadMe
当选择某一日期后进行批量删除代码如下:
If(MsgBox("你真的想删除日期为"&Combo2.Text&"的记录吗?",vbOKCancel,"系统提示"))=vbOKThen
Adodc1.Refresh
Adodc1.Recordset.ActiveConnection.Execute"deletefromweishengwhere日期='"&Trim(Combo2.Text)&"'"
Combo2.Text=""
MsgBox"删除成功",,"系统提示"
EndIf
UnloadMe
清空数据表代码为:
If(MsgBox("你真的想删除所有的记录吗?一旦删除即不可恢复",vbOKCancel,"系统提示"))=vbOKThen
ForI=1ToAdodc1.Recordset.RecordCount
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
NextI
EndIf
MsgBox"删除成功",,"系统提示"
UnloadMe
4.8.2请假记录
①效果图
图4.18请假记录删除效果图
②界面制作与实现方法
这个窗体与上面不同的是多了一个姓名条件,其它的都基本一致。由于在一个公寓中会有很多人要得名,但是在某一公寓某一寝室中只会有一个人,这也是一个公寓分配住宿人员时的基本标准,因为这样也便于公寓本身的管理。此删除窗体只有单条删除与上面不同,单条删除部分代码如下:
If(MsgBox("你真的想删除日期为"&Combo1.Text&"公寓为"&Text1.Text&"寝室为"&Text2.Text&"姓名为"&Text3.Text&"的请假记录吗?",vbOKCancel,"系统提示"))=vbOKThen
Adodc1.Refresh
Adodc1.Recordset.ActiveConnection.Execute"deletefromqingjiawhere日期='"&Trim(s)&"'and公寓='"&Trim(Text1.Text)&"'and寝室='"&Trim(Text2.Text)&"'and姓名='"&Trim(Text3.Text)&"'"',,adExecuteNoRecords
Adodc1.Recordset.Update
Combo1.Text=""
Text1.Text=""
Text2.Text=""
MsgBox"删除成功",,"系统提示"
EndIf
4.8.3违规删除
①效果图
图4.19违规记录删除效果图
②界面制作与实现方法
违规删除操作与请假删除操作基本一致,不同之处只是在于后台对不同的表进行处理,前台界面大体相同。其实现方法与上现的也差不太多,这里就不在叙述。
单条删除记录:
DimsqlAsString
DimsAsString
DimpanduanAsBoolean
IfCombo1.Text=""AndText1.Text=""AndText2.Text=""Then
MsgBox"请输入删除条件!",,"提示"
ExitSub
EndIf
s=Combo1.Text
If(MsgBox("你真的想删除日期为"&Combo1.Text&"公寓为"&Text1.Text&"寝室为"&Text2.Text&"姓名为"&Text3.Text&"的违规记录吗?",vbOKCancel,"系统提示"))=vbOKThen
Adodc1.Refresh
Adodc1.Recordset.ActiveConnection.Execute"deletefromweiguiwhere日期='"&Trim(s)&"'and公寓='"&Trim(Text1.Text)&"'and寝室='"&Trim(Text2.Text)&"'and姓名='"&Trim(Text3.Text)&"'"',,adExecuteNoRecords
Adodc1.Recordset.Update
Combo1.Text=""
Text1.Text=""
Text2.Text=""
MsgBox"删除成功",,"系统提示"
EndIf
UnloadMe
成批删除记录:
If(MsgBox("你真的想删除日期为"&Combo2.Text&"的记录吗?",vbOKCancel,"系统提示"))=vbOKThen
Adodc1.Refresh
Adodc1.Recordset.ActiveConnection.Execute"deletefromweiguiwhere日期='"&Trim(Combo2.Text)&"'"
Combo2.Text=""
MsgBox"删除成功",,"系统提示"
EndIf
UnloadMe
删除所有记录:
If(MsgBox("你真的想删除所有的记录吗?一旦删除即不可恢复",vbOKCancel,"系统提示"))=vbOKThen
ForI=1ToAdodc1.Recordset.RecordCount
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
NextI
EndIf
MsgBox"删除成功",,"系统提示"
UnloadMe
4.8.4资产删除
①效果图
图4.20资产删除效果图
②界面制作与实现方法
与卫生记录删除不同的是寝室改为了名称。值得注意的是,此处公寓与名称都要人工输入,所以在输入的时候要注意不要有多余字符,否则会出错删除不掉的情况。单条删除部分源码如下:
If(MsgBox("你真的想删除日期为"&Combo1.Text&"公寓为"&Text1.Text&"名称为"&Text2.Text&"的资产记录吗?",vbOKCancel,"系统提示"))=vbOKThen
Adodc1.Refresh
Adodc1.Recordset.ActiveConnection.Execute"deletefromzichanwhere日期='"&Trim(s)&"'and公寓='"&Trim(Text1.Text)&"'and名称='"&Trim(Text2.Text)&"'"',,adExecuteNoRecords
Adodc1.Recordset.Update
Combo1.Text=""
Text1.Text=""
Text2.Text=""
MsgBox"删除成功",,"系统提示"
EndIf
4.9值班记录
值班记录这项可以说是此软件的一个新增功能。它的界面小巧,并且它可以让值班人员记录前天发生的一些事情,字数在1000字左右。可以说是一个小型的日记本。
4.9.1值班记录
①值班记录效果图
图4.21值班记录效果图
②实现思想与功能
此窗体的功能以及其源代码是经过修改之后而形成的,源文件是一个电子记事本,发现后经过修改后做出一个日记本。
在上面的日期后面的文本框中,你可以输入如窗口标题后面所示的日期格式后,点击查看,即可以查看到所选日期的详细记录。这是一种查询方法,当然你也可以用右面简单的上一条与下一条进行快速查看,但是它只能查看当日日期起开始的记录,如果与你所想要查看的日期相差很远,那么你就需要使用第一种方法了。
这个日记本还支持修改与删除功能。当你想编辑或删除某一日期的时候时,你需要用查看方法找到该记录,然后对当前记录使用编辑或删除即可完成操作。删除后,记录即不可恢复,且此日记目前还没有备份功能,慎重操作。
如果你今天值班,还没有写值班记录,那么你可以点击增加按钮,开始写当日的值班记录,说明的是,每天只可以写一次记录。当你写完今天记录后,在点击增加时会提示你今日已写完。但是你可以对今日记录进行编辑修改。
本程序源码较为复杂,主要都是对文件进行操作,并没有把记录添加到数据库中,所以不支持备份操作,且本窗体中的操作程序还用到了一个模块。部分代码如下:
查看上一条记录:
IfgiCur
上一篇:
餐饮酒店管理系统(论文和程序)
下一篇:
遥远的牵挂