form2.frm

来自「这是用VB做的一个很完善的图书管理系统」· FRM 代码 · 共 977 行 · 第 1/3 页

If usertype <> 1 Then
   nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
Else
If 查询面板 = "读者查询" Then
   If mainrsuserclose = 1 Then
   mainrsuser.Open "Select * from duzhe", maincn, adOpenKeyset, adLockPessimistic
   Set DataGrid1.DataSource = mainrsuser
   mainrsuserclose = 0
   End If
Else
   If mainrsuser2close = 1 Then
   mainrsuser2.Open "Select * from book", maincn, adOpenKeyset, adLockPessimistic
   Set DataGrid2.DataSource = mainrsuser2
   mainrsuser2close = 0
   End If
End If
End If
End Sub

Private Sub Command12_Click()
If usertype <> 1 Then
   nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
Else
If 查询面板 = "读者查询" Then
   If mainrsuserclose <> 1 Then
   mainrsuser.Close
   mainrsuserclose = 1
   End If
Else
   If mainrsuser2close <> 1 Then
   mainrsuser2.Close
   mainrsuser2close = 1
   End If
End If
End If
End Sub

Private Sub Command9_Click()
If usertype <> 1 Then
   nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
Else
On Error Resume Next
Set maincn = New Connection
Dim strsql As String
    maincn.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;data source=book.mdb;"
    maincn.CursorLocation = adUseClient
    maincn.Open
  
If Text1.Text = "" Then
    nul = MsgBox("您没有输入查询内容！", vbOKOnly + vbExclamation, "错误")
Else
  
    Set mainrsuser = New Recordset
    mainrsuser.CursorLocation = adUseClient
    If 查询面板 = "读者查询" And Combo1.Text <> "" Then
       strsql = "select * from duzhe where " + Combo1.Text + " = " + Chr$(34) + Text1.Text + Chr$(34)
       mainrsuserclose = 0
    Else
       If 查询面板 = "图书查询" And Combo2.Text <> "" Then
       strsql = "select * from book where " + Combo2.Text + " = " + Chr$(34) + Text1.Text + Chr$(34)
       mainrsuser2close = 0
       Else
         nul = MsgBox("请选择查询类别！", vbOKOnly + vbExclamation, "错误")
       End If
    End If
    If nul <> 1 Then
       mainrsuser.Open strsql, maincn, adOpenDynamic, adLockOptimistic
          If 查询面板 = "读者查询" Then
              Set DataGrid1.DataSource = mainrsuser
          Else
              Set DataGrid2.DataSource = mainrsuser
          End If
    End If
 
End If
End If
End Sub

Private Sub Form_Load()

Set maincn = New Connection
    maincn.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;data source=book.mdb;"
    maincn.CursorLocation = adUseClient
    maincn.Open
    
    If maincn.State = adStateOpen Then
        Set mainrsuser = New Recordset
        mainrsuser.CursorLocation = adUseClient
        mainrsuser.Open "Select * from duzhe", maincn, adOpenKeyset, adLockPessimistic
     End If
     
   Set DataGrid1.DataSource = mainrsuser
   If maincn.State = adStateOpen Then
       Set mainrsuser2 = New Recordset
       mainrsuser2.CursorLocation = adUseClient
       mainrsuser2.Open "Select * from book", maincn, adOpenKeyset, adLockPessimistic
   End If
   Set DataGrid2.DataSource = mainrsuser2
      
Combo1.Visible = True
Combo2.Visible = False
Combo1.AddItem "编号"
Combo1.ListIndex = 0
Combo1.AddItem "姓名"
Combo1.AddItem "性别"
Combo1.AddItem "单位部门"
Combo1.AddItem "住址"
Combo1.AddItem "类别"
Combo2.AddItem "图书编号"
Combo2.ListIndex = 0
Combo2.AddItem "书名"
Combo2.AddItem "条形码"
Combo2.AddItem "作者"
Combo2.AddItem "出版社"
Combo2.AddItem "类别"
Combo2.AddItem "存放位置"

查询面板 = "读者查询"
End Sub

