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

SQL+VB图书管理系统(数据库+源代码+论文) 第10页
 Txt_txm.Text = ""
    Txt_tsid.Text = ""
    Txt_tsmc.Text = ""
  Else
 
  End If
 
   
    Txt_find1.SetFocus
    Exit Sub
  End If
 
  Select Case Cmb_dzxx.Text
    Case "读者姓名"
      sql = "select * from 读者信息 where 读者姓名 like '%" + Trim(Txt_find2.Text) + "%'"

    Case "借书证号"
      sql = "select * from 读者信息 where 借书证号 like '%" + Trim(Txt_find2.Text) + "%'"
     
    Case "读者类别"
      sql = "select * from 读者信息 where 读者类别 like '%" + Trim(Txt_find2.Text) + "%'"
  End Select
 
  ShowData sql, Frm_data2.MSFlexGrid1

 If Frm_data2.MSFlexGrid1.Rows <= 1 Then
    MsgBox "对不起！没有找到符合条件的记录！请重新输入查询内容！", vbOKCancel + vbExclamation, "提示"
    Frm_jhx.Txt_find2.Text = ""
    Frm_jhx.Txt_find2.SetFocus
    Exit Sub
 End If
 
  Frm_data2.Show 1
 
   
  If Txt_txm.Text <> "" And Txt_tsid.Text <> "" And Txt_tsmc.Text <> "" Then
    'Call PanDuan
    Txt_txm.Text = ""
    Txt_tsid.Text = ""
    Txt_tsmc.Text = ""
  Else
 
  End If
 
  Frm_jhx.Txt_find2.Text = ""
  Frm_jhx.Txt_find1.SetFocus

End Sub

Private Sub Cmd_hs_Click()
  Call HuanShu
End Sub

 

Private Sub Cmd_jhxs_Click()
   Call PanDuan
End Sub

Private Sub Cmd_js_Click(Index As Integer)
   Call JieShu
End Sub

Private Sub Cmd_xj_Click()
   Call XuJie
End Sub

Private Sub Form_Load()
 Dim str As String, sql As String
 Image1.Picture = Image2.Picture
 Cmd_jhxs.Picture = Image2.Picture
 Cmd_jhxs.Caption = "借出此书"

 Cmb_tsxx.Text = "图书名称"
 Cmb_dzxx.Text = "读者姓名"
 
 Lab_year.Caption = year(Now)
 Lab_month.Caption = month(Now)
 Lab_day.Caption = day(Now)
 
 Select Case Weekday(Date)

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

SQL+VB图书管理系统(数据库+源代码+论文) 第10页下载如图片无法显示或论文不完整，请联系qq752018766