宿舍管理系统代码实现.doc

代码实现代码实现一、 登录界面此界面是由Photoshop制作而成。在做这个登录面的时候想了很多，最后选择了这种，感觉它看起来干净，整齐。又不失其庄雅。加上本单位最有特色的建筑，会让人一目了然。1.1 登录图片显示图4.1登录界面1.2 界面制作与实现 在这个界面中，主要处理的是判断当前用户输入的信息是否正确。如果正确，那么它属于哪种类型用户。因为此管理软件在登录后不同类型的用户显示的窗体与实现的功能都不是一样的，它们会有所差别！(1) 浮动按钮的实现 确定和取消两个按钮在鼠标没有放上去之前看上去只是一个普通的平面字效果，但是当你把鼠标放在这几个字上面后，它会显示凸出的效果，按下后呈现凹陷的效果。总体实现立体的感觉。原理主要是在鼠标mousemove事件与线的颜色变化组合来实现。主要代码如下： 在窗体中的鼠标移动过程中，以及在窗体初始化的时候，要把添加的线的.Visible 属性设置为 False，只有在鼠标按下的时候在改变其颜色即可。Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.Visible = FalseLine2.Visible = FalseLine3.Visible = FalseLine4.Visible = FalseLine5.Visible = FalseLine6.Visible = FalseLine7.Visible = FalseLine8.Visible = FalseEnd Sub 鼠标按下的时候设置线条的颜色如下：Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.BorderColor = &H808080Line2.BorderColor = &H808080Line3.BorderColor = &HE0E0E0Line4.BorderColor = &HE0E0E0End Sub 鼠标移动到标签的时候设置线条的颜色如下：Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)Line1.BorderColor = &HE0E0E0Line2.BorderColor = &HE0E0E0Line3.BorderColor = &H808080Line4.BorderColor = &H808080Line1.Visible = TrueLine2.Visible = TrueLine3.Visible = TrueLine4.Visible = TrueEnd Sub(2) 用户类型判断 在数据库中建了一人yonghu表。在添加管理人员时有两种默认级别。管理员、普通用户。管理员拥有对数据库操作的一切权限。普通用户只有普通的查看，数据转换等。没有删除等操作功能。前用户成功登录后，会在主窗体的状态栏中显示出当前用户及其用户类型。主要代码如下：设置当前控件连接的数据库Dim provider As StringDim datasource As Stringprovider = provider=Microsoft.jet.oledb.4.0datasource = data source= & App.Path & DB.mdbWith Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = yonghu.Refresh.Recordset.MoveFirstEnd With对用户进行判断If Text1.Text = ThenMsgBox 请输入用户名!, 48, 提示Exit SubEnd IfAdodc1.Recordset.Find 用户= & Text1.Text & If Adodc1.Recordset.EOF = False And Text2.Text = Trim(Adodc1.Recordset.Fields(pass) Thenmain.Text1.Text = Adodc1.Recordset.Fields(级别)main.Text2.Text = Adodc1.Recordset.Fields(用户)main.ShowUnload MeElseText1.Text = Text2.Text = MsgBox 登录不成功,请重新登录!, 48, 提示End If二、 程序主界面程序主界面为本软件的显示的核心部分。一切主要操作及显示都通过这里完成。整个界面主要由五部分组成。菜单部分、工具栏、左侧操作栏、右侧显示栏以及状态栏。界面效果图如下：图4.2程序主界面左侧操作栏和右侧显示栏会在下面的内容中做介绍，现在只简单介绍一下工具栏和状态栏，以及主窗体的各个事件。它的实现方法如下所示：Dim o As AdodcSet o = DataGrid1.datasource o.Recordset.Delete o.Recordset.Update这里主要是用到了ado对像的方法。用这个方法得到数据源。 下面是整个工具栏运行时代码：Select Case Button.IndexCase 1sel.Show 1Case 3add.Show 1Case 5On Error GoTo next2Dim s As AdodcSet s = DataGrid1.datasourceIf s.RecordSource = users Thenedit.Show 1End Ifnext2:Case 7On Error Resume NextDim o As AdodcSet o = DataGrid1.datasource o.Recordset.Delete o.Recordset.UpdateCase 9back.Show 1Case 11With Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = users .RefreshEnd WithSet DataGrid1.datasource = Adodc1DataGrid1.RefreshCall dxCase 13Unload MeEnd Selectmain.Text1.Text = Adodc1.Recordset.Fields(级别)main.Text2.Text = Adodc1.Recordset.Fields(用户)StatusBar1.Panels(2).Text = 当前用户： & Text2.TextStatusBar1.Panels(3).Text = 用户模式： & Text1.TextStatusBar1.Panels(4).Text = Date & & Time设置普通用户模式If Text1.Text = 普通用户 Thenyhgl.Visible = Falseg1.Visible = Falsejlsc.Visible = Falsegysz.Visible = FalseToolbar1.Buttons(5).Visible = FalseToolbar1.Buttons(6).Visible = FalseToolbar1.Buttons(7).Visible = FalseToolbar1.Buttons(8).Visible = FalseEnd IfDataGrid1.Width = main.Width - SSTab1.WidthDataGrid1.Height=main.Height - StatusBar1.Height - CoolBar1.Height - 750SSTab1.Height = main.Height - StatusBar1.Height - CoolBar1.Height - 750Frame1.Height = main.Height - StatusBar1.Height - CoolBar1.Height - 1200Frame2.Height = main.Height - StatusBar1.Height - CoolBar1.Height - 1200Frame3.Height = main.Height - StatusBar1.Height - CoolBar1.Height - 1200TreeView1.Height=main.Height - StatusBar1.Height - CoolBar1.Height - 1500TreeView2.Height=main.Height - StatusBar1.Height - CoolBar1.Height - 1500TreeView3.Height=main.Height - StatusBar1.Height - CoolBar1.Height - 1500Y = main.Widthx = (Y - z) / 4StatusBar1.Panels(1).Width = u + xStatusBar1.Panels(2).Width = v + xStatusBar1.Panels(3).Width = w + xStatusBar1.Panels(4).Width = m + xprovider = provider=Microsoft.jet.oledb.4.0datasource = data source= & App.Path & DB.mdbWith Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = users .RefreshEnd WithWith Adodc2.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = gongyu.RefreshEnd WithWith Adodc3.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = class.RefreshEnd WithWith Adodc4.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = weisheng.RefreshEnd WithWith Adodc5.Mode = adModeReadWrite.ConnectionString = provider & ; & datasourceEnd WithWith Adodc6.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = dengji.RefreshEnd WithWith Adodc7.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = qinshi.RefreshEnd WithWith Adodc9.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = zichan.RefreshEnd Withtreeview部分树形显示的初始化在这里已经做了几个过程，调用即可。三、 系统管理3.1 用户管理界面效果图图4.3用户管理 界面制作与实现方法 这个界面总体来说各个控件比较简单，但是作为一个添加删除管理员的操作，它已经连接到了数据库，与数据库的yonghu表相联。各个控件也与数据库中表的字段绑定。在窗体初始化的时候要判断当前数据库表中是否有记录，如果没有记录那么有些按钮将会被设置成为失效状态，否则会出现错误。设置代码如下：Dim provider As StringDim datasource As Stringprovider = provider=Microsoft.jet.oledb.4.0datasource = data source= & App.Path & DB.mdbWith Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = yonghu.RefreshEnd WithOption1.Enabled = FalseOption2.Enabled = FalseIf Adodc1.Recordset.RecordCount = 0 ThenCommand2.Enabled = FalseCommand3.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseEnd IfText2.Text = Text3.Text上一条与下一条的功能一目了然，它们可以对当前表进行上一条记录或下一条记录依次查看。当找到记录后，可以对其进行相对的删除、修改等操作。上一条记录与下一条的记录在查看时有一个判断。当表中记录移到最前面（BOF）或最后面（EOF）时，会把上一条或下一条其中的一个按钮的enable属性设置为true。即不可以前查看或向后查看。上一条与下一条主要代码如下：Adodc1.Recordset.MovePrevious 移动记录Command6.Enabled = TrueIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Command5.Enabled = FalseEnd IfAdodc1.Recordset.MoveNext 移动记录Command5.Enabled = TrueIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Command6.Enabled = FalseEnd If添加用户可以添加使用该管理软件的用户。添加的时候可以选择所添加人物的级别。软件默认为两个级别：管理员、普通用户。管理员拥有对此软件管理操作等一切的权力。普通用户，只有普通的查看、查询、备份、添加等权力。没有对记录删除等权力。在添加用户时你可以选择一个且必须选择一个。然后输入此用户的用户名和密码即可！添加用户主要代码：If Command1.Caption = 添加 ThenCommand2.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand1.Caption = 确定Command3.Caption = 取消Adodc1.Recordset.AddNewOption1.Enabled = TrueOption2.Enabled = TrueText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText2.Text = ElseIf Text1.Text = ThenMsgBox 用户名不能为空！, 48, 提示ElseIf Text2.Text = ThenMsgBox 密码不能为空！, 48, 提示ElseIf Text2.Text Text3.Text ThenMsgBox 密码两次需一致！, 48, 提示ElseIf Text4.Text = ThenMsgBox 请选择所建用户类型！, 48, 提示ElseCommand2.Enabled = TrueCommand3.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand3.Caption = 编辑Command1.Caption = 添加Adodc1.Recordset.UpdateText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseOption1.Value = FalseOption2.Value = FalseOption1.Enabled = FalseOption2.Enabled = FalseEnd If删除操作可以把当前记录删除掉。一经删除即不可以在恢复。所以在操作前要想好。删除操作部分代码：If Adodc1.Recordset.RecordCount = 1 ThenCommand2.Enabled = FalseEnd IfIf (MsgBox(你真的想删除当前记录吗？, vbOKCancel, 系统提示) = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveFirstAdodc1.RefreshEnd If编辑操作可以对当前所选择的用户进行编辑，可以修改其用户名与密码。当当前用户感觉自己用户名称或密码有泄露时，可以进行修改。修改记录即更新表中的某一条记录。编辑操作主要代码如下：Command2.Enabled = FalseText1.Enabled = TrueText2.Enabled = TrueText3.Enabled = TrueText4.Enabled = TrueOption1.Enabled = TrueOption2.Enabled = TrueCommand1.Caption = 确定ElseIf Command3.Caption = 取消 ThenCommand3.Caption = 编辑Command1.Caption = 添加Command2.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueText2.Text = Text3.TextText1.Enabled = FalseText2.Enabled = FalseText3.Enabled = FalseText4.Enabled = FalseOption1.Value = FalseOption2.Value = FalseOption1.Enabled = FalseOption2.Enabled = FalseEnd If3.2 公寓设置公寓设置可以说是本程序中一关键部分。因为所有的设置都在此进行。包括公寓添加、修改、删除。寝室的添加、修改、删除以及班级的添加、修改和删除操作。只有正确的对这些设置进行添加修改，才能输入正确的记录。这里主要涉及到的问题是datagrid的显示，以及treeview及时形成新的结构。还有一些就是对表记录的复杂操作。在点击sstab各版的时候，要在这时重新生成寝室设置中的树型结构，Select Case PreviousTab Case 0 Call startree1 Case 1 Combo1.Clear Dim I As Integer I = 1 If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Do While I Adodc1.Recordset.RecordCount Combo1.AddItem (Adodc1.Recordset.Fields(公寓名称) Adodc1.Recordset.MoveNext I = I + 1 Loop End If Call startree1 Case 2 Call startree1End SelectEnd Sub(1) 公寓设置 公寓设置效果图图4.4公寓设置 界面制作与实现方法在这个界面中主要用到了一个Sstab控件与一个显示表中内容的Datagrid控件。以及起到美观作用的Frame控件。在右下角的文本框中可以输入想要添加的公寓名称。然后点击添加即可完成添加操作。Datagrid中会立即刷新显示更新内容。要修改某条记录时，要先对所要修改的记录进行选择，确认选择后，点击下面的修改按钮，会在下面的文本中显示出所要修改公寓的名称，此时即可输入要修改的名字。然后点击更新就会完成此操作。Datagrid也会即时更新其内容。删除操作更为简单，选择想要删除的公寓名称，点击删除，确认后完成此操作。但是删除后不会影响其它表中的数据。其它表的有关此公寓的信息还会存在。在进行所有操作前，先要确定数据库已连接。在添加前要判断所写公寓名称是否正确，即是否输入名称，该记录不能为空，不为空则对数据库表进行查找，判断当前输入记录是否已在表中存在，如果已存在，则会给出提示，不存在，添加成功。Adodc1.Recordset.Find 公寓名称= & Text2.Text & If Adodc1.Recordset.EOF = False ThenMsgBox 此公寓已存在, , 提示Adodc1.Recordset.MoveFirstExit SubEnd IfText3.Text = If Text2.Text = ThenMsgBox 输入所要添加公寓的名称, , 提示Exit SubEnd If添加：Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(公寓名称) = Text2.TextAdodc1.Recordset.UpdateAdodc1.RecordSource = gongyuText2.Text = Set DataGrid2.datasource = Adodc1DataGrid2.Refresh修改公寓名称：If Text3.Text = ThenMsgBox 选择要修改的公寓, , 提示Exit SubEnd IfIf Command12.Caption = 修改 ThenText2.Text = Text3.TextLabel6.Caption = 输入想要修改的公寓名称Command12.Caption = 更新Command3.Enabled = FalseCommand7.Enabled = FalseElseIf Command12.Caption = 更新 ThenCommand3.Enabled = TrueCommand7.Enabled = TrueLabel6.Caption = 输入想要添加的公寓名称Adodc1.Recordset.Fields(公寓名称) = Text2.TextAdodc1.Recordset.UpdateAdodc2.Recordset.ActiveConnection.Execute update qinshi set 公寓名称= & Text2.Text & where 公寓名称= & Trim(Text3.Text) & Adodc2.Recordset.UpdateCommand12.Caption = 修改End IfSet DataGrid2.datasource = Adodc1DataGrid2.RefreshAdodc5.Recordset.UpdateSet main.DataGrid1.datasource = Adodc5main.DataGrid1.Refresh删除公寓名称If Text3.Text = ThenMsgBox 选择所要删除公寓的名称, , 提示Exit SubEnd IfIf (MsgBox(你真的想删除公寓名称为 & Text3.Text & 的记录吗？, vbOKCancel, 系统提示) = vbOK Then Adodc1.Recordset.Delete Adodc1.Recordset.UpdateEnd IfText3.Text = Set DataGrid2.datasource = Adodc1DataGrid2.Refresh(2) 寝室设置寝室设置效果图图4.5寝室设置界面制作与实现方法此界面实现相对比公寓设置来说相对复杂一些。用到的控件主要是Sstab与Treeview。但是在程序方面比较复杂。在添加一个寝室前先要选择所要添加寝室所在的公寓。这个公寓可以点击下面的树中的节点，也可以在列表框中选择。树中的节点在点击后会把父节点显示在选择公寓后面的列表框中，而选中的节点会出现在寝室名称里。你也可以自己进行添写，确认公寓后即可添加完成了。添加后会把Treeview重新刷新一下。以显示更新后的记录。添加源码：Adodc1.RefreshAdodc1.Recordset.Find 公寓名称= & Combo1.Text & If Adodc1.Recordset.EOF = True ThenMsgBox 此公寓不存在, , 提示Adodc1.Recordset.MoveFirstExit SubEnd IfIf Combo1.Text = Or Text1.Text = ThenMsgBox 请输入所要添加的寝室及其所属公寓, , 提示Exit SubEnd IfWith Adodc2.Recordset.AddNew.Recordset.Fields(0).Value = Combo1.Text.Recordset.Fields(1).Value = Text1.Text.Recordset.UpdateEnd WithCombo1.Text = Text1.Text = Call startree1修改操作可以把当前选中的寝室进行名称修改与其所属公寓进行修改。当要对名称进行修改时，先要选择所要修改的寝室名，选择后会在寝室名称里显示出来，把当前寝室名称改成要修改的寝室名称，然后点击修改即完成名称修改操作。当要对当前寝室的所属公寓进行修改时，需要先选择所要修改的寝室，然后在上面的公寓名称后填写所要修改的寝室名称。点击修改后完成此操作。但是这种操作不是常见。修改源码：Adodc1.RefreshAdodc1.Recordset.Find 公寓名称= & Combo1.Text & If Adodc1.Recordset.EOF = True ThenMsgBox 此公寓不存在, , 提示Adodc1.Recordset.MoveFirstExit SubEnd IfDim sql As StringOn Error Resume NextIf Combo1.Text = Or Text1.Text = ThenMsgBox 请在下面选择所要修改的寝室, , 提示Exit SubEnd Ifsql = select * form qinshi where 公寓名称= & Trim(Combo1.Text) & and 寝室= & Trim(Text1.Text) & Adodc2.Recordset.ActiveConnection.Execute update qinshi set 寝室= & Text1.Text & ,公寓名称= & Trim(Combo1.Text) & where 寝室= & Trim(Text6.Text) & and 公寓名称= & Trim(Text7.Text) & Adodc2.Recordset.UpdateCombo1.Text = Text1.Text = Call startree1删除操作可以删除掉当前树型显示中的任何一个子节点，也就是这个树型节点中的寝室名称，注意的是，删除后这个记录只在qinshi表中删除，其相关记录不会被删除掉的，如果想删除，还需要人工操作。实现的方法主要是对qinshi表操作，先对其进行查询，查询当前想要被删除的表是否存在，如果不存在，则给出提示，如果存在这条记录，则在表中把它删除掉，删除后调用生成树过程，把当前寝室设置中的树型结构重新生成，更新记录。实现的部分代码如下所示：If Combo1.Text = Or Text1.Text = Or Combo1.Text = 公寓管理系统 ThenMsgBox 选择所要删除的寝室, , 提示Exit SubEnd IfIf (MsgBox(你真的想删除 & Combo1.Text & & 寝室为 & Text1.Text & 的记录吗？, vbOKCancel, 系统提示) = vbOK ThenAdodc2.RefreshAdodc2.Recordset.ActiveConnection.Execute delete from qinshi where 公寓名称= & Trim(Combo1.Text) & and 寝室= & Trim(Text1.Text) & Adodc2.Recordset.UpdateEnd IfCombo1.Text = Text1.Text = Call startree1在treeview点击的时候，上面的文本框中会显示相应的记录，这主要是对treeview进行了设置，代码如下：Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)On Error Resume NextText1.Text = TreeView1.SelectedItem.TextCombo1.Text = TreeView1.SelectedItem.ParentText6.Text = TreeView1.SelectedItem.TextText7.Text = TreeView1.SelectedItem.ParentEnd Sub(3)班级设置班级设置效果图图4.6班级设置界面制作与实现方法此界面制作与公寓设置基本一致。在这个界面中主要用到了一个Sstab控件与一个显示表中内容的Datagrid控件。以及起到美观作用的Frame控件。在右下角的文本框中可以输入想要添加的班级名称。然后点击添加即可完成添加操作。Datagrid中会立即刷新显示更新内容。要修改某条记录时，要先对所要修改的记录进行选择，确认选择后，点击下面的修改按钮，会在下面的文本中显示出所要修改班级的名称，此时即可输入要修改的名字。然后点击更新就会完成此操作。Datagrid也会即时更新其内容。删除操作更为简单，选择想要删除的班级名称，点击删除，确认后完成此操作。添加班级源码：Adodc3.Recordset.Find class= & Text4.Text & If Adodc3.Recordset.EOF = False ThenMsgBox 此班级已存在, , 提示Adodc3.Recordset.MoveFirstExit SubEnd IfText5.Text = If Text4.Text = ThenMsgBox 输入所要添加班级的名称, , 提示Exit SubEnd IfAdodc3.Recordset.AddNewAdodc3.Recordset.Fields(class) = Text4.TextAdodc3.Recordset.UpdateAdodc3.RecordSource = classText4.Text = Set DataGrid3.datasource = Adodc3DataGrid3.Refresh修改班级源码：If Command10.Caption = 修改 ThenText4.Text = Text5.TextLabel6.Caption = 输入想要修改的班级名称Command10.Caption = 更新Command6.Enabled = FalseCommand9.Enabled = FalseElseIf Command10.Caption = 更新 ThenCommand9.Enabled = TrueCommand6.Enabled = TrueLabel6.Caption = 输入想要添加的班级名称Adodc3.Recordset.Fields(class) = Text4.TextAdodc3.Recordset.UpdateCommand10.Caption = 修改End If删除班级源码：If Text5.Text = ThenMsgBox 选择所要删除班级的名称, , 提示Exit SubEnd IfIf (MsgBox(你真的想删除班级名称 为 & Text5.Text & 的记录吗？, vbOKCancel, 系统提示) = vbOK Then Adodc3.Recordset.Delete Adodc3.Recordset.UpdateEnd IfText5.Text = Set DataGrid3.datasource = Adodc3 DataGrid3.RefreshEnd Sub3.3 数据备份数据备份是一个数据库软件必不可少的一部分，利用它可以把当前数据库表进行全面的备份，以备以后使用。因为在操作中可能会导致数据遭到破坏，或者是系统的原因使数据库损坏，或者是一些其它的人为原因，这样你可以用此功能把数据恢复到最后一次备份的状态，使损失做到最少，经常备份，操作起来更有安全感。数据备份效果图图4.7数据备份效果图 功能实现 界面制作相对程序来说比较简单，用到的是coolbar控件，点击按钮可以选择备份路径。然后点击数据备份即可。窗体初始化部分代码如下：Dim cnn1 As ADODB.ConnectionDim rstschema As ADODB.RecordsetDim strcnn As StringSet cnn1 = New ADODB.Connectionstrcnn = provider=Microsoft.jet.oledb.4.0; & data source= & App.Path & db.mdbcnn1.Open strcnnSet rstschema = cnn1.OpenSchema(adSchemaTables)Do Until rstschema.EOFtemp = rstschema!Table_NameIf Left(temp, 1) M ThenEnd Ifrstschema.MoveNextLoopcnn1.CloseOn Error GoTo errPathName = App.Path & db.MDBdbasize = FileLen(PathName)err:Exit Sub数据备份部分在本程序中用到了一个模块，在模块中有一个方法，dobackup。点击备份按钮后开始备份，代码如下：If txtDestination ThenDoBackup PathName, txtDestinationMsgBox 备份成功！, , 提示ElseIf txtDestination = ThenMsgBox You must specify a distination for the backup, vbCritical其中DoBackup为模块中已定义的方法，在这里进行调用。Dobackup实现方法代码如下所示：Dim lFileOp As LongDim lresult As LongDim lFlags As LongDim SHFileOp As SHFILEOPSTRUCTDim strSourceDir As StringDim strDestinationDir As StringScreen.MousePointer = vbHourglassBackupFolderName = strDestinationPathMkDir BackupFolderName & Backup - & Format(Date, yyyy.mm.dd)lFileOp = FO_COPYlFlags = lFlags And Not FOF_SILENTlFlags = lFlags Or FOF_NOCONFIRMATIONlFlags = lFlags Or FOF_NOCONFIRMMKDIRlFlags = lFlags Or FOF_FILESONLYWith SHFileOp .wFunc = lFileOp .pFrom = strSourcePath & vbNullChar .pTo = strDestinationPath & Backup - & Format(Date, yyyy.mm.dd) & vbNullChar .fFlags = lFlagsEnd Withlresult = SHFileOperation(SHFileOp)Screen.MousePointer = vbDefaultfrmBackupDba.lblStatus = Backup Complete在备份分前先要选择一个备份路径，点击那个按钮开始进行选择，实现方法如下：Dim strTemp As StringstrTemp = fBrowseForFolder(Me.hwnd, Select backup path)If strTemp Then txtDestination = strTempEnd If数据恢复界面同上，它的功能主要是在当前数据库遭到破坏后，可