module1.bas

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

Attribute VB_Name = "Module1"
Public Cdsqr As String  '承兑申请人值
Public Dayinshu As Integer '打印数量
Public q, topagee As Integer '打印起始行数
Public Com1, Dt1, Com2, Com5, Com6 As String
Public Bj(1 To 4) As Double  '定义报表的边距
Public Cddate1, Cddate2 As String '打印承兑申请人情况报告表时的期初及期末日期
Public 承兑经办人 As String   '以下统计时用到
Public 起日期 As String
Public 止日期 As String
Public 起编号 As String
Public 止编号 As String
Public 数据源 As String
Public 记录数量 As String
Public 发生数额 As String
Public 启动历史数据 As Boolean
'以下版本注册用到
Public 记录数 As Integer
Public 电脑编号 As String
Public 版本状态 As Integer   '0为试用,1为正式,2为到期
Public 注册号 As String
Public 动态库存量 As Integer
Public 限制数 As Integer

Public Sub Dytz()
frmqs.Label1.Caption = "开始打印分户帐——" & "“" & Cdsqr & "”，" & "请将帐页放入打印机，并确认打印起始行数，选择确定开始打印。选择取消将开始打印下一分户帐。"
frmqs.Show 1
End Sub
Sub main()
限制数 = 550
Dim lujing As String
If Right$(App.Path, 1) = "\" Then
lujing = App.Path
Else
lujing = App.Path & "\"
End If
On Error GoTo eee
FileCopy "C:\Program Files\Common Files\SYSTEM\bocofcn.mdb", "C:\Program Files\Common Files\SYSTEM\bocofn.mdb"
frmLogin.Show
Exit Sub
eee:
FileCopy lujing & "usbulcd.mdb", "C:\Program Files\Common Files\SYSTEM\bocofcn.mdb"
frmLogin.Show
End Sub