sal_qry_totalshiporder4.pas

一个MRPII系统源代码版本

unit Sal_Qry_TotalShipOrder4;

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_TotalShipOrder4 = Class(TFrm_Base_Qry)
    DBText1: TDBText;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Act_LookExecute(Sender: TObject);
    procedure DBGridEhGetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: TGridDrawState);
    procedure Act_FilterExecute(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
     TmpTableName:String;
  public
    CreateDateStArt,CreateDateend,CustomerCodeStArt,CustomerCodeend,ShipnoStArt,Shipnoend,
    SaleTypeCodeStArt,SaleTypeCodeend,SaleDeptCodeStArt,SaleDeptCodeend,
    SaleEmployeeCodeStArt,SaleEmployeeCodeend,PayTermCodeStArt,PayTermCodeend,CurrencyCode:String;
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Sal_Qry_TotalShipOrder4: TFrm_Sal_Qry_TotalShipOrder4;

implementation

uses Sal_Qry_TotalShipOrder4_C, Sys_Global, Sal_Enter_ShipOrder;

{$R *.DFM}

{ TFrm_Sal_Qry_TotalShipOrder4 }

procedure TFrm_Sal_Qry_TotalShipOrder4.InitForm(
  AdOConnection: TAdOConnection; ShowExtendColumn: Boolean);
var
  Condition1,Condition2,Condition3,Condition4,
  Condition5,Condition6,Condition7,Condition8:String;
begin
  inherited;
  Frm_Sal_Qry_TotalShipOrder4_C:= TFrm_Sal_Qry_TotalShipOrder4_C.Create(self);
  Frm_Sal_Qry_TotalShipOrder4_C.SetDBConnect(DbConnect);
  If Frm_Sal_Qry_TotalShipOrder4_C.ShowModal=Mrok Then
  begin
    CreatePanel(1,DBGridEh);
    TmpTableName:='[##'+Trim(RandomString)+']';
    Condition1:='  (InvOutBill.InvBillDate Between '''''+CreateDateStArt+''''' And '''''+CreateDateend+''''') ';
    Condition2:='  (isnull(InvOutBill.CustomerCode,'''''''')  Between '''''+CustomerCodeStArt+''''' And '''''+CustomerCodeend+''''') ';
    Condition3:='  (InvOutBill.InvBillNO Between  '''''+ShipnoStArt+''''' And '''''+Shipnoend+''''') ';
    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:='  InvOutBill.CurrencyCode='''''+CurrencyCode+'''''  ' ;
    AdoQry_Main.Close;
    AdoQry_Main.SQL.Text:=' Exec AnalyzeSales ''4'','''+TmpTableName+''','
                         +''''+Condition1+''','
                         +''''+Condition2+''','
                         +''''+Condition3+''','
                         +''''+Condition4+''','
                         +''''+Condition5+''','
                         +''''+Condition6+''','
                         +''''+Condition7+''','
                         +''''+Condition8+'''';
    AdoQry_Main.Open;
    OrderByFields:='CustomerFlag,CreateDate ';
    GetData;
    if ShowAnimate<>nil then ShowAnimate.Free;
    if ShowPanel<>nil then ShowPanel.Free;
  end;
end;


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

procedure TFrm_Sal_Qry_TotalShipOrder4.Act_LookExecute(Sender: TObject);
begin
  inherited;
  if AdoQry_Main.RecordCount=0 then exit;
  if AdoQry_Main.fieldbyname('flag').asinteger=2 then exit;
  Application.CreateForm(TFrm_Sal_Enter_ShipOrder,Frm_Sal_Enter_ShipOrder);
  Frm_Sal_Enter_ShipOrder.SetUserParam(Param1,Param2,Param3,Param4,Param5,Param6);
  Frm_Sal_Enter_ShipOrder.SetSysParam(UserCode,ModuleCode,MenuId,LoginDate);
  Frm_Sal_Enter_ShipOrder.InitForm(DBConnect,'Query',AdoQry_Main);
  Frm_Sal_Enter_ShipOrder.ShowModal;
end;

procedure TFrm_Sal_Qry_TotalShipOrder4.DBGridEhGetCellParams(
  Sender: TObject; Column: TColumnEh; AFont: TFont; var Background: TColor;
  State: TGridDrawState);
begin
  inherited;
  if AdoQry_Main.fieldbyname('flag').AsInteger = 2 then
  begin
    Background:=$00F9D1C6;
    afont.Color:=clblack;
  end;
end;

procedure TFrm_Sal_Qry_TotalShipOrder4.Act_FilterExecute(Sender: TObject);
var
  Condition1,Condition2,Condition3,Condition4,
  Condition5,Condition6,Condition7,Condition8:String;
begin
  If Frm_Sal_Qry_TotalShipOrder4_C.ShowModal=Mrok Then
  begin
    CreatePanel(1,DBGridEh);
    TmpTableName:='[##'+Trim(RandomString)+']';
    Condition1:='  (InvOutBill.InvBillDate Between '''''+CreateDateStArt+''''' And '''''+CreateDateend+''''') ';
    Condition2:='  (isnull(InvOutBill.CustomerCode,'''''''')  Between '''''+CustomerCodeStArt+''''' And '''''+CustomerCodeend+''''') ';
    Condition3:='  (InvOutBill.InvBillNO Between  '''''+ShipnoStArt+''''' And '''''+Shipnoend+''''') ';
    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:='  InvOutBill.CurrencyCode='''''+CurrencyCode+'''''  ' ;
    AdoQry_Main.Close;
    AdoQry_Main.SQL.Text:=' Exec AnalyzeSales ''4'','''+TmpTableName+''','
                         +''''+Condition1+''','
                         +''''+Condition2+''','
                         +''''+Condition3+''','
                         +''''+Condition4+''','
                         +''''+Condition5+''','
                         +''''+Condition6+''','
                         +''''+Condition7+''','
                         +''''+Condition8+'''';
    AdoQry_Main.Open;
    OrderByFields:='CustomerFlag,CreateDate ';
    GetData;
    if ShowAnimate<>nil then ShowAnimate.Free;
    if ShowPanel<>nil then ShowPanel.Free;
  end;
end;

procedure TFrm_Sal_Qry_TotalShipOrder4.FormDestroy(Sender: TObject);
begin
  inherited;
  Frm_Sal_Qry_TotalShipOrder4:=Nil;
end;

end.