2016年电大 电大 数据库应用技术实验报告6.docVIP

学号： 班级： 姓名： 数据库实验报告 实验报告6 – 数据库应用系统开发 实验目的 练习数据库应用系统的开发方法，提高解决实际问题的能力。 实验内容及要求 在实验2的基础上，利用VB开发一个简单的进销存管理系统。该数据库包含3张基本表，即“物资台账”、“物资入库”、“物资出库”。要求编写的系统具有数据增加（insert）、删除(delete)、修改(Update)和查询(Select)功能，并能将查询结果在计算屏幕和打印机上输出。 实验步骤及结果 第1步：根据业务逻辑编写SQL语句,比如： 向物资台账表中增加数据 Insert into 物资台账(物资编码，物资名称，计量单位，单价，期初库存) Values(‘A001’,’英雄牌钢笔’,’只’,2.5,50) 修改物资台账表中现有数据 Update 物资台账 set 单价=3,期初库存=60 where 物资编码=’A001’ 删除物资台账表中现有数据 Delete from物资台账 where物资编码=’A001’ 查询物资台账表中现有数据 Select * from物资台账 where物资编码=’A001’ 第2步：程序界面设计 1、进入VB集成开发环境，新建一个“标准EXE”工程，工程名为“进销存管理系统”。通过“工程-部件”或“工程-引用”菜单项添加ADO数据对象、工具条、MSFlexGrid等相关对象或控件，并按以下要求创建窗体，所有窗体的StartUpPosition属性均设置为：2-屏幕中心。 2、创建主窗体(frmMain),如下图： 3、创建“物资台账管理”窗体(frm台账) 4、创建“物资台账数据增加”窗体(frmAdd台账) 5、创建“物资台账数据修改”窗体(frmupdate台账) 6、创建“物资台账数据查询”窗体(frmquery台账) 7、创建“物资台账报表”窗体(frmreport台账) 第3步：编写程序代码 添加module模块，编写main过程，并在”工程属性”菜单中将其设为启动对象 Public adocn as connection Public strquery1 as string Public sub main() Dim strsqlserver as string Strsqlserver=”Provider=sqloledb;server=bigdog;userid=sa;password=sa;database=进销存” Adocn.open strsqlserver Frmmain.show End sub 2、FrmMain窗体主要代码 Private sub toolbar1_buttonclick(byval button as mscomctllib.button) Select case button Case “物资台账管理” frm台账.show 1 Case “物资入库管理” frm入库.show 1 Case “物资出库管理” frm出库.show 1 Case “退出系统” Unload me End select End sub 3、frm台账窗体代码 Private sub displaygrid() Dim strgrid as string Dim I as integer Dim adors as new recordset Adors.activeconnection=adocn If strquery1”” then Adors.open”select * from 物资台账 where” + strquery1 + “order by 物资编码” Else Adors.open”select * from 物资台账 order by 物资编码” End if MSFlexGrid1.clear MSFlexGrid1.rows=0 MSFlexGrid1.cols=6 Strgrid=”物资编码” + vbtab + “物资名称” + vbtab + “计量单位” +vbtab Strgrid=strgrid+”单价”+ vbtab + “期初库存”+vbtab+”期初金额” I=0 MSFlexgrid1.additem strgrid,i I=i+1 Do while not adors.eof Strgrid=adors(“物资编码”) + vbtab + adors(“物资名称”) + vbtab + adors(“计量单位”) Strgrid=strgrid+vbtab+str(adors(“单价”))+vbtab+str(adors(“期初库存”)) Strgrid=strgrid+vbtab+str(adors(