?? form3.frm
字號:
VERSION 5.00
Begin VB.Form Form2
BackColor = &H00FFFFFF&
Caption = $"Form3.frx":0000
ClientHeight = 7905
ClientLeft = 165
ClientTop = 735
ClientWidth = 10395
LinkTopic = "Form1"
Picture = "Form3.frx":01C9
ScaleHeight = 7905
ScaleWidth = 10395
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.Timer Timer1
Interval = 100
Left = 1440
Top = 3600
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "歡迎光臨學生學籍管理系統!"
BeginProperty Font
Name = "華文新魏"
Size = 36
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 780
Left = 6120
TabIndex = 0
Top = 1440
Width = 9105
End
Begin VB.Menu file
Caption = "文件(F)"
Begin VB.Menu denglu
Caption = "登陸"
End
Begin VB.Menu exit
Caption = "退出"
End
End
Begin VB.Menu caozuo
Caption = "操作(C)"
Begin VB.Menu adduser
Caption = "添加用戶"
Enabled = 0 'False
End
Begin VB.Menu deleteuser
Caption = "刪除用戶"
Enabled = 0 'False
End
Begin VB.Menu liulan
Caption = "瀏覽數據"
End
End
Begin VB.Menu help
Caption = "幫助(H)"
Begin VB.Menu guanyu
Caption = "關于"
End
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub adduser_Click()
Form3.Show
End Sub
Private Sub deleteuser_Click()
Form3.Show
End Sub
Private Sub denglu_Click()
Form1.Show
Me.Cls
End Sub
Private Sub exit_Click()
Unload Me
End Sub
Private Sub Form_Click()
Form2.Show
Form1.Hide
End Sub
'Private Sub Form_Load()
'Set ie = New ADODB.Connection
'rt.CursorType = adOpenStatic
'ie.Provider = "Microsoft jet.OLEDB.4.0"
'ie .ConnectionString = "Data Source=D:\15\vb作業\VB實訓作業\學生學籍管理系統.mdb"
'ie .Open
'\Set rt.ActiveConnection = ie
'Form1.BackColor = RGB(Form1.Width - 10, 50, Form1.Width + 100)
'Label1.BackColor = RGB(Form1.Width + 100, 50, Form1.Width - 10)
'Label2.BackColor = RGB(Form1.Width + 100, 50, Form1.Width - 10)
'Label3.BackColor = RGB(Form1.Width + 100, 50, Form1.Width - 10)
'Text1.BackColor = RGB(135, 45, 205)
'Text2.BackColor = RGB(135, 45, 205)
'Form1.FillColor = RGB(Form1.Width + 100, 50, Form1.Width - 10)
'Cmdok.BackColor = RGB(135, 45, 205)
'End Sub
Private Sub guanyu_Click()
frmAbout.Show
End Sub
Private Sub liulan_Click()
課程.Show
Form5.Hide
End Sub
Private Sub Timer1_Timer()
If Label1.Left + Label1.Width <= 0 Then
Label1.Left = 10500 + Label1.Width
Else
Label1.Left = Label1.Left - 150
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -