223 lines
6.3 KiB
ObjectPascal
223 lines
6.3 KiB
ObjectPascal
unit U_TradeMarketList_JD;
|
||
|
||
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_JD = 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;
|
||
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_JD: TfrmTradeMarketList_JD;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload,
|
||
U_TradeMarketInPut;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmTradeMarketList_JD.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
inherited;
|
||
inherited;
|
||
Action := caFree;
|
||
end;
|
||
|
||
procedure TfrmTradeMarketList_JD.FormShow(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
InitGrid1();
|
||
InitGrid2();
|
||
InitGrid3();
|
||
InitGrid4();
|
||
|
||
// InitForm();
|
||
end;
|
||
|
||
procedure TfrmTradeMarketList_JD.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_JD.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=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>W'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADO_1, CDS_1);
|
||
SInitCDSData(ADO_1, CDS_1);
|
||
end;
|
||
|
||
procedure TfrmTradeMarketList_JD.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=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>D'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADO_2, CDS_2);
|
||
SInitCDSData(ADO_2, CDS_2);
|
||
end;
|
||
|
||
procedure TfrmTradeMarketList_JD.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=''ʯճ<CAAF><D5B3>S'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADO_3, CDS_3);
|
||
SInitCDSData(ADO_3, CDS_3);
|
||
end;
|
||
|
||
procedure TfrmTradeMarketList_JD.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=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Y'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADO_4, CDS_4);
|
||
SInitCDSData(ADO_4, CDS_4);
|
||
end;
|
||
|
||
end.
|
||
|