?? frmmain.frm
字號:
VERSION 5.00
Begin VB.Form FrmMain
AutoRedraw = -1 'True
BackColor = &H0000C000&
BorderStyle = 1 'Fixed Single
Caption = "學(xué)籍管理系統(tǒng)"
ClientHeight = 6510
ClientLeft = 1875
ClientTop = 2325
ClientWidth = 9450
FillColor = &H00808000&
Icon = "FrmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
Picture = "FrmMain.frx":08CA
ScaleHeight = 434
ScaleMode = 3 'Pixel
ScaleWidth = 630
Begin VB.Image Image1
Appearance = 0 'Flat
Height = 6975
Left = 6480
Picture = "FrmMain.frx":22024
Stretch = -1 'True
Top = 0
Width = 3015
End
Begin VB.Menu menu1
Caption = "系統(tǒng)管理"
NegotiatePosition= 3 'Right
Begin VB.Menu menua
Caption = "修改密碼"
End
Begin VB.Menu menub
Caption = "添加用戶"
End
Begin VB.Menu menuc
Caption = "重新登陸"
End
End
Begin VB.Menu menu2
Caption = "查看和修改"
NegotiatePosition= 3 'Right
End
Begin VB.Menu menu3
Caption = "信息錄入"
NegotiatePosition= 3 'Right
Begin VB.Menu menuaddG
Caption = "添加成績"
End
Begin VB.Menu menuaddC
Caption = "添加課程"
End
Begin VB.Menu menuInput
Caption = "基本信息錄入"
End
End
Begin VB.Menu menu4
Caption = "查詢"
NegotiatePosition= 3 'Right
Begin VB.Menu menug
Caption = "基本信息查詢"
End
Begin VB.Menu menu4a
Caption = "成績查詢"
End
End
Begin VB.Menu menu5
Caption = "打印報表"
NegotiatePosition= 3 'Right
Begin VB.Menu menum
Caption = "學(xué)生各科成績"
End
Begin VB.Menu menu34
Caption = "學(xué)生自然狀況"
End
Begin VB.Menu menud
Caption = "補考學(xué)生"
End
End
Begin VB.Menu menu6
Caption = "關(guān)于"
NegotiatePosition= 3 'Right
End
Begin VB.Menu menu7
Caption = "退出"
NegotiatePosition= 3 'Right
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
FrmView.Show '顯示瀏覽和修改窗口
End Sub
Private Sub Command3_Click()
DlgReport.Show '顯示打印報表窗口
End Sub
Private Sub Command5_Click()
Unload Me
End Sub
Private Sub Command6_Click()
frmAbout.Show (1) '顯示關(guān)于
End Sub
Private Sub Command7_Click()
FrmInput.Show (1) '顯示數(shù)據(jù)錄入窗口
End Sub
Private Sub Command8_Click()
frmsysterm.Show
End Sub
Private Sub Command9_Click()
Load frmsearchMid
frmsearchMid.Show
End Sub
Private Sub Form_Load()
MakeCenter FrmMain
If UserType = True Then
Me.Caption = Me.Caption + "[超級用戶]"
Else
Me.Caption = Me.Caption + "[一般用戶]"
menu3.Enabled = False
' Command4.Enabled = False
menu1.Enabled = False
menu5.Enabled = False
' Label5.ForeColor = &H8000000C
' Label4.ForeColor = &H8000000C
'Label8.ForeColor = &H8000000C
End If
Me.Show
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
cn.Close '關(guān)閉ADO連接
Set cn = Nothing
Dim frm As Form
For Each frm In Forms '銷毀所有窗口
Unload frm
Next frm
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Label5_Click()
End Sub
Private Sub Label6_Click()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub menu2_Click()
FrmView.Show
End Sub
Private Sub menu34_Click()
On Error GoTo errh
DataReport1.Show
Exit Sub
errh:
MsgBox Err.Description
End Sub
Private Sub menu4a_Click()
frmSearch.Show
End Sub
Private Sub menu6_Click()
frmAbout.Show
End Sub
Private Sub menu7_Click()
Unload Me
End Sub
Private Sub menua_Click()
frmPass.Show
End Sub
Private Sub menuaddC_Click()
DlgCourse.Show
End Sub
Private Sub menuaddG_Click()
frmAddGrade.Show
End Sub
Private Sub menub_Click()
DlgPass.Show
End Sub
Private Sub menuc_Click()
DlgLogin.Show
Unload Me
End Sub
Private Sub menud_Click()
Reportreject.Show
End Sub
Private Sub menug_Click()
frmsearchInfo.Show
End Sub
Private Sub menuInput_Click()
FrmInput.Show
End Sub
Private Sub menum_Click()
ReportAch.Show
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -