📄 mdimain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.MDIForm MDIMain
BackColor = &H8000000C&
Caption = "医药进销存管理系统"
ClientHeight = 5535
ClientLeft = 165
ClientTop = 570
ClientWidth = 11070
Icon = "MDIMain.frx":0000
LinkTopic = "MDIForm1"
Picture = "MDIMain.frx":08CA
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 390
Left = 0
TabIndex = 1
Top = 5145
Width = 11070
_ExtentX = 19526
_ExtentY = 688
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2005-01-28"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 870
Left = 0
Negotiate = -1 'True
TabIndex = 0
Top = 0
Width = 11070
_ExtentX = 19526
_ExtentY = 1535
ButtonWidth = 1614
ButtonHeight = 1376
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "药品销售"
Description = "iiii"
Object.ToolTipText = "药品销售"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "药品入库"
Object.ToolTipText = "药品入库"
ImageIndex = 7
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "销售日报表"
Description = "6666"
Object.ToolTipText = "销售日报表"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "销售查询"
Object.ToolTipText = "销售查询"
ImageIndex = 2
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "客户管理"
Object.ToolTipText = "客户管理"
ImageIndex = 8
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "应收款"
Object.ToolTipText = "应收款"
ImageIndex = 9
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "库存查询"
Object.ToolTipText = "库存查询"
ImageIndex = 10
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "库存盘点"
Object.ToolTipText = "库存盘点"
ImageIndex = 4
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "退出系统"
Object.ToolTipText = "退出系统"
ImageIndex = 5
EndProperty
EndProperty
Begin VB.Frame Frame1
Height = 735
Left = 8310
TabIndex = 2
Top = 30
Width = 2715
Begin VB.Image Image1
Height = 585
Left = 15
Picture = "MDIMain.frx":2F8DF
Stretch = -1 'True
Top = 120
Width = 2670
End
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 750
Top = 2235
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 54
ImageHeight = 46
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 11
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIMain.frx":33540
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIMain.frx":3530C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIMain.frx":37248
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIMain.frx":39014
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIMain.frx":3ADE0
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIMain.frx":3CBAC
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIMain.frx":3E978
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIMain.frx":40744
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIMain.frx":42510
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIMain.frx":442DC
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIMain.frx":460A8
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu Rcyw
Caption = "日常业务(&R)"
Begin VB.Menu mnuSell
Caption = "药品销售"
End
Begin VB.Menu mnuSellth
Caption = "销售退货"
End
Begin VB.Menu mnuWareHouse
Caption = "药品入库"
Shortcut = ^W
End
End
Begin VB.Menu Kcgl
Caption = "库存管理"
Begin VB.Menu mnuKCYPCX
Caption = "库存药品查询"
End
Begin VB.Menu mnuKCPD
Caption = "库存盘点"
End
End
Begin VB.Menu mnuFindStat
Caption = "查询统计"
Begin VB.Menu mnuXSCX
Caption = "销售查询"
End
Begin VB.Menu line1
Caption = "-"
End
Begin VB.Menu mnuRKCX
Caption = "入库查询"
End
End
Begin VB.Menu mnuBBGL
Caption = "报表管理"
Begin VB.Menu mnuXSRBB
Caption = "销售日报表"
End
Begin VB.Menu mnuXSYBB
Caption = "销售月报表"
End
Begin VB.Menu mnuKHXSBB
Caption = "客户销售报表"
End
End
Begin VB.Menu YSYFGL
Caption = "欠款管理"
Begin VB.Menu mnuCharge
Caption = "应收款管理"
End
Begin VB.Menu mnuChargeFind
Caption = "收款查询"
End
End
Begin VB.Menu JCXXGL
Caption = "基础信息管理"
Begin VB.Menu mnuMedicine
Caption = "药品信息管理"
End
Begin VB.Menu mnuClient
Caption = "客户管理"
End
Begin VB.Menu mnuProvider
Caption = "供应商管理"
End
End
Begin VB.Menu XTSZ
Caption = "系统设置"
Begin VB.Menu mnuCZYGL
Caption = "操作员管理"
End
Begin VB.Menu mnuKLSZ
Caption = "口令设置"
End
End
Begin VB.Menu exit
Caption = "退出系统"
End
End
Attribute VB_Name = "MDIMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
Dim pnlX As Panel
'为窗体设置标记。
Me.Tag = "版权所有：吉林省明日科技有限公司 www.mingrisoft.com"
'添加多于两个的面板，并将它们设置为目录。
Set pnlX = StatusBar1.Panels.Add
pnlX.AutoSize = sbrContents
Set pnlX = StatusBar1.Panels.Add
pnlX.AutoSize = sbrContents
End Sub
Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
'在面板 1 中显示控件的标记并在面板 2 和 3 中显示 x、y
'坐标。因为 AutoSize = Contents，
'第一个面板展宽以适应变化的文本。
StatusBar1.Panels(1).Text = Me.Tag
StatusBar1.Panels(3).Text = "X = " & X
StatusBar1.Panels(4).Text = "Y = " & y
End Sub
Private Sub mnuSell_Click() '加载销售管理窗体
main_rcyw_sell.Show
End Sub
Private Sub mnuSellth_Click() '加载销售退货窗体
main_rcyw_sellth.Show
End Sub
Private Sub mnuWareHouse_Click() '加载入库管理窗体
main_rcyw_warehouse.Show
End Sub
Private Sub mnuKCYPCX_Click() '加载库存药品查询窗体
main_kcgl_stockfind.Show
End Sub
Private Sub mnuKCPD_Click() '加载库存盘点窗体
main_kcgl_stockpd.Show
End Sub
Private Sub mnuXSCX_Click() '加载销售查询窗体
main_cxtj_sellfind.Show
End Sub
Private Sub mnuRKCX_Click() '加载入库查询窗体
main_cxtj_warehoursefind.Show
End Sub
Private Sub mnuXSRBB_Click() '加载销售日报表窗体
main_tjbb_sellday.Show
End Sub
Private Sub mnuXSYBB_Click() '加载销售月报表窗体
main_tjbb_sellmonth.Show
End Sub
Private Sub mnuKHXSBB_Click() '加载客户销售报表窗体
main_tjbb_client.Show
End Sub
Private Sub mnuCharge_Click() '加载应收款管理窗体
main_ysyf_charge.Show
End Sub
Private Sub mnuChargeFind_Click() '加载收款查询窗体
main_ysyf_chargefind.Show
End Sub
Private Sub mnuMedicine_Click() '加载药品信息管理窗体
main_jbxx_medicine.Show
End Sub
Private Sub mnuClient_Click() '加载客户管理窗体
main_jbxx_client.Show
End Sub
Private Sub mnuProvider_Click() '加载供货商管理窗体
main_jbxx_provider.Show
End Sub
Private Sub mnuCZYGL_Click() '加载操作员管理窗体
main_xtsz_czysz.Show
End Sub
Private Sub mnuKLSZ_Click()
main_xtsz_klsz.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case Is = "药品销售"
main_rcyw_sell.Show
Case Is = "药品入库"
main_rcyw_warehouse.Show
Case Is = "销售日报表"
main_tjbb_sellday.Show
Case Is = "销售查询"
main_cxtj_sellfind.Show
Case Is = "客户管理"
main_jbxx_client.Show
Case Is = "应收款"
main_ysyf_charge.Show
Case Is = "库存查询"
main_kcgl_stockfind.Show
Case Is = "库存盘点"
main_kcgl_stockpd.Show
Case Is = "退出系统"
End
End Select
End Sub
Private Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
Dim i As Integer
If y < 750 Then
If X < 8100 Then
i = Int(X / 900) + 1
StatusBar1.Panels(1).Text = Toolbar1.Buttons(i).Key
End If
StatusBar1.Panels(3).Text = "X = " & X
StatusBar1.Panels(4).Text = "Y = " & y
End If
End Sub
Private Sub exit_Click()
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -