?? mdiform1.frm
字號:
VERSION 5.00
Begin VB.MDIForm MDIForm1
BackColor = &H8000000C&
Caption = "書籍管理系統(tǒng)"
ClientHeight = 7425
ClientLeft = 165
ClientTop = 735
ClientWidth = 11130
LinkTopic = "MDIForm1"
Picture = "MDIForm1.frx":0000
StartUpPosition = 3 'Windows Default
Begin VB.Menu sysmanage
Caption = "系統(tǒng)管理"
Begin VB.Menu add
Caption = "添加用戶"
End
Begin VB.Menu revamp
Caption = "修改密碼"
End
Begin VB.Menu relogin
Caption = "重新登陸"
End
Begin VB.Menu exit
Caption = " 退出"
End
End
Begin VB.Menu adress
Caption = "書籍管理"
Begin VB.Menu check
Caption = "書籍查詢"
End
Begin VB.Menu information
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 add_Click()
Dim val As String
Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cn = New ADODB.Connection
Set rst = New ADODB.Recordset
cn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=db1"
cn.Open
Set rst = cn.Execute("select read from use where username='" & Form1.username & "'")
If rst.Fields(0).Value = "" Then
Form2.Show
Form2.ZOrder (0)
Exit Sub
End If
If rst.Fields(0) = "y" Then
ss = MsgBox("對不起,你沒有管理本功能的權(quán)限,請與管理員聯(lián)系!", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
Form2.Show
Form2.ZOrder (0)
End Sub
Private Sub check_Click()
Form6.Show
End Sub
Private Sub exit_Click()
Unload Me
End Sub
Private Sub information_Click()
Form4.Show
End Sub
Private Sub relogin_Click()
Form1.Show
Unload Me
End Sub
Private Sub revamp_click()
Dim val As String
Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cn = New ADODB.Connection
Set rst = New ADODB.Recordset
cn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=db1"
cn.Open
Set rst = cn.Execute("select read from use where username='" & Form1.username & "'")
If rst.Fields(0).Value = "" Then
Form3.Show
Form3.ZOrder (0)
Exit Sub
End If
If rst.Fields(0) = "y" Then
ss = MsgBox("對不起,你沒有管理本功能的權(quán)限,請與管理員聯(lián)系!", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
Form3.Show
Form3.ZOrder (0)
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -