📄 mdiform1.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm MDIForm1
BackColor = &H8000000C&
Caption = "医药销售系统"
ClientHeight = 6975
ClientLeft = 165
ClientTop = 855
ClientWidth = 10410
Icon = "MDIForm1.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.PictureBox Picture3
Align = 2 'Align Bottom
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 255
Left = 0
ScaleHeight = 225
ScaleWidth = 10380
TabIndex = 3
Top = 6720
Width = 10410
End
Begin VB.PictureBox Picture2
Align = 4 'Align Right
Appearance = 0 'Flat
ForeColor = &H80000008&
Height = 3840
Left = 10200
ScaleHeight = 3810
ScaleWidth = 180
TabIndex = 2
Top = 2880
Width = 210
End
Begin VB.PictureBox Picture1
Align = 3 'Align Left
Appearance = 0 'Flat
ForeColor = &H80000008&
Height = 3840
Left = 0
ScaleHeight = 3810
ScaleWidth = 180
TabIndex = 1
Top = 2880
Width = 210
End
Begin MSComctlLib.ImageList ImageList1
Left = 6000
Top = 3600
_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 = "MDIForm1.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":0624
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":093E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":1218
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":1532
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":220C
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":2AE6
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":33C0
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "MDIForm1.frx":36DA
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 2880
Left = 0
TabIndex = 0
Top = 0
Width = 10410
_ExtentX = 18362
_ExtentY = 5080
ButtonWidth = 3784
ButtonHeight = 1005
Appearance = 1
Style = 1
TextAlignment = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 11
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "药品销售"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "销售查询"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "销售报表"
ImageIndex = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "设置定价/库存浏览"
ImageIndex = 5
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "年度药品销售统计"
ImageIndex = 4
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "注册销售员"
ImageIndex = 6
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改密码"
ImageIndex = 7
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "切换销售员"
ImageIndex = 8
EndProperty
EndProperty
BorderStyle = 1
End
Begin VB.Menu j
Caption = "查看"
Begin VB.Menu ys
Caption = "药品销售"
End
Begin VB.Menu xscx
Caption = "销售查询"
End
Begin VB.Menu kl
Caption = "库存浏览"
End
End
Begin VB.Menu xt
Caption = "系统"
Begin VB.Menu nzjs
Caption = "年终结算"
End
End
Begin VB.Menu gy
Caption = "关于"
Begin VB.Menu rj
Caption = "本软件"
End
Begin VB.Menu yx
Caption = "运行平台"
End
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub kl_Click()
Form3.WindowState = 2
Form3.Show
Form1.Hide
Form11.Hide
End Sub
Private Sub MDIForm_Load()
Form8.Show
Form2.Show 1
End Sub
Private Sub nzjs_Click()
MsgBox "确定要做年终结算吗？执行该操作后本年度销售记录将全部清空", vbOKOnly + vbInformation, "提示"
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1:
Form1.WindowState = 2
Form1.Show
Form11.Hide
Form3.Hide
Case 3:
Form11.WindowState = 2
Form11.Show
Form1.Hide
Form3.Hide
Case 5:
Form5.Show 1
Case 6:
Form3.WindowState = 2
Form3.Show
Form1.Hide
Form11.Hide
Case 7:
Form10.Show 1
Case 9:
Form6.Show 1
Case 10:
Form7.Show 1
Case 11:
Unload Form1
Unload Form3
Unload Form11
Form8.Show
Form2.Height = 4785
Form2.Text2.BackColor = &H8000000C
Form2.Text3.BackColor = &H8000000C
Form2.Text4.BackColor = &H8000000C
Form2.Text4.Enabled = False
Form2.Text3.Enabled = False
Form2.Text2.Enabled = False
Form2.Label7.Enabled = False
Form2.Label8.Enabled = False
sql = "select xiaono from xiaoshouman"
Call comadd(sql, "xiaono", Form2.Combo1)
Form2.Show 1
End Select
End Sub
Private Sub xscx_Click()
Form11.WindowState = 2
Form11.Show
Form1.Hide
Form3.Hide
End Sub
Private Sub ys_Click()
Form1.WindowState = 2
Form1.Show
Form3.Hide
Form11.Hide
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -