此窗体的主要代码设计如下：

sql = "读者编号='" & Trim(Text1.Text & " ") & "'"

If Check2.Value = vbChecked Then

   If Trim(sql) = "" Then

      sql = "读者姓名='" & Trim(Text2.Text & " ") & "'"

      sql = sql & "and 读者姓名='" & Trim(Text2.Text & " ") & "'"

If Check3.Value = vbChecked Then

   If Trim(sql) = "" Then

      sql = "读者类别='" & Trim(Combo1.Text & " ") & "'"

      sql = sql & "and  读者类别='" & Trim(Combo1.Text & " ") & "'"

sql = "select * from 读者信息 where " & sql

4.3图书管理界面编码设计

通过ADO控件连接到数据库，用DATA GRID控件，将它的各列显示出数据库的各种类型，其类型有：计算机、电子、电工、物理、小说。用户可以通过此窗体来添加或删除类型。次窗体连接到借书窗体。

读者管理界面如图：

此窗体的主要代码设计如下

sql = "书名='" & Trim(Text1.Text & " ") & "'"

If Check2.Value = vbChecked Then

   If Trim(sql) = "" Then

      sql = "类别='" & Trim(Combo1.Text & " ") & "'"

      sql = sql & "and 书名='" & Trim(Combo1.Text & " ") &

If Check3.Value = vbChecked Then

      sql = "作者='" & Trim(Text2.Text & " ") & "'"

      sql = sql & "and  作者='" & Trim(Text2.Text & " ") &

      sql = "出版社='" & Trim(Text3.Text & " ") & "'"

      sql = sql & "and  出版社='" & Trim(Text3.Text & " ")

      sql = "书籍编号='" & Trim(Text4.Text & " ") & "'"

      sql = sql & "and  书籍编号='" & Trim(Text4.Text & "

If Trim(sql) = "" Then

   MsgBox "请选择查询方式！", vbOKOnly + vbExclamation

sql = "select * from 书籍信息 where " & sql

4.4借阅信息管理界面编码设计

次窗体主要用于借书功能，还可以显示借阅者的具体信息，以便于确认借阅者的正确身份。通过ADO控件连接到数据库，用DATA GRID控件，将它的各列显示出所有读者的编号和姓名。次窗体主要用于借书操作。

此窗体的主要代码设计如下

sql = "select * from 借阅信息"

sql = "select * from 书籍信息 where 书籍编号='" & book_num & "'"

sql = "select * from 读者信息 where 读者编号='" & Combo1.Text & "'"

MsgBox "请先登记读者！", vbOKOnly + vbExclamation

rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic

rs_borrowbook.Fields(8) = rs_borrowbook.Fields(8) + 1

rs_borrowbook.Update

rs_borrowbook.Close

MsgBox "本书借阅成功！", vbOKOnly + vbExclamation

4.5 关键技术

本系统开发过程中用到的关键技术主要有：

1、Visual Basic与数据库的连接；

2、数据库的建立。

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