财务软件设计与开发讲述.ppt

例：使用ADO对象访问数据库实例 一般方法： 添加Module，在模块中定义对象： Public CN As New ADODB.Connection ‘ 定义数据库链接对象 Public rs As New ADODB.Recordset ‘ 定义表对象 在窗体Load事件中，链接并打开数据库 If CN.State Then CN.Close CN.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= App.Path \database.mdb;Persist Security Info=False CN.Open ‘链接字符串可以从控件链接法中取出 在控件的Click事件中，打开表 Dim strSql As String strSql = “select * from ” Trim(Combo1.Text) ‘此处用Combo1选表名 If rs.State Then rs.Close rs.Open strSql, CN, adOpenStatic, adLockOptimistic 设置文本框属性，实现文本框与表字段的绑定： Set Text1.DataSource = rs ‘指定文本框的数据源 Text1.DataField = “学号” ‘文本框对应字段的绑定 对字段的赋值： rs.Fields(“学号) = （二）数据导航按钮代码 If Command1.Caption = “添加” Then ‘添加按钮 Command1.Caption = 确定 Adodc1.Recordset.AddNew Else Command1.Caption = 添加 Adodc1.Recordset.Update Adodc1.Recordset.Requery Adodc1.Recordset.MoveLast End If CH = MsgBox(“是否真的要删除吗？”, vbOKCancel, “删除”) ‘删除按钮 If CH = vbOK Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveLast If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If ---------------------------- Unload Me / End ‘退出按钮 ---------------------------- rs.MoveFirst / rs.MoveLast ‘首条 / 末条按钮 ---------------------------- rs.MovePrevious ‘上一条按钮 If rs.BOF Then rs.MoveFirst ---------------------------- rs.MoveNext If rs.EOF = True Then rs.MoveLast ‘下一条按钮 （三）执行SQL语句： 1. 删除数据库中一条记录 CN.Execute delete form 表名 where id=12“ 2 执行SQL语句,把数据写入数据库 rs.AddNew(insert into student(num,age) values(1,10)) rs.Update 3 查询数据，生成新表 CN.Execute “select sum(年初余额) as 合计 into HJ from kjkm“ 4将一表记录添加入另一表 CN.Execute insert into 凭证表 select * from pzk 二. 凭证输入/修改模块开发 a) 简单实现法：临时凭证表有6条空记录，用DataGrid绑定，进行凭证输入，输完凭证后，添加入正常凭证表，同时清空已输入的记录内容。 b) 研制经典账务软件的凭证输入界面 凭证输入系统控制：1凭证号自动编制，2自动取日期，3科目参照输入，科目代码录入自动检索科目名，4非末级凭证不允许录入，5借贷不平衡不允许存盘，6缺少重要凭证要素的凭证不允许存盘 难点：建立起凭证表多条记录与一张凭证的对应机制 三.凭证审核/查询模块开发 四.数据备份与恢复模块 五.软件调试技术 六.其他关键技术与编程技巧 在窗体上放置两个命令按钮,分别能显示和打印报表。 在当前工程内加入一个DataEnvironent1对象。完