系统介绍——数据库.ppt

Your site here LOGO 分户热计量热费分摊计算系统 成员： *** 分户热计量系统 系统介绍 特点分析 操作演示 3 背景 1 2 4 背景 建筑节能 建设资源节约型，环境友好型社会 供热计量改革 既有建筑的供热计量改造 新竣工建筑的热计量系统 居住建筑的用热收费方式 按面积收费 按用热量计价收费 点这儿返回 数据库 利用Access数据库存储数据，方便 程序的调用。 密码保存文件 保存修改后的密码 计算程序 通过编写程序，实现数据调用和运算 作界面的结果显示。 保存数据结果的文本文档 组成 系统介绍 系统介绍——数据库 插入数据库截图 插入数据库截图 根据已知数据，编写数据库 并在数据库中增添“总热费”“应付热费”两列，用于保存计算结果 系统介绍——程序特点 本程序与数据库的连接采用DAO接口的方式： Private thisWorkspace As Workspace 定义工作空间 Private thisDatabase As DAO.Database 定义数据库 Private thisrecordset As DAO.Recordset 定义数据集 系统介绍——程序计算 Private Sub Command1_Click() On Error GoTo errhandler CommonDialog1.ShowOpen 。。。 errhandler: Exit Sub 为了方便对数据库的选择，本程序采用了通用对话框的方式来打开和导入数据库，调用通用对话框的ShowOpen函数 系统介绍——程序计算 Displaydata Command1.Enabled = False Command2.Enabled = True Command4.Enabled = True ··· ··· 复杂部分采用调用子函数的方式，简洁、方便 为避免程序错误，对按钮的Enable属性进行不同条件下的定义和修改 系统介绍——程序计算 子函数中调用子函数 Private Sub displaydata() …… calculate …… Private Sub calculate() …… 模块化理念：使程序更加直观、便于后续的修改 系统介绍——程序计算 ... ... Text8.Text = Format(a * Int(Text1) * 0.4, "0.00") Text17.Text = Format(b * 0.6, "0.00") Text18.Text = Format(Int(Text8.Text) + Int(Text17.Text), "0.00") ... ... 用FORMAT函数将计算的热费数值强制转化为保存两位小数，更加人性化 多种功能： 既可以把计算结果保存到数据库中，也可以用TXT文档的方式直接保存为账单 保存到数据库中： Private Sub Command7_Click() thisrecordset.Edit ... ... thisrecordset.Update ... ... End Sub '调用recordset的EDIT和UPDATE函数 strFileName = App.Path & "\用户账单.txt" lngHandle = FreeFile() strWrite = "姓名" & Textxm.Text & " 地址" & Textdz.Text & " 总热费" & Text18.Text & " 应交热费" & Text20.Text Open strFileName For Append As lngHandle Print #lngHandle, strWrite Close lngHandle ...... 将结果保存至“用户账单.txt”,(采用Append参数，追加写入) 系统介绍——操作界面 系统介绍——操作界面 密码修改后，按钮的Captain属性由“取消”变换为“返回”并将修改后的密码保存到文档 密码修改： 系统介绍——操作界面 导入数据库前： 系统介绍——操作界面 通用对话框： 系统介绍——操作界面 导入数据库后： 热费计算：（3种方式） （1）通过人工操作逐户计算 （2）点击“批量计算”一键计算出所有用户的结果并保存于数据库 （3）点击“保存为文档”将结果保存于“用户账单.txt”中 方便的查询： 既可以通过点击“上一条”“下一条”“首记录”“尾记录”进行查询，也可以直接输入用户的姓名点击查询，切换到对应用户 对修正系