mrp_qry_chginfomps.pas

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

unit Mrp_Qry_ChgInfoMps;


Interface

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

Type
  TFrm_Mrp_Qry_ChgInfoMps = Class(TFrm_Base_Qry)
    AdoQry_MainMpsId: TBCDField;
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainMpsDate: TDateTimeField;
    AdoQry_MainMpsRemArk: TStringField;
    AdoQry_MainMpSchgType: TStringField;
    AdoQry_MainMpSchgEmployeeCode: TStringField;
    AdoQry_MainEmployeeName: TStringField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainUomCode: TStringField;
    AdoQry_MainUomName: TStringField;
    AdoQry_MainMpSchgTime: TDateTimeField;
    AdoQry_MainItemflag: TStringField;
    AdoQry_MainEmployeeflag: TStringField;
    dbtxtMpsid: TDBText;
    dbtxtItemflag: TDBText;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    dbtxTEmployeeflag: TDBText;
    AdoQry_MainMpsQty: TFloatField;
    AdoQry_MainMpsStatus: TIntegerField;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
      procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;

    { Public declarations }
  end;

var
  Frm_Mrp_Qry_ChgInfoMps: TFrm_Mrp_Qry_ChgInfoMps;

implementation
 uses Mrp_Qry_ChgInfoMps_C,Sys_Global;
{$R *.DFM}

{ TFrm_Mrp_Qry_ChgInfoMps }

procedure TFrm_Mrp_Qry_ChgInfoMps.InitForm(AdOConnection: TAdOConnection;
  ShowExtendColumn: Boolean);
begin
  inherited;
  Frm_Sys_Condition:=TFrm_Mrp_Qry_ChgInfoMps_C.Create(self);
  Act_Filter.Execute;
  selectfromsql:='select * from #tmPmpshistory';
  Frm_Sys_Condition:=nil;
  

end;

procedure TFrm_Mrp_Qry_ChgInfoMps.FormDestroy(Sender: TObject);
begin
  inherited;
 Frm_Mrp_Qry_ChgInfoMps:=nil;
end;

procedure TFrm_Mrp_Qry_ChgInfoMps.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
try
Executesql(AdoQry_tmp,'drop table #tmPmpshistory',1);
except
end;
end;

end.