📄 mfrmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm Mfrmmain
Appearance = 0 'Flat
BackColor = &H8000000A&
Caption = "诚信称重管理系统"
ClientHeight = 6420
ClientLeft = 1215
ClientTop = 2130
ClientWidth = 7215
Icon = "Mfrmmain.frx":0000
LinkTopic = "MDIForm1"
WindowState = 2 'Maximized
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 6045
Width = 7215
_ExtentX = 12726
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 5292
MinWidth = 5292
Picture = "Mfrmmain.frx":030A
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 8820
MinWidth = 8820
Picture = "Mfrmmain.frx":075C
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 8819
MinWidth = 8819
Picture = "Mfrmmain.frx":0BAE
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 1080
Top = 3000
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Mfrmmain.frx":1000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Mfrmmain.frx":1452
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Mfrmmain.frx":18A4
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Mfrmmain.frx":1CF6
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Mfrmmain.frx":2148
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Mfrmmain.frx":259A
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Mfrmmain.frx":29EC
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Mfrmmain.frx":2E3E
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Mfrmmain.frx":3290
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 1650
Left = 0
TabIndex = 0
Top = 0
Width = 7215
_ExtentX = 12726
_ExtentY = 2910
ButtonWidth = 1455
ButtonHeight = 1376
Appearance = 1
ImageList = "ImageList1"
DisabledImageList= "ImageList1"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "货物管理"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "单位管理"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "仓库管理"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "磅员管理"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "称重计量"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "票据作废"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "报表明细"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "报表总计"
ImageIndex = 8
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
ImageIndex = 9
EndProperty
EndProperty
End
Begin VB.Menu 系统管理
Caption = "系统管理"
Begin VB.Menu 单位管理
Caption = "单位管理"
End
Begin VB.Menu 货物管理
Caption = "货物管理"
End
Begin VB.Menu 仓库管理
Caption = "仓库管理"
End
Begin VB.Menu split
Caption = "-"
End
Begin VB.Menu 过磅员管理
Caption = "磅员管理"
End
Begin VB.Menu 交接班
Caption = "交接班"
Visible = 0 'False
End
End
Begin VB.Menu 密码修改
Caption = "密码修改"
Begin VB.Menu 密码修改1
Caption = "密码修改"
End
End
Begin VB.Menu 称重管理
Caption = "称重管理"
Begin VB.Menu 称重计量
Caption = "称重计量"
End
Begin VB.Menu 票据作废
Caption = "票据作废"
End
End
Begin VB.Menu 报表管理
Caption = "报表管理"
Begin VB.Menu 数据报表明细
Caption = "数据报表明细..."
End
Begin VB.Menu 数据报表总计
Caption = "数据报表总计..."
End
End
Begin VB.Menu 系统版本帮助
Caption = "系统版本帮助"
Begin VB.Menu 系统版本
Caption = "系统版本"
End
End
Begin VB.Menu 退出系统
Caption = "退出系统"
Begin VB.Menu 退出系统1
Caption = "退出系统"
End
End
End
Attribute VB_Name = "Mfrmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub MDIForm_Load()
StatusBar1.Panels(1).Text = "当前过磅员：" & UserName
StatusBar1.Panels(2).Text = "系统登录日期：" & Now
StatusBar1.Panels(3).Text = "软件使用权：河北诚信有限责任公司"
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("你确实要退出系统吗？", vbQuestion + vbYesNo, "提示") = vbYes Then
Unload Me
End
Else
Cancel = 1
End If
End Sub
Private Sub MDIForm_Terminate()
Unload Me
End
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
End
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Call 货物管理_Click
Case 2
Call 单位管理_Click
Case 3
Call 仓库管理_Click
Case 4
Call 过磅员管理_Click
Case 5
Call 称重计量_Click
Case 6
Call 票据作废_Click
Case 7
Call 数据报表明细_Click
Case 8
Call 数据报表总计_Click
Case 9
Call 退出系统1_Click
End Select
End Sub
Private Sub 仓库管理_Click()
Frmck.Show 1
End Sub
Private Sub 称重计量_Click()
frmmain.Show
End Sub
Private Sub 单位管理_Click()
Frmdw.Show 1
End Sub
Private Sub 过磅员管理_Click()
Frmuser.Show 1
End Sub
Private Sub 货物管理_Click()
Frmhw.Show 1
End Sub
Private Sub 密码修改1_Click()
FrmChangePass.Show 1
End Sub
Private Sub 票据作废_Click()
FrmFeipiao.Show 1
End Sub
Private Sub 数据报表明细_Click()
FrmRpt.Show 1
End Sub
Private Sub 数据报表总计_Click()
Frmrp.Show 1
End Sub
Private Sub 退出系统1_Click()
Unload Me
End Sub
Private Sub 系统版本_Click()
Frmhelp.Show 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -