sal_qry_analyzeshiporder4.pas

一个MRPII系统源代码版本

unit Sal_Qry_AnalyzeShipOrder4;

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_Sal_Qry_AnalyzeShipOrder4 = Class(TFrm_Base_Qry)
    Label1: TLabel;
    DBText1: TDBText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Act_LookExecute(Sender: TObject);
    procedure Act_FilterExecute(Sender: TObject);
  private
    TmpTableName:String;
  public
    CreateDateStArt,CreateDateend,CustomerCodeStArt,CustomerCodeend,SloNoStArt,SloNoend,
    SaleTypeCodeStArt,SaleTypeCodeend,SaleDeptCodeStArt,SaleDeptCodeend,
    SaleEmployeeCodeStArt,SaleEmployeeCodeend,PayTermCodeStArt,PayTermCodeend,
    CurrencyCode,ItemCodeStArt,ItemCodeend:String;
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Sal_Qry_AnalyzeShipOrder4: TFrm_Sal_Qry_AnalyzeShipOrder4;

implementation

uses Sal_Qry_AnalyzeShipOrder4_C, Sys_Global, Sal_Qry_AnalyzeShipOrder4_D;

{$R *.DFM}

{ TFrm_Sal_Qry_AnalyzeShipOrder4 }

procedure TFrm_Sal_Qry_AnalyzeShipOrder4.InitForm(
  AdOConnection: TAdOConnection; ShowExtendColumn: Boolean);
var
  Condition1,Condition2,Condition3,Condition4,
  Condition5,Condition6,Condition7,Condition8,Condition9:String;
begin
  inherited;
  TmpTableName:='[##'+RandomString+']';
  Frm_Sal_Qry_AnalyzeShipOrder4_C:=TFrm_Sal_Qry_AnalyzeShipOrder4_C.Create(Application);
  Frm_Sal_Qry_AnalyzeShipOrder4_C.SetDBConnect(AdoConnection);
  If Frm_Sal_Qry_AnalyzeShipOrder4_C.ShowModal=Mrok Then
  begin
    CreatePanel(1,DBGridEh);
    Condition1:='(InvOutBill.InvBillDate Between '''''+CreateDateStArt+''''' And '''''+CreateDateend+''''') ';
    Condition2:='(isnull(InvOutBill.CustomerCode,'''''''') Between '''''+CustomerCodeStArt+''''' And '''''+CustomerCodeend+''''') ';
    Condition3:='(InvOutBill.InvBillNo Between '''''+SloNoStArt+''''' And '''''+SloNoend+''''') ';
    Condition4:='(isnull(InvOutBill.SaleType,'''''''') Between '''''+SaleTypeCodeStArt+''''' And '''''+SaleTypeCodeend+''''') ';
    Condition5:='(isnull(InvOutBill.DeptCode,'''''''') Between '''''+SaleDeptCodeStArt+''''' And '''''+SaleDeptCodeend+''''') ';
    Condition6:='(isnull(InvOutBill.Sal_EmployeeCode,'''''''') Between '''''+SaleEmployeeCodeStArt+''''' And '''''+SaleEmployeeCodeend+''''') ';
    Condition7:='(isnull(InvOutBill.PayTermCode,'''''''') Between '''''+PayTermCodeStArt+''''' And '''''+PayTermCodeend+''''') ';
    Condition8:='(isnull(InvOutBillLine.ItemCode,'''''''') Between '''''+ItemCodeStArt+''''' And '''''+ItemCodeend+''''') ';
    Condition9:='InvOutBill.CurrencyCode='''''+CurrencyCode+''''' ';
    GroupByFields:=' InvOutBill.SaleType ';
    AdoQry_Main.Close;
    AdoQry_Main.SQL.Text:=' Exec OutProductAnalyz ''4'','''+TmpTableName+''','''+GroupByFields+''','
                         +''''+Condition1+''','
                         +''''+Condition2+''','
                         +''''+Condition3+''','
                         +''''+Condition4+''','
                         +''''+Condition5+''','
                         +''''+Condition6+''','
                         +''''+Condition7+''','
                         +''''+Condition8+''','
                         +''''+Condition9+'''';
    AdoQry_Main.Open;
    if ShowAnimate<>nil then ShowAnimate.Free;
      if ShowPanel<>nil then ShowPanel.Free;
  end;
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder4.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Frm_Sal_Qry_AnalyzeShipOrder4_C.Release;
  Frm_Sal_Qry_AnalyzeShipOrder4_C:=Nil;
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder4.Act_LookExecute(Sender: TObject);
begin
  inherited;
  if AdoQry_Main.RecordCount=0 then exit;
  Application.CreateForm(TFrm_Sal_Qry_AnalyzeShipOrder4_D,Frm_Sal_Qry_AnalyzeShipOrder4_D);
  Frm_Sal_Qry_AnalyzeShipOrder4_D.SetUserParam(Param1,Param2,Param3,Param4,Param5,Param6);
  Frm_Sal_Qry_AnalyzeShipOrder4_D.SetSysParam(UserCode,ModuleCode,MenuId,LoginDate);
  Frm_Sal_Qry_AnalyzeShipOrder4_D.InitForm(DBConnect,'Query',AdoQry_Main);
  Frm_Sal_Qry_AnalyzeShipOrder4_D.Show;
