4.2读者管理界面编码设计
通过DataCombol控件连接到数据库的dbl基础数据表，用DATA GRID控件，将它的各列显示出数据库的各列，属性设为可写，连接到数据库。
用Text 控件来显示所输入的内容，单击“保存“按钮后就可以保存到数据库中，通过ADO控件来浏览记录。
实现读者资料登记的添加、删除、修改、保存功能。
读者管理界面如图：
此窗体的主要代码设计如下：
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 & "'"
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>