实训VB访问ACCESS数据库

《实训VB访问ACCESS数据库》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、销售管理系统数据库设计根据系统分析，开发小组设计了一个“图书销售.MDB”，在该数据库中创建了供应商、BOOK、会员表、员工表、入库表、入库明细、出库表、库存表、销售单、销售明细、退货表和上架记录十一个数据表。结构及数据说明如下：1．供应商供应商表存储供货商的信息，结构定义如表7.1所示。表7.1供应商字段名类型字段宽度其它要求供应商ID自动编号主键公司名称文本20不允许空联系人姓名文本10联系人职务文本10地址文本50城市文本10地区文本8邮政编码文本6电话文本15传真文本102．BOOKBOOK表的主要存储图

2、书的基本信息，结构如表7.2所示。表7.2BOOK字段名类型字段宽度其它要求图书ID自动编号主键ISBN文本10不允许空书名文本50不允许空作者文本10出版社文本10版次文本10开本文本8价格货币不允许空附赠文本50种类文本10是否折扣是/否销售管理系统的系统实现1．步骤如下：(1)启动VB6，新建一个标准EXE工程，图7.2所示，制作菜单（参考图）。2．工资管理功能的实现图7.2供应商管理界面主要实现对供应商数据进行录入、删除、编辑和保存。将窗体中的各个控件按照见名知义的原则命名，以增强程序的可读性和可维护性。

3、在从“工程”菜单中选择“引用”菜单项，在可引用列表框中选择“MicrosoftActiveXDataObject6.0Library”代码窗口中添加如下代码。（注意控件名称与程序代码之间的对应关系）DimMyDBAsNewADODB.ConnectionDimMyRSAsADODB.RecordsetPrivateSubCmdReadRecord_Click()MyDB.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:图书销售.MDB"SetMyRS=MyD

4、B.Execute("Select*from供应商")TxtCompany.Text=MyRS.Fields("公司名称").ValueTxtName.Text=MyRS.Fields("联系人姓名").ValueMyRS.CloseMyDB.CloseSetMyDB=NothingEndSubPrivateSubCmdDel_Click()DimSQLStrAsStringSQLStr=""MyDB.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:FutD

5、ata.MDB"SQLStr="Insertinto供应商(公司名称,联系人姓名)Values('"&TxtCompany.Text&"','"&TxtName.Text&"')"MyDB.Execute(SQLStr)MyDB.CloseSetMyDB=NothingMyRS.DeleteMsgBox"记录已经添加！"EndSub思考题：1、创建一个MDB文件与VB工程，输入高校学生的各科成绩2、创建一个MDB文件与VB工程，录入POS机上的销售数据数据库操作１）启动ＡＣＣＥＳＳ，“文件”，“新建”，“空数据库

6、”。将文件名改为“图书销售”，保存位置改为Ｃ盘根目录２）在“表”对象视图中，点“新建”按钮，选择“设计视图”１）在设计视图中输入要求的各个字段及相应的数据类型　二、ＶＢ设计（只以公司名称字段为例）１）在Ｄ盘新建一个文件夹２）启动VisualBasic6，在新建工程对话框中选择“标准ＥＸＥ”，在“工程”菜单中选择“引用”１）选择“MicrosoftDAO3.6ObjectLibrary”２）设计窗体如下３）在ＶＢ的属性窗体中将“公司名称”文本框的名称改为TxtCompany４）将“记录录入”按钮名称改为CmdAdd

7、５）双击记录录入按钮，在代码窗体的“通用”－“声明”中加入如下代码PublicMyDBAsDatabaseDimMyRSAsRecordset６）在Form_Load事件中加入如下代码SetMyDB=opendatabase(“C:图书销售.MDB”)７）在命令按钮的Click事件中加入如下代码SetMyRS=MyDB.OpenRecordset(“供应商”)MyRS.AddNewMyRS.Fields("公司名称").Value=TxtCompany.TextMyRS.UpdateMsgBox"添加完毕！"二

8、、根据以上操作，设计录入图书信息的窗体及代码三、根据以上操作，设计录入图书销售数据窗体及代码