end;

procedure TFrm_Sal_Qry_AnalyzeShipOrder4.Act_FilterExecute(
  Sender: TObject);
var
  Condition1,Condition2,Condition3,Condition4,
  Condition5,Condition6,Condition7,Condition8,Condition9:String;
begin
  If Frm_Sal_Qry_AnalyzeShipOrder4_C.ShowModal=Mrok Then
  begin
    CreatePanel(1,DBGridEh);
    Condition1:='(InvOutBill.InvBillDate Between '''''+CreateDateStArt+''''' And '''''+CreateDateend+''''') ';
    Condition2:='(isnull(InvOutBill.CustomerCode,'''''''') Between '''''+CustomerCodeStArt+''''' And '''''+CustomerCodeend+''''') ';
    Condition3:='(InvOutBill.InvBillNo Between '''''+SloNoStArt+''''' And '''''+SloNoend+''''') ';
    Condition4:='(isnull(InvOutBill.SaleType,'''''''') Between '''''+SaleTypeCodeStArt+''''' And '''''+SaleTypeCodeend+''''') ';
    Condition5:='(isnull(InvOutBill.DeptCode,'''''''') Between '''''+SaleDeptCodeStArt+''''' And '''''+SaleDeptCodeend+''''') ';
    Condition6:='(isnull(InvOutBill.Sal_EmployeeCode,'''''''') Between '''''+SaleEmployeeCodeStArt+''''' And '''''+SaleEmployeeCodeend+''''') ';
    Condition7:='(isnull(InvOutBill.PayTermCode,'''''''') Between '''''+PayTermCodeStArt+''''' And '''''+PayTermCodeend+''''') ';
    Condition8:='(isnull(InvOutBillLine.ItemCode,'''''''') Between '''''+ItemCodeStArt+''''' And '''''+ItemCodeend+''''') ';
    Condition9:='InvOutBill.CurrencyCode='''''+CurrencyCode+''''' ';
    GroupByFields:=' InvOutBill.SaleType ';
    AdoQry_Main.Close;
    AdoQry_Main.SQL.Text:=' Exec OutProductAnalyz ''4'','''+TmpTableName+''','''+GroupByFields+''','
                         +''''+Condition1+''','
                         +''''+Condition2+''','
                         +''''+Condition3+''','
                         +''''+Condition4+''','
                         +''''+Condition5+''','
                         +''''+Condition6+''','
                         +''''+Condition7+''','
                         +''''+Condition8+''','
                         +''''+Condition9+'''';
    AdoQry_Main.Open;
    if ShowAnimate<>nil then ShowAnimate.Free;
      if ShowPanel<>nil then ShowPanel.Free;
  end;
end;

end.