📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{74238AF8-8108-44A9-B3DE-D652F61AB8DC}#2.3#0"; "yfDNetMenu.ocx"
Begin VB.Form frmMain
AutoRedraw = -1 'True
Caption = "乡镇供电所电费处理系统v2.0"
ClientHeight = 3525
ClientLeft = 2355
ClientTop = 3570
ClientWidth = 7515
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
ScaleHeight = 10830
ScaleWidth = 15240
WindowState = 2 'Maximized
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 105
Left = 10080
ScaleHeight = 105
ScaleWidth = 1740
TabIndex = 11
Top = 4395
Visible = 0 'False
Width = 1740
End
Begin VB.PictureBox FormColor
AutoRedraw = -1 'True
Height = 1965
Left = 30
ScaleHeight = 1905
ScaleWidth = 6075
TabIndex = 2
Top = 825
Width = 6135
Begin VB.Frame Frame1
Caption = "单位："
Height = 7335
Left = 120
TabIndex = 5
Top = 80
Width = 3840
Begin VB.ComboBox Combo2
BackColor = &H00FFFFFF&
ForeColor = &H00000000&
Height = 300
Left = 2655
Sorted = -1 'True
Style = 2 'Dropdown List
TabIndex = 9
Top = 285
Width = 1110
End
Begin VB.ComboBox Combo1
BackColor = &H00FFFFFF&
ForeColor = &H00000040&
Height = 300
Left = 630
Style = 2 'Dropdown List
TabIndex = 8
Top = 285
Width = 1590
End
Begin MSComctlLib.TreeView TreeView1
Height = 5565
Left = 120
TabIndex = 6
Top = 735
Width = 3675
_ExtentX = 6482
_ExtentY = 9816
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
Sorted = -1 'True
Style = 7
FullRowSelect = -1 'True
HotTracking = -1 'True
ImageList = "ImageList2"
BorderStyle = 1
Appearance = 1
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 Label2
BackColor = &H000080FF&
BorderStyle = 1 'Fixed Single
ForeColor = &H00FF0000&
Height = 285
Left = 135
TabIndex = 10
Top = 6360
Width = 3345
End
End
Begin VB.CommandButton Command2
Height = 4350
Left = 0
TabIndex = 4
Top = 3010
Width = 255
End
Begin VB.CommandButton Command1
Caption = "工作单位选择"
Height = 7455
Left = -15
TabIndex = 3
Top = 0
Width = 4050
End
Begin VB.Image Image7
Height = 480
Left = 9105
Top = 6210
Width = 480
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 375
Left = 7275
TabIndex = 7
Top = 6840
Width = 4365
End
End
Begin MSComctlLib.ImageList ImageList2
Left = 570
Top = 3795
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0CCA
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":15A6
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 405
Left = 0
TabIndex = 1
Top = 10425
Width = 15240
_ExtentX = 26882
_ExtentY = 714
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 7
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Object.Width = 2461
MinWidth = 2469
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Object.Width = 2461
MinWidth = 2469
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Object.Width = 2831
MinWidth = 2822
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Object.Width = 6350
MinWidth = 6350
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Object.Width = 2831
MinWidth = 2824
EndProperty
BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
Object.Width = 1931
MinWidth = 1941
EndProperty
BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 3
AutoSize = 1
Enabled = 0 'False
Object.Width = 7355
MinWidth = 4233
TextSave = "Ins"
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
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 810
Left = 0
TabIndex = 0
Top = 0
Width = 15240
_ExtentX = 26882
_ExtentY = 1429
ButtonWidth = 1032
ButtonHeight = 1376
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 15
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "通讯"
Key = "通讯"
Object.ToolTipText = "使用抄表器抄表"
ImageIndex = 19
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "建档"
Key = "建立"
Object.ToolTipText = "按表卡输入用户的用电信息"
ImageIndex = 23
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "维护"
Object.ToolTipText = "修改删除用户信息"
ImageIndex = 22
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "计算"
Key = "计算"
Object.ToolTipText = "计算本月发生的电费"
ImageIndex = 15
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询"
Key = "查询"
Object.ToolTipText = "查询用户用电信息"
ImageIndex = 34
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "打印"
Object.ToolTipText = "各种报表发票打印输出"
ImageIndex = 35
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 11
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "清单"
Text = "打印电费清单"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Key = "报表"
Text = "打印分类报表"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Key = "催费"
Text = "打印催费清单"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Key = "电价"
Text = "打印电价分类"
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Key = "通知"
Text = "打印催费通知单"
EndProperty
BeginProperty ButtonMenu6 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "抄表"
Text = "打印抄表清单"
EndProperty
BeginProperty ButtonMenu7 {66833FEE-8583-11D1-B16A-00C0F0283628}
Text = "-"
EndProperty
BeginProperty ButtonMenu8 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "对照"
Text = "打印代码对照表"
EndProperty
BeginProperty ButtonMenu9 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "标签"
Text = "打印电表标签"
EndProperty
BeginProperty ButtonMenu10 {66833FEE-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Text = "-"
EndProperty
BeginProperty ButtonMenu11 {66833FEE-8583-11D1-B16A-00C0F0283628}
Object.Visible = 0 'False
Key = "表计"
Text = "打印表计档案"
EndProperty
EndProperty
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "电价"
Key = "电价"
Object.ToolTipText = "增加删除修改电价信息"
ImageIndex = 8
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "备份"
Key = "备份"
Object.ToolTipText = "把当前数据备份一下,以防意外"
ImageIndex = 26
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "设置"
Key = "设置"
Object.ToolTipText = "系统的一些参数设置,如背景色,菜单和系统使用者"
ImageIndex = 31
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "帮助"
Object.ToolTipText = "若有操作疑问,可以参考此帮助"
ImageIndex = 6
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关于"
Key = "关于"
Object.ToolTipText = "关于本软件"
ImageIndex = 17
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "退出"
Object.ToolTipText = "退出系统"
ImageIndex = 33
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 1140
Top = 3810
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483633
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 35
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1E82
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2D5E
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":307A
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3ECE
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":4DAA
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":50C6
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":5FA2
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":687E
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":715A
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":7A36
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":8312
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":8BEE
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":94CA
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":9DA6
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":A682
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -