📄 wizard.frm
字号:
TabIndex = 36
Top = 1410
Width = 4440
Begin VB.Label lblNotes
Caption = " 输入帐套名称。可用本企业名称作为帐套名称，帐套名称不能重复。"
Height = 735
Index = 1
Left = 270
TabIndex = 37
Top = 720
Width = 3795
End
End
Begin VB.CommandButton cmdAcntSaveAs
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 6210
Style = 1 'Graphical
TabIndex = 2
ToolTipText = "选择帐套的路径"
Top = 780
UseMaskColor = -1 'True
Width = 330
End
Begin MSComDlg.CommonDialog cdlgCommonDialog
Left = 2040
Top = 3240
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin AtlEdit.TEdit txtFileName
Height = 345
Left = 3480
TabIndex = 1
Top = 780
Width = 3015
_ExtentX = 5318
_ExtentY = 609
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 = ""
End
Begin MSFlexGridLib.MSFlexGrid msgPeriod
Height = 3225
Left = -71340
TabIndex = 32
TabStop = 0 'False
Top = 420
Width = 3225
_ExtentX = 5689
_ExtentY = 5689
_Version = 393216
Rows = 14
Cols = 4
FixedCols = 0
GridLines = 0
ScrollBars = 2
FormatString = "|期间|起始日期 | 结束日期 "
End
Begin AtlEdit.TEdit txtCurrency
Height = 285
Index = 0
Left = -71265
TabIndex = 13
TabStop = 0 'False
Top = 780
Width = 2445
_ExtentX = 4313
_ExtentY = 503
maxchar = 4
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 = ""
End
Begin AtlEdit.TEdit txtCurrency
Height = 315
Index = 1
Left = -71265
TabIndex = 15
TabStop = 0 'False
Top = 1230
Width = 2445
_ExtentX = 4313
_ExtentY = 556
maxchar = 10
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 = ""
End
Begin GACALENDARLibCtl.Calendar dteStartDate
Height = 300
Index = 2
Left = -73200
OleObjectBlob = "Wizard.frx":02C7
TabIndex = 21
TabStop = 0 'False
Top = 2640
Width = 1695
End
Begin GACALENDARLibCtl.Calendar dteStartDate
Height = 300
Index = 0
Left = -73200
OleObjectBlob = "Wizard.frx":0350
TabIndex = 23
TabStop = 0 'False
Top = 3300
Width = 1695
End
Begin VB.Label lblNotes
Caption = "行业(&R):"
Height = 195
Index = 4
Left = -73170
TabIndex = 8
Top = 630
Width = 1545
End
Begin VB.Label lblNotes
AutoSize = -1 'True
Caption = "本位币名称(&M)"
Height = 180
Index = 6
Left = -72705
TabIndex = 14
Top = 1305
Width = 1170
End
Begin VB.Label lblNotes
AutoSize = -1 'True
Caption = "本位币编号(&N)"
Height = 180
Index = 5
Left = -72705
TabIndex = 12
Top = 810
Width = 1170
End
Begin VB.Label lblYear
BackColor = &H8000000B&
BorderStyle = 1 'Fixed Single
Height = 300
Left = -73200
TabIndex = 30
Top = 690
Width = 1695
End
Begin VB.Label lblNotes
AutoSize = -1 'True
Caption = "结束日期(&J)"
Height = 180
Index = 14
Left = -73200
TabIndex = 20
Top = 2445
Width = 990
End
Begin VB.Label lblNotes
AutoSize = -1 'True
Caption = "起始日期(&S)"
Height = 180
Index = 13
Left = -73200
TabIndex = 18
Top = 1806
Width = 990
End
Begin VB.Label lblNotes
AutoSize = -1 'True
Caption = "期间数(&P)"
Height = 180
Index = 12
Left = -73200
TabIndex = 16
Top = 1143
Width = 810
End
Begin VB.Label lblNotes
AutoSize = -1 'True
Caption = "会计年度(&E)"
Height = 180
Index = 9
Left = -73200
TabIndex = 29
Top = 480
Width = 990
End
Begin VB.Label lblNotes
AutoSize = -1 'True
Caption = "帐套启用日期(&D)"
Height = 180
Index = 8
Left = -73200
TabIndex = 22
Top = 3105
Width = 1350
End
Begin VB.Label lblNotes
Caption = "新建帐套名称(&B)"
Height = 195
Index = 0
Left = 2115
TabIndex = 0
Top = 840
Width = 1425
End
End
Begin ComctlLib.ProgressBar PBar1
Height = 165
Left = 60
TabIndex = 33
Top = 4350
Visible = 0 'False
Width = 6945
_ExtentX = 12250
_ExtentY = 291
_Version = 327682
Appearance = 1
End
Begin VB.CommandButton cmdPNFC
Cancel = -1 'True
Height = 330
Index = 3
Left = 2100
Style = 1 'Graphical
TabIndex = 25
Tag = "1002"
Top = 4035
UseMaskColor = -1 'True
Width = 1200
End
Begin VB.CommandButton cmdPNFC
Height = 330
Index = 2
Left = 5835
Style = 1 'Graphical
TabIndex = 28
Tag = "1016"
Top = 4035
UseMaskColor = -1 'True
Width = 1200
End
Begin VB.CommandButton cmdPNFC
Default = -1 'True
Height = 330
Index = 1
Left = 4575
Style = 1 'Graphical
TabIndex = 27
Tag = "1006"
Top = 4035
UseMaskColor = -1 'True
Width = 1200
End
Begin VB.CommandButton cmdPNFC
Height = 330
Index = 0
Left = 3330
Style = 1 'Graphical
TabIndex = 26
TabStop = 0 'False
Tag = "1005"
Top = 4035
UseMaskColor = -1 'True
Width = 1200
End
Begin VB.Label Label1
Caption = "正在建新帐套请稍候..."
Height = 195
Left = 90
TabIndex = 34
Top = 4140
Visible = 0 'False
Width = 1905
WordWrap = -1 'True
End
Begin VB.Line Line2
BorderColor = &H8000000C&
X1 = 60
X2 = 6780
Y1 = 3795
Y2 = 3795
End
Begin VB.Line Line1
BorderColor = &H80000005&
X1 = 60
X2 = 6975
Y1 = 3930
Y2 = 3930
End
End
Attribute VB_Name = "frmNewAccount"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''
'
'新建帐套窗体
'
'作者：苏涛
'
'功能：根据选择的行业（缺省为工业企业）和会计年底、期间（缺省为当年）建帐
'
'日期：1998-07-03
'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -