bas_enter_payterm.pas

一个MRPII系统源代码版本

unit Bas_Enter_PayTerm;

Interface

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

Type
  TFrm_Bas_Enter_PayTerm = Class(TFrm_Base_Outer)
    AdoQry_MainPayTermID: TAutoIncField;
    AdoQry_MainPayTermCode: TStringField;
    AdoQry_MainPayTermName: TStringField;
    AdoQry_MainPayCreDays: TIntegerField;
    AdoQry_MainPayFAdays1: TIntegerField;
    AdoQry_MainPayFArate1: TFloatField;
    AdoQry_MainPayFAdays2: TIntegerField;
    AdoQry_MainPayFArate2: TFloatField;
    AdoQry_MainPayFAdays3: TIntegerField;
    AdoQry_MainPayFArate3: TFloatField;
    AdoQry_MainPayFAdays4: TIntegerField;
    AdoQry_MainPayFArate4: TFloatField;
    AdoQry_MainRemArk: TStringField;
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
    { Public declarations }
     function SetDeleteSql:String;Override;
  end;

var
  Frm_Bas_Enter_PayTerm: TFrm_Bas_Enter_PayTerm;

implementation
uses Bas_Enter_PayTerm_D;
{$R *.DFM}

{ TFrm_Mrp_Enter_MsItemAssign }

procedure TFrm_Bas_Enter_PayTerm.InitForm(
  AdOConnection: TAdOConnection; ReadOnly: Boolean);
begin
Application.ProcessMessages;
Inherited;
selectfromsql:='select * from PayTerm';
AdoQry_Main.Connection:=AdOConnection;
getdata;
Frm_Sys_Detail:=TFrm_Bas_Enter_PayTerm_D.Create(Application);
end;

procedure TFrm_Bas_Enter_PayTerm.FormDestroy(Sender: TObject);
begin
  inherited;
   Frm_Bas_Enter_PayTerm:=nil;
end;

function TFrm_Bas_Enter_PayTerm.SetDeleteSql: String;
begin
  Result:='delete from PayTerm where PayTermid='+inttostr(AdoQry_Main.fieldbyname('PayTermid').asinteger)
         +'  and PayTermCode='+quotedstr(AdoQry_Main.fieldbyname('PayTermCode').asstring);
end;

end.