frmchg.frm

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

VERSION 5.00
Begin VB.Form Frmchg 
   BackColor       =   &H000080FF&
   Caption         =   "中国银行承兑台帐登记系统数据管理"
   ClientHeight    =   5595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10590
   Icon            =   "Frmchg.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   MouseIcon       =   "Frmchg.frx":0442
   ScaleHeight     =   5595
   ScaleWidth      =   10590
   WindowState     =   2  'Maximized
   Begin VB.Data Data6 
      Caption         =   "Data6"
      Connect         =   ";pwd=ZH69Y11Jun24"
      DatabaseName    =   "sfqd.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   -1  'True
      Height          =   375
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "sfqd"
      Top             =   0
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "中国银行承兑台帐登记系统数据恢复"
      BeginProperty Font 
         Name            =   "华文中宋"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   855
      Left            =   385
      TabIndex        =   0
      Top             =   350
      Width           =   9000
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "中国银行承兑台帐登记系统数据恢复"
      BeginProperty Font 
         Name            =   "华文中宋"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000040C0&
      Height          =   855
      Left            =   420
      TabIndex        =   1
      Top             =   360
      Width           =   9000
   End
End
Attribute VB_Name = "Frmchg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Data6_Error(DataErr As Integer, Response As Integer)
Response = vbDataErrContinue
MsgBox "必须首先关闭办公一体化系统才能进行数据恢复，如无法解决问题请偿试重新启动计算机。", vbOKOnly Or vbInformation, "系统信息"
End
End Sub