From 1f7b10316a83f0aa1e94f68d1e35e57ffd638fa4 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Mon, 24 Nov 2025 13:22:51 +0800 Subject: [PATCH] ~ --- A00通用窗体/U_CompanySel.pas | 2 +- T02贸易汇总仓库/TradeTotalClothStk.dpr | 4 +- T02贸易汇总仓库/TradeTotalClothStk.dproj | 8 +- T02贸易汇总仓库/U_PlanScanInEdit.dfm | 94 ++- T02贸易汇总仓库/U_PlanScanInEdit.pas | 146 ++++- T05贸易门市管理/U_GetDllForm.pas | 15 +- T05贸易门市管理/U_TradeMarketList_JD.dfm | 106 +++- T05贸易门市管理/U_TradeMarketList_JD.pas | 7 + T05贸易门市管理/U_TradeMarketList_JDT.dfm | 681 ++++++++++++++++++++++ T05贸易门市管理/U_TradeMarketList_JDT.pas | 229 ++++++++ 10 files changed, 1242 insertions(+), 50 deletions(-) create mode 100644 T05贸易门市管理/U_TradeMarketList_JDT.dfm create mode 100644 T05贸易门市管理/U_TradeMarketList_JDT.pas 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 @@
frmPictureList
dfm - -
frmCompanySel
+ +
frmMachineManageSel
dfm @@ -364,8 +364,8 @@
frmInputReceiptType
 - -
frmMachineManageSel
+ +
frmCompanySel
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. +