frmmain.frm

VB编制的图书管理系统,希望可给朋友们带来帮助.

         Caption         =   "图书类别"
      End
      Begin VB.Menu admin_lin2 
         Caption         =   "-"
      End
      Begin VB.Menu admin_addb 
         Caption         =   "添加图书"
      End
      Begin VB.Menu admin_editb 
         Caption         =   "编辑图书"
      End
   End
   Begin VB.Menu admin_tool 
      Caption         =   "工具（&T）"
      Begin VB.Menu admin_lend 
         Caption         =   "借书证管理"
      End
      Begin VB.Menu admin_lin3 
         Caption         =   "-"
      End
      Begin VB.Menu admin_lentb 
         Caption         =   "借书"
      End
      Begin VB.Menu admin_backb 
         Caption         =   "还书"
      End
      Begin VB.Menu l 
         Caption         =   "-"
      End
      Begin VB.Menu tj 
         Caption         =   "统计"
      End
   End
   Begin VB.Menu bbdy 
      Caption         =   "报表打印"
      Begin VB.Menu dzdy 
         Caption         =   "读者信息报表打印"
      End
      Begin VB.Menu sjdy 
         Caption         =   "书籍信息报表打印"
      End
      Begin VB.Menu jydy 
         Caption         =   "借阅信息报表打印"
      End
   End
   Begin VB.Menu admin_vin 
      Caption         =   "系统维护（&V）"
      Begin VB.Menu admin_sjbf 
         Caption         =   "数据备份"
      End
      Begin VB.Menu admin_sjhf 
         Caption         =   "数据恢复"
      End
   End
   Begin VB.Menu admin_help 
      Caption         =   "帮助（&H）"
      Begin VB.Menu admin_about 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
    Dim UporDown1 As Boolean, UporDown2 As Boolean, UporDown3 As Boolean, UporDown4 As Boolean '4个command的运动方向
    Dim ding As Integer 'ding为1时command1定住不动,其它类推
    Dim fa As Single '保存罚金计算的值
    Dim FangXiang1 As String, FangXiang2 As String, FangXiang3 As String
    Dim FangXiang4 As String, FangXiang5 As String, FangXiang6 As String
    Dim FangXiang7 As String  '转动方向
    Dim k As Integer, k1 As Boolean, k2 As Boolean, k3 As Boolean, k4 As Boolean
    Dim k5 As Boolean, k6 As Boolean, k7 As Boolean
    
Private Sub admin_backb_Click()
    StatusBar1.Panels(1).Text = "还书状态"
    frmLent.Show 1
End Sub

Private Sub admin_lentb_Click()
    Frame4.Visible = True
End Sub

Private Sub admin_sjbf_Click()
    frmbh.Caption = "数据备份"
    frmbh.Command1.Caption = "开始备份"
    frmbh.Show
End Sub

Private Sub admin_sjhf_Click()
    frmbh.Caption = "数据恢复"
    frmbh.Command1.Caption = "开始恢复"
    frmbh.Show
End Sub

Private Sub Command1_Click()
    Frame6.Visible = True
    Text13.Text = ""
End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseDown(Command1)
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ding = 1
    Command1.BackColor = &H8000000D
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseUp(Command1)
End Sub

Private Sub Command2_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = "0.00"
    Text14.Text = ""
    Text15.Text = ""
    Text16.Text = ""
    Text8.Text = "": Text9.Text = "": Text10.Text = "": Text11.Text = "": Text12.Text = ""
    Text17.Text = "": Text18.Text = "": Text19.Text = "": Text20.Text = ""
    Command2.Enabled = False
    datal (False)
    Command4.Enabled = False
    Command5.Enabled = False
End Sub

Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseDown(Command2)
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ding = 2
    Command2.BackColor = &H8000000D
End Sub

Private Sub Command2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseUp(Command2)
End Sub

Private Sub Command3_Click()
    StatusBar1.Panels(1).Text = "查找书籍状态"
    frmFindBook.Show 1
End Sub

Private Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseDown(Command3)
End Sub

Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ding = 3
    Command3.BackColor = &H8000000D
End Sub

Private Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseUp(Command3)
End Sub

Private Sub Command4_Click()
    If Text1.Text = "" Then MsgBox "请先登录借书证！": Call Command1_Click: Exit Sub
    frmLent.Show 1
End Sub

Private Sub Command4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseDown(Command4)
End Sub

Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ding = 4
    Command4.BackColor = &H8000000D
End Sub
Private Sub admin_about_Click()
    StatusBar1.Panels(1).Text = "查看关于状态"
    frmAbout.Show 1
End Sub

Private Sub admin_addb_Click()
    StatusBar1.Panels(1).Text = "添加书籍状态"
    frmAddBook.Show 1
End Sub

Private Sub admin_bsort_Click()
    StatusBar1.Panels(1).Text = "设置类别状态"
    frmSetType.Show 1
End Sub

Private Sub admin_editb_Click()
    StatusBar1.Panels(1).Text = "编辑书籍状态"
    frmEditBook.Show 1
End Sub

Private Sub admin_exit_Click()
    End
End Sub

Private Sub admin_jsq_Click()
    StatusBar1.Panels(1).Text = "使用计算器状态"
    Shell "c:\windows\system32\calc.exe", 1
End Sub

Private Sub admin_manage_Click()

End Sub

Private Sub admin_lend_Click()
    frmLentBookID.Show 1
End Sub

Private Sub admin_logoff_Click()

    Unload Me
    frml.Show

End Sub

Private Sub admin_notepad_Click()
    StatusBar1.Panels(1).Text = "使用记事本状态"
    Shell "c:\windows\notepad.exe", 1
End Sub

Private Sub Command4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseUp(Command4)
End Sub

Private Sub Command5_Click()
    
    '在表:借阅信息里添加一条新记录
    Call mbdOpen("读者类别", "种类名称", Text14.Text)
    strSQL = "Insert Into 借阅信息(借书证号,读者姓名,书籍编号,书籍名称,出借日期,还书日期)"
    strSQL = strSQL + " Values('" + Text1.Text + "','" + Text2.Text + "','" + Text8.Text + "','"
    strSQL = strSQL + Text9.Text + "','" + Format(Now, "yyyy-mm-dd") + "','" + Format(DateAdd("d", Val(mbdGet("借书期限")), Now), "yyyy-mm-dd") + "')"
    ADOcn.Execute strSQL
    Call mbdClose
    
    '更改书籍信息里面的:是否被借出的值
    strSQL = "Update 书籍信息 "
    strSQL = strSQL + "Set 是否被借出='" + "是" + "'"
    strSQL = strSQL + " Where 书籍编号='" + Text8.Text + "'"
    ADOcn.Execute strSQL
    
    '更改读者的借书数量
    Call mbdOpen("读者信息", "借书证号", frmMain.Text1.Text)
    strSQL = "Update 读者信息 "
    strSQL = strSQL + "Set 已借书数量='" + Str(Val(mbdGet("已借书数量")) + 1) + "'"
    strSQL = strSQL + " Where 借书证号='" + Text1.Text + "'"
    ADOcn.Execute strSQL
    Call mbdClose
    Command5.Enabled = False
    
    Text8.Text = "": Text9.Text = "": Text10.Text = "": Text11.Text = "": Text12.Text = "": Text17.Text = ""
    Text18.Text = "": Text19.Text = "": Text20.Text = "0.00"
    Text13.Text = Text1.Text
    Call Text13_KeyPress(13)
End Sub

Private Sub Command5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseDown(Command5)
End Sub

Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Command5.BackColor = &H8000000D
End Sub

Private Sub Command5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call cmdMouseUp(Command5)
End Sub

Private Sub dzdy_Click()
    Dim strSQL As String
    Dim ADOrs As New Recordset
    ADOrs.ActiveConnection = ADOcn
    
    strSQL = "Select 读者信息.借书证号,读者信息.读者姓名,读者信息.性别,读者信息.读者类别,"
    strSQL = strSQL + " 读者信息.工作单位,读者信息.家庭住址,读者信息.电话号码,"
    strSQL = strSQL + " 读者信息.登记日期,读者信息.已借书数量 "
    strSQL = strSQL + " From 读者信息"
    
    ADOrs.Open strSQL
    Set DataReport2.DataSource = ADOrs.DataSource
        DataReport2.DataMember = ADOrs.DataMember
    DataReport2.Show 1
    ADOrs.Close
End Sub

Private Sub Form_Activate()
    UporDown1 = False
    UporDown2 = True
    UporDown3 = False
    UporDown4 = True
    StatusBar1.Panels(4).Text = "登录用户名:" + User
    StatusBar1.Panels(1).Text = "图书馆管理系统"
    ding = 0
  
End Sub

Private Sub Form_Click()
   MsgBox Label16.Height
End Sub

Private Sub Form_Load()
    Unload frml
 
    Call mbdOpen("用户表", "user_ID", User)
    If mbdGet("权限") = "2" Then
        
        dzdy.Enabled = False
        sjdy.Enabled = False
        jydy.Enabled = False
        admin_sjhf.Enabled = False
        admin_sjbf.Enabled = False
   
    End If
    Call mbdClose
    Command2.Enabled = False
    
    Command4.Enabled = False
    Command5.Enabled = False
    lv.ColumnHeaders.Add , , "借书证号"
    lv.ColumnHeaders.Add , , "姓名"
    lv.ColumnHeaders.Add , , "书籍编号"
    lv.ColumnHeaders.Add , , "书名"
    lv.ColumnHeaders.Add , , "类别"
    lv.ColumnHeaders.Add , , "作者"
    lv.ColumnHeaders.Add , , "出版社"
    lv.ColumnHeaders.Add , , "出借日期"
    lv.ColumnHeaders.Add , , "还书日期"
    datal (False)
    Label26.Visible = False: Label27.Visible = False: Label28.Visible = False: Label29.Visible = False: Label30.Visible = False: Label31.Visible = False: Label32.Visible = False: Label33.Visible = False: Label34.Visible = False: Label35.Visible = False: Label36.Visible = False: Label37.Visible = False: Label38.Visible = False: Label39.Visible = False:
    Label29.Left = Label27.Left: Label31.Left = Label27.Left

    Label33.Left = Label27.Left: Label35.Left = Label27.Left

    Label37.Left = Label27.Left: Label39.Left = Label27.Left

    Label28.Left = Label27.Left: Label30.Left = Label27.Left

    Label32.Left = Label27.Left: Label34.Left = Label27.Left

    Label36.Left = Label27.Left: Label38.Left = Label27.Left

    FangXiang1 = "←↓": FangXiang2 = "←↓"
    FangXiang3 = "←↓": FangXiang4 = "←↓"
    FangXiang5 = "←↓": FangXiang6 = "←↓"
    FangXiang7 = "←↓"
    k1 = False: k2 = False: k3 = False: k4 = False: k5 = False: k6 = False: k7 = False
    
   k = 1
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ding = 0
    If Command1.BackColor <> &H8000000F Or Command2.BackColor <> &H8000000F Or Command3.BackColor <> &H8000000F Or Command4.BackColor <> &H8000000F Then
        Command1.BackColor = &H8000000F
        Command2.BackColor = &H8000000F
        Command3.BackColor = &H8000000F
        Command4.BackColor = &H8000000F
    End If
End Sub





Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Unload Me
    frml.Show
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ding = 0
    If Command1.BackColor <> &H8000000F Or Command2.BackColor <> &H8000000F Or Command3.BackColor <> &H8000000F Or Command4.BackColor <> &H8000000F Then
        Command1.BackColor = &H8000000F
        Command2.BackColor = &H8000000F
        Command3.BackColor = &H8000000F
        Command4.BackColor = &H8000000F
    End If
    
End Sub

Private Sub Frame4_MouseMove(Button As Integer, Shi