unit U_TradeMarketList_JDT;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
  cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
  cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
  StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
  cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
  RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
  cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
  dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
  dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore,
  dxSkinsDefaultPainters;

type
  TfrmTradeMarketList_JDT = class(TfrmBaseList)
    cxgrdpmn1: TcxGridPopupMenu;
    ADOQueryCmd: TADOQuery;
    ADOQueryMain: TADOQuery;
    ADOQueryTemp: TADOQuery;
    DataSource1: TDataSource;
    Order_Main: TClientDataSet;
    DataSource2: TDataSource;
    ADOQueryImage: TADOQuery;
    DSImage: TDataSource;
    IdFTP1: TIdFTP;
    PopupMenu2: TPopupMenu;
    N3: TMenuItem;
    N4: TMenuItem;
    cxgrdpmn2: TcxGridPopupMenu;
    CDS_WXTS: TClientDataSet;
    N2: TMenuItem;
    GPM_3: TcxGridPopupMenu;
    Panel1: TPanel;
    ToolBar1: TToolBar;
    cxGrid1: TcxGrid;
    Tv1: TcxGridDBTableView;
    v1Column16: TcxGridDBColumn;
    Tv1Column7: TcxGridDBColumn;
    v1OrdDate: TcxGridDBColumn;
    Tv1Column4: TcxGridDBColumn;
    Tv1Column6: TcxGridDBColumn;
    Tv1Column1: TcxGridDBColumn;
    Tv1Column8: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    cxGrid2: TcxGrid;
    Tv2: TcxGridDBTableView;
    cxGridLevel1: TcxGridLevel;
    Panel2: TPanel;
    ToolBar2: TToolBar;
    cxGrid3: TcxGrid;
    Tv3: TcxGridDBTableView;
    cxGridLevel2: TcxGridLevel;
    cxGrid4: TcxGrid;
    Tv4: TcxGridDBTableView;
    cxGridLevel3: TcxGridLevel;
    CDS_1: TClientDataSet;
    DataSource3: TDataSource;
    CDS_2: TClientDataSet;
    DataSource4: TDataSource;
    CDS_4: TClientDataSet;
    CDS_3: TClientDataSet;
    Tv2Column1: TcxGridDBColumn;
    Tv2Column2: TcxGridDBColumn;
    Tv2Column3: TcxGridDBColumn;
    Tv2Column4: TcxGridDBColumn;
    Tv2Column5: TcxGridDBColumn;
    Tv2Column6: TcxGridDBColumn;
    Tv2Column7: TcxGridDBColumn;
    Tv3Column1: TcxGridDBColumn;
    Tv3Column2: TcxGridDBColumn;
    Tv3Column3: TcxGridDBColumn;
    Tv3Column4: TcxGridDBColumn;
    Tv3Column5: TcxGridDBColumn;
    Tv3Column6: TcxGridDBColumn;
    Tv4Column1: TcxGridDBColumn;
    Tv4Column2: TcxGridDBColumn;
    Tv4Column3: TcxGridDBColumn;
    Tv4Column4: TcxGridDBColumn;
    Tv4Column5: TcxGridDBColumn;
    Tv4Column6: TcxGridDBColumn;
    Tv4Column7: TcxGridDBColumn;
    Tv3Column7: TcxGridDBColumn;
    ADO_1: TADOQuery;
    ADO_2: TADOQuery;
    ADO_3: TADOQuery;
    ADO_4: TADOQuery;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ToolBar3: TToolBar;
    Label4: TLabel;
    ToolBar4: TToolBar;
    Label5: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    DQdate: TDateTime;
    procedure InitGrid();
    procedure InitGrid1();
    procedure InitGrid2();
    procedure InitGrid3();
    procedure InitGrid4();
//    procedure InitForm();

    { Private declarations }
  public
    canshu1, canshu2, canshu4, FOrdType: string;

    { Public declarations }
  end;

var
  frmTradeMarketList_JDT: TfrmTradeMarketList_JDT;

implementation

uses
  U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload,
  U_TradeMarketInPut;

{$R *.dfm}

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

procedure TfrmTradeMarketList_JDT.FormShow(Sender: TObject);
begin
  inherited;
  InitGrid1();
  InitGrid2();
  InitGrid3();
  InitGrid4();

//  InitForm();
end;

procedure TfrmTradeMarketList_JDT.InitGrid();
begin
  with ADO_1 do
  begin
    Close;
    sql.clear;
    sql.add('select  cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as  Urgent,*  from  Trade_Market_Main A	inner join Trade_Market_Sub B on B.TMMId=A.TMMId  ');
    sql.add('where 1=1');
    Open;
  end;
  SCreateCDS(ADO_1, CDS_1);
  SInitCDSData(ADO_1, CDS_1);
  SCreateCDS(ADO_1, CDS_2);
  SInitCDSData(ADO_1, CDS_2);
  SCreateCDS(ADO_1, CDS_3);
  SInitCDSData(ADO_1, CDS_3);
  SCreateCDS(ADO_1, CDS_4);
  SInitCDSData(ADO_1, CDS_4);
end;

procedure TfrmTradeMarketList_JDT.InitGrid1();
begin
  with ADO_1 do
  begin
    Close;
    sql.clear;
    sql.add('select  cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as  Urgent,*  from  Trade_Market_Main A	inner join Trade_Market_Sub B on B.TMMId=A.TMMId  ');
    sql.add('where 1=1 ');
    sql.add('and AddressArea=''潘郎线P'' ');
    Open;
  end;
  SCreateCDS(ADO_1, CDS_1);
  SInitCDSData(ADO_1, CDS_1);
end;

procedure TfrmTradeMarketList_JDT.InitGrid2();
begin
  with ADO_2 do
  begin
    Close;
    sql.clear;
    sql.add('select  cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as  Urgent,*  from  Trade_Market_Main A	inner join Trade_Market_Sub B on B.TMMId=A.TMMId  ');
    sql.add('where 1=1');
    sql.add('and AddressArea=''石刺头线C'' ');
    Open;
  end;
  SCreateCDS(ADO_2, CDS_2);
  SInitCDSData(ADO_2, CDS_2);
end;

procedure TfrmTradeMarketList_JDT.InitGrid3();
begin
  with ADO_3 do
  begin
    Close;
    sql.clear;
    sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as  Urgent,*  from  Trade_Market_Main A	inner join Trade_Market_Sub B on B.TMMId=A.TMMId  ');
    sql.add('where 1=1');
    sql.add('and AddressArea=''牧屿线M'' ');
    Open;
  end;
  SCreateCDS(ADO_3, CDS_3);
  SInitCDSData(ADO_3, CDS_3);
end;

procedure TfrmTradeMarketList_JDT.InitGrid4();
begin
  with ADO_4 do
  begin
    Close;
    sql.clear;
    sql.add('select  cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as  Urgent,*  from  Trade_Market_Main A	inner join Trade_Market_Sub B on B.TMMId=A.TMMId  ');
    sql.add('where 1=1');
    sql.add('and AddressArea=''新余'' ');
    Open;
  end;
  SCreateCDS(ADO_4, CDS_4);
  SInitCDSData(ADO_4, CDS_4);
end;

end.