📄 pgmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form pgmain
Caption = "包装物开票窗口"
ClientHeight = 8310
ClientLeft = 165
ClientTop = 885
ClientWidth = 11880
LinkTopic = "Form1"
ScaleHeight = 8310
ScaleWidth = 11880
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 0
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 1164
ButtonWidth = 2990
ButtonHeight = 1164
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 8
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = " 容品开票 "
Key = "AdvanceBeer"
ImageIndex = 2
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 11
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu5 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu6 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu7 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu8 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu9 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu10 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty ButtonMenu11 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = " 指标录入 "
Key = "OneBeer"
ImageIndex = 3
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 1
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "车间奖金人员 "
Key = "TwoBeer"
ImageIndex = 4
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "包装车间奖金 "
Key = "ThreeBeer"
ImageIndex = 6
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = " 机关奖金 "
Key = "ForthBeer"
ImageIndex = 8
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "机关人员名单"
Key = "SwitchScale"
ImageIndex = 8
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "银行报表"
Key = "BeerType"
ImageIndex = 6
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
Key = "ExitSystem"
ImageIndex = 5
EndProperty
EndProperty
Begin MSComctlLib.ImageList ImageList1
Left = 9600
Top = -30
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 18
ImageHeight = 18
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "pgmain.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "pgmain.frx":0442
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "pgmain.frx":0980
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "pgmain.frx":0E46
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "pgmain.frx":12C0
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "pgmain.frx":17C2
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "pgmain.frx":1CC4
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "pgmain.frx":21C6
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "pgmain.frx":25D8
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "pgmain.frx":2A6E
Key = ""
EndProperty
EndProperty
End
End
Begin VB.Image Image1
Height = 2820
Left = 30
Picture = "pgmain.frx":2FAC
Stretch = -1 'True
Top = 750
Width = 5295
End
Begin VB.Menu mcshezhi
Caption = "名称设置"
Begin VB.Menu danwei
Caption = "单位名称"
End
Begin VB.Menu baozhuangwu
Caption = "包装物名称"
End
Begin VB.Menu yanshouren
Caption = "验收人"
End
Begin VB.Menu zhibiaoren
Caption = "制表人"
End
Begin VB.Menu xgmima
Caption = "修改密码"
End
End
Begin VB.Menu kaipiao
Caption = "包装物开票"
End
Begin VB.Menu chaxun
Caption = "数据查询"
Begin VB.Menu baozCX
Caption = "包装物查询"
End
Begin VB.Menu ReportLossCX
Caption = "挂失数据查询"
End
End
Begin VB.Menu yjp
Caption = "押金票"
Begin VB.Menu yajinchaxun
Caption = "押金票查询"
End
Begin VB.Menu yajindiaopiao
Caption = "押金票调票"
End
End
Begin VB.Menu exit
Caption = "退出系统"
End
End
Attribute VB_Name = "pgmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub baozCX_Click()
pgbaozhuangwutongji.Show 1
End Sub
Private Sub baozhuangwu_Click()
pgbaozhuangwumingcheng.Show 1
End Sub
Private Sub danwei_Click()
pgdanweimingcheng.Show 1
End Sub
Private Sub Form_Resize()
Image1.Width = pgmain.Width
Image1.Height = pgmain.Height - 1000
End Sub
Private Sub kaipiao_Click()
pgkaipiao.Show 1
End Sub
Private Sub mima_Click()
mima.Show 1
End Sub
Private Sub xgmima_Click()
mima.Show 1
End Sub
Private Sub yajinchaxun_Click()
pgyjpchaxun.Show 1
End Sub
Private Sub yajindiaopiao_Click()
pgyjpdiaopiao.Show 1
End Sub
Private Sub yanshouren_Click()
pgyanshouren.Show 1
End Sub
Private Sub yjpchaxun_Click()
pgyjpchaxun.Show 1
End Sub
Private Sub zhibiaoren_Click()
pgzhibiaoren.Show 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -