diff --git a/A00通用窗体/U_CompanySel.pas b/A00通用窗体/U_CompanySel.pas
index 10563bd..2d3c2e9 100644
--- a/A00通用窗体/U_CompanySel.pas
+++ b/A00通用窗体/U_CompanySel.pas
@@ -1,4 +1,4 @@
-unit U_CompanySel;
+unit U_CompanySel ;
interface
diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dpr b/T02贸易汇总仓库/TradeTotalClothStk.dpr
index d4a9ee9..2d1341b 100644
--- a/T02贸易汇总仓库/TradeTotalClothStk.dpr
+++ b/T02贸易汇总仓库/TradeTotalClothStk.dpr
@@ -28,7 +28,7 @@ uses
U_PurchaseContractSel in '..\T00óͨô\U_PurchaseContractSel.pas' {frmPurchaseContractSel},
U_TradeClothOutInspList in 'U_TradeClothOutInspList.pas' {frmTradeClothOutInspList},
U_PictureList in '..\A00ͨô\U_PictureList.pas' {frmPictureList},
- U_CompanySel in '..\A00ͨô\U_CompanySel.pas' {frmCompanySel},
+ U_MachineManageSel in '..\A00ͨô\U_MachineManageSel.pas' {frmMachineManageSel},
U_TradeGreyClothInEdit in 'U_TradeGreyClothInEdit.pas' {frmTradeGreyClothInEdit},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_TradeGreyClothInList in 'U_TradeGreyClothInList.pas' {frmTradeGreyClothInList},
@@ -78,7 +78,7 @@ uses
U_TradeRRInPut in 'U_TradeRRInPut.pas' {frmTradeRRInPut},
U_RPFun in '..\..\..\public10\ThreeFun\Fun\U_RPFun.pas',
U_InputReceiptType in 'U_InputReceiptType.pas' {frmInputReceiptType},
- U_MachineManageSel in '..\A00ͨô\U_MachineManageSel.pas' {frmMachineManageSel};
+ U_CompanySel in '..\A00ͨô\U_CompanySel.pas' {frmCompanySel};
{$R *.res}
diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dproj b/T02贸易汇总仓库/TradeTotalClothStk.dproj
index 617118e..4abaabd 100644
--- a/T02贸易汇总仓库/TradeTotalClothStk.dproj
+++ b/T02贸易汇总仓库/TradeTotalClothStk.dproj
@@ -196,8 +196,8 @@
dfm
-
-
+
+
dfm
@@ -364,8 +364,8 @@
-
-
+
+
dfm
diff --git a/T02贸易汇总仓库/U_PlanScanInEdit.dfm b/T02贸易汇总仓库/U_PlanScanInEdit.dfm
index 4d0eacb..6ff733d 100644
--- a/T02贸易汇总仓库/U_PlanScanInEdit.dfm
+++ b/T02贸易汇总仓库/U_PlanScanInEdit.dfm
@@ -1,30 +1,30 @@
inherited frmPlanScanInEdit: TfrmPlanScanInEdit
Caption = #24211#23384#24211#20301#25195#25551
- ClientHeight = 632
- ClientWidth = 1350
+ ClientHeight = 473
+ ClientWidth = 1172
Visible = True
- ExplicitWidth = 1366
- ExplicitHeight = 671
+ ExplicitWidth = 1188
+ ExplicitHeight = 512
PixelsPerInch = 96
TextHeight = 17
object Panel1: TPanel [0]
Left = 0
Top = 0
- Width = 1350
+ Width = 1172
Height = 145
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
+ ExplicitWidth = 1350
object Panel3: TPanel
Left = 2
Top = 2
- Width = 1346
+ Width = 1168
Height = 141
Align = alClient
TabOrder = 0
- ExplicitLeft = 3
- ExplicitTop = -1
+ ExplicitWidth = 1346
object Label6: TLabel
Left = 13
Top = 68
@@ -92,7 +92,7 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
Tag = 1
Left = 1
Top = 1
- Width = 1344
+ Width = 1166
Height = 30
AutoSize = True
ButtonHeight = 30
@@ -110,6 +110,7 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
ParentFont = False
ShowCaptions = True
TabOrder = 0
+ ExplicitWidth = 1344
object ToolButton3: TToolButton
Left = 0
Top = 0
@@ -166,13 +167,14 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
TabOrder = 1
OnKeyPress = edtScanKeyPress
end
- object IOPosition: TBtnEditA
+ object wlCompany: TBtnEditA
+ Tag = 1
Left = 535
Top = 69
Width = 121
- Height = 30
+ Height = 26
TabOrder = 2
- OnBtnClick = IOPositionBtnClick
+ OnBtnClick = wlCompanyBtnClick
end
object InNo: TEdit
Left = 1070
@@ -208,32 +210,44 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
#36864#36135#20837#24211)
end
object carPlate: TBtnEditA
+ Tag = 1
Left = 742
Top = 69
Width = 121
- Height = 30
+ Height = 26
TabOrder = 6
OnBtnClick = carPlateBtnClick
end
+ object Tqueren: TButton
+ Left = 896
+ Top = 69
+ Width = 75
+ Height = 25
+ Caption = #30830#23450#32465#23450
+ TabOrder = 7
+ OnClick = TquerenClick
+ end
end
end
object Panel2: TPanel [1]
Left = 0
Top = 145
- Width = 1350
- Height = 487
+ Width = 1172
+ Height = 328
Align = alClient
Caption = 'Panel2'
TabOrder = 3
+ ExplicitWidth = 1350
+ ExplicitHeight = 487
object cxGrid3: TcxGrid
Left = 1
Top = 1
- Width = 1348
- Height = 485
+ Width = 1170
+ Height = 326
Align = alClient
TabOrder = 0
- ExplicitLeft = 2
- ExplicitTop = -2
+ ExplicitWidth = 1348
+ ExplicitHeight = 485
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -264,11 +278,49 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
OptionsView.GroupByBox = False
object cxGridDBColumn4: TcxGridDBColumn
Caption = #20986#24211#21333
- DataBinding.FieldName = 'PieceNo'
+ DataBinding.FieldName = 'BCIONO'
DataBinding.IsNullValueType = True
+ FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
+ HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
- Width = 207
+ Width = 90
+ end
+ object Tv3Column1: TcxGridDBColumn
+ Caption = #23458#25143
+ DataBinding.FieldName = 'ToCoName'
+ DataBinding.IsNullValueType = True
+ FooterAlignmentHorz = taCenter
+ HeaderAlignmentHorz = taCenter
+ HeaderGlyphAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv3Column2: TcxGridDBColumn
+ Caption = #21697#21517
+ DataBinding.FieldName = 'C_Name'
+ DataBinding.IsNullValueType = True
+ FooterAlignmentHorz = taCenter
+ HeaderAlignmentHorz = taCenter
+ HeaderGlyphAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv3Column3: TcxGridDBColumn
+ Caption = #21305#25968
+ DataBinding.FieldName = 'Pieceint'
+ DataBinding.IsNullValueType = True
+ FooterAlignmentHorz = taCenter
+ HeaderAlignmentHorz = taCenter
+ HeaderGlyphAlignmentHorz = taCenter
+ Width = 90
+ end
+ object Tv3Column4: TcxGridDBColumn
+ Caption = #25968#37327
+ DataBinding.FieldName = 'Qty'
+ DataBinding.IsNullValueType = True
+ FooterAlignmentHorz = taCenter
+ HeaderAlignmentHorz = taCenter
+ HeaderGlyphAlignmentHorz = taCenter
+ Width = 90
end
end
object cxGridLevel1: TcxGridLevel
diff --git a/T02贸易汇总仓库/U_PlanScanInEdit.pas b/T02贸易汇总仓库/U_PlanScanInEdit.pas
index 3f594b8..df4f414 100644
--- a/T02贸易汇总仓库/U_PlanScanInEdit.pas
+++ b/T02贸易汇总仓库/U_PlanScanInEdit.pas
@@ -61,7 +61,7 @@ type
Label1: TLabel;
ToolButton5: TToolButton;
Label2: TLabel;
- IOPosition: TBtnEditA;
+ wlCompany: TBtnEditA;
Label5: TLabel;
InNo: TEdit;
Label4: TLabel;
@@ -69,6 +69,11 @@ type
Label11: TLabel;
CRType: TComboBox;
carPlate: TBtnEditA;
+ Tv3Column1: TcxGridDBColumn;
+ Tv3Column2: TcxGridDBColumn;
+ Tv3Column3: TcxGridDBColumn;
+ Tv3Column4: TcxGridDBColumn;
+ Tqueren: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
@@ -78,11 +83,12 @@ type
procedure ToolButton8Click(Sender: TObject);
procedure edtScanKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton5Click(Sender: TObject);
- procedure IOPositionBtnClick(Sender: TObject);
+ procedure wlCompanyBtnClick(Sender: TObject);
procedure carPlateBtnClick(Sender: TObject);
+ procedure TquerenClick(Sender: TObject);
private
{ Private declarations }
- FScan, FSubIds: string;
+ FScan, FSubIds,FZCID: string;
procedure PlayWav(MWav: string);
procedure InitKC();
procedure ScanKW();
@@ -111,20 +117,16 @@ end;
procedure TfrmPlanScanInEdit.InitKC();
begin
- if IOPosition.Text = '' then
+ if carPlate.Text = '' then
exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
- sql.Add('select A.IOFlag,A.IONo,A.IOID,A.IOPosition,B.* from Trade_Cloth_IO A ');
- sql.Add('inner join Trade_Cloth_Stock B on A.StkId=B.StkId and A.IOCycles=B.StkCycles ');
- sql.Add('where A.IOFlag='''' and B.StkExists=1 ');
- if IOPosition.Text <> '' then
- sql.add('and IOPosition =' + QuotedStr(TRIm(IOPosition.Text)))
- else
- sql.add('and 1=2');
+ sql.Add('select A.* from Trade_Cloth_IO A ');
+ sql.Add('where A.ioFlag='''' ');
+ sql.add('and VNO =' + QuotedStr(TRIm(FScan)));
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_3);
@@ -145,7 +147,7 @@ begin
open;
end;
- IOPosition.Text := ADOQueryTemp.FieldByName('posno').AsString;
+ wlCompany.Text := ADOQueryTemp.FieldByName('posno').AsString;
btnGetOutNo.Click;
except
@@ -159,7 +161,7 @@ var
MStkIds: string;
begin
try
- if Trim(IOPosition.Text) = '' then
+ if Trim(wlCompany.Text) = '' then
raise Exception.Create('λΪ!');
if Trim(InNo.Text) = '' then
raise Exception.Create('ⵥŲΪ!');
@@ -178,7 +180,7 @@ begin
Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime)));
Sql.Add(',@IOType=' + Quotedstr(crtype.Text));
Sql.Add(',@IONO=' + Quotedstr(InNo.Text));
- Sql.Add(',@StkPosition=' + Quotedstr(IOPosition.Text));
+ Sql.Add(',@StkPosition=' + Quotedstr(wlCompany.Text));
Sql.Add(',@FillId=' + Quotedstr(DCode));
Sql.Add(',@Filler=' + Quotedstr(DName));
// ShowMessage(sql.Text);
@@ -284,7 +286,7 @@ begin
end; }
end;
-procedure TfrmPlanScanInEdit.IOPositionBtnClick(Sender: TObject);
+procedure TfrmPlanScanInEdit.wlCompanyBtnClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -312,7 +314,7 @@ begin
begin
if ShowModal = 1 then
begin
- carPlate.text := Trim(CDS_HZ.fieldbyname('VNO').AsString);
+ carPlate.text := Trim(CDS_1.fieldbyname('VNO').AsString);
end;
end;
finally
@@ -346,5 +348,117 @@ begin
WriteCxGrid(self.caption + 'Tv3', Tv3, 'Ʒֿ');
end;
+procedure TfrmPlanScanInEdit.TquerenClick(Sender: TObject);
+var
+ MaxMid, MaxSid: string;
+begin
+ try
+ ADOQueryCmd.Connection.BeginTrans;
+ ///////////////// /////////////////
+ if Trim(FZCID) = '' then
+ begin
+ if GetLSNo(ADOQueryCmd, MaxMid, 'ZC', 'Trade_Market_CarTransport', 4, 1) = False then
+ raise Exception.Create('ȡʧܣ');
+ end
+ else
+ begin
+ MaxMid := Trim(FZCID);
+ end;
+ with ADOQueryCmd do
+ begin
+ Close;
+ sql.Clear;
+ SQL.Add('select * from Trade_Market_CarTransport where ZCID=''' + Trim(MaxMid) + '''');
+ Open;
+ end;
+ with ADOQueryCmd do
+ begin
+ if Trim(FZCID) = '' then
+ begin
+ Append;
+ FieldByName('FillID').Value := Trim(DCode);
+ FieldByName('Filler').Value := Trim(DName);
+ end
+ else
+ begin
+ Edit;
+ FieldByName('EditID').Value := Trim(DCode);
+ FieldByName('Editer').Value := Trim(DName);
+ FieldByName('EditTime').Value := SGetServerDateTime(ADOQuerytemp);
+ end;
+ RTSetsavedata(ADOQueryCmd, 'Trade_Market_CarTransport', panel3, 1);
+
+
+ FieldByName('DRMID').Value := Trim(MaxMid);
+
+ Post;
+ end;
+ ///////////////// /////////////////
+ ///
+ ///////////////// ӱ /////////////////
+ CDS_3.DisableControls;
+ with CDS_3 do
+ begin
+ First;
+ while not Eof do
+ begin
+ if Trim(CDS_3.fieldbyname('ZCMXID').AsString) = '' then
+ begin
+ if GetLSNo(ADOQueryCmd, MaxSid, 'DS', 'Trade_Market_CarTransportSub', 4, 1) = False then
+ raise Exception.Create('ȡˮʧܣ');
+ end
+ else
+ begin
+ MaxSid := Trim(CDS_3.fieldbyname('DRSID').AsString);
+ end;
+
+ with ADOQueryCmd do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from Trade_Market_CarTransportSub ');
+ sql.Add(' where DRMID=''' + Trim(MaxMid) + '''');
+ sql.Add(' and DRSID=''' + Trim(MaxSid) + '''');
+ Open;
+ if ADOQueryCmd.IsEmpty then
+ begin
+ Append;
+ end
+ else
+ begin
+ Edit;
+ end;
+ RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3, 'Trade_Market_CarTransportSub', 0);
+ FieldByName('DRMID').Value := Trim(MaxMid);
+ FieldByName('DRSID').Value := Trim(MaxSid);
+// FieldByName('QtyUnit').Value := QtyUnit.Text;
+ FieldByName('MainId').Value := CDS_3.fieldbyname('MainId').Value;
+ FieldByName('SubId').Value := CDS_3.fieldbyname('SubId').Value;
+ FieldByName('ConMId').Value := CDS_3.fieldbyname('ConMId').Value;
+ FieldByName('ConSId').Value := CDS_3.fieldbyname('ConSId').Value;
+
+ FieldByName('ToConNo').Value := CDS_3.fieldbyname('ToConNo').Value;
+ FieldByName('ToConMId').Value := CDS_3.fieldbyname('ToConMId').Value;
+ FieldByName('ToConSId').Value := CDS_3.fieldbyname('ToConSId').Value;
+
+ Post;
+ end;
+ CDS_3.Edit;
+ CDS_3.FieldByName('DRSID').Value := Trim(MaxSid);
+ Next;
+ end;
+ end;
+ CDS_3.EnableControls;
+ ///////////////// ӱ /////////////////
+ FZCID := Trim(MaxMid);
+ ADOQueryCmd.Connection.CommitTrans;
+// Result := True;
+ except
+ ADOQueryCmd.Connection.RollbackTrans;
+ application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0);
+// Result := False;
+ end;
+end;
+
end.
diff --git a/T05贸易门市管理/U_GetDllForm.pas b/T05贸易门市管理/U_GetDllForm.pas
index a2b86cb..ac4b1ac 100644
--- a/T05贸易门市管理/U_GetDllForm.pas
+++ b/T05贸易门市管理/U_GetDllForm.pas
@@ -16,7 +16,7 @@ implementation
uses
U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList,
- U_TradeMarketList_JD, U_TradeMarketList_XY;
+ U_TradeMarketList_JD, U_TradeMarketList_XY,U_TradeMarketList_JDT;
/////////////////////////////////////////////////////////////////
// ˵:ȡDllеô //
@@ -166,7 +166,18 @@ begin
mnewHandle := Handle;
end;
end;
-
+ 113: // 2
+ begin
+ with TfrmTradeMarketList_JDT.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
+ begin
+ fFormID := FormID;
+ FOrdType := '';
+ FormStyle := mstyle;
+ WindowState := mstate;
+ BorderStyle := mborderstyle;
+ mnewHandle := Handle;
+ end;
+ end;
// 112: //
// begin
// with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10),formId,title) do //
diff --git a/T05贸易门市管理/U_TradeMarketList_JD.dfm b/T05贸易门市管理/U_TradeMarketList_JD.dfm
index b4f809b..a8f1023 100644
--- a/T05贸易门市管理/U_TradeMarketList_JD.dfm
+++ b/T05贸易门市管理/U_TradeMarketList_JD.dfm
@@ -47,6 +47,19 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
List = True
ShowCaptions = True
TabOrder = 0
+ object Label1: TLabel
+ Left = 0
+ Top = 0
+ Width = 76
+ Height = 30
+ Caption = #28201#23725#21439'W'
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -19
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
end
object cxGrid1: TcxGrid
Left = 1
@@ -141,11 +154,13 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
end
object cxGrid2: TcxGrid
Left = 1
- Top = 401
+ Top = 431
Width = 782
- Height = 232
+ Height = 202
Align = alClient
TabOrder = 2
+ ExplicitTop = 401
+ ExplicitHeight = 232
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -225,6 +240,34 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
GridView = Tv2
end
end
+ object ToolBar4: TToolBar
+ Tag = 1
+ Left = 1
+ Top = 401
+ Width = 782
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 67
+ Caption = 'ToolBar1'
+ Images = DataLink_TradeMarket.cxImageList_bar
+ List = True
+ ShowCaptions = True
+ TabOrder = 3
+ object Label5: TLabel
+ Left = 0
+ Top = 0
+ Width = 71
+ Height = 30
+ Caption = #19996#22616#32447'D'
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -19
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ end
end
object Panel2: TPanel [3]
Left = 784
@@ -247,6 +290,31 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
List = True
ShowCaptions = True
TabOrder = 0
+ object Label3: TLabel
+ Left = 0
+ Top = 0
+ Width = 68
+ Height = 30
+ Caption = #30707#31896#32447'S'
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -19
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label2: TLabel
+ Left = 68
+ Top = 0
+ Width = 6
+ Height = 30
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -19
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
end
object cxGrid3: TcxGrid
Left = 1
@@ -333,11 +401,13 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
end
object cxGrid4: TcxGrid
Left = 1
- Top = 395
+ Top = 425
Width = 637
- Height = 238
+ Height = 208
Align = alClient
TabOrder = 2
+ ExplicitTop = 395
+ ExplicitHeight = 238
object Tv4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -414,6 +484,34 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
GridView = Tv4
end
end
+ object ToolBar3: TToolBar
+ Tag = 1
+ Left = 1
+ Top = 395
+ Width = 637
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 67
+ Caption = 'ToolBar1'
+ Images = DataLink_TradeMarket.cxImageList_bar
+ List = True
+ ShowCaptions = True
+ TabOrder = 3
+ object Label4: TLabel
+ Left = 0
+ Top = 0
+ Width = 68
+ Height = 30
+ Caption = #19978#27915#26519'Y'
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -19
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
diff --git a/T05贸易门市管理/U_TradeMarketList_JD.pas b/T05贸易门市管理/U_TradeMarketList_JD.pas
index 6542888..09f706d 100644
--- a/T05贸易门市管理/U_TradeMarketList_JD.pas
+++ b/T05贸易门市管理/U_TradeMarketList_JD.pas
@@ -91,6 +91,13 @@ type
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
diff --git a/T05贸易门市管理/U_TradeMarketList_JDT.dfm b/T05贸易门市管理/U_TradeMarketList_JDT.dfm
new file mode 100644
index 0000000..73a357b
--- /dev/null
+++ b/T05贸易门市管理/U_TradeMarketList_JDT.dfm
@@ -0,0 +1,681 @@
+inherited frmTradeMarketList_JDT: TfrmTradeMarketList_JDT
+ Left = 165
+ Top = 13
+ Caption = #22823#23631#26174#31034'2'
+ ClientHeight = 634
+ ClientWidth = 1423
+ Color = clBtnFace
+ Font.Height = -16
+ FormStyle = fsMDIChild
+ Position = poScreenCenter
+ Visible = True
+ ExplicitWidth = 1439
+ ExplicitHeight = 673
+ PixelsPerInch = 96
+ TextHeight = 21
+ inherited loadProcess: TPanel
+ Left = 720
+ Top = 354
+ ExplicitLeft = 720
+ ExplicitTop = 354
+ end
+ inherited cxProgressBar2: TcxProgressBar
+ Left = 720
+ Top = 296
+ ExplicitLeft = 720
+ ExplicitTop = 296
+ ExplicitHeight = 29
+ end
+ object Panel1: TPanel [2]
+ Left = 0
+ Top = 0
+ Width = 784
+ Height = 634
+ Align = alLeft
+ TabOrder = 2
+ object ToolBar1: TToolBar
+ Tag = 1
+ Left = 1
+ Top = 1
+ Width = 782
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 67
+ Caption = 'ToolBar1'
+ Images = DataLink_TradeMarket.cxImageList_bar
+ List = True
+ ShowCaptions = True
+ TabOrder = 0
+ object Label1: TLabel
+ Left = 0
+ Top = 0
+ Width = 69
+ Height = 30
+ Caption = #28504#37070#32447'P'
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -19
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ end
+ object cxGrid1: TcxGrid
+ Left = 1
+ Top = 31
+ Width = 782
+ Height = 370
+ Align = alTop
+ TabOrder = 1
+ object Tv1: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DataSource1
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.CellHints = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.IndicatorWidth = 30
+ object v1Column16: TcxGridDBColumn
+ Caption = #26159#21542#21152#24613
+ DataBinding.FieldName = 'Urgent'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.ImmediatePost = True
+ Properties.NullStyle = nssUnchecked
+ HeaderAlignmentHorz = taCenter
+ Width = 77
+ end
+ object Tv1Column7: TcxGridDBColumn
+ Caption = #21333#25454#32534#21495
+ DataBinding.FieldName = 'TMMNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 77
+ end
+ object v1OrdDate: TcxGridDBColumn
+ Caption = #21046#21333#26085#26399
+ DataBinding.FieldName = 'TMMDate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.ShowTime = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 77
+ end
+ object Tv1Column4: TcxGridDBColumn
+ Caption = #23458#25143
+ DataBinding.FieldName = 'CustName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 77
+ end
+ object Tv1Column8: TcxGridDBColumn
+ Caption = #37197#36135#20154
+ DataBinding.FieldName = 'C_Code'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 77
+ end
+ object Tv1Column6: TcxGridDBColumn
+ Caption = #21046#21333#20154
+ DataBinding.FieldName = 'FILLER'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 77
+ end
+ object Tv1Column1: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'OrdNote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 77
+ end
+ end
+ object cxGrid1Level1: TcxGridLevel
+ GridView = Tv1
+ end
+ end
+ object cxGrid2: TcxGrid
+ Left = 1
+ Top = 431
+ Width = 782
+ Height = 202
+ Align = alClient
+ TabOrder = 2
+ ExplicitTop = 401
+ ExplicitHeight = 232
+ object Tv2: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DataSource2
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.CellHints = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.IndicatorWidth = 30
+ object Tv2Column1: TcxGridDBColumn
+ Caption = #26159#21542#21152#24613
+ DataBinding.FieldName = 'Urgent'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.NullStyle = nssUnchecked
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv2Column2: TcxGridDBColumn
+ Caption = #21333#25454#32534#21495
+ DataBinding.FieldName = 'TMMNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv2Column3: TcxGridDBColumn
+ Caption = #21046#21333#26085#26399
+ DataBinding.FieldName = 'TMMDate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ Properties.ShowTime = False
+ HeaderAlignmentHorz = taCenter
+ Options.Editing = False
+ Width = 80
+ end
+ object Tv2Column4: TcxGridDBColumn
+ Caption = #23458#25143
+ DataBinding.FieldName = 'CustName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv2Column5: TcxGridDBColumn
+ Caption = #37197#36135#20154
+ DataBinding.FieldName = 'C_Code'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv2Column6: TcxGridDBColumn
+ Caption = #21046#21333#20154
+ DataBinding.FieldName = 'FILLER'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv2Column7: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'OrdNote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGridLevel1: TcxGridLevel
+ GridView = Tv2
+ end
+ end
+ object ToolBar4: TToolBar
+ Tag = 1
+ Left = 1
+ Top = 401
+ Width = 782
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 67
+ Caption = 'ToolBar1'
+ Images = DataLink_TradeMarket.cxImageList_bar
+ List = True
+ ShowCaptions = True
+ TabOrder = 3
+ object Label5: TLabel
+ Left = 0
+ Top = 0
+ Width = 89
+ Height = 30
+ Caption = #30707#21050#22836#32447'C'
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -19
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ end
+ end
+ object Panel2: TPanel [3]
+ Left = 784
+ Top = 0
+ Width = 639
+ Height = 634
+ Align = alClient
+ TabOrder = 3
+ object ToolBar2: TToolBar
+ Tag = 1
+ Left = 1
+ Top = 1
+ Width = 637
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 67
+ Caption = 'ToolBar1'
+ Images = DataLink_TradeMarket.cxImageList_bar
+ List = True
+ ShowCaptions = True
+ TabOrder = 0
+ object Label3: TLabel
+ Left = 0
+ Top = 0
+ Width = 76
+ Height = 30
+ Caption = #29287#23679#32447'M'
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -19
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ object Label2: TLabel
+ Left = 76
+ Top = 0
+ Width = 6
+ Height = 30
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -19
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ end
+ object cxGrid3: TcxGrid
+ Left = 1
+ Top = 31
+ Width = 637
+ Height = 364
+ Align = alTop
+ TabOrder = 1
+ object Tv3: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DataSource3
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.CellHints = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.IndicatorWidth = 30
+ object Tv3Column1: TcxGridDBColumn
+ Caption = #26159#21542#21152#24613
+ DataBinding.FieldName = 'Urgent'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.NullStyle = nssUnchecked
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv3Column2: TcxGridDBColumn
+ Caption = #21333#25454#32534#21495
+ DataBinding.FieldName = 'TMMNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv3Column3: TcxGridDBColumn
+ Caption = #21046#21333#26085#26399
+ DataBinding.FieldName = 'TMMDate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv3Column4: TcxGridDBColumn
+ Caption = #23458#25143
+ DataBinding.FieldName = 'CustName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv3Column5: TcxGridDBColumn
+ Caption = #37197#36135#20154
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv3Column6: TcxGridDBColumn
+ Caption = #21046#21333#20154
+ DataBinding.FieldName = 'FILLER'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv3Column7: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'OrdNote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGridLevel2: TcxGridLevel
+ GridView = Tv3
+ end
+ end
+ object cxGrid4: TcxGrid
+ Left = 1
+ Top = 425
+ Width = 637
+ Height = 208
+ Align = alClient
+ TabOrder = 2
+ ExplicitTop = 395
+ ExplicitHeight = 238
+ object Tv4: TcxGridDBTableView
+ Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
+ DataController.DataSource = DataSource4
+ DataController.Filter.AutoDataSetFilter = True
+ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+ DataController.Summary.DefaultGroupSummaryItems = <>
+ DataController.Summary.FooterSummaryItems = <
+ item
+ Kind = skSum
+ end
+ item
+ Kind = skSum
+ end>
+ DataController.Summary.SummaryGroups = <>
+ OptionsBehavior.CellHints = True
+ OptionsCustomize.ColumnFiltering = False
+ OptionsView.Footer = True
+ OptionsView.GroupByBox = False
+ OptionsView.IndicatorWidth = 30
+ object Tv4Column1: TcxGridDBColumn
+ Caption = #26159#21542#21152#24613
+ DataBinding.FieldName = 'Urgent'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxCheckBoxProperties'
+ Properties.NullStyle = nssUnchecked
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv4Column2: TcxGridDBColumn
+ Caption = #21333#25454#32534#21495
+ DataBinding.FieldName = 'TMMNo'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv4Column3: TcxGridDBColumn
+ Caption = #21046#21333#26085#26399
+ DataBinding.FieldName = 'TMMDate'
+ DataBinding.IsNullValueType = True
+ PropertiesClassName = 'TcxDateEditProperties'
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv4Column4: TcxGridDBColumn
+ Caption = #23458#25143
+ DataBinding.FieldName = 'CustName'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv4Column5: TcxGridDBColumn
+ Caption = #37197#36135#20154
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv4Column6: TcxGridDBColumn
+ Caption = #21046#21333#20154
+ DataBinding.FieldName = 'FILLER'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ object Tv4Column7: TcxGridDBColumn
+ Caption = #22791#27880
+ DataBinding.FieldName = 'OrdNote'
+ DataBinding.IsNullValueType = True
+ HeaderAlignmentHorz = taCenter
+ Width = 80
+ end
+ end
+ object cxGridLevel3: TcxGridLevel
+ GridView = Tv4
+ end
+ end
+ object ToolBar3: TToolBar
+ Tag = 1
+ Left = 1
+ Top = 395
+ Width = 637
+ Height = 30
+ AutoSize = True
+ ButtonHeight = 30
+ ButtonWidth = 67
+ Caption = 'ToolBar1'
+ Images = DataLink_TradeMarket.cxImageList_bar
+ List = True
+ ShowCaptions = True
+ TabOrder = 3
+ object Label4: TLabel
+ Left = 0
+ Top = 0
+ Width = 38
+ Height = 30
+ Caption = #26032#20313
+ Font.Charset = GB2312_CHARSET
+ Font.Color = clRed
+ Font.Height = -19
+ Font.Name = #24494#36719#38597#40657
+ Font.Style = []
+ ParentFont = False
+ end
+ end
+ end
+ inherited ADOQueryBaseCmd: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Left = 255
+ Top = 314
+ end
+ inherited ADOQueryBaseTemp: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Left = 37
+ Top = 280
+ end
+ object cxgrdpmn1: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 220
+ Top = 284
+ end
+ object ADOQueryCmd: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ Parameters = <>
+ Left = 568
+ Top = 240
+ end
+ object ADOQueryMain: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 292
+ Top = 128
+ end
+ object ADOQueryTemp: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 320
+ Top = 224
+ end
+ object DataSource1: TDataSource
+ DataSet = CDS_1
+ Left = 468
+ Top = 112
+ end
+ object Order_Main: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 156
+ Top = 144
+ end
+ object DataSource2: TDataSource
+ DataSet = CDS_2
+ Left = 152
+ Top = 476
+ end
+ object ADOQueryImage: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ EnableBCD = False
+ Parameters = <>
+ Left = 316
+ Top = 283
+ end
+ object DSImage: TDataSource
+ DataSet = ADOQueryImage
+ Left = 256
+ Top = 192
+ end
+ object IdFTP1: TIdFTP
+ ConnectTimeout = 0
+ NATKeepAlive.UseKeepAlive = False
+ NATKeepAlive.IdleTimeMS = 0
+ NATKeepAlive.IntervalMS = 0
+ ProxySettings.ProxyType = fpcmNone
+ ProxySettings.Port = 0
+ ReadTimeout = 0
+ Left = 36
+ Top = 170
+ end
+ object PopupMenu2: TPopupMenu
+ Left = 532
+ Top = 636
+ object N3: TMenuItem
+ Caption = #20840#36873
+ end
+ object N4: TMenuItem
+ Caption = #20840#24323
+ end
+ object N2: TMenuItem
+ Caption = #22797#21046
+ end
+ end
+ object cxgrdpmn2: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 660
+ Top = 636
+ end
+ object CDS_WXTS: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 252
+ Top = 240
+ end
+ object GPM_3: TcxGridPopupMenu
+ PopupMenus = <>
+ Left = 188
+ Top = 236
+ end
+ object CDS_1: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 524
+ Top = 96
+ end
+ object DataSource3: TDataSource
+ DataSet = CDS_3
+ Left = 932
+ Top = 176
+ end
+ object CDS_2: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 228
+ Top = 464
+ end
+ object DataSource4: TDataSource
+ DataSet = CDS_4
+ Left = 940
+ Top = 472
+ end
+ object CDS_4: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 996
+ Top = 464
+ end
+ object CDS_3: TClientDataSet
+ Aggregates = <>
+ Params = <>
+ Left = 1012
+ Top = 216
+ end
+ object ADO_1: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 452
+ Top = 176
+ end
+ object ADO_2: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 308
+ Top = 464
+ end
+ object ADO_3: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 884
+ Top = 120
+ end
+ object ADO_4: TADOQuery
+ Connection = DataLink_TradeMarket.ADOLink
+ LockType = ltReadOnly
+ Parameters = <>
+ Left = 860
+ Top = 464
+ end
+end
diff --git a/T05贸易门市管理/U_TradeMarketList_JDT.pas b/T05贸易门市管理/U_TradeMarketList_JDT.pas
new file mode 100644
index 0000000..572b6cb
--- /dev/null
+++ b/T05贸易门市管理/U_TradeMarketList_JDT.pas
@@ -0,0 +1,229 @@
+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.
+