?? mdiform1.frm
字號:
VERSION 5.00
Begin VB.MDIForm MDIForm1
BackColor = &H8000000C&
Caption = "MDIForm1"
ClientHeight = 3195
ClientLeft = 165
ClientTop = 735
ClientWidth = 4680
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
Begin VB.Menu input
Caption = "檔案管理"
Begin VB.Menu input1
Caption = "學生檔案輸入"
End
Begin VB.Menu input2
Caption = "學生成績輸入"
End
Begin VB.Menu begine1
Caption = "數據初始化"
End
End
Begin VB.Menu find
Caption = "檔案查詢查詢"
Begin VB.Menu find1
Caption = "學生入庫檔案查詢"
End
Begin VB.Menu find2
Caption = "學生成績查詢"
End
Begin VB.Menu output2
Caption = "退出本選擇單"
End
End
Begin VB.Menu weihu
Caption = "檔案維護"
Begin VB.Menu zengjia
Caption = "增加檔案"
End
Begin VB.Menu 刪除
Caption = "刪除檔案"
End
Begin VB.Menu xiugai
Caption = "修改檔案"
End
Begin VB.Menu output3
Caption = "退出本選擇單"
End
End
Begin VB.Menu yuanchengxu
Caption = "源程序"
End
Begin VB.Menu help
Caption = "幫助"
Begin VB.Menu manage
Caption = "提示信息"
End
Begin VB.Menu output
Caption = "退出"
End
End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub begine1_Click()
Dim a As String
a = MsgBox("數據初始化將刪除將刪除所有數據文件中的數據。進行數據初始化請按確定鍵,不初始化請按ESC鍵", 0, "確認數據初始化")
End Sub
Private Sub find1_Click()
Load Form4
Form4.Show
End Sub
Private Sub find2_Click()
Load Form5
Form5.Show
End Sub
Private Sub find3_Click()
Load Form6
Form6.Show
End Sub
Private Sub find4_Click()
Load Form7
Form7.Show
End Sub
Private Sub input1_Click()
Load Form2
Form2.Show
End Sub
Private Sub input2_Click()
Load Form3
Form3.Show
End Sub
Private Sub output_Click()
End
End Sub
Private Sub output1_Click()
Unload MDIForm1
Load Form1
Form1.Show
End Sub
Private Sub output2_Click()
Unload MDIForm1
Load Form1
Form1.Show
End Sub
Private Sub output3_Click()
Unload MDIForm1
Load Form1
Form1.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -