module4.bas

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

Attribute VB_Name = "Module4"
'调用拷贝文件的声明
Public Type SHFILEOPSTRUCT
     hwnd As Long
     wFunc As Long
     pFrom As String
     pTo As String
     fFlags As Integer
     fAnyOperationsAborted As Boolean
     hNameMappings As Long
     lpszProgressTitle As String
End Type

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FO_MOVE = &H1

'fFlag 常数
'FOF_ALLOWUNDO 允许 Undo 。
Public Const FOF_ALLOWUNDO = &H40
'FOF_NOCONFIRMATION 不显示系统确认对话框。
Public Const FOF_NOCONFIRMATION = &H10
'FOF_NOCONFIRMMKDIR 不提示是否新建目录。
Public Const FOF_NOCONFIRMMKDIR = &H200
'FOF_SILENT 不显示进度对话框
Public Const FOF_SILENT = &H4
'以下是数据恢复
Public gjmm As String  '高级用户密码
Public Shibai, Hfshibai As Boolean '数据备份、恢复失败后，其值为true
Public Sub Frmxzczz()
If Frmxzcz.Option3 = True Then
Frmxzcz.Drive1.Enabled = False
Frmxzcz.Dir1.Enabled = False

ElseIf Frmxzcz.Option5 = True Then
Frmxzcz.Drive1.Enabled = True
Frmxzcz.Dir1.Enabled = True
End If
End Sub
Public Sub main()
Frmchg.Show
Frmxzcz.Show 1
End Sub