ad_enter_assettype.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 69 行

unit Ad_Enter_AssetType;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Outer, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin, Menus, jpeg;

Type
  TFrm_Ad_Enter_AssetType = Class(TFrm_Base_Outer)
    AdoQry_MainAssetTypeCode: TStringField;
    AdoQry_MainAssetTypeName: TStringField;
    AdoQry_MainRemArk: TStringField;
    AdoQry_MainISReduceAsset: TIntegerField;
  private
    procedure SaveHistoryAssetType(ChgType:String);
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    function  SetDeleteSql:String;Override;
    { Public declarations }
  end;

var
  Frm_Ad_Enter_AssetType: TFrm_Ad_Enter_AssetType;

implementation

uses Ad_Enter_AssetType_D;
{$R *.DFM}

procedure TFrm_Ad_Enter_AssetType. InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
begin
  inherited;
  SelectFromSQL:='select * from Ad_AssetType';
  OrderByFields:='AssetTypeCode';
  GetData;
  Frm_Sys_Detail:=TFrm_Ad_Enter_AssetType_D.Create(Application);
end;

function TFrm_Ad_Enter_AssetType.SetDeleteSql:String;
begin
  SaveHistoryAssetType('删除');
  Result:='Delete From Ad_AssetType'
    +' Where AssetTypeCode='''+AdoQry_Main.fieldbyname('AssetTypeCode').AsString+'''';
end;
procedure TFrm_Ad_Enter_AssetType.SaveHistoryAssetType(ChgType:String);
begin
  with AdoQry_Tmp do
  begin
    Close;
    Sql.clear;
    SQL.Text:='Insert into Ad_AssetTypeHistory(AssetTypeCode,AssetTypeName,ISReduceAsset,RemArk,ChgEmployeeCode,ChgTime,ChgType)'
      +' Values('
      +' '''+AdoQry_Main.fieldbyname('AssetTypeCode').AsString+''''
      +','''+AdoQry_Main.fieldbyname('AssetTypeName').AsString+''''
      +','''+AdoQry_Main.fieldbyname('RemArk').AsString+''''
      +','''+AdoQry_Main.fieldbyname('ISReduceAsset').AsString+''''
      +','''+UserCode+''''
      +',getdate()'
      +','''+ChgType+''''
      +')';
    ExecSQL;
  end;
end;

end.