📄 mdiform1.frm
字号:
VERSION 5.00
Object = "{D959C709-8613-11D1-9840-002078110E7D}#1.0#0"; "as97Popup.ocx"
Begin VB.MDIForm MDIForm1
BackColor = &H00C0FFC0&
Caption = "人本超市采购系统"
ClientHeight = 7065
ClientLeft = 165
ClientTop = 555
ClientWidth = 9975
Icon = "MDIForm1.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 1 '所有者中心
Begin VB.PictureBox Picture1
Align = 3 'Align Left
BackColor = &H00C0E0FF&
BorderStyle = 0 'None
Height = 6570
Left = 0
ScaleHeight = 6570
ScaleWidth = 1320
TabIndex = 1
Top = 495
Width = 1320
Begin as97Popup.asPopup asPopup1
Height = 855
Left = 120
Top = 720
Width = 1095
_ExtentX = 1931
_ExtentY = 1508
CustomPicture = "MDIForm1.frx":F84A
MouseOverPicture= "MDIForm1.frx":147FA
Caption = "申购单录入"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 12582912
BackColor = -2147483636
MaskColor = -2147483636
BevelWidth = 0
Layout = 3
MouseOverColor = 16777215
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 57
BackStyle = 0
End
Begin as97Popup.asPopup asPopup2
Height = 855
Left = 120
Top = 1800
Width = 1095
_ExtentX = 1931
_ExtentY = 1508
CustomPicture = "MDIForm1.frx":192CE
MouseOverPicture= "MDIForm1.frx":1DD7E
Caption = "采购开单"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 12582912
BackColor = -2147483636
MaskColor = -2147483636
BevelWidth = 0
Layout = 3
MouseOverColor = 16777215
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 57
BackStyle = 0
End
Begin as97Popup.asPopup asPopup3
Height = 855
Left = 120
Top = 2880
Width = 1095
_ExtentX = 1931
_ExtentY = 1508
CustomPicture = "MDIForm1.frx":22B63
MouseOverPicture= "MDIForm1.frx":2729B
Caption = "订单收货"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 12582912
BackColor = -2147483636
MaskColor = -2147483636
BevelWidth = 0
Layout = 3
MouseOverColor = 16777215
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 57
BackStyle = 0
End
Begin as97Popup.asPopup asPopup5
Height = 855
Left = 120
Top = 3960
Width = 1095
_ExtentX = 1931
_ExtentY = 1508
CustomPicture = "MDIForm1.frx":2B824
MouseOverPicture= "MDIForm1.frx":30422
Caption = "库存查询"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 12582912
BackColor = -2147483636
MaskColor = -2147483636
BevelWidth = 0
Layout = 3
MouseOverColor = 16777215
ScaleWidth = 73
ScaleMode = 0
ScaleHeight = 57
BackStyle = 0
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "导航栏"
ForeColor = &H00FFFFFF&
Height = 180
Left = 360
TabIndex = 3
Top = 30
Width = 540
End
Begin VB.Shape Shape1
BackColor = &H006A240A&
BackStyle = 1 'Opaque
BorderStyle = 0 'Transparent
Height = 270
Left = 0
Top = 0
Width = 1485
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "快捷栏"
ForeColor = &H00FFFFFF&
Height = 180
Left = 360
TabIndex = 2
Top = 45
Width = 540
End
End
Begin VB.PictureBox Picture2
Align = 1 'Align Top
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Height = 495
Left = 0
ScaleHeight = 495
ScaleWidth = 9975
TabIndex = 0
Top = 0
Width = 9975
End
Begin VB.Menu cgmanage
Caption = "采购管理"
Begin VB.Menu cgjhmge
Caption = "采购计划管理"
Begin VB.Menu sgdinput
Caption = "申购单录入"
End
Begin VB.Menu sgdsh
Caption = "申购单审核"
End
Begin VB.Menu shengchencg
Caption = "生成采购订单"
End
End
Begin VB.Menu cgddmge
Caption = "采购订单管理"
Begin VB.Menu cgkd
Caption = "采购开单"
End
Begin VB.Menu cgkds
Caption = "采购开单审核"
End
Begin VB.Menu cgkdzz
Caption = "采购开单中止"
End
End
Begin VB.Menu cgshmge
Caption = "采购收货管理"
Begin VB.Menu ddshouhuo
Caption = "订单收货处理"
End
Begin VB.Menu exithuo
Caption = "退货处理 "
End
Begin VB.Menu cggz
Caption = "采购过帐处理"
End
End
End
Begin VB.Menu jichumanage
Caption = "基础信息管理"
Begin VB.Menu shopxxmge
Caption = "商品信息管理"
End
Begin VB.Menu servemge
Caption = "供应商信息管理"
Begin VB.Menu serveweihu
Caption = "供应商信息维护"
End
Begin VB.Menu servestat
Caption = "供应商供货统计"
End
Begin VB.Menu serveexit
Caption = "供应商退货统计"
End
Begin VB.Menu servesellstat
Caption = "供货商供应数量统计"
End
End
End
Begin VB.Menu findmanage
Caption = "查询管理"
Begin VB.Menu kuvsji
Caption = "库存不足与积压查询"
End
Begin VB.Menu kusee
Caption = "库存查看"
End
Begin VB.Menu shenggouvsdd
Caption = "申购单与订单查询"
End
End
Begin VB.Menu syttem
Caption = "系统"
Begin VB.Menu usermanage
Caption = "用户管理"
End
Begin VB.Menu exitsystem
Caption = "退出系统"
End
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'作者：性灵工作室
'发布日期：2007/03/03
'描 述：简单小型超市采购系统
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Sub asPopup1_Click(Cancel As Boolean)
If system(0) = False Then
MsgBox "无此权限!"
Exit Sub
End If
Call sgdinput_Click
End Sub
Private Sub asPopup2_Click(Cancel As Boolean)
Call cgkd_Click
End Sub
Private Sub asPopup3_Click(Cancel As Boolean)
Call ddshouhuo_Click
End Sub
Private Sub asPopup5_Click(Cancel As Boolean)
Form1.Show
End Sub
Private Sub cggz_Click()
Form6.Show 1
End Sub
Private Sub cgkd_Click()
Form5.Show 1
End Sub
Private Sub cgkds_Click()
Form5.Show 1
End Sub
Private Sub cgkdzz_Click()
Form5.Show 1
End Sub
Private Sub ddshouhuo_Click()
Form6.Show 1
End Sub
Private Sub exithuo_Click()
Form6.Show 1
End Sub
Private Sub exitsystem_Click()
End
End Sub
Private Sub kusee_Click()
Form1.Show 1
End Sub
Private Sub kuvsji_Click()
Form1.Show 1
End Sub
Private Sub MDIForm_Load()
Set cg1 = cnn.Execute("select * from 用户管理 where 用户名='" & loginname & "'")
For i = 0 To 11
system(i) = cg1.Fields(i + 2)
Next
End Sub
Private Sub serveexit_Click()
Form2.Show 1
End Sub
Private Sub servesellstat_Click()
Form2.Show 1
End Sub
Private Sub servestat_Click()
Form2.Show 1
End Sub
Private Sub serveweihu_Click()
If system(10) = False Then
MsgBox "无此权限!"
Exit Sub
End If
purveys.Show 1
End Sub
Private Sub sgdinput_Click()
If system(0) = False Then
MsgBox "无此权限!"
Exit Sub
End If
Form4.Show 1
End Sub
Private Sub sgdsh_Click()
Form4.Show 1
End Sub
Private Sub shengchencg_Click()
Form4.Show 1
End Sub
Private Sub shenggouvsdd_Click()
Form3.Show 1
End Sub
Private Sub shopxxmge_Click()
If system(9) = False Then
MsgBox "无此权限!"
Exit Sub
End If
ware.Show 1
End Sub
Private Sub usermanage_Click()
If system(11) = False Then
MsgBox "无此权限!"
Exit Sub
End If
cx.Show 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -