GIS设计精选.docVIP

苏州科技学院环境学院 实 验 报 告 课程名称 GIS 设计与开发 专业班级 地信0912 学 号 0920209228 姓 名 曹晓英 实习地点 C1机房 指导教师 杜景龙 2012年 06 月 实验一 订货系统 一、实验要求 一家工厂的采购部每天需要一张定货报表，报表按零件编号排序，表中列出所有需要定货的零件。对于每个需要定货的零件应该列出下列数据：零件编号、零件名称、定货数量、目前价格、重要供应者、次要供应者。零件入库和出库称为事务，通过放在仓库中的CRT终端把事务报告给定货系统。当某种零件的库存量少于库存量临界值时就应该再次定货。 订货系统的数据流图 二．实验步骤 数据库与VB连接： （1）建立一个数据库，数据库中创建两个表：库存清单表和订货信息表，用来存放库存信息和产生订货报表； (2)设计一个输入界面，模拟CRT终端的功能，实现“事务”的输入 库存清单表 订货信息表 (3)每件事务的发生都更新库存清单，当库存清单中零件的库存量小于或等于该零件的库存临界值（100）时，就要处理订货，产生订货信息，把该订货信息写入到数据库中的“订货信息”表中存储； (4)每周生成一次订货报表。当需要生成订货报表时，把数据库中的订货信息表打印输出。 生成订货报表 输出报表 三，实验代码： Dim n As Integer Dim a() As String Private Sub Command1_Click() Dim mrc As ADODB.Recordset Dim txtSQL As String txtSQL = select * from 库存清单表 where 零件编号= Text1.Text Set mrc = ExecuteSQL(txtSQL) If Combo1.Text = 出库 Then mrc.Fields(2) = mrc.Fields(2) - Val(Text2.Text) Else mrc.Fields(2) = mrc.Fields(2) + Val(Text2.Text) End If mrc.Update mrc.Close StockShow End Sub Private Sub StockShow() With MyFlexGrid .Cols = 6 .Rows = 1 .ColWidth(0) = 1000 .ColWidth(1) = 1000 .ColWidth(2) = 1000 .ColWidth(3) = 1500 .ColWidth(4) = 1500 .ColWidth(5) = 1500 .ColAlignment(0) = 4 .ColAlignment(1) = 4 .ColAlignment(2) = 4 .ColAlignment(3) = 4 .ColAlignment(4) = 4 .ColAlignment(5) = 4 .TextMatrix(0, 0) = 零件编号 .TextMatrix(0, 1) = 零件名称 .TextMatrix(0, 2) = 数量 .TextMatrix(0, 3) = 目前价格 .TextMatrix(0, 4) = 重要供应者 .TextMatrix(0, 5) = 次要供应者 End With Dim mrc As ADODB.Recordset Dim txtSQL As String txtSQL = select * from 库存清单表 Set mrc = ExecuteSQL(txtSQL) With MyFlexGrid Do While Not mrc.EOF .Rows = .Rows + 1 .TextMatrix(.Rows - 1, 0)