renshiguanli.frm

功能比较全

VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmmain 
   AutoRedraw      =   -1  'True
   Caption         =   "大学人事管理"
   ClientHeight    =   4440
   ClientLeft      =   3255
   ClientTop       =   6510
   ClientWidth     =   6735
   LinkTopic       =   "Form1"
   ScaleHeight     =   4440
   ScaleWidth      =   6735
   StartUpPosition =   2  '屏幕中心
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "G:\大学人事管理\人事管理\reshi.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   1995
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "reshi"
      Top             =   2835
      Width           =   1905
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "renshiguanli.frx":0000
      Height          =   4215
      Left            =   105
      OleObjectBlob   =   "renshiguanli.frx":0014
      TabIndex        =   0
      Top             =   105
      Width           =   6525
   End
   Begin VB.Menu mnufile 
      Caption         =   "文件(&F)"
      NegotiatePosition=   1  'Left
      Begin VB.Menu mnunew 
         Caption         =   "新建(&N)"
         Begin VB.Menu mnuteacher 
            Caption         =   "教师(&T)"
            Shortcut        =   ^T
         End
         Begin VB.Menu mnustudent 
            Caption         =   "学生(&S)"
            Shortcut        =   ^S
         End
         Begin VB.Menu mnuwork 
            Caption         =   "职工(&W)"
            Shortcut        =   ^W
         End
      End
      Begin VB.Menu mnucorrect 
         Caption         =   "修改(&C)"
         Begin VB.Menu mnumodify 
            Caption         =   "修改(&M)"
            Shortcut        =   ^M
         End
         Begin VB.Menu mnudelete 
            Caption         =   "删除(&D)"
            Shortcut        =   ^D
         End
      End
      Begin VB.Menu mnuserch 
         Caption         =   "查找(&F)"
         Shortcut        =   ^F
      End
      Begin VB.Menu mnurefresh 
         Caption         =   "刷新(&R)"
         Shortcut        =   ^R
      End
      Begin VB.Menu mnuexit 
         Caption         =   "退出(&E)"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu mnuhelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuabout 
         Caption         =   "关于(&A)"
         Shortcut        =   ^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 DBGrid1_Click()
DBGrid1.DataChanged = False
End Sub

Private Sub DBGrid1_DblClick()
frmsearch.Text1(0) = Data1.Recordset.Fields("name")
frmsearch.Visible = False
 Call frmsearch.cmdsearch_Click
End Sub

Private Sub Form_Load()

Data1.Visible = False
Load frminfo
End Sub

Private Sub Form_Resize()
DBGrid1.Width = frmmain.Width - 300
DBGrid1.Height = frmmain.Height - 1000
End Sub

Private Sub mnuabout_Click()
Load frminfo
End Sub

Private Sub mnudelete_Click()
Dim vbstr As String
Dim I As Integer
vbstr = (InputBox("输入要删除的人的ID"))
Data1.Recordset.MoveFirst
For I = 0 To Data1.Recordset.RecordCount - 1
If Data1.Recordset.Fields("ID") = vbstr Then
Data1.Recordset.Delete
Exit Sub
Else
Data1.Recordset.MoveNext
End If
Next I
End Sub

Private Sub mnuexit_Click()
End
End Sub

Private Sub mnumodify_Click()
Load frmmodify
frmmodify.Visible = True
End Sub

Private Sub mnurefresh_Click()
Data1.Refresh
DBGrid1.Refresh
End Sub

Private Sub mnuserch_Click()
frmsearch.Visible = True
frmmain.Enabled = False
End Sub

Private Sub mnustudent_Click()
frmstudent.Enabled = True
frmstudent.Visible = True
End Sub

Private Sub mnuteacher_Click()
frmstudent.Enabled = True
frmteacher.Visible = True
End Sub