📄 customerinitdetail.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 = "{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 frmCustomerInitDetail
Caption = "往来单位期初明细"
ClientHeight = 4545
ClientLeft = 60
ClientTop = 345
ClientWidth = 8760
HelpContextID = 30106
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4545
ScaleWidth = 8760
StartUpPosition = 2 '屏幕中心
Visible = 0 'False
Begin MSRDC.MSRDC dtaCustomerInitDetail
Height = 330
Left = 2190
Top = 3450
Visible = 0 'False
Width = 1395
_ExtentX = 2461
_ExtentY = 582
_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 AtlEdit.TEdit tedCustomerInitDetail
Height = 255
Left = 3720
TabIndex = 17
Top = 1530
Visible = 0 'False
Width = 1455
_ExtentX = 2566
_ExtentY = 450
maxchar = 15
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 gacCustomerInitDetail
Height = 255
Left = 720
OleObjectBlob = "CustomerInitDetail.frx":0000
TabIndex = 6
Top = 1920
Visible = 0 'False
Width = 1455
End
Begin GATLCTRLLibCtl.CalEdit calCustomerInitDetail
Height = 255
Left = 720
OleObjectBlob = "CustomerInitDetail.frx":0089
TabIndex = 8
Top = 960
Visible = 0 'False
Width = 1455
End
Begin VB.CommandButton cmdCustomerInitDetail
Caption = "栏目设置(&S)"
Height = 350
Index = 6
Left = 3735
TabIndex = 13
Top = 4140
Width = 1215
End
Begin VB.CommandButton cmdCustomerInitDetail
Height = 350
Index = 5
Left = 7440
Style = 1 'Graphical
TabIndex = 16
Top = 4140
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdCustomerInitDetail
Height = 350
Index = 4
Left = 6210
Style = 1 'Graphical
TabIndex = 15
Top = 4140
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdCustomerInitDetail
Height = 350
Index = 3
Left = 4980
Style = 1 'Graphical
TabIndex = 14
Top = 4140
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdCustomerInitDetail
Caption = "全部删除(&R)"
Height = 350
Index = 2
Left = 2520
TabIndex = 12
Top = 4140
Width = 1215
End
Begin VB.CommandButton cmdCustomerInitDetail
Caption = "删除(&D)"
Height = 350
Index = 1
Left = 1290
TabIndex = 11
Top = 4140
Width = 1215
End
Begin VB.CommandButton cmdCustomerInitDetail
Caption = "插入(&I)"
Height = 350
Index = 0
Left = 60
TabIndex = 10
Top = 4140
Width = 1215
End
Begin ListRefer.ListText lstCustomerInitdetail
Height = 255
Index = 3
Left = 720
TabIndex = 7
Top = 2400
Visible = 0 'False
Width = 1995
_ExtentX = 3519
_ExtentY = 450
CodeSort = -1 'True
BackColor = -2147483643
Appearance = 0
BorderStyle = 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 MSFlexGridLib.MSFlexGrid msgCustomerInitDetail
Bindings = "CustomerInitDetail.frx":010A
Height = 2535
Left = 60
TabIndex = 9
Top = 495
Width = 3255
_ExtentX = 5741
_ExtentY = 4471
_Version = 393216
Cols = 50
FixedCols = 0
BackColorBkg = -2147483643
HighLight = 2
AllowUserResizing= 1
End
Begin ListRefer.ListText lstCustomerInitdetail
Height = 315
Index = 0
Left = 3840
TabIndex = 3
Top = 105
Width = 1995
_ExtentX = 3519
_ExtentY = 556
CodeSort = -1 'True
BackColor = -2147483643
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 lstCustomerInitdetail
Height = 315
Index = 1
Left = 6780
TabIndex = 5
Top = 105
Width = 1395
_ExtentX = 2461
_ExtentY = 556
CodeSort = -1 'True
BackColor = -2147483643
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 lstCustomerInitdetail
Height = 315
Index = 2
Left = 900
TabIndex = 1
Top = 105
Width = 1995
_ExtentX = 3519
_ExtentY = 556
CodeSort = -1 'True
BackColor = -2147483643
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 VB.Label lblCustomerInit
Caption = "单位(&C)"
Height = 255
Index = 2
Left = 120
TabIndex = 0
Top = 150
Width = 660
WordWrap = -1 'True
End
Begin VB.Label lblCustomerInit
Caption = "币种(&U)"
Height = 255
Index = 1
Left = 6000
TabIndex = 4
Top = 150
Width = 660
End
Begin VB.Label lblCustomerInit
Caption = "科目(&A)"
Height = 255
Index = 0
Left = 3060
TabIndex = 2
Top = 150
Width = 660
End
End
Attribute VB_Name = "frmCustomerInitDetail"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private WithEvents mclsSubClassform As SubClass '窗体"钩子"对象
Attribute mclsSubClassform.VB_VarHelpID = -1
Private WithEvents mclsSubClass As SubClass '列表"钩子"对象
Attribute mclsSubClass.VB_VarHelpID = -1
Private mclsListSet As ListSet '列表设置对象
Private Type Account '科目自定义类型
ID As Long '科目ID
Nature As Integer '科目性质
IsMutCur As Boolean '多币种核算标志
IsAllCur As Boolean '所有币种核算标志
Direction As Integer '余额方向
End Type
Private mstrDec As String
Private mstrPrice As String
Private mintYear As Integer
Private mblnIsInput(3) As Boolean '输入标志
Private mblnIsload(30) As Boolean '参照列表装载标志
Private mblnIsClosed As Boolean '结帐标志
Private mstrStartDate As String '账套启用日期
Private mstrBeginDate As String '会计年度开始日期
Private mintCol As Integer, mlngRow As Long '录入框所在行,列
Private mblnHscroll As Boolean, mblnVscroll As Boolean '横向及垂直滚动条出现标志
Private mlngCurrencyID As Long '币种ID
Private mlngCustomerID As Long '单位ID
Private Const lngViewId As Long = 148 '视图ID
Private mudtAccount As Account '科目自定义类型
Private mdblDiscountRate As Double
Private mblnisReturn As Boolean
Private mblnClose As Boolean
Private mstrCurrencyDec As String
Private mstrRateDec As String
Private mblnIsIndirect As Boolean
Private mblnIsAddNew As Boolean
Private mblnIsEdit As Boolean
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -