📄 frmwizard.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmWizard
BorderStyle = 3 'Fixed Dialog
Caption = "创建账套向导"
ClientHeight = 4110
ClientLeft = 45
ClientTop = 330
ClientWidth = 7035
Icon = "frmWizard.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4110
ScaleWidth = 7035
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
WhatsThisButton = -1 'True
WhatsThisHelp = -1 'True
Begin VB.Frame fraCommands
Height = 705
Left = 0
TabIndex = 25
Top = 3360
Width = 7000
Begin VB.CommandButton cmdFinish
Caption = "完成(&F)"
Enabled = 0 'False
Height = 375
Left = 5640
TabIndex = 24
Top = 210
Width = 1155
End
Begin VB.CommandButton cmdNext
Caption = "下一步(&N)"
Height = 375
Left = 4500
TabIndex = 23
Top = 210
Width = 1155
End
Begin VB.CommandButton cmdPrevious
Caption = "上一步(&P)"
CausesValidation= 0 'False
Enabled = 0 'False
Height = 375
Left = 3360
TabIndex = 22
Top = 210
Width = 1155
End
Begin VB.CommandButton cmdAbort
Caption = "放弃(&A)"
CausesValidation= 0 'False
Height = 375
Left = 2220
TabIndex = 21
Top = 210
Width = 1155
End
Begin VB.CommandButton cmdHelp
Caption = "帮助(&H)"
CausesValidation= 0 'False
Height = 375
Left = 180
TabIndex = 20
Top = 210
WhatsThisHelpID = 2
Width = 1155
End
End
Begin TabDlg.SSTab sTb
Height = 3945
Left = 900
TabIndex = 19
Top = 180
Width = 6465
_ExtentX = 11404
_ExtentY = 6959
_Version = 393216
TabOrientation = 3
Style = 1
Tabs = 6
TabsPerRow = 6
TabHeight = 520
BackColor = -2147483626
TabCaption(0) = "Tab 0"
TabPicture(0) = "frmWizard.frx":0442
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label2"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label3"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label4"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label5"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label6"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label20"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "txtAccountID"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "txtAccountName"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "txtBeginYear"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "txtBeginMonth"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "txtMaster"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "txtCurrency"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "updBeginYear"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "updBeginMonth"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "Frame1"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).ControlCount= 16
TabCaption(1) = "Tab 1"
TabPicture(1) = "frmWizard.frx":045E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Label7"
Tab(1).Control(1)= "Label8"
Tab(1).Control(2)= "Label9"
Tab(1).Control(3)= "Label10"
Tab(1).Control(4)= "Label11"
Tab(1).Control(5)= "Label12"
Tab(1).Control(6)= "Label13"
Tab(1).Control(7)= "Label14"
Tab(1).Control(8)= "Label15"
Tab(1).Control(9)= "Label16"
Tab(1).Control(10)= "txtEnterName"
Tab(1).Control(11)= "txtTelCode"
Tab(1).Control(12)= "txtZip"
Tab(1).Control(13)= "txtAddress"
Tab(1).Control(14)= "txtEMail"
Tab(1).Control(15)= "txtTaxNo"
Tab(1).Control(16)= "txtLaw"
Tab(1).Control(17)= "txtEconomyProperty"
Tab(1).Control(18)= "txtEnterType"
Tab(1).Control(19)= "cboTradeKind"
Tab(1).ControlCount= 20
TabCaption(2) = "Tab 2"
TabPicture(2) = "frmWizard.frx":047A
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Label17"
Tab(2).Control(1)= "cboMonthEnd"
Tab(2).Control(2)= "mfgPeriod"
Tab(2).ControlCount= 3
TabCaption(3) = "Tab 3"
TabPicture(3) = "frmWizard.frx":0496
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Label18"
Tab(3).Control(1)= "chkPreSet"
Tab(3).ControlCount= 2
TabCaption(4) = "Tab 4"
TabPicture(4) = "frmWizard.frx":04B2
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "mfgCodeLevel"
Tab(4).ControlCount= 1
TabCaption(5) = "Tab 5"
TabPicture(5) = "frmWizard.frx":04CE
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "pBr"
Tab(5).Control(1)= "lbPro"
Tab(5).Control(2)= "lblInfo"
Tab(5).Control(3)= "lblMsg"
Tab(5).ControlCount= 4
Begin VB.Frame Frame1
Caption = "科目代码"
Height = 1185
Left = 3570
TabIndex = 51
Top = 1740
Width = 2355
Begin VB.TextBox txtSeperateChar
Enabled = 0 'False
Height = 270
Left = 1740
MaxLength = 1
TabIndex = 52
Text = "-"
Top = 480
Width = 465
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "科目级次分隔:"
Height = 180
Left = 480
TabIndex = 53
Top = 525
Width = 1170
End
End
Begin MSFlexGridLib.MSFlexGrid mfgCodeLevel
Height = 3165
Left = -74940
TabIndex = 50
Top = 30
Width = 6015
_ExtentX = 10610
_ExtentY = 5583
_Version = 393216
FixedCols = 0
ForeColor = -2147483647
WordWrap = -1 'True
Enabled = -1 'True
End
Begin MSComctlLib.ProgressBar pBr
Height = 195
Left = -74880
TabIndex = 48
Top = 2880
Visible = 0 'False
Width = 5895
_ExtentX = 10398
_ExtentY = 344
_Version = 393216
Appearance = 1
End
Begin MSComCtl2.UpDown updBeginMonth
Height = 285
Left = 2520
TabIndex = 46
Top = 1875
Width = 195
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 1
BuddyControl = "txtBeginMonth"
BuddyDispid = 196632
OrigLeft = 2760
OrigTop = 1875
OrigRight = 2955
OrigBottom = 2160
Max = 12
Min = 1
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin MSComCtl2.UpDown updBeginYear
Height = 285
Left = 2520
TabIndex = 45
Top = 1485
Width = 195
_ExtentX = 423
_ExtentY = 503
_Version = 393216
Value = 1950
BuddyControl = "txtBeginYear"
BuddyDispid = 196633
OrigLeft = 2760
OrigTop = 1485
OrigRight = 2955
OrigBottom = 1770
Max = 2050
Min = 1950
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.CheckBox chkPreSet
Caption = "按行业性质预置会计科目"
Height = 285
Left = -74700
TabIndex = 18
Top = 180
Value = 1 'Checked
Width = 2415
End
Begin MSFlexGridLib.MSFlexGrid mfgPeriod
Height = 3045
Left = -73440
TabIndex = 17
Top = 150
Width = 4455
_ExtentX = 7858
_ExtentY = 5371
_Version = 393216
WordWrap = -1 'True
AllowUserResizing= 1
End
Begin VB.ComboBox cboMonthEnd
Height = 300
Left = -73200
Style = 2 'Dropdown List
TabIndex = 16
Top = 1350
Width = 855
End
Begin VB.ComboBox cboTradeKind
Height = 300
ItemData = "frmWizard.frx":04EA
Left = -73920
List = "frmWizard.frx":04EC
Style = 2 'Dropdown List
TabIndex = 15
Top = 2730
Width = 2295
End
Begin VB.TextBox txtEnterType
Height = 285
Left = -73920
MaxLength = 5
TabIndex = 14
Top = 2370
Width = 2295
End
Begin VB.TextBox txtEconomyProperty
Height = 285
Left = -73920
MaxLength = 5
TabIndex = 13
Top = 1995
Width = 2295
End
Begin VB.TextBox txtLaw
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -