D7XHshengfang/盛纺贸易管理/U_XHList_ceshi1.pas

unit U_XHList_ceshi1;   //

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
  RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
  Menus, cxButtonEdit, cxDropDownEdit, cxPC, cxTextEdit;

type
  TfrmXHList_ceshi1 = class(TForm)
    ToolBar1: TToolBar;
    TBRafresh: TToolButton;
    TBFind: TToolButton;
    TBClose: TToolButton;
    cxGridPopupMenu1: TcxGridPopupMenu;
    ADOQueryMain: TADOQuery;
    DataSource1: TDataSource;
    TBExport: TToolButton;
    Order_Main: TClientDataSet;
    Panel1: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label11: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label24: TLabel;
    Label10: TLabel;
    Label1: TLabel;
    Label12: TLabel;
    BegDate: TDateTimePicker;
    EndDate: TDateTimePicker;
    OrderNo: TEdit;
    CustomerNoName: TEdit;
    JGFactoryName: TEdit;
    YWY: TEdit;
    MPRTCodeName: TEdit;
    ConNoHZ: TEdit;
    OrdDefStr1: TEdit;
    ISPH: TComboBox;
    PrtColor: TEdit;
    orderType: TComboBox;
    khConNo: TEdit;
    ComboBox2: TComboBox;
    Than: TComboBox;
    Panel2: TPanel;
    ADOQueryCmd: TADOQuery;
    cxGrid1: TcxGrid;
    TV1: TcxGridDBTableView;
    V2OrderNo: TcxGridDBColumn;
    V1ConNOHZ: TcxGridDBColumn;
    V1YWY: TcxGridDBColumn;
    V1OrdDate: TcxGridDBColumn;
    V1DlyDate: TcxGridDBColumn;
    V1CustomerNoName: TcxGridDBColumn;
    V1MPRTCodeName: TcxGridDBColumn;
    V1MPrtSpec: TcxGridDBColumn;
    V1PrtOrderQty: TcxGridDBColumn;
    V1orderUnit: TcxGridDBColumn;
    V1TP_RollNum: TcxGridDBColumn;
    V1TP_Qty: TcxGridDBColumn;
    V1TP_unit: TcxGridDBColumn;
    V1HC_RollNum: TcxGridDBColumn;
    V1HC_Qty: TcxGridDBColumn;
    V1TP_SH: TcxGridDBColumn;
    V1TP_SL: TcxGridDBColumn;
    V1RK_RollNum: TcxGridDBColumn;
    V1RK_KGQty: TcxGridDBColumn;
    V1jyCP_RollNum: TcxGridDBColumn;
    V1jyCP_KGQty: TcxGridDBColumn;
    V1JY_SH: TcxGridDBColumn;
    V1JY_SL: TcxGridDBColumn;
    V1CK_RollNum: TcxGridDBColumn;
    V1CK_Qty: TcxGridDBColumn;
    V1CK_Unit: TcxGridDBColumn;
    V1KC_RollNum: TcxGridDBColumn;
    V1KC_Qty: TcxGridDBColumn;
    cxGridLevel2: TcxGridLevel;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
    procedure TBFindClick(Sender: TObject);
    procedure TBExportClick(Sender: TObject);
    procedure TBRafreshClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CustomerNoNameChange(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure cxTabControl1Change(Sender: TObject);
    procedure ZJStatusChange(Sender: TObject);
  private
    canshu1:string;
    DQdate:TDateTime;
    procedure InitGrid();
    procedure InitForm();
    { Private declarations }
  public
    FFInt,FCloth:Integer;

    { Public declarations }
  end;

var
  frmXHList_ceshi1: TfrmXHList_ceshi1;

implementation
uses
  U_DataLink,U_RTFun, U_KHDYInPut, U_FjList_RZ,U_XHInPut, U_SKCR_CX,
  U_ZDYHelp;

{$R *.dfm}

procedure TfrmXHList_ceshi1.FormDestroy(Sender: TObject);
begin
  frmXHList_ceshi1:=nil;
end;

procedure TfrmXHList_ceshi1.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TfrmXHList_ceshi1.FormCreate(Sender: TObject);
begin
  canshu1:=Trim(DParameters1);
end;

procedure TfrmXHList_ceshi1.TBCloseClick(Sender: TObject);
begin
  WriteCxGrid('ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD>Ȳ<EFBFBD>ѯ3',Tv1,'ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  Close;
end;

procedure TfrmXHList_ceshi1.InitGrid();
var Tthan,strwhere:string;
begin
  if comboBox2.Text='<27>ز<EFBFBD><D8B2><EFBFBD><EFBFBD><EFBFBD>' then
  begin
    strwhere:=strwhere+' and exists(select X.ordMainIDRK from CK_SXPB_CR X where X.ordMainIDRK=mainID '+
                     ' and X.CKName=''<27><><EFBFBD>첼'' and X.CRType=''<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>'' '+
                     ' and X.CRTime>='''+trim(formatDatetime('yyyy-MM-dd',begdate.DateTime))+''''+
                     ' and X.CRTime<'''+trim(formatdatetime('yyyy-MM-dd',EndDate.DateTime+1))+''')';
  end
  else
  begin
    strwhere:=strwhere+' and A.OrdDate>='''+trim(formatDatetime('yyyy-MM-dd',begdate.DateTime))+''''+
                     ' and A.OrdDate<'''+trim(formatdatetime('yyyy-MM-dd',EndDate.DateTime+1))+'''';
  end;
  if trim(canshu1)<>'<27><>Ȩ<EFBFBD><C8A8>' then
  begin
    strwhere:=strwhere+' and (A.YWY='''+Trim(DName)+''' or A.Filler='''+Trim(DName)+''')';
  end;
  Tthan:='';
  if trim(than.Text)='<27><><EFBFBD><EFBFBD>' then
  begin
    Tthan:='1';
  end;
  if trim(than.Text)='С<>ڻ<EFBFBD><DABB><EFBFBD><EFBFBD><EFBFBD>' then
  begin
    Tthan:='2';
  end;
  try
    ADOQueryMain.DisableControls;
    with ADOQueryMain do
    begin
      Close;
      sql.Clear;
      sql.add('exec P_View_order_Jd :WSql,:Than');
      Parameters.ParamByName('WSql').Value:=strwhere;
      Parameters.ParamByName('Than').Value:=Tthan;
      Open;
    end;
    SCreateCDS20(ADOQueryMain,Order_Main);
    SInitCDSData20(ADOQueryMain,Order_Main);
  finally
    ADOQueryMain.EnableControls;
  end;
end;

procedure TfrmXHList_ceshi1.InitForm();
begin
  BegDate.Date:=SGetServerDate(ADOQueryCmd)-15;
  EndDate.Date:=SGetServerDate(ADOQueryCmd);
  ReadCxGrid('ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD>Ȳ<EFBFBD>ѯ3',Tv1,'ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  //InitGrid();
end;

procedure TfrmXHList_ceshi1.TBFindClick(Sender: TObject);
begin
  if ADOQueryMain.Active=False then Exit;
  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
  SCreateCDS20(ADOQueryMain,Order_Main);
  SInitCDSData20(ADOQueryMain,Order_Main);
end;

procedure TfrmXHList_ceshi1.TBExportClick(Sender: TObject);
begin
  if ADOQueryMain.IsEmpty then Exit;
  TcxGridToExcel('ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD>Ȳ<EFBFBD>ѯ',cxGrid1);
end;

procedure TfrmXHList_ceshi1.TBRafreshClick(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmXHList_ceshi1.FormShow(Sender: TObject);
begin
  InitForm();
end;

procedure TfrmXHList_ceshi1.CheckBox1Click(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmXHList_ceshi1.CheckBox2Click(Sender: TObject);
begin
  TBRafresh.Click;
end;

procedure TfrmXHList_ceshi1.CustomerNoNameChange(Sender: TObject);
begin
  if ADOQueryMain.Active=False then Exit;
  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
  SCreateCDS20(ADOQueryMain,Order_Main);
  SInitCDSData20(ADOQueryMain,Order_Main);
end;

procedure TfrmXHList_ceshi1.N2Click(Sender: TObject);
begin
  SelOKNo(Order_Main,True);
end;

procedure TfrmXHList_ceshi1.N1Click(Sender: TObject);
begin
  SelOKNo(Order_Main,False);
end;

procedure TfrmXHList_ceshi1.cxTabControl1Change(Sender: TObject);
begin
  InitGrid();
end;

procedure TfrmXHList_ceshi1.ZJStatusChange(Sender: TObject);
begin
  TBFind.Click;
end;

end.