知识大全经典案例财务管理系统（9）[2]

Posted 2022-07-21 知

篇首语：日日行，不怕千万里；常常做，不怕千万事。本文由小常识网(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:= ;

　　end;

　　// 专门写一个函数来实现工具栏按钮的设置让代码更加简练

　　procedure TSecSetting SetToolBar(isEnable: bool);

　　begin

　　if isEnable=true then

　　begin

　　//将首记录等记录移动按钮设置为不可用

　　toolbutton Enabled:=false;

　　//将新增修改等按钮设置为不可用

　　toolbutton Enabled:=false;

　　//将保存和取消按钮设置为可用

　　toolbutton Enabled:=true;

　　//将窗体内的数据显示控件设为可读

　　dbedit ReadOnly:=false;

　　dbradiogroup ReadOnly:=false;

　　end;

　　if isEnable=false then

　　begin

　　//将首记录等记录移动按钮设置为可用

　　toolbutton Enabled:=true;

　　//将新增修改等按钮设置为可用

　　toolbutton Enabled:=true;

　　//将保存和取消按钮设置为不可用

　　toolbutton Enabled:=false;

　　//将窗体内的数据显示控件设为只读

　　dbedit ReadOnly:=true;

　　dbradiogroup ReadOnly:=true;

　　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

知识大全 经典案例 财务管理系统（9）[2]

知识大全经典案例财务管理系统（9）[2]