?? frmmain.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmMain
BackColor = &H8000000C&
Caption = "學籍管理系統主界面"
ClientHeight = 3195
ClientLeft = 165
ClientTop = 1020
ClientWidth = 4680
Icon = "frmMain.frx":0000
LinkTopic = "MDIForm1"
Picture = "frmMain.frx":030A
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 0
Top = 2940
Width = 4680
_ExtentX = 8255
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 2619
Text = "======歡迎使用學籍管理系統======"
TextSave = "======歡迎使用學籍管理系統======"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
TextSave = "2004-05-30"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
TextSave = "21:19"
EndProperty
EndProperty
End
Begin VB.Menu System
Caption = "系統(&M)"
Begin VB.Menu Mod_password
Caption = "修改密碼(&P)"
End
Begin VB.Menu SEP1
Caption = "-"
End
Begin VB.Menu EXIT
Caption = "退出系統(&X)"
Shortcut = ^X
End
End
Begin VB.Menu adm_Apart
Caption = "部門信息管理(&D)"
Begin VB.Menu adm_dept
Caption = "系別管理(&B)"
Begin VB.Menu add_dept
Caption = "添加系別名稱(&A)"
Shortcut = +{F12}
End
Begin VB.Menu mod_dept
Caption = "修改系別名稱(&M)"
End
End
Begin VB.Menu adm_major
Caption = "班級管理(&C)"
Begin VB.Menu ADD_Major
Caption = "添加班級名稱(&A)"
Shortcut = ^{F12}
End
Begin VB.Menu mod_major
Caption = "修改班級名稱(&M)"
End
End
Begin VB.Menu sep2
Caption = "-"
End
Begin VB.Menu que_major
Caption = "查詢專業設置(&Q)"
Shortcut = ^Q
End
End
Begin VB.Menu adm_stu
Caption = "學生信息管理(&S)"
Begin VB.Menu add_stu
Caption = "添加學生信息(&A)"
Shortcut = ^S
End
Begin VB.Menu que_stu
Caption = "查詢學生信息(&Q)"
End
Begin VB.Menu sep3
Caption = "-"
End
Begin VB.Menu mod_stu
Caption = "修改學生信息(&M)"
Shortcut = +^{F1}
End
End
Begin VB.Menu adm_teacher
Caption = "教師信息管理(&T)"
Begin VB.Menu add_teacher
Caption = "添加教師信息(&A)"
Shortcut = ^T
End
Begin VB.Menu que_teacher
Caption = "查詢教師信息(&Q)"
End
Begin VB.Menu sep5
Caption = "-"
End
Begin VB.Menu mod_teacher
Caption = "修改教師信息(&M)"
Shortcut = +^{F7}
End
End
Begin VB.Menu adm_user
Caption = "用戶管理(&U)"
Begin VB.Menu mod_user
Caption = "修改用戶信息(&M)"
Shortcut = ^U
End
Begin VB.Menu que_user
Caption = "查詢用戶信息(&Q)"
End
End
Begin VB.Menu help
Caption = "幫助(&H)"
Begin VB.Menu about
Caption = "關于 學籍管理系統(&A)"
Shortcut = +{F1}
End
Begin VB.Menu help_form
Caption = "聯機幫助(&L)"
Shortcut = {F2}
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 about_Click()
frmAbout.Show
End Sub
Private Sub add_dept_Click()
addDept.Show
End Sub
Private Sub ADD_Major_Click()
addMajor.Show
End Sub
Private Sub add_stu_Click()
getMajor.Show
getMajor.Command3.Visible = False
End Sub
Private Sub add_teacher_Click()
getDept.Show
getDept.Command3.Visible = False
getDept.Command4.Visible = False
End Sub
Private Sub adm_Apart_Click()
Call Module2.Check1
Call Module2.Check2
End Sub
Private Sub adm_stu_Click()
Call Module2.Check3
End Sub
Private Sub adm_teacher_Click()
Call Module2.Check4
End Sub
Private Sub adm_user_Click()
Call Module2.Check5
End Sub
Private Sub Again_Click()
Unload frmMain
Call Module1.cnn_UPDATE
frmLogin.Show
frmLogin.txtpassword = ""
frmLogin.txtusername = ""
End Sub
Private Sub EXIT_Click()
Dim i As String
i = MsgBox("是否要退出學籍管理系統！", 4 + 256 + 64, "學籍管理系統")
If i = vbYes Then
Call Module1.cnn_UPDATE
End
End If
End Sub
Private Sub MDIForm_DblClick()
Dim i As String
i = MsgBox("是否要退出學籍管理系統！", 4 + 256 + 64, "學籍管理系統")
If i = vbYes Then
Call Module1.cnn_UPDATE
End
End If
End Sub
Private Sub MDIForm_Load()
Call Module2.Check1
Call Module2.Check2
Call Module2.Check3
Call Module2.Check4
Call Module2.Check5
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
Dim i As String
i = MsgBox("是否要退出學籍管理系統！", 4 + 256 + 64, "學籍管理系統")
If i = vbYes Then
Call Module1.cnn_UPDATE
End
End If
Cancel = True
End Sub
Private Sub mod_dept_Click()
modDept.Show
End Sub
Private Sub mod_major_Click()
getDept.Show
getDept.Command1.Visible = False
getDept.Command4.Visible = False
End Sub
Private Sub Mod_password_Click()
modPassword.Show
End Sub
Private Sub mod_stu_Click()
getMajor.Show
getMajor.Command1.Visible = False
End Sub
Private Sub mod_teacher_Click()
getDept.Show
getDept.Command1.Visible = False
getDept.Command3.Visible = False
End Sub
Private Sub mod_user_Click()
modUser.Show
End Sub
Private Sub que_major_Click()
queMajor.Show
End Sub
Private Sub que_stu_Click()
queStudent.Show
End Sub
Private Sub que_teacher_Click()
queTeacher.Show
End Sub
Private Sub que_user_Click()
queUser.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -