📄 frmgdao.frm
字号:
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 21
Left = 5760
Picture = "frmGdao.frx":24865
Style = 1 'Graphical
TabIndex = 29
Top = 3960
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 20
Left = 4800
Picture = "frmGdao.frx":2497C
Style = 1 'Graphical
TabIndex = 28
Top = 3960
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 19
Left = 3840
Picture = "frmGdao.frx":24A93
Style = 1 'Graphical
TabIndex = 27
Top = 3960
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 18
Left = 2880
Picture = "frmGdao.frx":24BAA
Style = 1 'Graphical
TabIndex = 26
Top = 3960
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 17
Left = 10560
Picture = "frmGdao.frx":24CC1
Style = 1 'Graphical
TabIndex = 25
Top = 2880
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 16
Left = 9600
Picture = "frmGdao.frx":24DD8
Style = 1 'Graphical
TabIndex = 24
Top = 2880
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 15
Left = 8640
Picture = "frmGdao.frx":24EEF
Style = 1 'Graphical
TabIndex = 23
Top = 2880
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 14
Left = 7680
Picture = "frmGdao.frx":25006
Style = 1 'Graphical
TabIndex = 22
Top = 2880
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 13
Left = 6720
Picture = "frmGdao.frx":2511D
Style = 1 'Graphical
TabIndex = 21
Top = 2880
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 12
Left = 5760
Picture = "frmGdao.frx":25234
Style = 1 'Graphical
TabIndex = 20
Top = 2880
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 11
Left = 4800
Picture = "frmGdao.frx":2534B
Style = 1 'Graphical
TabIndex = 19
Top = 2880
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 10
Left = 3840
Picture = "frmGdao.frx":25462
Style = 1 'Graphical
TabIndex = 18
Top = 2880
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 9
Left = 2880
Picture = "frmGdao.frx":25579
Style = 1 'Graphical
TabIndex = 17
Top = 2880
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 8
Left = 10560
Picture = "frmGdao.frx":25690
Style = 1 'Graphical
TabIndex = 16
Top = 1800
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 7
Left = 9600
Picture = "frmGdao.frx":257A7
Style = 1 'Graphical
TabIndex = 15
Top = 1800
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 6
Left = 8640
Picture = "frmGdao.frx":258BE
Style = 1 'Graphical
TabIndex = 14
Top = 1800
Width = 735
End
Begin VB.CommandButton Command9
Height = 495
Left = 360
Picture = "frmGdao.frx":259D5
Style = 1 'Graphical
TabIndex = 6
Top = 5280
Width = 2055
End
Begin VB.CommandButton Command8
Height = 495
Left = 360
Picture = "frmGdao.frx":2A106
Style = 1 'Graphical
TabIndex = 7
Top = 5880
Width = 2055
End
Begin VB.CommandButton Command7
Height = 495
Left = 360
Picture = "frmGdao.frx":2EAEE
Style = 1 'Graphical
TabIndex = 5
Top = 4680
Width = 2055
End
Begin VB.CommandButton Command6
Height = 495
Left = 360
Picture = "frmGdao.frx":3353D
Style = 1 'Graphical
TabIndex = 4
Top = 4080
Width = 2055
End
Begin VB.CommandButton Command5
Height = 495
Left = 360
Picture = "frmGdao.frx":37ECD
Style = 1 'Graphical
TabIndex = 3
Top = 3480
Width = 2055
End
Begin VB.CommandButton Command4
Height = 495
Left = 360
Picture = "frmGdao.frx":3C807
Style = 1 'Graphical
TabIndex = 2
Top = 2880
Width = 2055
End
Begin VB.CommandButton Command3
Height = 495
Left = 360
Picture = "frmGdao.frx":41193
Style = 1 'Graphical
TabIndex = 0
Top = 1680
Width = 2055
End
Begin VB.CommandButton Command2
Height = 495
Left = 360
Picture = "frmGdao.frx":45AD1
Style = 1 'Graphical
TabIndex = 1
Top = 2280
Width = 2055
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 615
Index = 0
Left = 2880
Picture = "frmGdao.frx":4A442
Style = 1 'Graphical
TabIndex = 13
Top = 1800
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 1
Left = 3840
Picture = "frmGdao.frx":4A55D
Style = 1 'Graphical
TabIndex = 12
Top = 1800
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 2
Left = 4800
Picture = "frmGdao.frx":4A674
Style = 1 'Graphical
TabIndex = 11
Top = 1800
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 3
Left = 5760
Picture = "frmGdao.frx":4A78B
Style = 1 'Graphical
TabIndex = 10
Top = 1800
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 4
Left = 6720
Picture = "frmGdao.frx":4A8A2
Style = 1 'Graphical
TabIndex = 9
Top = 1800
Width = 735
End
Begin VB.CommandButton cmdGdao
Appearance = 0 'Flat
Caption = "1"
Height = 735
Index = 5
Left = 7680
Picture = "frmGdao.frx":4A9B9
Style = 1 'Graphical
TabIndex = 8
Top = 1800
Width = 735
End
Begin VB.Menu w
Caption = "w"
Visible = 0 'False
Begin VB.Menu www
Caption = "www"
End
End
End
Attribute VB_Name = "frmMgdao"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private cmdindex As Integer
Private Sub cmdGdao_Click(Index As Integer)
cmdindex = Index
PopupMenu w
End Sub
Private Sub Command2_Click()
Unload Me
frmMadd.Show (1)
End Sub
Private Sub Command3_Click()
Unload Me
frmMsale.Show (1)
End Sub
Private Sub Command4_Click()
Unload Me
frmMdel.Show (1)
End Sub
Private Sub Command5_Click()
Unload Me
frmMpd.Show (1)
End Sub
Private Sub Command6_Click()
Unload Me
frmMgdao.Show (1)
End Sub
Private Sub Command7_Click()
'Unload Me
frmMchpwd.Show (1)
End Sub
Private Sub Command8_Click()
Unload Me
frmMsystem.Show (1)
End Sub
Private Sub Command9_Click()
Unload Me
frmMotc.Show (1)
End Sub
Private Sub www_Click()
MsgBox cmdindex
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -