D7myChengxie/统计查询(Statistics.dll)/U_OrderJD.pas

unit U_OrderJD;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGrid, cxCheckBox, cxCalendar,
  ADODB, DBClient;

type
  TfrmOrderJD = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    orderNo: TEdit;
    GroupBox1: TGroupBox;
    Panel2: TPanel;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1Column4: TcxGridDBColumn;
    v1OrderNo: TcxGridDBColumn;
    v1ConNo: TcxGridDBColumn;
    v1Column11: TcxGridDBColumn;
    v1OrdPerson1: TcxGridDBColumn;
    v1OrdDate: TcxGridDBColumn;
    v1DeliveryDate: TcxGridDBColumn;
    v1CustomerNoName: TcxGridDBColumn;
    v1MPRTCodeName: TcxGridDBColumn;
    v1MPrtSpec: TcxGridDBColumn;
    v1Column1: TcxGridDBColumn;
    v1SordQtY1: TcxGridDBColumn;
    v1PRTOrderQty: TcxGridDBColumn;
    v1ordderNote1: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    v1Column2: TcxGridDBColumn;
    CDS_Order: TClientDataSet;
    DS_Order: TDataSource;
    ADOQueryMain: TADOQuery;
    cxGrid2: TcxGrid;
    TV2: TcxGridDBTableView;
    cxGridLevel1: TcxGridLevel;
    V2Column1: TcxGridDBColumn;
    V2Column2: TcxGridDBColumn;
    V2Column3: TcxGridDBColumn;
    V2Column4: TcxGridDBColumn;
    cxGrid3: TcxGrid;
    TV3: TcxGridDBTableView;
    cxGridDBColumn1: TcxGridDBColumn;
    cxGridDBColumn2: TcxGridDBColumn;
    cxGridDBColumn5: TcxGridDBColumn;
    cxGridDBColumn6: TcxGridDBColumn;
    cxGridLevel2: TcxGridLevel;
    CDS_CG: TClientDataSet;
    DS_CG: TDataSource;
    DS_DH: TDataSource;
    CDS_DH: TClientDataSet;
    CDS_TP: TClientDataSet;
    DS_TP: TDataSource;
    Panel3: TPanel;
    GroupBox5: TGroupBox;
    cxGrid5: TcxGrid;
    TV5: TcxGridDBTableView;
    cxGridDBColumn4: TcxGridDBColumn;
    cxGridDBColumn9: TcxGridDBColumn;
    cxGridDBColumn10: TcxGridDBColumn;
    cxGridLevel4: TcxGridLevel;
    GroupBox4: TGroupBox;
    cxGrid4: TcxGrid;
    TV4: TcxGridDBTableView;
    cxGridDBColumn3: TcxGridDBColumn;
    cxGridDBColumn7: TcxGridDBColumn;
    cxGridDBColumn8: TcxGridDBColumn;
    cxGridLevel3: TcxGridLevel;
    V4Column1: TcxGridDBColumn;
    V5Column1: TcxGridDBColumn;
    CDS_FH: TClientDataSet;
    DS_FH: TDataSource;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure orderNoKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    Procedure InitOrder();
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmOrderJD: TfrmOrderJD;

implementation
uses
  U_DataLink,U_Fun;
{$R *.dfm}
Procedure TfrmOrderJD.InitOrder();
begin
  with adoqueryMain do
  begin
    close;
    sql.Clear;
    sql.Add('exec P_View_OrderProgressDetails');
    sql.Add(' @OrderNo='+quotedstr(trim(orderNo.Text)));
    sql.Add(',@flag=''<27>ƻ<EFBFBD><C6BB><EFBFBD>''');
    open;
  end;
  SCreateCDS20(adoqueryMain,CDS_Order);
  SInitCDSData20(adoqueryMain,CDS_Order);

  with adoqueryMain do
  begin
    close;
    sql.Clear;
    sql.Add('exec P_View_OrderProgressDetails');
    sql.Add(' @OrderNo='+quotedstr(trim(orderNo.Text)));
    sql.Add(',@flag=''<27><><EFBFBD><EFBFBD>''');
    open;
  end;

  SCreateCDS20(adoqueryMain,CDS_CG);
  SInitCDSData20(adoqueryMain,CDS_CG);
  with adoqueryMain do
  begin
    close;
    sql.Clear;
    sql.Add('exec P_View_OrderProgressDetails');
    sql.Add(' @OrderNo='+quotedstr(trim(orderNo.Text)));
    sql.Add(',@flag=''<27><><EFBFBD>ӹ<EFBFBD>''');
    open;
  end;

  SCreateCDS20(adoqueryMain,CDS_DH);
  SInitCDSData20(adoqueryMain,CDS_DH);

  with adoqueryMain do
  begin
    close;
    sql.Clear;
    sql.Add('exec P_View_OrderProgressDetails');
    sql.Add(' @OrderNo='+quotedstr(trim(orderNo.Text)));
    sql.Add(',@flag=''<27><><EFBFBD>첼''');
    open;
  end;

  SCreateCDS20(adoqueryMain,CDS_TP);
  SInitCDSData20(adoqueryMain,CDS_TP);

  with adoqueryMain do
  begin
    close;
    sql.Clear;
    sql.Add('exec P_View_OrderProgressDetails');
    sql.Add(' @OrderNo='+quotedstr(trim(orderNo.Text)));
    sql.Add(',@flag=''<27><>Ʒ''');
    open;
  end;

  SCreateCDS20(adoqueryMain,CDS_FH);
  SInitCDSData20(adoqueryMain,CDS_FH);

end;
procedure TfrmOrderJD.FormDestroy(Sender: TObject);
begin
 frmOrderJD:=nil;
end;

procedure TfrmOrderJD.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;
end;

procedure TfrmOrderJD.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
  IF key=#13 then
  begin
    IF trim(orderNo.Text)='' then exit;
    InitOrder();
  end;
end;

procedure TfrmOrderJD.FormShow(Sender: TObject);
begin
  InitOrder();
end;

end.