?? login.frm
字號:
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
Begin VB.Form login
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Login"
ClientHeight = 6930
ClientLeft = 1350
ClientTop = 765
ClientWidth = 8610
Icon = "login.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6930
ScaleWidth = 8610
Begin SHDocVwCtl.WebBrowser WebBrowser1
Height = 975
Left = 360
TabIndex = 8
Top = 3120
Width = 1215
ExtentX = 2143
ExtentY = 1720
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = ""
End
Begin VB.Frame Frame1
Height = 6615
Left = 120
TabIndex = 0
Top = 0
Width = 8295
Begin VB.PictureBox Picture1
Height = 1095
Left = 240
Picture = "login.frx":0442
ScaleHeight = 1035
ScaleWidth = 1275
TabIndex = 7
Top = 3120
Width = 1335
End
Begin VB.Frame Frame2
Height = 2415
Left = 2280
TabIndex = 3
Top = 3000
Width = 4455
Begin VB.Label Label3
Caption = "教職工管理"
BeginProperty Font
Name = "華文行楷"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 855
Left = 120
TabIndex = 5
Top = 1440
Width = 4215
End
Begin VB.Label Label2
Caption = "學(xué)生管理"
BeginProperty Font
Name = "華文行楷"
Size = 36
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 855
Left = 120
TabIndex = 4
Top = 360
Width = 3495
End
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 3
X1 = 120
X2 = 7920
Y1 = 2400
Y2 = 2400
End
Begin VB.Label Label5
Caption = "江川縣第二中學(xué)"
BeginProperty Font
Name = "楷體_GB2312"
Size = 36
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 855
Left = 600
TabIndex = 6
Top = 480
Width = 5655
End
Begin VB.Label Label4
Caption = "退出系統(tǒng)"
BeginProperty Font
Name = "宋體"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 6000
TabIndex = 2
Top = 6120
Width = 1575
End
Begin VB.Label Label1
Caption = "學(xué)校管理系統(tǒng)"
BeginProperty Font
Name = "楷體_GB2312"
Size = 36
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 855
Left = 2280
TabIndex = 1
Top = 1440
Width = 4815
End
End
End
Attribute VB_Name = "login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs, rm, rh, r
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Picture1.Picture = LoadPicture(App.Path & "\dream.gif")
WebBrowser1.Navigate (App.Path & "\dream.gif")
studentmdi.StatusBar1.Panels.Item(1).Text = "登錄"
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Label1.ForeColor = vbred
End Sub
Private Sub Label2_Click()
pass.Show
login.Hide
End Sub
Private Sub Label2_DragDrop(Source As Control, X As Single, Y As Single)
Label1.ForeColor = vbBlue
End Sub
End Sub
Private Sub Label4_Click()
Unload Me
studentmdi.StatusBar1.Panels.Item(1).Text = " "
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -