ad_enter_usestatus.pas

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

unit Ad_Enter_UseStatus;

Interface

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

Type
  TFrm_Ad_Enter_UseStatus = Class(TFrm_Base_Outer)
    AdoQry_MainUseStatusCode: TStringField;
    AdoQry_MainUseStatusName: TStringField;
    AdoQry_MainRemArk: TStringField;
    AdoQry_MainIsDepreciation: TIntegerField;
  private
    procedure SaveHistoryUseStatus(ChgType:String);
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    function  SetDeleteSql:String;Override;
    { Public declarations }
  end;

var
  Frm_Ad_Enter_UseStatus: TFrm_Ad_Enter_UseStatus;

implementation

uses Ad_Enter_UseStatus_D;
{$R *.DFM}

procedure TFrm_Ad_Enter_UseStatus. InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);
begin
  inherited;
  SelectFromSQL:='select * from Ad_UseStatus';
  OrderByFields:='UseStatusCode';
  GetData;
  Frm_Sys_Detail:=TFrm_Ad_Enter_UseStatus_D.Create(Application);
end;

function TFrm_Ad_Enter_UseStatus.SetDeleteSql:String;
begin
  SaveHistoryUseStatus('删除');
  Result:='Delete From Ad_UseStatus'
    +' Where UseStatusCode='''+AdoQry_Main.fieldbyname('UseStatusCode').AsString+'''';
end;
procedure TFrm_Ad_Enter_UseStatus.SaveHistoryUseStatus(ChgType:String);
begin
  with AdoQry_Tmp do
  begin
    Close;
    Sql.clear;
    SQL.Text:='Insert into Ad_UseStatusHistory(UseStatusCode,UseStatusName,IsDepreciation,RemArk,ChgEmployeeCode,ChgTime,ChgType)'
      +' Values('
      +' '''+AdoQry_Main.fieldbyname('UseStatusCode').AsString+''''
      +','''+AdoQry_Main.fieldbyname('UseStatusName').AsString+''''
      +','''+AdoQry_Main.fieldbyname('IsDepreciation').AsString+''''
      +','''+AdoQry_Main.fieldbyname('RemArk').AsString+''''
      +','''+UserCode+''''
      +',getdate()'
      +','''+ChgType+''''
      +')';
    ExecSQL;
  end;
end;

end.