?? renshiguanli.frm
字號(hào):
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmmain
AutoRedraw = -1 'True
Caption = "大學(xué)人事管理"
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:\大學(xué)人事管理\人事管理\reshi.mdb"
DefaultCursorType= 0 '缺省游標(biāo)
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 = "學(xué)生(&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 = "關(guān)于(&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("輸入要?jiǎng)h除的人的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
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -