对帐单打印.frm

财务信息管理系统,适合做毕业论文的人使用

VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Begin VB.Form frmRdzdPrn 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "对账单打印"
   ClientHeight    =   2895
   ClientLeft      =   2430
   ClientTop       =   315
   ClientWidth     =   4065
   Icon            =   "对帐单打印.frx":0000
   LinkTopic       =   "Form3"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2895
   ScaleWidth      =   4065
   Begin VB.Frame Frame2 
      Height          =   1605
      Left            =   360
      TabIndex        =   4
      Top             =   510
      Width           =   3315
      Begin EDITLib.Edit Edit1 
         Height          =   270
         Left            =   1050
         TabIndex        =   8
         Top             =   750
         Width           =   675
         _Version        =   65536
         _ExtentX        =   1191
         _ExtentY        =   476
         _StockProps     =   253
         ForeColor       =   0
         BackColor       =   16777215
         Appearance      =   1
         Property        =   3
         MaxLength       =   5
      End
      Begin VB.CheckBox Check1 
         Caption         =   "月末打印"
         Height          =   195
         Left            =   1050
         TabIndex        =   1
         Top             =   1200
         Width           =   1395
      End
      Begin VB.TextBox Text1 
         Enabled         =   0   'False
         Height          =   270
         Index           =   0
         Left            =   1050
         TabIndex        =   5
         Text            =   "011001"
         Top             =   300
         Width           =   1785
      End
      Begin EDITLib.Edit Edit2 
         Height          =   270
         Left            =   2040
         TabIndex        =   9
         Top             =   750
         Width           =   675
         _Version        =   65536
         _ExtentX        =   1191
         _ExtentY        =   476
         _StockProps     =   253
         ForeColor       =   0
         BackColor       =   16777215
         Appearance      =   1
         Property        =   3
         MaxLength       =   5
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "账户号"
         Height          =   180
         Index           =   1
         Left            =   390
         TabIndex        =   7
         Top             =   345
         Width           =   540
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "页号"
         Height          =   180
         Index           =   2
         Left            =   570
         TabIndex        =   6
         Top             =   795
         Width           =   360
      End
      Begin VB.Line Line1 
         X1              =   1800
         X2              =   1950
         Y1              =   885
         Y2              =   885
      End
   End
   Begin VB.CommandButton Command2 
      Cancel          =   -1  'True
      Height          =   375
      Index           =   1
      Left            =   2595
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   2310
      Width           =   1080
   End
   Begin VB.CommandButton Command2 
      Default         =   -1  'True
      Height          =   375
      Index           =   0
      Left            =   1155
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   2310
      Width           =   1080
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "请选择打印操作的起始页号："
      Height          =   180
      Index           =   0
      Left            =   420
      TabIndex        =   0
      Top             =   150
      Width           =   2340
   End
End
Attribute VB_Name = "frmRdzdPrn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金计息8.0
'功能说明: 对账单打印选择界面
'作者: 赵春立

Option Explicit

Public pFrom As Long
Public pTo As Long
Public TLB_Key As String
Public Event ReturnAccID(blnPrint As Boolean, blnMonthEnd As Boolean, lngPrnFrom As Long, lngPrnTo As Long)

Private Sub Command2_Click(Index As Integer)
   Select Case Index
      Case 0
         If Not IsNumeric(Edit1) Then Edit1 = pFrom
         If Not IsNumeric(Edit2) Then Edit2 = pTo
         RaiseEvent ReturnAccID(True, Check1.Value, Edit1, Edit2)
         Unload Me
      Case 1
         RaiseEvent ReturnAccID(False, False, 0, 0)
         Unload Me
   End Select

End Sub

Private Sub Form_Load()
   LoadStatic
   CenterForm Me
   Edit1 = pFrom
   Edit2 = pTo
   Select Case TLB_Key
      Case "Print"
      Case "Preview"
         Me.Caption = "对账单预览"
         Label1(0) = "请选择预览操作的起始页号："
         Check1.Caption = "月末预览"
      Case "Dataout"
         Me.Caption = "对账单输出"
         Label1(0) = "请选择输出操作的起始页号："
         Check1.Caption = "月末输出"
   End Select
End Sub

Private Sub LoadStatic()
    Me.Icon = LoadResPicture(109, vbResIcon)
    Command2(0).Picture = LoadResPicture(103, vbResBitmap)
    Command2(1).Picture = LoadResPicture(104, vbResBitmap)

End Sub