【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供GDZC.pas参考,解决您在GDZC.pas学习中工作中的难题,参考学习。
unit GDZC;
interface
uses
SysUtils, DB, dmGdzc;
type
TGDZCRec = record
BH, MC, GG, DW: string;
YZ: Double; //原值
DJRQ: TDateTime; //登记日期
end;
TGDZCZJRec = record
BH: string;
ZJJE: Double; //折旧金额
ZJRQ: TDateTime; //折旧日期
end;
type
TGDZC = class
private
FdmGDZC: TdmGdzc;
public
constructor create(AdmGDZC: TdmGdzc);
procedure AddGDZCToDB(ADataSet: TDataSet; AGDZC: TGDZCRec; ANew: Boolean);
procedure AddGDZCZJToDB(ADataSet: TDataSet; AGDZCZJ: TGDZCZJRec);
end;
implementation
constructor TGDZC.create(AdmGDZC: TdmGdzc);
begin
FdmGDZC := AdmGDZc;
end;
procedure TGDZC.AddGDZCToDB(ADataSet: TDataSet; AGDZC: TGDZCRec; ANew: Boolean);
begin
with ADataSet, AGDZC do
begin
if ANew then
Append
else
Edit;
FieldByName('BH').AsString := BH;
FieldByName('MC').AsString := MC;
FieldByName('DW').AsString := DW;
FieldByName('GG').AsString := GG;
FieldByName('YZ').AsFloat := YZ;
FieldByName('DJRQ').AsDateTime := DJRQ;
if ANew then
FieldByName('SFBS').AsBoolean := False;
Post;
end;
end;
procedure TGDZC.AddGDZCZJToDB(ADataSet: TDataSet; AGDZCZJ: TGDZCZJRec);
const
conSQL = 'INSERT INTO GDZCZJ(BH, ZJRQ, ZJJE) VALUES (''%S'', ''%S'', %F)';
var
l_SQL: string;
begin
with AGDZCZJ, FdmGDZC do
begin
l_SQL := Format(conSQL, [BH, DateTimeToStr(ZJRQ), ZJJE]);
SQLComm.SQL.Text := l_SQL;
SQLComm.ExecSQL;
end;
end;
end.