【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-GDZCZJAdd.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit GDZCZJAdd;
interface
uses
Windows, SysUtils, Variants, Classes, Controls, Forms, StdCtrls, ComCtrls, DB,
dmGdzc, GDZCCommon, ExtCtrls, Gdzc, Dialogs;
type
TGDZCZJAddForm = class(TForm)
lblRq: TLabel;
dtpRQ: TDateTimePicker;
pnlToolBar: TPanel;
btOK: TButton;
btCancel: TButton;
lblZj: TLabel;
edtZJJE: TEdit;
lblBh: TLabel;
lblDw: TLabel;
lblMc: TLabel;
lblGg: TLabel;
lblYz: TLabel;
edtBH: TEdit;
edtDW: TEdit;
edtMC: TEdit;
edtGG: TEdit;
edtYZ: TEdit;
procedure btOKClick(Sender: TObject);
private
{ Private declarations }
FdmGDZC: TdmGdzc;
function CheckData: Boolean;
public
{ Public declarations }
constructor Create(AOwner: TComponent; AdmGDZC: TdmGdzc); reintroduce;
end;
implementation
{$R *.dfm}
//检验数据的合法性
function TGDZCZJAddForm.CheckData: Boolean;
const
conSQL = 'Select Sum(ZJJE) as ZJJE From GDZCZJ Where BH = ''%S''';
var
l_ZJJE: double;
begin
Result := False;
if Trim(edtZJJE.Text) = '' then
begin
Showmessage('折旧金额不能为空!');
edtZJJE.SetFocus;
Exit;
end
else if not IsNumeric(edtZJJE.Text) then
begin
Showmessage('折旧金额非法!');
edtZJJE.SetFocus;
Exit;
end;
with FdmGDZC, SQLComm do
begin
if Active then Close;
SQL.Text := Format(conSQL, [edtBH.Text]);
Open;
cdComm.Open;
l_ZJJE := cdComm.FieldByName('ZJJE').asFloat;
if strtofloat(edtZJJE.Text) > (strtoFloat(edtYZ.Text) - l_ZJJE) then
begin
Showmessage('折旧金额大于剩余金额!');
edtZJJE.SetFocus;
Exit;
end;
end;
Result := True;
end;
constructor TGDZCZJAddForm.Create(AOwner: TComponent; AdmGDZC: TdmGdzc);
begin
inherited Create(AOwner);
FdmGDZC := AdmGDZC;
with FdmGDZC.cdGDZCDJ do
begin
edtBH.Text := Trim(FieldByName('BH').AsString);
edtMC.Text := Trim(FieldByName('MC').AsString);
edtGG.Text := Trim(FieldByName('GG').AsString);
edtDW.Text := Trim(FieldByName('DW').AsString);
edtYZ.Text := Trim(FieldByName('YZ').AsString);
end;
dtpRQ.Date := Date;
end;
procedure TGDZCZJAddForm.btOKClick(Sender: TObject);
var
l_GdzczjRec: TGDZCZJRec;
begin
with TGDZC.create(FdmGDZC) do
try
if CheckData then
begin
FillChar(l_GdzczjRec, sizeof(l_GdzczjRec), #0);
with l_GdzczjRec do
begin
BH := edtBH.Text;
ZJJE := strToFloat(edtZJJE.text);
ZJRQ := dtpRQ.Date;
end;
AddGDZCZJToDB(FdmGDZC.cdGDZCZJ, l_GdzczjRec);
ModalResult := mrOK;
end;
finally
Free;
end;
end;
end.
上一篇:
GDZCZJ.pas
下一篇:
多年来只想说一句,我不怪你