Private Sub Form_Resize()
On Error Resume Next
TabStrip1.Height = main.Height - Toolbar1.Height * 2 - 2 * StatusBar1.Height + 560
TabStrip1.Width = main.Width - 50
Frame1.Width = TabStrip1.Width - 250
Frame2.Width = TabStrip1.Width - 250
Frame2.Height = TabStrip1.Height - 1700
DataGrid1.Width = Frame2.Width
DataGrid1.Height = Frame2.Height
Frame3.Width = TabStrip1.Width - 250
Frame3.Height = TabStrip1.Height - 1700
DataGrid2.Width = Frame3.Width
DataGrid2.Height = Frame3.Height

End Sub


Private Sub menu11_Click(Index As Integer)
If usertype <> 1 Then
   nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
Else
         main.Enabled = False
         getbook.Show
End If
End Sub

Private Sub menu12_Click(Index As Integer)
If usertype <> 1 Then
   nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
Else
         main.Enabled = False
         putbook.Show
End If
End Sub

Private Sub menu14_Click(Index As Integer)
         nul = MsgBox("你真的要退出吗？", vbYesNo + vbExclamation, "退出")
         If nul = vbYes Then
         End
         End If
End Sub

Private Sub menu21_Click(Index As Integer)
If usertype <> 1 Then
   nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
Else
         main.Enabled = False
         book.Show
End If
End Sub

Private Sub menu22_Click(Index As Integer)
If usertype <> 1 Then
   nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
Else
main.Enabled = False
duzhe.Show
End If
End Sub

Private Sub menu24_Click(Index As Integer)
If usertype <> 1 Then
   nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
Else
main.Enabled = False
addbook.Show
End If
End Sub

Private Sub menu25_Click(Index As Integer)
If usertype <> 1 Then
   nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
Else
main.Enabled = False
addduzhe.Show
End If
End Sub

Private Sub menu31_Click(Index As Integer)
If usertype <> 1 Then
   nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
Else
main.Enabled = False
changepassword.Show
End If
End Sub

Private Sub menu33_Click(Index As Integer)
If usertype <> 1 Then
   nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
Else
main.Enabled = False
bookclass.Show
End If
End Sub

Private Sub menu34_Click(Index As Integer)
If usertype <> 1 Then
   nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
Else
main.Enabled = False
duzheclass.Show
End If
End Sub

Private Sub menu35_Click(Index As Integer)
If usertype <> 1 Then
   nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
Else
main.Enabled = False
bookxy.Show
End If
End Sub

Private Sub menu4_Click(Index As Integer)
main.Enabled = False
about.Show
End Sub

Private Sub TabStrip1_Click()
Select Case TabStrip1.SelectedItem.Key
    Case "读者查询"
         Frame2.Visible = True
         Frame3.Visible = False
         Combo1.Visible = True
         Combo2.Visible = False
         
         查询面板 = "读者查询"
    Case "图书查询"
         Frame2.Visible = False
         Frame3.Visible = True
         Combo1.Visible = False
         Combo2.Visible = True
         
         查询面板 = "图书查询"
         
        
End Select
End Sub


Private Sub Text1_GotFocus()
Text1.BackColor = &H80FFFF
End Sub

Private Sub Text1_LostFocus()
Text1.BackColor = &H80000014
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
    Case "退出"
         nul = MsgBox("你真的要退出吗？", vbYesNo + vbExclamation, "退出")
         If nul = vbYes Then
         End
         End If
    Case "查询"
    Case "关于"
         main.Enabled = False
         about.Show
    Case "借书"
         If usertype <> 1 Then
              nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
         Else
         main.Enabled = False
         getbook.Show
         End If
    Case "还书"
         If usertype <> 1 Then
              nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
         Else
         main.Enabled = False
         putbook.Show
         End If
    Case "图书管理"
         If usertype <> 1 Then
              nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
         Else
         main.Enabled = False
         book.Show
         End If
    Case "读者管理"
         If usertype <> 1 Then
              nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
         Else
         main.Enabled = False
         duzhe.Show
         End If
    Case "修改密码"
         If usertype <> 1 Then
              nul = MsgBox("你没有权限执行此操作！", vbOKOnly, "权限不足！")
         Else
         main.Enabled = False
         changepassword.Show
         End If
End Select
End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
    Case "b51"
         MsgBox "b51"
End Select
End Sub