?? 主界面.frm
字號:
VERSION 5.00
Begin VB.Form Form3
Caption = "主界面"
ClientHeight = 3270
ClientLeft = 165
ClientTop = 855
ClientWidth = 6525
LinkTopic = "Form3"
ScaleHeight = 3270
ScaleWidth = 6525
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture1
Height = 3255
Left = 0
Picture = "主界面.frx":0000
ScaleHeight = 3195
ScaleWidth = 6435
TabIndex = 0
Top = 0
Width = 6495
End
Begin VB.Menu wzb
Caption = "物資表操作"
End
Begin VB.Menu glyb
Caption = "管理員表操作"
End
Begin VB.Menu gxb
Caption = "關系表操作"
End
Begin VB.Menu jcb
Caption = "進倉表操作"
End
Begin VB.Menu ccb
Caption = "出倉表操作"
End
Begin VB.Menu exit
Caption = "退出"
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ccb_Click()
If myrs.State = adStateOpen Then
myrs.Close
End If
myrs.Open "出倉表", mycon, adOpenStatic, adLockOptimistic
Form6.Caption = "出倉表操作"
Form6.Show
End Sub
Private Sub exit_Click()
Unload Me
End Sub
Private Sub glyb_Click()
If myrs.State = adStateOpen Then
myrs.Close
End If
myrs.Open "管理員表", mycon, adOpenStatic, adLockOptimistic
Form4.Caption = "管理員表操作"
Form4.Show
End Sub
Private Sub gxb_Click()
If myrs.State = adStateOpen Then
myrs.Close
End If
myrs.Open "管理表", mycon, adOpenStatic, adLockOptimistic
Form5.Caption = "管理表操作"
Form5.Show
End Sub
Private Sub wzb_Click()
If myrs.State = adStateOpen Then
myrs.Close
End If
myrs.Open "物資表", mycon, adOpenStatic, adLockOptimistic
Form16.Caption = "物資表操作"
Form16.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -