📄 frmmain.frm
字号:
VERSION 5.00
Begin VB.Form frmMain
Caption = "真功夫进销存系统（初级）"
ClientHeight = 7350
ClientLeft = 1170
ClientTop = 2925
ClientWidth = 9930
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 7350
ScaleWidth = 9930
Begin VB.PictureBox Pic
Height = 1365
Index = 2
Left = 30
Picture = "frmMain.frx":0000
ScaleHeight = 1305
ScaleWidth = 9810
TabIndex = 2
Top = 30
Width = 9870
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "QQ:75347626,MSN:whailin2000@hotmail.com"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Index = 1
Left = 3330
TabIndex = 6
Top = 900
Width = 6045
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "制造企业进销存系统(初级)"
BeginProperty Font
Name = "隶书"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 435
Index = 0
Left = 2520
TabIndex = 5
Top = 330
Width = 6615
End
End
Begin VB.PictureBox Pic
Height = 5925
Index = 1
Left = 2250
ScaleHeight = 5865
ScaleWidth = 7545
TabIndex = 1
Top = 1410
Width = 7605
Begin VB.PictureBox fPic
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000004&
ForeColor = &H80000008&
Height = 705
Index = 0
Left = 720
ScaleHeight = 675
ScaleWidth = 1455
TabIndex = 4
Top = 510
Width = 1485
End
End
Begin VB.PictureBox Pic
Height = 5925
Index = 0
Left = 30
ScaleHeight = 5865
ScaleWidth = 2145
TabIndex = 0
Top = 1410
Width = 2205
Begin VB.PictureBox cPic
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000004&
ForeColor = &H80000008&
Height = 435
Index = 0
Left = 210
ScaleHeight = 405
ScaleWidth = 1875
TabIndex = 3
Top = 480
Width = 1905
End
End
Begin VB.Menu mJczl
Caption = "基础资料(&J)"
Begin VB.Menu muJczl
Caption = ""
Index = 0
End
End
Begin VB.Menu mXsGl
Caption = "销售管理(&X)"
Begin VB.Menu muXsGl
Caption = ""
Index = 0
End
End
Begin VB.Menu mCgGl
Caption = "采购管理(&C)"
Begin VB.Menu muCgGl
Caption = ""
Index = 0
End
End
Begin VB.Menu mKcGl
Caption = "库存管理(&K)"
Begin VB.Menu muKcGl
Caption = ""
Index = 0
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'QQ:75347626
'MSN:whailin2000@hotmail.com
Option Explicit
Dim mWidth As Double, mHeight As Double
Private Sub cPic_Click(Index As Integer)
Dim I As Integer
Dim mPic As PictureBox
On Error GoTo Errorhandle
fPic(0).Visible = False
For I = 1 To fPic().Count - 1
Unload fPic(I)
Next
Select Case Index
Case 0
Set fPic(0).Picture = LoadPicture(App.Path & "\PIC\FRMHWBM.BMP")
fPic(0).Tag = "FRMHWBM"
fPic(0).Left = fPic(0).Width / 2
fPic(0).Top = fPic(0).Height / 2
fPic(0).BorderStyle = 0
fPic(0).Visible = True
Load fPic(1)
Set fPic(1).Picture = LoadPicture(App.Path & "\PIC\FRMHWCK.BMP")
fPic(1).Tag = "FRMHWCK"
fPic(1).Left = fPic(1).Width * 2
fPic(1).Top = fPic(1).Height / 2
fPic(1).Visible = True
Load fPic(2)
Set fPic(2).Picture = LoadPicture(App.Path & "\PIC\FRMHWPDRC.BMP")
fPic(2).Tag = "FRMHWPDRC"
fPic(2).Left = fPic(2).Width * 3 + fPic(2).Width / 2
fPic(2).Top = fPic(2).Height / 2
fPic(2).Visible = True
Load fPic(3)
Set fPic(3).Picture = LoadPicture(App.Path & "\PIC\FRMHWBFRC.BMP")
fPic(3).Tag = "FRMHWBFRC"
fPic(3).Left = fPic(3).Width * 5
fPic(3).Top = fPic(3).Height / 2
fPic(3).Visible = True
Load fPic(4)
Set fPic(4).Picture = LoadPicture(App.Path & "\PIC\FRMXSKH.BMP")
fPic(4).Tag = "FRMXSKH"
fPic(4).Left = fPic(4).Width / 2
fPic(4).Top = fPic(4).Height * 2
fPic(4).Visible = True
Load fPic(5)
Set fPic(5).Picture = LoadPicture(App.Path & "\PIC\FRMCGGYS.BMP")
fPic(5).Tag = "FRMCGGYS"
fPic(5).Left = fPic(5).Width * 2
fPic(5).Top = fPic(5).Height * 2
fPic(5).Visible = True
Case 1
Set fPic(0).Picture = LoadPicture(App.Path & "\PIC\FRMXSSOD.BMP")
fPic(0).Tag = "FRMXSSOD"
fPic(0).Left = fPic(0).Width / 2
fPic(0).Top = fPic(0).Height / 2
fPic(0).BorderStyle = 0
fPic(0).Visible = True
Load fPic(1)
Set fPic(1).Picture = LoadPicture(App.Path & "\PIC\FRMXSFHD.BMP")
fPic(1).Tag = "FRMXSFHD"
fPic(1).Left = fPic(1).Width * 2
fPic(1).Top = fPic(1).Height / 2
fPic(1).Visible = True
Load fPic(2)
Set fPic(2).Picture = LoadPicture(App.Path & "\PIC\FRMXSTHD.BMP")
fPic(2).Tag = "FRMXSTHD"
fPic(2).Left = fPic(2).Width * 3 + fPic(2).Width / 2
fPic(2).Top = fPic(2).Height / 2
fPic(2).Visible = True
Case 2
Set fPic(0).Picture = LoadPicture(App.Path & "\PIC\FRMCGPOD.BMP")
fPic(0).Tag = "FRMCGPOD"
fPic(0).Left = fPic(0).Width / 2
fPic(0).Top = fPic(0).Height / 2
fPic(0).BorderStyle = 0
fPic(0).Visible = True
Load fPic(1)
Set fPic(1).Picture = LoadPicture(App.Path & "\PIC\FRMCGSHD.BMP")
fPic(1).Tag = "FRMCGSHD"
fPic(1).Left = fPic(1).Width * 2
fPic(1).Top = fPic(1).Height / 2
fPic(1).Visible = True
Load fPic(2)
Set fPic(2).Picture = LoadPicture(App.Path & "\PIC\FRMCGTHD.BMP")
fPic(2).Tag = "FRMCGTHD"
fPic(2).Left = fPic(2).Width * 3 + fPic(2).Width / 2
fPic(2).Top = fPic(2).Height / 2
fPic(2).Visible = True
Case 3
Set fPic(0).Picture = LoadPicture(App.Path & "\PIC\FRMKCDBD.BMP")
fPic(0).Tag = "FRMKCDBD"
fPic(0).Left = fPic(0).Width / 2
fPic(0).Top = fPic(0).Height / 2
fPic(0).BorderStyle = 0
fPic(0).Visible = True
Load fPic(1)
Set fPic(1).Picture = LoadPicture(App.Path & "\PIC\FRMKCPDD.BMP")
fPic(1).Tag = "FRMKCPDD"
fPic(1).Left = fPic(1).Width * 2
fPic(1).Top = fPic(1).Height / 2
fPic(1).Visible = True
Load fPic(2)
Set fPic(2).Picture = LoadPicture(App.Path & "\PIC\FRMKCBFD.BMP")
fPic(2).Tag = "FRMKCBFD"
fPic(2).Left = fPic(2).Width * 3 + fPic(2).Width / 2
fPic(2).Top = fPic(2).Height / 2
fPic(2).Visible = True
End Select
Exit Sub
Errorhandle:
MsgBox Err.Description
End Sub
Private Sub Form_Load()
On Error GoTo Errorhandle
mWidth = Me.Width
mHeight = Me.Height
Pic(0).BackColor = RGB(186, 193, 212)
Pic(1).BackColor = RGB(233, 238, 241)
Pic(0).BorderStyle = 0
Pic(1).BorderStyle = 0
Pic(2).BorderStyle = 0
Set cPic(0).Picture = LoadPicture(App.Path & "\PIC\JCZL_B.BMP")
cPic(0).BorderStyle = 0
cPic(0).Top = cPic(0).Height / 2
cPic(0).Visible = True
Load cPic(1)
Set cPic(1).Picture = LoadPicture(App.Path & "\PIC\XSGL_B.BMP")
cPic(1).BorderStyle = 0
cPic(1).Top = cPic(1).Height * 3
cPic(1).Visible = True
Load cPic(2)
Set cPic(2).Picture = LoadPicture(App.Path & "\PIC\CGGL_B.BMP")
cPic(2).BorderStyle = 0
cPic(2).Top = cPic(2).Height * 5
cPic(2).Visible = True
Load cPic(3)
Set cPic(3).Picture = LoadPicture(App.Path & "\PIC\KCGL_B.BMP")
cPic(3).BorderStyle = 0
cPic(3).Top = cPic(3).Height * 7
cPic(3).Visible = True
cPic_Click 0
LoadMenu
Exit Sub
Errorhandle:
MsgBox Err.Description
End Sub
Private Sub Form_Resize()
On Error GoTo Errorhandle
Pic(0).Height = Pic(0).Height + Me.Height - mHeight
Pic(2).Width = Pic(2).Width + Me.Width - mWidth
Pic(1).Width = Pic(1).Width + Me.Width - mWidth
Pic(1).Height = Pic(1).Height + Me.Height - mHeight
mWidth = Me.Width
mHeight = Me.Height
Exit Sub
Errorhandle:
MsgBox Err.Description
End Sub
Private Sub fPic_DblClick(Index As Integer)
On Error GoTo Errorhandle
ShowForm fPic(Index).Tag
Exit Sub
Errorhandle:
MsgBox Err.Description
End Sub
Private Sub cPic_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Set cPic(Index).MouseIcon = LoadPicture(App.Path & "\PIC\MOUSE.ICO")
cPic(Index).MousePointer = 99
Exit Sub
Errorhandle:
MsgBox Err.Description
End Sub
Private Sub fPic_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Set fPic(Index).MouseIcon = LoadPicture(App.Path & "\PIC\MOUSE.ICO")
fPic(Index).MousePointer = 99
Exit Sub
Errorhandle:
MsgBox Err.Description
End Sub
Private Sub LoadMenu()
On Error GoTo Errorhandle
muJczl(muJczl.UBound).Caption = "货物基本资料"
muJczl(muJczl.UBound).Tag = "FRMHWBM"
Load muJczl(muJczl.UBound + 1)
muJczl(muJczl.UBound).Caption = "仓库资料"
muJczl(muJczl.UBound).Tag = "FRMHWCK"
Load muJczl(muJczl.UBound + 1)
muJczl(muJczl.UBound).Caption = "盘点差异原因"
muJczl(muJczl.UBound).Tag = "FRMHWPDRC"
Load muJczl(muJczl.UBound + 1)
muJczl(muJczl.UBound).Caption = "货物报废原因"
muJczl(muJczl.UBound).Tag = "FRMHWBFRC"
Load muJczl(muJczl.UBound + 1)
muJczl(muJczl.UBound).Caption = "客户档案"
muJczl(muJczl.UBound).Tag = "FRMXSKH"
Load muJczl(muJczl.UBound + 1)
muJczl(muJczl.UBound).Caption = "供应商档案"
muJczl(muJczl.UBound).Tag = "FRMCGGYS"
muXsGl(muXsGl.UBound).Caption = "销售订单"
muXsGl(muXsGl.UBound).Tag = "FRMXSSOD"
Load muXsGl(muXsGl.UBound + 1)
muXsGl(muXsGl.UBound).Caption = "销售发货单"
muXsGl(muXsGl.UBound).Tag = "FRMXSFHD"
Load muXsGl(muXsGl.UBound + 1)
muXsGl(muXsGl.UBound).Caption = "销售退货单"
muXsGl(muXsGl.UBound).Tag = "FRMXSTHD"
muCgGl(muCgGl.UBound).Caption = "采购订单"
muCgGl(muCgGl.UBound).Tag = "FRMCGPOD"
Load muCgGl(muCgGl.UBound + 1)
muCgGl(muCgGl.UBound).Caption = "采购收货单"
muCgGl(muCgGl.UBound).Tag = "FRMCGSHD"
Load muCgGl(muCgGl.UBound + 1)
muCgGl(muCgGl.UBound).Caption = "采购退货单"
muCgGl(muCgGl.UBound).Tag = "FRMCGTHD"
muKcGl(muKcGl.UBound).Caption = "库存调拨单"
muKcGl(muKcGl.UBound).Tag = "FRMKCDBD"
Load muKcGl(muKcGl.UBound + 1)
muKcGl(muKcGl.UBound).Caption = "库存盘点单"
muKcGl(muKcGl.UBound).Tag = "FRMKCPDD"
Load muKcGl(muKcGl.UBound + 1)
muKcGl(muKcGl.UBound).Caption = "库存报废单"
muKcGl(muKcGl.UBound).Tag = "FRMKCBFD"
Load muKcGl(muKcGl.UBound + 1)
muKcGl(muKcGl.UBound).Caption = "货物库存查询"
muKcGl(muKcGl.UBound).Tag = "FRMHWKCQUERY"
Exit Sub
Errorhandle:
Err.Raise vbObjectError + 1, , "LoadMenu" & Err.Description
End Sub
Private Sub ShowForm(vFormName As String)
On Error GoTo Errorhandle
Select Case UCase(vFormName)
Case "FRMHWBM"
frmHwbm.Show
Case "FRMHWCK"
frmHwCk.Show
Case "FRMHWPDRC"
frmHwPdRc.Show
Case "FRMHWBFRC"
frmHwBfrc.Show
Case "FRMXSKH"
frmXsKh.Show
Case "FRMCGGYS"
frmCgGys.Show
Case "FRMXSSOD"
frmXsSod.Show
Case "FRMXSFHD"
frmXsFhd.Show
Case "FRMXSTHD"
frmXsThd.Show
Case "FRMCGPOD"
frmCgPod.Show
Case "FRMCGSHD"
frmCgShd.Show
Case "FRMCGTHD"
frmCgThd.Show
Case "FRMKCDBD"
frmKcDbd.Show
Case "FRMKCPDD"
frmKcPdd.Show
Case "FRMKCBFD"
frmKcbfd.Show
Case "FRMHWKCQUERY"
frmHwKcQuery.Show
End Select
Exit Sub
Errorhandle:
Err.Raise vbObjectError + 1, , "ShowForm" & Err.Description
End Sub
Private Sub muCgGl_Click(Index As Integer)
On Error GoTo Errorhandle
ShowForm muCgGl(Index).Tag
Exit Sub
Errorhandle:
MsgBox Err.Description
End Sub
Private Sub muJczl_Click(Index As Integer)
On Error GoTo Errorhandle
ShowForm muJczl(Index).Tag
Exit Sub
Errorhandle:
MsgBox Err.Description
End Sub
Private Sub muKcGl_Click(Index As Integer)
On Error GoTo Errorhandle
ShowForm muKcGl(Index).Tag
Exit Sub
Errorhandle:
MsgBox Err.Description
End Sub
Private Sub muXsGl_Click(Index As Integer)
On Error GoTo Errorhandle
ShowForm muXsGl(Index).Tag
Exit Sub
Errorhandle:
MsgBox Err.Description
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -