?? frmmain.frm
字號:
VERSION 5.00
Begin VB.Form frmMain
Caption = "水電費管理系統"
ClientHeight = 6975
ClientLeft = 2310
ClientTop = 2355
ClientWidth = 10740
LinkTopic = "Form2"
ScaleHeight = 6975
ScaleWidth = 10740
Begin VB.PictureBox Picture1
AutoSize = -1 'True
Height = 15420
Left = 0
Picture = "frmMain.frx":0000
ScaleHeight = 15360
ScaleWidth = 19200
TabIndex = 0
Top = 360
Width = 19260
End
Begin VB.Line Line2
BorderColor = &H80000005&
X1 = 0
X2 = 15240
Y1 = 10
Y2 = 10
End
Begin VB.Line Line1
X1 = 0
X2 = 15240
Y1 = 0
Y2 = 0
End
Begin VB.Menu Mnu_in_update
Caption = "數據管理(&I)"
Begin VB.Menu Mnu_Water
Caption = "用戶信息輸入(&B)..."
Shortcut = ^B
End
Begin VB.Menu Mnu_GL
Caption = "用戶信息管理(&G)..."
Shortcut = ^G
End
Begin VB.Menu Mnu_e
Caption = "水電費數據輸入(&U)..."
Shortcut = ^U
End
Begin VB.Menu Mnu_eGL
Caption = "水電費數據管理(&T)..."
Shortcut = ^T
End
Begin VB.Menu Mnu_F
Caption = "-"
End
Begin VB.Menu Mnu_end
Caption = "退出(&X)"
Shortcut = ^X
End
End
Begin VB.Menu Mnu_Query
Caption = "用戶查詢(&Q)"
Begin VB.Menu Mnu_Qry_W
Caption = "用戶信息查詢(&Y)..."
Shortcut = ^Y
End
Begin VB.Menu Mnu_Qry_E
Caption = "水電費查詢(&S)..."
Shortcut = ^S
End
Begin VB.Menu MNu_kk
Caption = "-"
End
Begin VB.Menu Mnu_Com
Caption = "計算器(&J)"
Shortcut = ^J
End
End
Begin VB.Menu Mnu_Print
Caption = "統計報表(&P)"
Begin VB.Menu Mnu_MonTT
Caption = "交費情況統計(&N)"
End
Begin VB.Menu Mnu_TJ_W
Caption = "月總各項統計(&V)"
End
End
Begin VB.Menu Mnu_G
Caption = "系統管理(&Z)"
Begin VB.Menu Mnu_password
Caption = "密碼修改(&M)..."
End
Begin VB.Menu Mnu_S
Caption = "-"
End
Begin VB.Menu Mnu_G_Copy
Caption = "數據備份..."
End
Begin VB.Menu Mnu_G_H
Caption = "數據恢復..."
End
End
Begin VB.Menu Mnu_Help
Caption = "幫助(&H)"
Begin VB.Menu Mnu_zixun
Caption = "相關資迅"
End
Begin VB.Menu Mnu_Z
Caption = "-"
End
Begin VB.Menu Mnu_About
Caption = "關于(&A)..."
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Mnu_About_Click()
frmAbout.Show
End Sub
Private Sub Mnu_Com_Click()
Shell "C:\WINDOWS\system32\calc.exe"
End Sub
Private Sub Mnu_e_Click()
frmSDin.Show
End Sub
Private Sub Mnu_eGL_Click()
frmSDGL.Show
End Sub
Private Sub Mnu_end_Click()
End
End Sub
Private Sub Mnu_G_Copy_Click()
frmCopy.Show
End Sub
Private Sub Mnu_G_H_Click()
frmBackup.Show
End Sub
Private Sub Mnu_GL_Click()
frmGL.Show
End Sub
Private Sub Mnu_MonTT_Click()
frmMoney.Show
End Sub
Private Sub Mnu_password_Click()
frmPWupdate.Show
End Sub
Private Sub Mnu_Qry_E_Click()
frmSDcx.Show
End Sub
Private Sub Mnu_Qry_W_Click()
frmyhcx.Show
End Sub
Private Sub Mnu_TJ_W_Click()
frmTJ.Show
End Sub
Private Sub Mnu_Water_Click()
frmNew.Show
End Sub
Private Sub Mnu_zixun_Click()
Form2.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -