知识大全 经典案例 财务管理系统（9）[3]
Posted 知
篇首语：博观而约取，厚积而薄发。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 经典案例 财务管理系统（9）[3]相关的知识，希望对你有一定的参考价值。
// 首记录
procedure TSecSetting ToolButton Click(Sender: TObject);
begin
datasource DataSet First;
end;
// 上记录
procedure TSecSetting ToolButton Click(Sender: TObject);
begin
datasource DataSet Prior;
end;
// 下记录
procedure TSecSetting ToolButton Click(Sender: TObject);
begin
datasource DataSet Next;
end;
// 尾记录
procedure TSecSetting ToolButton Click(Sender: TObject);
begin
datasource DataSet Last;
end;
// 关闭窗体
procedure TSecSetting ToolButton Click(Sender: TObject);
begin
close;
end;
// 保存记录
procedure TSecSetting ToolButton Click(Sender: TObject);
begin
//检查科目代码是否已输入
if dbedit Text= then
begin
showmessage( 科目代码不允许为空值 );
exit;
end;
datasource DataSet Post;
SetToolBar(false);
end;
// 取消操作
procedure TSecSetting ToolButton Click(Sender: TObject);
begin
datasource DataSet Cancel;
SetToolBar(false);
end;
// 查询数据并显示
procedure TSecSetting BitBtn Click(Sender: TObject);
begin
adoquery Close;
adoquery SQL Clear;
adoquery SQL Add( select * from 科目表 where (科目代码 like % +edit Text+ % )and );
adoquery SQL Add( (科目名称 like % +edit Text+ % )and(科目类别 like % +edit Text+ % ) );
adoquery Open;
end;
[ ] [ ] [ ]
cha138/Article/program/Delphi/201311/25010相关参考
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> 新建一个窗体将窗体的Name属性设置为SecSettingC
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> 根据以上需求分析一个基本的财务管理系统数据库中大致包括多张数
//对数据进行统计 procedureTSumAccountsumtable; var counti:integer; valvalvalvalvalval:double; begin
//设置工具栏按钮 procedureTDocuInputSetToolBar(isEnable:bool); begin ifisEnable=truethen begin //将首记
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> //显示试算平衡表窗体 procedureTmainNCl
//对分录表进行插入和修改时所执行的操作 procedureTDocuInputOpType(opname:string); var i:integer; inputvaloutputva
//在输入分录表时调用DLL中的表格选择科目名称和号码 procedureTDocuInputStringGridDblClick(Sender:TObject); var showForm
//在初始化时统计工作的完成 procedureTSumAccountforinitial; begin //根据不同的状态设置SQL代码以计算不同的平衡情况 adoqueryClose;
如果科目代码不是这样则该存储过程需要作相应的修改 deletefrom资产负债表where会计期间=@kjqj insertinto资产负债表(会计期间)values(@kjqj) upda
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> 基于以上需求分析和数据库分析读者对一个标准的财务管理系统应该