sfc_wipinvqry.pas

一个MRPII系统源代码版本

unit Sfc_WipInvQry;

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_Sfc_WipInvQry = Class(TFrm_Base_Outer)
    procedure Act_FilterExecute(Sender: TObject);
  private
    { Private declarations }
    ItemType:string;
  public
    { Public declarations }
     procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);Override;
     function  SetDeleteSql:String;Override;
     procedure SetFormParam(FrmParam1,FrmParam2,FrmParam3,FrmParam4,FrmParam5,FrmParam6:String);Override;
     procedure SetUserParam(Param1,Param2,Param3,Param4,Param5,//设置入口参数
      Param6:String);Override;

  end;

var
  Frm_Sfc_WipInvQry: TFrm_Sfc_WipInvQry;

implementation

uses Sfc_WipInvQry_C;

{$R *.DFM}

function TFrm_Sfc_WipInvQry.SetDeleteSql: String;
begin
end;

procedure TFrm_Sfc_WipInvQry.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
var
  sqltmp:string;
begin
  ExtendCaption:=False;
  sqltmp:='';
  AdoQry_Main.Connection:=AdOConnection;
//  inherited;
  SelectFromSQL:='Select WipInv.ItemCode'
    +',WipInv.WipInvQty'
    +',Item.ItemName'
    +',Item.ItemCode2'
    +',WipInv.DeptCode'
    +',WipInv.WipInvMonth'
    +' From WipInv'
    +' Join Item On Item.ItemCode=WipInv.ItemCode';
  OrderByFields:='ItemCode';
//  Frm_Sys_Condition:=TFrm_Sfc_WipInv_C.Create(Application);
//  Frm_Sys_Condition.initform(ItemType);
  Frm_Sfc_WipInvQry_C:=TFrm_Sfc_WipInvQry_C.Create(Application);
  Frm_Sfc_WipInvQry_C.AdoQry_Tmp.Connection:=AdOConnection;
  Frm_Sfc_WipInvQry_C.medt_Month.text:=FormatDateTime('yyyy.mm',now);
  if Frm_Sfc_WipInvQry_C.ShowModal=mrok then
  begin
    if Frm_Sfc_WipInvQry_C.edt_DeptCode.text<>'' then
      sqltmp:=' wipInv.DeptCode='+quotedstr(Frm_Sfc_WipInvQry_C.edt_DeptCode.text);
    if sqltmp<>'' then
       sqltmp:=sqltmp+' and wipInvMonth='+quotedstr(Frm_Sfc_WipInvQry_C.medt_Month.text)
    else
       sqltmp:=' wipInvMonth='+quotedstr(Frm_Sfc_WipInvQry_C.medt_Month.text);
    Frm_Sfc_WipInvQry_C.Release;
    with AdoQry_Main do
    begin
      Close;
      sql.text:=SelectFromSQL+' where '+ sqltmp;
      open;
    end;
  end;
end;

procedure TFrm_Sfc_WipInvQry.SetFormParam(FrmParam1, FrmParam2, FrmParam3,
  FrmParam4, FrmParam5, FrmParam6: String);
begin
  inherited;
end;

procedure TFrm_Sfc_WipInvQry.SetUserParam(Param1,Param2,Param3,Param4,Param5,
      Param6:String);
begin

end;


procedure TFrm_Sfc_WipInvQry.Act_FilterExecute(Sender: TObject);
var
  sqltmp:string;
begin
  sqltmp:='';
  Frm_Sfc_WipInvQry_C:=TFrm_Sfc_WipInvQry_C.Create(Application);
  Frm_Sfc_WipInvQry_C.AdoQry_Tmp.Connection:=AdoQry_Main.Connection;
  Frm_Sfc_WipInvQry_C.medt_Month.text:=FormatDateTime('yyyy.mm',now);
  if Frm_Sfc_WipInvQry_C.ShowModal=mrok then
  begin
    if Frm_Sfc_WipInvQry_C.edt_DeptCode.text<>'' then
      sqltmp:=' wipInv.DeptCode='+quotedstr(Frm_Sfc_WipInvQry_C.edt_DeptCode.text);
    if sqltmp<>'' then
       sqltmp:=sqltmp+' and wipInvMonth='+quotedstr(Frm_Sfc_WipInvQry_C.medt_Month.text)
    else
       sqltmp:=' wipInvMonth='+quotedstr(Frm_Sfc_WipInvQry_C.medt_Month.text);
    Frm_Sfc_WipInvQry_C.Release;
    with AdoQry_Main do
    begin
      Close;
      sql.text:=SelectFromSQL+' where '+ sqltmp;
      open;
    end;
  end;

end;

end.