在寝室名称里显示出来,把当前寝室名称改成要修改的寝室名称,然后点击修改即完成名称修改操作。当要对当前寝室的所属公寓进行修改时,需要先选择所要修改的寝室,然后在上面的公寓名称后填写所要修改的寝室名称。点击修改后完成此操作。但是这种操作不是常见。
修改源码:
Adodc1.Refresh
Adodc1.Recordset.Find"公寓名称='"&Combo1.Text&"'"
IfAdodc1.Recordset.EOF=TrueThen
MsgBox"此公寓不存在",,"提示"
Adodc1.Recordset.MoveFirst
ExitSub
EndIf
DimsqlAsString
ResumeNext
IfCombo1.Text=""OrText1.Text=""Then
MsgBox"请在下面选择所要修改的寝室",,"提示"
ExitSub
EndIf
'sql="select*formqinshiwhere公寓名称='"&Trim(Combo1.Text)&"'and寝室='"&Trim(Text1.Text)&"'"
Adodc2.Recordset.ActiveConnection.Execute"updateqinshiset寝室='"&Text1.Text&"',公寓名称='"&Trim(Combo1.Text)&"'where寝室='"&Trim(Text6.Text)&"'and公寓名称='"&Trim(Text7.Text)&"'"
Adodc2.Recordset.Update
Combo1.Text=""
Text1.Text=""
Callstartree1
删除操作可以删除掉当前树型显示中的任何一个子节点,也就是这个树型节点中的寝室名称,注意的是,删除后这个记录只在qinshi表中删除,其相关记录不会被删除掉的,如果想删除,还需要人工操作。实现的方法主要是对qinshi表操作,先对其进行查询,查询当前想要被删除的表是否存在,如果不存在,则给出提示,如果存在这条记录,则在表中把它删除掉,删除后调用生成树过程,把当前寝室设置中的树型结构重新生成,更新记录。实现的部分代码如下所示:
IfCombo1.Text=""OrText1.Text=""OrCombo1.Text="高校固定资产管理系统系统"Then
MsgBox"选择所要删除的寝室",,"提示"
ExitSub
EndIf
If(MsgBox("你真的想删除"&Combo1.Text&""&"寝室为"&Text1.Text&"的记录吗?",vbOKCancel,"系统提示"))=vbOKThen
Adodc2.Refresh
Adodc2.Recordset.ActiveConnection.Execute"deletefromqinshiwhere公寓名称='"&Trim(Combo1.Text)&"'and寝室='"&Trim(Text1.Text)&"'"
Adodc2.Recordset.Update
EndIf
Combo1.Text=""
Text1.Text=""
Callstartree1
在treeview点击的时候,上面的文本框中会显示相应的记录,这主要是对treeview进行了设置,代码如下:
PrivateSubTreeView1_NodeClick(ByValNodeAsMSComctlLib.Node)
ResumeNext
Text1.Text=TreeView1.SelectedItem.Text
Combo1.Text=TreeView1.SelectedItem.Parent
Text6.Text=TreeView1.SelectedItem.Text
Text7.Text=TreeView1.SelectedItem.Parent
EndSub
(3)班级设置
①班级设置效果图
图4.6班级设置
②界面制作与实现方法
此界面制作与公寓设置基本一致。在这个界面中主要用到了一个Sstab控件与一个显示表中内容的Datagrid控件。以及起到美观作用的Frame控件。
在右下角的文本框中可以输入想要添加的班级名称。然后点击添加即可完成添加操作。Datagrid中会立即刷新显示更新内容。要修改某条记录时,要先对所要修改的记录进行选择,确认选择后,点击下面的修改按钮,会在下面的文本中显示出所要修改班级的名称,此时即可输入要修改的名字。然后点击更新就会完成此操作。Datagrid也会即时更新其内容。删除操作更为简单,选择想要删除的班级名称,点击删除,确认后完成此操作。
添加班级源码:
Adodc3.Recordset.Find"class='"&Text4.Text&"'"
IfAdodc3.Recordset.EOF=FalseThen
MsgBox"此班级已存在",,"提示"
Adodc3.Recordset.MoveFirst
ExitSub
EndIf
Text5.Text=""
IfText4.Text=""Then
MsgBox"输入所要添加班级的名称",,"提示"
ExitSub
EndIf
Adodc3.Recordset.AddNew
Adodc3.Recordset.Fields("class")=Text4.Text
Adodc3.Recordset.Update
Adodc3.RecordSource="class"
Text4.Text=""
SetDataGrid3.datasource=Adodc3
DataGrid3.Refresh
修改班级源码:
IfCommand10.Caption="修改"Then
Text4.Text=Text5.Text
Label6.Caption="输入想要修改的班级名称"
Command10.Caption="更新"
Command6.Enabled=False
Command9.Enabled=False
ElseIfCommand10.Caption="更新"Then
Command9.Enabled=True
Command6.Enabled=True
Label6.Caption="输入想要添加的班级名称"
Adodc3.Recordset.Fields("class")=Text4.Text
Adodc3.Recordset.Update
Command10.Caption="修改"
EndIf
删除班级源码:
IfText5.Text=""Then
MsgBox"选择所要删除班级的名称",,"提示"
ExitSub
EndIf
If(MsgBox("你真的想删除班级名称为"&Text5.Text&"的记录吗?",vbOKCancel,"系统提示"))=vbOKThen
Adodc3.Recordset.Delete
Adodc3.Recordset.Update
EndIf
Text5.Text=""
SetDataGrid3.datasource=Adodc3
DataGrid3.Refresh
EndSub
4.3.3数据备份:
数据备份是一个数据库软件必不可少的一部分,利用它可以把当前数据库表进行全面的备份,以备以后使用。因为在操作中可能会导致数据遭到破坏,或者是系统的原因使数据库损坏,或者是一些其它的人为原因,这样你可以用此功能把数据恢复到最后一次备份的状态,使损失做到最少,经常备份,操作起来更有安全感。
①数据备份效果图
图4.7数据备份效果图
②功能实现
界面制作相对程序来说比较简单,用到的是coolbar控件,点击按钮可以选择备份路径。然后点击数据备份即可。
窗体初始化部分代码如下:
Dimcnn1AsADODB.Connection
DimrstschemaAsADODB.Recordset
DimstrcnnAsString
Setcnn1=NewADODB.Connection
strcnn="provider=Microsoft.jet.oledb.4.0;"&"datasource="&App.Path&"\db.mdb"
cnn1.Openstrcnn
Setrstschema=cnn1.OpenSchema(adSchemaTables)
DoUntilrstschema.EOF
temp=rstschema!Table_Name
IfLeft(temp,1)<>"M"Then
EndIf
rstschema.MoveNext
Loop
cnn1.Close
GoToerr
PathName=App.Path&"\db.MDB"
dbasize=FileLen(PathName)
err:
ExitSub
数据备份部分在本程序中用到了一个模块,在模块中有一个方法,dobackup。点击备份按钮后开始备份,代码如下:
IftxtDestination<>""Then
DoBackupPathName,txtDestination
MsgBox"备份成功!",,"提示"
ElseIftxtDestination=""Then
MsgBox"Youmustspecifyadistinationforthebackup",vbCritical
其中DoBackup为模块中已定义的方法,在这里进行调用。
Dobackup实现方法代码如下所示:
DimlFileOpAsLong
DimlresultAsLong
DimlFlagsAsLong
DimSHFileOpAsSHFILEOPSTRUCT
DimstrSourceDirAsString
DimstrDestinationDirAsString
Screen.MousePointer=vbHourglass
BackupFolderName=strDestinationPath
MkDirBackupFolderName&"\Backup-"&Format(Date,"yyyy.mm.dd")
lFileOp=FO_COPY
lFlags=lFlagsAndNotFOF_SILENT
lFlags=lFlagsOrFOF_NOCONFIRMATION
lFlags=lFlagsOrFOF_NOCONFIRMMKDIR
lFlags=lFlagsOrFOF_FILESONLY
WithSHFileOp
.wFunc=lFileOp
.pFrom=strSourcePath&vbNullChar
.pTo=strDestinationPath&"\Backup-"&Format(Date,"yyyy.mm.dd")&vbNullChar
.fFlags=lFlags
EndWith
lresult=SHFileOperation(SHFileOp)
Screen.MousePointer=vbDefault
frmBackupDba.lblStatus="BackupComplete"
在备份分前先要选择一个备份路径
上一篇:
餐饮酒店管理系统(论文和程序)
下一篇:
试析影响公路路面平整度的因素及应采取的施工措施