【正文】 1 39。True AllowReorder = 1 39。True _Version = 393217 Icons = ImageList1 SmallIcons = ImageList1 ForeColor = 2147483640 BackColor = 2147483643 BorderStyle = 1 Appearance = 1 NumItems = 0 End End Begin Command2 BackColor = amp。H008080FFamp。 Caption = amp。E 退出 Height = 420 Left = 3975 Style = 1 39。Graphical TabIndex = 1 Top = 4470 Width = 2175 End Begin Command1 BackColor = amp。H008080FFamp。 Caption = 數(shù)據(jù)備份或數(shù)據(jù)恢復(fù) Height = 420 Left = 1800 Style = 1 39。Graphical TabIndex = 0 Top = 4470 Width = 2175 End Begin ImageList1 Left = 135 Top = 1155 _ExtentX = 1005 _ExtentY = 1005 BackColor = 2147483643 ImageWidth = 32 ImageHeight = 32 MaskColor = 12632256 _Version = 393216 BeginProperty Images {2C247F25859111D1B16A00C0F0283628} NumListImages = 4 BeginProperty ListImage1 {2C247F27859111D1B16A00C0F0283628} Picture = :376F5 Key = EndProperty BeginProperty ListImage2 {2C247F27859111D1B16A00C0F0283628} Picture = :37FD1 Key = EndProperty BeginProperty ListImage3 {2C247F27859111D1B16A00C0F0283628} Picture = :388AD Key = EndProperty BeginProperty ListImage4 {2C247F27859111D1B16A00C0F0283628} Picture = :39189 Key = EndProperty EndProperty End Begin Label2 BackStyle = 0 39。Transparent Caption = ※　請選擇數(shù)據(jù)備份或數(shù)據(jù)恢復(fù) ForeColor = amp。H000000FFamp。 Height = 210 Left = 135 TabIndex = 11 Top = 105 Width = 3030 End Begin Label1 BackStyle = 0 39。Transparent ForeColor = amp。H00FF0000amp。 Height = 420 Left = 75 TabIndex = 8 Top = 4050 Width = 7890 EndEndAttribute VB_Name = main_xtwh_sjbfAttribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = False39。Download by Dim itmX, key As String 39。聲明字符串變量Dim a As Integer 39。聲明整型變量Dim MydatabasePrivate Sub Form_Load() = 39。添加數(shù)據(jù)備份卡到列表中 If 0 Then a = 0 Do While 1 = a key = If Right(key, 3) mdb Then Set itmX = (, , key, 1) End If a = a + 1 Loop End If End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Dir1_Change() = Form_Load 39。調(diào)用Form_Load過程 = amp。 \ amp。 End SubPrivate Sub Drive1_Change() = End SubPrivate Sub File1_Click() = amp。 \ amp。 39。獲取路徑End SubPrivate Sub Command1_Click() If = True Then 39。備份數(shù)據(jù)庫 If 0 Then If Right(, 3) mdb Then MsgBox 數(shù)據(jù)庫格式不正確，系統(tǒng)無法進行備份！ Exit Sub End If Mydatabase = Date amp。 備份卡 amp。 Left$(, Len() 3) amp。 BAK If Dir(Mydatabase) Then MsgBox 今天的備份已完成！ Else FileCopy Trim(), Mydatabase MsgBox 數(shù)據(jù)備份成功！ key = Date amp。 備份卡 amp。 Left$(, Len() 3) amp。 BAK Set itmX = (, , key, 1) End If End If End If If = True Then 39?；謴?fù)數(shù)據(jù)庫 If 0 Then FileCopy , amp。 \ = 0 MsgBox 數(shù)據(jù)已恢復(fù)完畢！ Else MsgBox 請選擇要恢復(fù)的數(shù)據(jù)！ End If End IfEnd SubPrivate Sub Command2_Click() = True Unload MeEnd Sub