📄 frmbankaccount.frm
字号:
VERSION 5.00
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "GADATE.DLL"
Object = "{9C4B12C2-D5CE-11D1-9ABC-444553540000}#1.0#0"; "GACEDIT.DLL"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.4#0"; "ATLEDIT1.OCX"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Object = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.3#0"; "ORAGLIST.OCX"
Begin VB.Form frmBankAccount
Caption = "企业银行帐"
ClientHeight = 4200
ClientLeft = 60
ClientTop = 2295
ClientWidth = 7275
HelpContextID = 60103
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 4200
ScaleWidth = 7275
Begin ListRefer.ListText lstInput
Height = 285
Index = 2
Left = -50000
TabIndex = 12
TabStop = 0 'False
Top = 3120
Width = 1665
_ExtentX = 2937
_ExtentY = 503
CodeSort = -1 'True
BackColor = -2147483643
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ListRefer.ListText lstInput
Height = 405
Index = 1
Left = -50000
TabIndex = 11
TabStop = 0 'False
Top = 1680
Width = 1185
_ExtentX = 2090
_ExtentY = 714
CodeSort = -1 'True
BackColor = -2147483643
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ListRefer.ListText lstInput
Height = 315
Index = 0
Left = -50000
TabIndex = 10
TabStop = 0 'False
Top = 2610
Width = 1455
_ExtentX = 2566
_ExtentY = 556
BackColor = -2147483643
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSRDC.MSRDC DATA1
Height = 375
Left = 840
Top = 1680
Visible = 0 'False
Width = 1335
_ExtentX = 2355
_ExtentY = 661
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin GATLCTRLLibCtl.CalEdit txtCal
Height = 315
Left = 4380
OleObjectBlob = "frmBankAccount.frx":0000
TabIndex = 9
Top = 2520
Visible = 0 'False
Width = 675
End
Begin AtlEdit.TEdit txtInput
Height = 285
Left = 3330
TabIndex = 7
Top = 2550
Visible = 0 'False
Width = 825
_ExtentX = 1455
_ExtentY = 503
maxchar = 15
RBmenu = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
Appearance = 0
End
Begin GACALENDARLibCtl.Calendar dteInput
Height = 345
Left = -50000
OleObjectBlob = "frmBankAccount.frx":0081
TabIndex = 8
TabStop = 0 'False
Top = 2430
Width = 1065
End
Begin VB.ComboBox cboBook
Height = 300
Index = 0
ItemData = "frmBankAccount.frx":010A
Left = 780
List = "frmBankAccount.frx":0114
Style = 2 'Dropdown List
TabIndex = 2
Top = 90
Width = 2472
End
Begin VB.ComboBox cboBook
Height = 300
Index = 1
Left = 5640
Style = 2 'Dropdown List
TabIndex = 4
Top = 90
Width = 1515
End
Begin MSFlexGridLib.MSFlexGrid msgBook
Bindings = "frmBankAccount.frx":0134
Height = 3180
Left = 60
TabIndex = 0
Top = 540
Width = 7125
_ExtentX = 12568
_ExtentY = 5609
_Version = 393216
Cols = 16
FixedCols = 0
RowHeightMin = 300
BackColorBkg = 16777215
AllowBigSelection= 0 'False
HighLight = 0
GridLines = 0
AllowUserResizing= 1
Appearance = 0
FormatString = "|||||对帐| 日期 |单据类型|单据号|付款方式| 摘要 |票据号|> 借方|> 贷方|>余额|"
End
Begin MSForms.CommandButton cmdBook
Height = 345
Index = 1
Left = 1320
TabIndex = 6
Tag = "1018"
Top = 3780
Width = 1215
Caption = "报表"
PicturePosition = 196613
Size = "2143;617"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdBook
Height = 345
Index = 0
Left = 90
TabIndex = 5
Tag = "1018"
Top = 3780
Width = 1215
Caption = "编辑"
PicturePosition = 196613
Size = "2143;617"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label lblBook
AutoSize = -1 'True
Caption = "科目(&A)"
Height = 180
Index = 0
Left = 48
TabIndex = 1
Top = 156
Width = 648
End
Begin VB.Label lblBook
AutoSize = -1 'True
Caption = "币种(&C)"
Height = 180
Index = 1
Left = 4920
TabIndex = 3
Top = 150
Width = 645
End
End
Attribute VB_Name = "frmBankAccount"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''
'
'银行帐窗体
'
'作者：苏涛
'
'日期：1998-07-03
'
'接口：引入：银行对帐主界面窗体的:AccountID,CurrencyID
'
'''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Option Compare Text
'Private Const intFormMinHeight = 4380
'Private Const intFormMinWidth = 7250
'
'Private Const mintViewID = 33
Private mblnIsHide As Boolean
Private mblnIsAdd As Boolean
Private mblnIsInit As Boolean
Private mblnIsChanged As Boolean
Private mblnIsSort As Boolean
Private mblnDateOK As Boolean
Private mblnRowValid As Boolean
Private mblnTitle As Boolean
Private mbytDec As Byte
Private mdblAmount As Double
Private WithEvents mclsGrid As Grid
Attribute mclsGrid.VB_VarHelpID = -1
Private mdblDebit As Double
Private mdblCredit As Double
Private mdblBankBalance As Double
Private mintViewId As Integer
Private mintCheckCol As Integer
Private mintDateCol As Integer
Private mintResortCol As Integer
Private mintTypeCol As Integer
Private mintVoucherTypeCol As Integer
Private mintPayMethodCol As Integer
Private mintBalCol As Integer
Private mintReceiptNOCol As Integer
Private mintVoucherNOCol As Integer
Private mintRemarkCol As Integer
Private mintBillNOCol As Integer
Private mstrBillNO As String
Private mintDebitCol As Integer
Private mintCreditCol As Integer
Private mintDCBCol As Integer
Private mintCol As Integer
Private mintPRow As Integer
Private mintDire As Integer
Private mintPCol As Integer '上一次粘贴列，录入借、贷出错时用
Private mintRow As Integer
Private mlngNO As Long
Private mlngAcnID As Long
Private mlngCurID As Long
Private mstrCheckCol As String
Private mstrDateCol As String
Private mstrTypeCol As String
Private mstrVoucherTypeCol As String
Private mstrPayMethodCol As String
Private mstrBalCol As String
Private mstrReceiptNOCol As String
Private mstrVoucherNOCol As String
Private mstrRemarkCol As String
Private mstrBillNOCol As String
Private mstrDebitCol As String
Private mstrCreditCol As String
Private mstrAcnName As String
Private mstrCurName As String
Private mstrDate As String
Private mstrEndDate As String
Private mstrStartDate As String '对帐启用日期
Private mrecBankAccount As rdoResultset
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private WithEvents mclsSubClassform As SubClass32.SubClass
Attribute mclsSubClassform.VB_VarHelpID = -1
'引入企业银行帐期初
Public Function AddBankAccount(ByVal strBankAccount As String) As Integer
Dim lngAcnID As Long, lngCurID As Long, lngVoucherTypeID As Long
Dim lngReceiptTypeID As Long, lngPaymentMethodID As Long, lngOperatorID As Long
Dim intVoucherNO As Integer, intDirection As Integer, dblAmount As Double
Dim strReceiptNo As String, lngReceiptNo As Long, strDate As String
Dim strRemark As String, strCheckNumber As String, intIsMatch As Integer
Dim strSql As String, recBankInfo As rdoResultset, strTemp As String
Dim strStartDate As String
gclsBase.BaseWorkSpace.BeginTrans
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -