SQL+VB图书管理系统(数据库+源代码+论文) 第9页

Private Sub UpDown1_Change()

Txt_dgsl.Text = UpDown1.Value + 1
End Sub

3.4.3 借书还书续借界面代码设计

Private Sub Cmb_dzxx_Click()
   Select Case Cmb_dzxx.Text
     Case "读者类别"
       Txt_find2.SetFocus
     Case "借书证号"
       Txt_find2.SetFocus
   End Select
End Sub

Private Sub Cmb_tsxx_Click()
   Select Case Cmb_tsxx.Text
     Case "条形码"
       Txt_find1.SetFocus
     Case "图书ID"
       Txt_find1.SetFocus
   End Select

End Sub

Private Sub Cmd_find1_Click()
  Dim sql As String
  If Txt_find1.Text = "" Then
    sql = "select * from 图书信息"
    ShowData sql, Frm_data1.MSFlexGrid1
    Frm_data1.Show 1
   
    Txt_find2.SetFocus
    Exit Sub
  End If
 
  Select Case Cmb_tsxx.Text
    Case "条形码"
        sql = "select * from 图书信息 where 条形码 like '%" + Trim(Txt_find1.Text) + "%'"

    Case "图书ID"
        sql = "select * from 图书信息 where 图书ID like '%" + Trim(Txt_find1.Text) + "%'"
  
    Case "图书名称"
        sql = "select * from 图书信息 where 书名 like '%" + Trim(Txt_find1.Text) + "%'"
   
  End Select
 
  ShowData sql, Frm_data1.MSFlexGrid1
 
 If Frm_data1.MSFlexGrid1.Rows <= 1 Then
    MsgBox "对不起！没有找到符合条件的记录！请重新输入查询内容！", vbOKCancel + vbExclamation, "提示"
    Frm_jhx.Txt_find1.Text = ""
    Frm_jhx.Txt_find1.SetFocus
    Exit Sub
 End If
 
 Frm_data1.Show 1
 
 Frm_jhx.Txt_find1.Text = ""
 Frm_jhx.Txt_find2.SetFocus

End Sub

Private Sub Cmd_find2_Click()
  Dim sql As String
  If Txt_find2.Text = "" Then
    sql = "select * from 读者信息"
    ShowData sql, Frm_data2.MSFlexGrid1
    Frm_data2.Show 1
   
       
  If Txt_txm.Text <> "" And Txt_tsid.Text <> "" And Txt_tsmc.Text <> "" Then
    'Call PanDuan

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>