main.frm

vb数据库编程资料

VERSION 5.00
Begin VB.Form tsxxgl 
   Caption         =   "Form1"
   ClientHeight    =   4560
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6345
   LinkTopic       =   "Form1"
   ScaleHeight     =   4560
   ScaleWidth      =   6345
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu menu1 
      Caption         =   "数据维护"
      Begin VB.Menu menu11 
         Caption         =   "借书证信息维护"
      End
      Begin VB.Menu menu12 
         Caption         =   "图书信息维护"
      End
      Begin VB.Menu menu13 
         Caption         =   "借书信息维护"
      End
   End
   Begin VB.Menu menu2 
      Caption         =   "信息查询"
      Begin VB.Menu menu21 
         Caption         =   "借书证信息查询"
         Begin VB.Menu menu211 
            Caption         =   "按图书证号"
         End
         Begin VB.Menu menu212 
            Caption         =   "按姓名"
         End
         Begin VB.Menu menu213 
            Caption         =   "按单位"
         End
      End
      Begin VB.Menu menu22 
         Caption         =   "图书信息查询"
         Begin VB.Menu menu221 
            Caption         =   "按书号"
         End
         Begin VB.Menu menu222 
            Caption         =   "按出版社"
         End
         Begin VB.Menu menu223 
            Caption         =   "按作者"
         End
      End
      Begin VB.Menu menu23 
         Caption         =   "借书信息查询"
         Begin VB.Menu menu231 
            Caption         =   "按借书证号"
         End
         Begin VB.Menu menu232 
            Caption         =   "按书号"
         End
         Begin VB.Menu menu233 
            Caption         =   "按日期"
         End
         Begin VB.Menu menu234 
            Caption         =   "按日期范围"
         End
      End
   End
   Begin VB.Menu menu3 
      Caption         =   "系统维护"
      Begin VB.Menu menu31 
         Caption         =   "管理员登录"
      End
      Begin VB.Menu menu32 
         Caption         =   "注册新用户"
      End
      Begin VB.Menu menu33 
         Caption         =   "用户口令更改"
      End
      Begin VB.Menu menu34 
         Caption         =   "管理员口令修改"
      End
      Begin VB.Menu menu35 
         Caption         =   "-"
      End
      Begin VB.Menu menu36 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "tsxxgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  menu32.Enabled = gly
  menu34.Enabled = gly
  menu31.Enabled = Not gly
  menu33.Enabled = Not gly
End Sub

Private Sub menu12_Click()
   tsgl.Show
End Sub

Private Sub menu32_Click()
  zcxyh.Show
End Sub

Private Sub menu34_Click()
  glyklsg.Show
End Sub