数据库应用系统开发_程序代码要领.docVIP

数据库应用系统开发 数据库系统开发案例—图书现场采购系统 系统主窗体的实现 1．数据表结构的实现 经过前面的需求分析和概念结构设计以后，得到了数据库的逻辑结构。现在就可以在SQL Server 2000数据库系统中实现该逻辑结构。可以直接在SQL Server 2000企业管理器中创建表，也可以在SQL查询分析器中创建。下面给出在查询分析器中创建这些表的SQL语句，读者可以将这些表创建在系统的pubs数据库中。 (1)创建书商图书基本信息表bookseller_bookinfo CREATE TABLE bookseller_bookinfo( rec_id Bigint PRIMARY KEY nextval(serial), isbn varchar(20) null, bookname varchar(200) null, author varchar(50) null, publisher_date varchar(50) null, publisher varchar(50) null, class_name varchar(50) null, book_price numeric DEFAULT 0, book_num int DEFAULT 0, provider varchar(50) null ) (2)创建图书馆图书馆藏基本信息表library_bookinfo CREATE TABLE library_bookinfo ( rec_id Bigint PRIMARY KEY nextval(serial), isbn varchar(20) null, bookname varchar(200) null, author varchar(50) null, publisher_date varchar(50) null, publisher varchar(50) null, class_name varchar(50) null, book_price numeric DEFAULT 0, book_num int DEFAULT 0, provider varchar(50) null ) (3)创建用户注册表userenroll_info CREATE TABLE userenroll_info ( rec_id int PRIMARY KEY nextval(serial), machine varchar(50) null, decode varchar(50) null ) 2．系统主窗体的创建 上面的SQL语句在SQL Server 2000中查询分析器执行后，将自动产生需要的所有表。有关数据结构的所有后端工作已经完成。现在将通过图书现场采购系统中功能模块的实现，介绍如何使用Visual Basic来编写数据库系统的客户端程序。 (1)创建工程项目BOOKCG_MIS 启动VB，→保存工程”菜单项，保存工程，将这个工程命名为BookCG_MIS.vbp。 (2)创建图书现场采购管理系统主窗体 Visual Basic创建的应用程序可以是SDI(单文档界面)和MDI(多文档界面)。这里采用MDI多文档界面，可以使程序更为美观、整齐有序。 单击工具栏中的“添加MDI窗体”按钮，添加一个多文档界面，后单击工具栏中的“菜单编辑器”创建主窗体的菜单，生成一个如图14-15所示的主窗体，主窗体的Caption属性设为“图书现场采购管理系统”，Name属性为“frmmain”。主窗体保存文件名为frmmain.frm。菜单结构参考图14-12。 图14-15 系统主窗体 (3)创建公用模块 在Visual Basic中可以用公用模块来存放整个工程项目公用的函数、全局变量等。便于各窗体模块调用公用模块中的函数、变量，以提高代码的效率。在项目资源管理器中为项目添加一个Module，保存为Module1.bas，此工程项目的公用模块程序中的过程和函数据如下： ①SQL Server 2000服务器连接字符串函数 Public Function ConnectString() As String ConnectString = Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=pubs; Data Source =127.0.0.1 设置SQL Server2000数据库链接字符串，此字符串可保存在目录文件中 End Function ②SQL命令执行函数 Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recor