frmmain.frm

档案管理系统,使用vb6+access数据库开发

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