frmxzcz.frm

金融机构用于银行承兑票台帐的登记以及统计打印各种报表

VERSION 5.00
Begin VB.Form Frmxzcz 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "请选择你要进行的操作"
   ClientHeight    =   4575
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7590
   ControlBox      =   0   'False
   Icon            =   "Frmxzcz.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   4575
   ScaleWidth      =   7590
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox Text2 
      DataField       =   "路径"
      DataSource      =   "Data1"
      Height          =   270
      Left            =   1200
      TabIndex        =   9
      Text            =   "Text2"
      Top             =   4320
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.TextBox Text1 
      DataField       =   "盘符"
      DataSource      =   "Data1"
      Height          =   270
      Left            =   240
      TabIndex        =   8
      Text            =   "Text1"
      Top             =   4320
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   ";pwd=ZH69Y11Jun24"
      DatabaseName    =   "autoxtsz.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   1560
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "备份路径"
      Top             =   3960
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.FileListBox File1 
      Height          =   2430
      Left            =   5640
      Pattern         =   "*.ofb"
      TabIndex        =   7
      Top             =   1080
      Width           =   1845
   End
   Begin VB.DirListBox Dir1 
      Height          =   1980
      Left            =   2760
      TabIndex        =   6
      Top             =   1440
      Width           =   2655
   End
   Begin VB.DriveListBox Drive1 
      Height          =   300
      Left            =   2760
      TabIndex        =   5
      Top             =   960
      Width           =   2655
   End
   Begin VB.OptionButton Option5 
      Caption         =   "从硬盘恢复数据"
      Height          =   255
      Left            =   2640
      TabIndex        =   4
      Top             =   600
      Value           =   -1  'True
      Width           =   2295
   End
   Begin VB.OptionButton Option3 
      Caption         =   "从Ａ盘恢复数据"
      Height          =   255
      Left            =   2640
      TabIndex        =   3
      Top             =   240
      Width           =   2295
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   375
      Left            =   6240
      TabIndex        =   2
      Top             =   4080
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "下一步"
      Height          =   375
      Left            =   4920
      TabIndex        =   1
      Top             =   4080
      Width           =   1095
   End
   Begin VB.Frame Frame3 
      Height          =   30
      Left            =   220
      TabIndex        =   0
      Top             =   3840
      Width           =   7100
   End
   Begin VB.Image Image3 
      Height          =   270
      Left            =   2280
      Picture         =   "Frmxzcz.frx":000C
      Stretch         =   -1  'True
      Top             =   600
      Width           =   375
   End
   Begin VB.Image Image2 
      Height          =   270
      Left            =   2280
      Picture         =   "Frmxzcz.frx":044E
      Stretch         =   -1  'True
      Top             =   240
      Width           =   285
   End
   Begin VB.Image Image1 
      Height          =   3360
      Left            =   240
      Picture         =   "Frmxzcz.frx":0980
      Stretch         =   -1  'True
      Top             =   240
      Width           =   1920
   End
End
Attribute VB_Name = "Frmxzcz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If File1.FileName = "" Then
MsgBox "请选择要备份的文件名！", vbOKOnly Or vbInformation, "提示信息"
Exit Sub
End If
X = MsgBox("请确定要恢复数据" & "[" & File1.FileName & "]！", vbQuestion Or vbOKCancel, "提示信息")
'调用拷贝函数。
If X = vbOK Then
'Unload MDIForm1
Frmhf.Show 1
End If
If X = vbCancel Then
Exit Sub
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Command3.Visible = False
Frame1.Visible = True
Frame2.Visible = True
Image2.Visible = False
Option3.Visible = False
Option5.Visible = False
Image3.Visible = False
Drive1.Visible = False
Dir1.Visible = False
File1.Visible = False
End Sub

Private Sub Dir1_Change()
File1.FileName = Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error GoTo dfe
Dir1.Path = Drive1.Drive
Exit Sub
dfe:
MsgBox "设备未准备好！", vbOKOnly Or vbInformation, "信息提示"
End Sub

Private Sub Form_Activate()
Drive1.Drive = Text1.Text
Dir1.Path = Text2.Text
End Sub

Private Sub Form_Load()
Qdxzcz = True
Image2.Left = 2300
Image2.Top = 240
Option3.Left = 2760
Option3.Top = 240
Option5.Left = 2760
Option5.Top = 600
Image3.Left = 2280
Image3.Top = 600
Drive1.Left = 2760
Drive1.Top = 1080
Dir1.Left = 2760
Dir1.Top = 1560
File1.Left = 5520
File1.Top = 1100
End Sub


Private Sub Option1_Click()
Option2.Value = False
End Sub

Private Sub Option2_Click()
Option1.Value = False
End Sub

Private Sub Option3_Click()
On Error GoTo dfe
Frmxzczz
If Option3.Enabled = True Then
File1.FileName = "a:\"
End If
Exit Sub
dfe:
MsgBox "设备未准备好！", vbOKOnly Or vbInformation, "信息提示"
End Sub

Private Sub Option5_Click()
On Error GoTo dfe
Frmxzczz
File1.FileName = Dir1.Path
Exit Sub
dfe:
MsgBox "设备未准备好！", vbOKOnly Or vbInformation, "信息提示"
End Sub