📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form FrmMain
BorderStyle = 3 'Fixed Dialog
Caption = "凭证接口二次开发演示"
ClientHeight = 4410
ClientLeft = 45
ClientTop = 330
ClientWidth = 9120
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "FrmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4410
ScaleWidth = 9120
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.ListBox ListStatus
Height = 960
Left = 60
TabIndex = 23
Top = 3030
Width = 8985
End
Begin VB.CommandButton CmdPrint
Caption = "打印报告(&P)"
Height = 330
Left = 7800
TabIndex = 22
Top = 2580
Width = 1180
End
Begin TabDlg.SSTab SSTab
Height = 2835
Left = 30
TabIndex = 3
Top = 120
Width = 7455
_ExtentX = 13150
_ExtentY = 5001
_Version = 393216
Tab = 2
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "连接"
TabPicture(0) = "FrmMain.frx":000C
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "CmdConn"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "CmdQConn"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "FrameConn"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).ControlCount= 3
TabCaption(1) = "凭证"
TabPicture(1) = "FrmMain.frx":0028
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "LbVch(1)"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "LbVch(0)"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "CboGroup"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "TxtNumber"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "CmdDoVch"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Frame1"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).ControlCount= 6
TabCaption(2) = "基础资料"
TabPicture(2) = "FrmMain.frx":0044
Tab(2).ControlEnabled= -1 'True
Tab(2).Control(0)= "LbVch(2)"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "LbVch(3)"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "CboSysclass"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "CmdDoSys"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "TxtItemNumber"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).ControlCount= 5
Begin VB.TextBox TxtItemNumber
Height = 300
Left = 2460
TabIndex = 25
Top = 810
Width = 1665
End
Begin VB.CommandButton CmdDoSys
Caption = "调用(&D)"
Height = 330
Left = 3900
TabIndex = 24
Top = 1830
Width = 1185
End
Begin VB.Frame Frame1
Caption = "凭证选项"
Height = 2175
Left = -74730
TabIndex = 16
Top = 480
Width = 2745
Begin VB.OptionButton OptVch
Caption = "凭证删除(中间层)"
Height = 400
Index = 4
Left = 270
TabIndex = 21
Top = 1740
Width = 2200
End
Begin VB.OptionButton OptVch
Caption = "凭证保存(中间层)"
Height = 400
Index = 3
Left = 270
TabIndex = 20
Top = 1359
Width = 2200
End
Begin VB.OptionButton OptVch
Caption = "凭证修改(界面)"
Height = 400
Index = 2
Left = 270
TabIndex = 19
Top = 976
Width = 2200
End
Begin VB.OptionButton OptVch
Caption = "凭证新增(界面数据)"
Height = 400
Index = 1
Left = 270
TabIndex = 18
Top = 593
Width = 2200
End
Begin VB.OptionButton OptVch
Caption = "凭证新增(界面)"
Height = 400
Index = 0
Left = 270
TabIndex = 17
Top = 210
Value = -1 'True
Width = 2200
End
End
Begin VB.CommandButton CmdDoVch
Caption = "调用(&D)"
Height = 330
Left = -70680
TabIndex = 15
Top = 1920
Width = 1185
End
Begin VB.Frame FrameConn
Caption = "登录方式"
Height = 1785
Left = -74610
TabIndex = 12
Top = 510
Width = 2595
Begin VB.OptionButton OptConn
Caption = "默认账套登录"
Height = 405
Index = 1
Left = 330
TabIndex = 14
Top = 1020
Width = 2025
End
Begin VB.OptionButton OptConn
Caption = "选择账套登录"
Height = 405
Index = 0
Left = 330
TabIndex = 13
Top = 450
Value = -1 'True
Width = 2025
End
End
Begin VB.CommandButton CmdQConn
Caption = "取消登录(&C)"
Enabled = 0 'False
Height = 330
Left = -70500
TabIndex = 11
Top = 1560
Width = 1350
End
Begin VB.CommandButton CmdConn
Caption = "开始登录(&L)"
Height = 330
Left = -70530
TabIndex = 10
Top = 870
Width = 1350
End
Begin VB.ComboBox CboSysclass
Height = 300
Left = 2460
Style = 2 'Dropdown List
TabIndex = 8
Top = 510
Width = 2625
End
Begin VB.TextBox TxtNumber
Height = 300
Left = -70710
TabIndex = 5
Top = 1050
Width = 1665
End
Begin VB.ComboBox CboGroup
Height = 300
Left = -70710
Style = 2 'Dropdown List
TabIndex = 4
Top = 660
Width = 1695
End
Begin VB.Label LbVch
AutoSize = -1 'True
Caption = "编辑代码："
Height = 180
Index = 3
Left = 1050
TabIndex = 26
Top = 870
Width = 900
End
Begin VB.Label LbVch
AutoSize = -1 'True
Caption = "选择基础资料类别："
Height = 180
Index = 2
Left = 330
TabIndex = 9
Top = 570
Width = 1620
End
Begin VB.Label LbVch
AutoSize = -1 'True
Caption = "凭证字："
Height = 180
Index = 0
Left = -71610
TabIndex = 7
Top = 720
Width = 720
End
Begin VB.Label LbVch
AutoSize = -1 'True
Caption = "凭证号："
Height = 180
Index = 1
Left = -71640
TabIndex = 6
Top = 1140
Width = 720
End
End
Begin VB.TextBox TxtStatus
Height = 345
Left = 7800
MultiLine = -1 'True
TabIndex = 1
Top = 1500
Visible = 0 'False
Width = 1065
End
Begin VB.CommandButton CmdExit
Caption = "退出(&E)"
Height = 330
Left = 7740
TabIndex = 0
Top = 450
Width = 1180
End
Begin MSComctlLib.StatusBar sb
Align = 2 'Align Bottom
Height = 315
Left = 0
TabIndex = 2
Top = 4095
Width = 9120
_ExtentX = 16087
_ExtentY = 556
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 3528
MinWidth = 3528
Text = "就绪"
TextSave = "就绪"
Key = "Status"
Object.ToolTipText = "状态"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 1
Object.Width = 5292
MinWidth = 5292
Text = "公司"
TextSave = "公司"
Key = "Dbname"
Object.ToolTipText = "当前帐套公司名"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 2
Object.Width = 3519
MinWidth = 3528
Text = "帐套"
TextSave = "帐套"
Key = "Company"
Object.ToolTipText = "当前帐套名"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 2117
MinWidth = 2117
Text = "9999年99期"
TextSave = "9999年99期"
Key = "Period"
Object.ToolTipText = "当前会计期间"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 2646
MinWidth = 2646
Key = "User"
Object.ToolTipText = "用户名称"
EndProperty
EndProperty
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
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Option Compare Text
Private FirstLoad As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -