知识大全 经典案例 财务管理系统（9）[2]
Posted 知
篇首语：日日行，不怕千万里；常常做，不怕千万事。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 经典案例 财务管理系统（9）[2]相关的知识，希望对你有一定的参考价值。
// 设置关闭窗体的模式
procedure TSecSetting FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
// 设置表格宽度
procedure TSecSetting DataSource DataChange(Sender: TObject;
Field: TField);
begin
//显示数据数量
label Caption:=inttostr(adoquery RecordCount);
//设置数据表宽度
dbgrid Columns[ ] Width:= ;
dbgrid Columns[ ] Width:= ;
end;
// 专门写一个函数来实现工具栏按钮的设置 让代码更加简练
procedure TSecSetting SetToolBar(isEnable: bool);
begin
if isEnable=true then
begin
//将首记录等记录移动按钮设置为不可用
toolbutton Enabled:=false;
toolbutton Enabled:=false;
toolbutton Enabled:=false;
toolbutton Enabled:=false;
//将新增 修改等按钮设置为不可用
toolbutton Enabled:=false;
toolbutton Enabled:=false;
toolbutton Enabled:=false;
//将保存和取消按钮设置为可用
toolbutton Enabled:=true;
toolbutton Enabled:=true;
//将窗体内的数据显示控件设为可读
dbedit ReadOnly:=false;
dbedit ReadOnly:=false;
dbedit ReadOnly:=false;
dbradiogroup ReadOnly:=false;
dbradiogroup ReadOnly:=false;
end;
if isEnable=false then
begin
//将首记录等记录移动按钮设置为可用
toolbutton Enabled:=true;
toolbutton Enabled:=true;
toolbutton Enabled:=true;
toolbutton Enabled:=true;
//将新增修改等按钮设置为可用
toolbutton Enabled:=true;
toolbutton Enabled:=true;
toolbutton Enabled:=true;
//将保存和取消按钮设置为不可用
toolbutton Enabled:=false;
toolbutton Enabled:=false;
//将窗体内的数据显示控件设为只读
dbedit ReadOnly:=true;
dbedit ReadOnly:=true;
dbedit ReadOnly:=true;
dbradiogroup ReadOnly:=true;
dbradiogroup ReadOnly:=true;
end;
end;
// 新增记录
procedure TSecSetting ToolButton Click(Sender: TObject);
begin
SetToolBar(true);
datasource DataSet Insert;
end;
// 修改记录
procedure TSecSetting ToolButton Click(Sender: TObject);
begin
SetToolBar(true);
datasource DataSet Edit;
end;
// 删除记录
procedure TSecSetting ToolButton Click(Sender: TObject);
begin
if application MessageBox( 删除该条记录? 财务管理系统 MB_OKCANCEL)=IDOK then
datasource DataSet Delete;
end;
[ ] [ ] [ ]
cha138/Article/program/Delphi/201311/25009相关参考
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> 新建一个窗体将窗体的Name属性设置为SecSettingC
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> 财务管理作为企业管理的组成部分与经济价值或财富的保值增值有关
//查询数据并显示 procedureTDocuInputBitBtnClick(Sender:TObject); begin adoqueryClose; adoquerySQLClea
//为凭证录入分录表 procedureTDocuInputBitBtnClick(Sender:TObject); begin datasourceDataSetDelete; end;
//设置工具栏按钮 procedureTDocuInputSetToolBar(isEnable:bool); begin ifisEnable=truethen begin //将首记
()设置凭证输入窗体的代码如下 public Publicdeclarations procedureSetToolBar(isEnable:bool); procedureSum
——此文章摘自《Delphi数据库开发经典案例解析》定价￥ 特价￥ 购买>> para:Ttable; functionFindForm
//初始化表的设置 procedureTSumAccountFormShow(Sender:TObject); begin //设置表格表头显示与宽度 stringgridCells[]:
这些方法反映了会计核算过程在会计核算过程中填制和审核会计凭证是开始环节登记会计帐簿是中间环节编制会计报表是终结环节在一个会计期间所发生的所有经济业务都要经这三个环节进行处理将大量的经济业务转换为系
()试算平衡表和帐户设置窗体的的事件处理代码如下 //以下为试算平衡表的事件处理代码 private Privatedeclarations //统计计算是否平衡 proceduresu