?? frmmain.frm
字號:
VERSION 5.00
Begin VB.Form frmMain
AutoRedraw = -1 'True
Caption = "檔案管理系統 2000 (預覽版)"
ClientHeight = 5688
ClientLeft = 1452
ClientTop = 372
ClientWidth = 8520
BeginProperty Font
Name = "宋體"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MaxButton = 0 'False
ScaleHeight = 5688
ScaleWidth = 8520
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdImport
Caption = "數據導入(&I)"
Height = 372
Left = 6600
TabIndex = 4
Top = 4080
Width = 1452
End
Begin VB.CommandButton cmdPrint
Caption = "打印檔案(&P)"
Height = 372
Left = 6600
TabIndex = 2
Top = 2640
Width = 1452
End
Begin VB.CommandButton cmdModify
Caption = "修改檔案(&M)"
Height = 372
Left = 6600
TabIndex = 3
Top = 3360
Width = 1452
End
Begin VB.CommandButton cmdSeek
Caption = "查詢檔案(&S)"
Height = 372
Left = 6600
TabIndex = 1
Top = 1920
Width = 1452
End
Begin VB.CommandButton cmdInput
Caption = "輸入檔案(&I)"
Height = 372
Left = 6600
TabIndex = 0
Top = 1200
Width = 1452
End
Begin VB.Menu M_User
Caption = "用戶(&U)"
Begin VB.Menu U_LogIn
Caption = "登錄(&L)"
Shortcut = ^L
End
Begin VB.Menu U_LogOut
Caption = "注銷(&C)"
Enabled = 0 'False
Shortcut = ^C
End
Begin VB.Menu U_Manage
Caption = "用戶管理(&U)"
Enabled = 0 'False
Begin VB.Menu T_Password
Caption = "密碼管理(&P)"
End
Begin VB.Menu U_TopAttrib
Caption = "高級屬性(&T)"
End
End
Begin VB.Menu U_Cut
Caption = "-"
End
Begin VB.Menu U_Quit
Caption = "退出(&X)"
Shortcut = ^Q
End
End
Begin VB.Menu M_File
Caption = "檔案管理(&F)"
WindowList = -1 'True
Begin VB.Menu F_Input
Caption = "輸入檔案(&I)"
Shortcut = ^I
End
Begin VB.Menu F_Search
Caption = "查詢檔案(&S)"
Shortcut = ^S
End
Begin VB.Menu F_Print
Caption = "打印檔案(&P)"
Shortcut = ^P
End
Begin VB.Menu F_Modify
Caption = "修改檔案(&M)"
Shortcut = ^M
End
End
Begin VB.Menu M_Lend
Caption = "借用管理(&L)"
Enabled = 0 'False
Begin VB.Menu L_Register
Caption = "借用歸還案卷登記(&R)"
End
Begin VB.Menu L_Seek
Caption = "查詢借用歸還情況(&S)"
End
Begin VB.Menu L_Print
Caption = "打印借用歸還登記總表(&F)"
Shortcut = ^F
End
Begin VB.Menu L_Notify
Caption = "打印催還案卷通知(&N)"
Shortcut = ^N
End
End
Begin VB.Menu M_Data
Caption = "數據管理(&D)"
Begin VB.Menu D_Creat
Caption = "創建(&T)"
Enabled = 0 'False
Begin VB.Menu C_Zr
Caption = "責任者(&Z)"
End
Begin VB.Menu C_Zt
Caption = "主題詞(&T)"
End
End
Begin VB.Menu D_Count
Caption = "數據統計(&C)"
Enabled = 0 'False
Shortcut = ^D
End
Begin VB.Menu D_Cut
Caption = "-"
End
Begin VB.Menu D_Backup
Caption = "備份數據(&B)"
Enabled = 0 'False
Shortcut = ^B
End
Begin VB.Menu D_Restore
Caption = "恢復數據(&R)"
Enabled = 0 'False
Shortcut = ^R
End
Begin VB.Menu D_Swap
Caption = "數據轉換(&W)"
Begin VB.Menu D_Import
Caption = "導入(&I)"
End
Begin VB.Menu D_Export
Caption = "導出(&E)"
End
End
End
Begin VB.Menu M_Help
Caption = "幫助(&H)"
Begin VB.Menu H_Help
Caption = "ProFiles Manager 2000 幫助主題(&H)"
End
Begin VB.Menu H_About
Caption = "關于 ProFiles Manager 2000(&A)"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public FileManage, FileLevel As Byte
Public FileType, Rights, CZName As String
Private Sub cmdImport_Click()
Call D_Import_Click
End Sub
Private Sub cmdInput_Click()
Call F_Input_Click
End Sub
Private Sub cmdModify_Click()
Call F_Print_Click
End Sub
Private Sub cmdPrint_Click()
Call F_Print_Click
End Sub
Private Sub cmdSeek_Click()
Call F_Search_Click
End Sub
Private Sub D_Import_Click()
Load frmImport
frmImport.Show
End Sub
Private Sub F_Input_Click()
frmMain.FileManage = 1
Load frmFtype
frmFtype.Show
End Sub
Private Sub F_Modify_Click()
frmMain.FileManage = 4
Load frmFtype
frmFtype.Show
End Sub
Private Sub F_Print_Click()
frmMain.FileManage = 3
Load frmFtype
frmFtype.Show
End Sub
Private Sub F_Search_Click()
frmMain.FileManage = 2
Load frmFtype
frmFtype.Show
End Sub
Private Sub Form_Load()
FileLevel = 1
FileType = 1
End Sub
Private Sub U_Quit_Click()
End
End Sub
Private Sub H_About_Click()
Load frmAbout
frmAbout.Show
End Sub
Private Sub U_LogIn_Click()
Load frmLogin
frmLogin.Show
End Sub
Private Sub U_LogOut_Click()
U_LogIn.Enabled = True
U_LogOut.Caption = "注銷(&C)"
U_LogOut.Enabled = False
U_Manage.Enabled = False
M_File.Enabled = False
M_Lend.Enabled = False
M_Data.Enabled = False
U_Manage.Enabled = False
M_File.Enabled = False
M_Lend.Enabled = False
M_Data.Enabled = False
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -