📄 main.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form op
BorderStyle = 1 'Fixed Single
Caption = "Fweight 1.1"
ClientHeight = 8610
ClientLeft = 45
ClientTop = 360
ClientWidth = 12000
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "main.frx":0000
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 8610
ScaleWidth = 12000
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin VB.TextBox txtLoad
BackColor = &H8000000F&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 0
TabIndex = 8
Top = 7920
Width = 12015
End
Begin TabDlg.SSTab SSTab1
Height = 7815
Left = 0
TabIndex = 0
Top = 0
Width = 12015
_ExtentX = 21193
_ExtentY = 13785
_Version = 393216
Style = 1
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "开始过磅"
TabPicture(0) = "main.frx":29C12
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label26"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame4"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Frame1"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Frame2"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Timer1"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Frame3"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "commSave"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "commPrint"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "txtSid"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "commSid"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).ControlCount= 10
TabCaption(1) = "查询汇总"
TabPicture(1) = "main.frx":29C2E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame6"
Tab(1).Control(1)= "Frame5"
Tab(1).ControlCount= 2
TabCaption(2) = "资料维护"
TabPicture(2) = "main.frx":29C4A
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame11"
Tab(2).Control(1)= "Frame7"
Tab(2).Control(2)= "SSTab2"
Tab(2).ControlCount= 3
Begin VB.Frame Frame11
Caption = "费率设置"
Height = 1455
Left = -68280
TabIndex = 94
Top = 6120
Width = 5175
Begin VB.CommandButton cXg
Caption = "修改"
Enabled = 0 'False
Height = 495
Left = 3600
TabIndex = 98
Top = 480
Width = 975
End
Begin VB.TextBox ttFl
BackColor = &H00C0FFC0&
Height = 285
Left = 1560
TabIndex = 96
Text = "0.00"
Top = 480
Width = 1095
End
Begin VB.Label Label42
Caption = "注：收费＝费率×净重"
Height = 255
Left = 480
TabIndex = 99
Top = 1080
Width = 2895
End
Begin VB.Label Label41
Caption = "元/KG"
Height = 255
Left = 2880
TabIndex = 97
Top = 480
Width = 975
End
Begin VB.Label Label34
Caption = "当前费率："
Height = 255
Left = 480
TabIndex = 95
Top = 480
Width = 975
End
End
Begin VB.Frame Frame7
Caption = "用户设置"
Height = 5535
Left = -68280
TabIndex = 76
Top = 480
Width = 5175
Begin VB.ListBox List1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1980
ItemData = "main.frx":29C66
Left = 240
List = "main.frx":29C68
TabIndex = 89
Top = 480
Width = 2655
End
Begin VB.Frame Frame10
Height = 2895
Left = 240
TabIndex = 78
Top = 2520
Width = 4695
Begin VB.CommandButton cXiugai
Caption = "修改密码"
Height = 495
Left = 3360
TabIndex = 93
Top = 2160
Width = 975
End
Begin VB.TextBox txtyuan
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
IMEMode = 3 'DISABLE
Left = 1080
PasswordChar = "*"
TabIndex = 85
Top = 2280
Width = 1815
End
Begin VB.CommandButton cShanchu
Caption = "删除"
Enabled = 0 'False
Height = 495
Left = 3360
TabIndex = 83
Top = 1440
Width = 975
End
Begin VB.CommandButton cTianjia
Caption = "添加"
Enabled = 0 'False
Height = 495
Left = 3360
TabIndex = 81
Top = 720
Width = 975
End
Begin VB.TextBox txtname
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1080
TabIndex = 80
Top = 300
Width = 1815
End
Begin VB.TextBox txtxin
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
IMEMode = 3 'DISABLE
Left = 1080
PasswordChar = "*"
TabIndex = 82
Top = 960
Width = 1815
End
Begin VB.TextBox txtch
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
IMEMode = 3 'DISABLE
Left = 1080
PasswordChar = "*"
TabIndex = 84
Top = 1560
Width = 1815
End
Begin VB.CheckBox Check1
Alignment = 1 'Right Justify
Caption = "管理员"
Height = 255
Left = 3240
TabIndex = 79
Top = 360
Width = 1095
End
Begin VB.Label Label40
Caption = "原密码："
Height = 255
Left = 240
TabIndex = 92
Top = 2400
Width = 855
End
Begin VB.Label Label37
Caption = "账 户："
Height = 255
Left = 240
TabIndex = 88
Top = 360
Width = 855
End
Begin VB.Label Label36
Caption = "密 码："
Height = 255
Left = 240
TabIndex = 87
Top = 1080
Width = 855
End
Begin VB.Label Label35
Caption = "重 输："
Height = 255
Left = 240
TabIndex = 86
Top = 1680
Width = 855
End
End
Begin VB.ListBox List2
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1980
ItemData = "main.frx":29C6A
Left = 3000
List = "main.frx":29C6C
TabIndex = 77
Top = 480
Width = 1815
End
Begin VB.Label Label39
Caption = "账户"
Height = 255
Left = 960
TabIndex = 91
Top = 240
Width = 855
End
Begin VB.Label Label38
Caption = "管理员"
Height = 255
Left = 3360
TabIndex = 90
Top = 240
Width = 735
End
End
Begin VB.CommandButton commSid
Caption = ">"
Height = 375
Left = 11280
TabIndex = 57
Top = 3000
Width = 375
End
Begin VB.TextBox txtSid
Alignment = 2 'Center
BackColor = &H00008000&
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 345
Left = 9240
MaxLength = 15
TabIndex = 55
Top = 3000
Width = 2055
End
Begin TabDlg.SSTab SSTab2
Height = 7095
Left = -74880
TabIndex = 15
Top = 480
Width = 6375
_ExtentX = 11245
_ExtentY = 12515
_Version = 393216
TabHeight = 520
TabCaption(0) = "单位管理"
TabPicture(0) = "main.frx":29C6E
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame12"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame13"
Tab(0).Control(1).Enabled= 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -