?? 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 + -