实训VB访问ACCESS数据库.doc

销售管理系统数据库设计 根据系统分析，开发小组设计了一个“图书销售.MDB”，在该数据库中创建了供应商、BOOK、会员表、员工表、入库表、入库明细、出库表、库存表、销售单、销售明细、退货表和上架记录十一个数据表。结构及数据说明如下：1 供应商供应商表存储供货商的信息，结构定义如表7.1所示。表7.1 供应商字段名类型字段宽度其它要求供应商ID自动编号主键公司名称文本20不允许空联系人姓名文本10联系人职务文本10地址文本50城市文本10地区文本8邮政编码文本6电话文本15传真文本102BOOKBOOK表的主要存储图书的基本信息，结构如表7.2所示。表7.2 BOOK字段名类型字段宽度其它要求图书ID自动编号主键ISBN文本10不允许空书名文本50不允许空作者文本10出版社文本10版次文本10开本文本8价格货币不允许空附赠文本50种类文本10是否折扣是/否 销售管理系统的系统实现1步骤如下：(1)启动VB6，新建一个标准EXE工程，图7.2所示，制作菜单（参考图）。2工资管理功能的实现图7.2供应商管理界面主要实现对供应商数据进行录入、删除、编辑和保存。将窗体中的各个控件按照见名知义的原则命名，以增强程序的可读性和可维护性。在从“工程”菜单中选择“引用”菜单项，在可引用列表框中选择“Microsoft ActiveX Data Object 6.0 Library”代码窗口中添加如下代码。（注意控件名称与程序代码之间的对应关系）Dim MyDB As New ADODB.ConnectionDim MyRS As ADODB.RecordsetPrivate Sub CmdReadRecord_Click()MyDB.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:图书销售.MDB Set MyRS = MyDB.Execute(Select * from 供应商)TxtCompany.Text = MyRS.Fields(公司名称).ValueTxtName.Text = MyRS.Fields(联系人姓名).ValueMyRS.CloseMyDB.CloseSet MyDB = NothingEnd SubPrivate Sub CmdDel_Click()Dim SQLStr As StringSQLStr = MyDB.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:FutData.MDBSQLStr = Insert into 供应商(公司名称,联系人姓名) Values ( & TxtCompany.Text & , & TxtName.Text & )MyDB.Execute (SQLStr)MyDB.CloseSet MyDB = Nothing MyRS.DeleteMsgBox 记录已经添加！End Sub思考题：1、 创建一个MDB文件与VB工程，输入高校学生的各科成绩2、 创建一个MDB文件与VB工程，录入POS机上的销售数据一、 数据库操作） 启动，“文件”，“新建”，“空数据库”。将文件名改为“图书销售”，保存位置改为盘根目录） 在“表”对象视图中，点“新建”按钮，选择“设计视图”） 在设计视图中输入要求的各个字段及相应的数据类型二、 设计（只以公司名称字段为例） 在盘新建一个文件夹） 启动Visual Basic 6，在新建工程对话框中选择“标准”，在“工程”菜单中选择“引用”） 选择“Microsoft DAO 3.6 Object Library”） 设计窗体如下） 在的属性窗体中将“公司名称”文本框的名称改为TxtCompany） 将“记录录入”按钮名称改为CmdAdd） 双击记录录入按钮，在代码窗体的“通用”“声明”中加入如下代码Public MyDB As DatabaseDim MyRS As Recordset） 在Form_Load事件中加入如下代码Set MyDB=opendatabase(“C:图书销售.MDB”)） 在命令按钮的Click事件中加入如下代码Set MyRS=MyDB.OpenRecordset(“供应商”)MyRS.AddNewMyRS.Fields(公司名称).V