From e11c0d46660e1314ebd2a83e2714d99b6b25361f Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 21 Nov 2025 09:37:23 +0800 Subject: [PATCH] =?UTF-8?q?=E5=A2=9E=E5=8A=A0=E9=A1=B5=E9=9D=A2?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 贝其贸易管理/U_ClothContractList.dfm | 54 +- 贝其贸易管理/U_ClothContractList.pas | 487 ++++++----- 贝其贸易管理/U_ClothContractListHZ.dfm | 86 +- 贝其贸易管理/U_ClothContractListHZ.pas | 1072 ++++++++++++------------ 贝其贸易管理/U_GetDllForm.pas | 2 +- 5 files changed, 931 insertions(+), 770 deletions(-) diff --git a/贝其贸易管理/U_ClothContractList.dfm b/贝其贸易管理/U_ClothContractList.dfm index b833bb9..7f483b0 100644 --- a/贝其贸易管理/U_ClothContractList.dfm +++ b/贝其贸易管理/U_ClothContractList.dfm @@ -1,6 +1,6 @@ object frmClothContractList: TfrmClothContractList - Left = 109 - Top = 139 + Left = 348 + Top = 303 Width = 1171 Height = 571 Caption = #22383#24067#37319#36141#21512#21516 @@ -78,16 +78,32 @@ object frmClothContractList: TfrmClothContractList ImageIndex = 17 OnClick = TBDelClick end - object Tchk: TToolButton + object TReview: TToolButton Left = 315 Top = 0 AutoSize = True + Caption = #23457#26680 + ImageIndex = 41 + OnClick = TReviewClick + end + object TnoReview: TToolButton + Left = 378 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 129 + OnClick = TnoReviewClick + end + object Tchk: TToolButton + Left = 465 + Top = 0 + AutoSize = True Caption = #23436#25104 ImageIndex = 41 OnClick = TchkClick end object TNochk: TToolButton - Left = 378 + Left = 528 Top = 0 AutoSize = True Caption = #25764#38144#23436#25104 @@ -95,7 +111,7 @@ object frmClothContractList: TfrmClothContractList OnClick = TNochkClick end object TBExport: TToolButton - Left = 465 + Left = 615 Top = 0 AutoSize = True Caption = #23548#20986 @@ -103,7 +119,7 @@ object frmClothContractList: TfrmClothContractList OnClick = TBExportClick end object TBPrint: TToolButton - Left = 528 + Left = 678 Top = 0 AutoSize = True Caption = #25171#21360 @@ -111,7 +127,7 @@ object frmClothContractList: TfrmClothContractList OnClick = TBPrintClick end object ToolButton1: TToolButton - Left = 591 + Left = 741 Top = 0 AutoSize = True Caption = #37319#36141#38468#20214 @@ -119,7 +135,7 @@ object frmClothContractList: TfrmClothContractList OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 678 + Left = 828 Top = 0 AutoSize = True Caption = #20851#38381 @@ -307,7 +323,7 @@ object frmClothContractList: TfrmClothContractList TabOrder = 0 object Tv1: TcxGridDBTableView OnMouseDown = Tv1MouseDown - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> OnCellClick = Tv1CellClick OnCellDblClick = Tv1CellDblClick OnCustomDrawCell = Tv1CustomDrawCell @@ -415,14 +431,14 @@ object frmClothContractList: TfrmClothContractList Font.Name = #23435#20307 Font.Style = [] ParentFont = False - Style = 9 - TabIndex = 0 TabOrder = 3 - Tabs.Strings = ( - #26410#23436#25104 - #23436#25104 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 #20840#37096) - Visible = False OnChange = cxTabControl1Change ClientRectBottom = 22 ClientRectRight = 1155 @@ -430,13 +446,13 @@ object frmClothContractList: TfrmClothContractList end object cxGrid2: TcxGrid Left = 0 - Top = 356 + Top = 355 Width = 1155 Height = 177 Align = alBottom TabOrder = 4 object TV2: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DSsub DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < @@ -585,7 +601,7 @@ object frmClothContractList: TfrmClothContractList DataBinding.FieldName = 'Sdefstr5' Visible = False HeaderAlignmentHorz = taCenter - Hidden = True + VisibleForCustomization = False Width = 80 end object v1Column14: TcxGridDBColumn @@ -608,7 +624,7 @@ object frmClothContractList: TfrmClothContractList end object cxSplitter1: TcxSplitter Left = 0 - Top = 348 + Top = 347 Width = 1155 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' diff --git a/贝其贸易管理/U_ClothContractList.pas b/贝其贸易管理/U_ClothContractList.pas index 563318f..295ff1f 100644 --- a/贝其贸易管理/U_ClothContractList.pas +++ b/贝其贸易管理/U_ClothContractList.pas @@ -6,11 +6,24 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, - cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, - cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, - RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, - cxTextEdit, cxPC, cxDropDownEdit; + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, + RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxPC, + cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue, dxSkinscxPCPainter, cxNavigator, dxBarBuiltInMenu; type TfrmClothContractList = class(TForm) @@ -100,6 +113,8 @@ type Image2: TImage; Button1: TButton; RadioGroup1: TRadioGroup; + TReview: TToolButton; + TnoReview: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -113,48 +128,36 @@ type procedure TBAddClick(Sender: TObject); procedure ConNoChange(Sender: TObject); procedure FormShow(Sender: TObject); - procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; - APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; - ANewItemRecordFocusingChanged: Boolean); - procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); - procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); - procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); - procedure Tv2CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure ToolButton5Click(Sender: TObject); - procedure v2Column3PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure conPress(Sender: TObject; var Key: Char); - procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TchkClick(Sender: TObject); procedure TNochkClick(Sender: TObject); procedure cxTabControl1Change(Sender: TObject); - procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure ToolButton1Click(Sender: TObject); - procedure Tv1CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Image2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure SQNOKeyPress(Sender: TObject; var Key: Char); + procedure TReviewClick(Sender: TObject); + procedure TnoReviewClick(Sender: TObject); private - FInt,PFInt:Integer; + FInt, PFInt: Integer; procedure InitGrid(); procedure InitForm(); - function DelData():Boolean; + function DelData(): Boolean; procedure SetStatus(); procedure InitSub(); { Private declarations } public - FType:string; + FType: string; { Public declarations } end; @@ -162,118 +165,141 @@ var frmClothContractList: TfrmClothContractList; implementation + uses - U_DataLink,U_ClothContractInPutPB,U_Fun,U_ProductOrderList,U_ZDYHelp, + U_DataLink, U_ClothContractInPutPB, U_Fun, U_ProductOrderList, U_ZDYHelp, U_FjList_RZ; {$R *.dfm} procedure TfrmClothContractList.InitSub(); begin ADOQuerySub.Close; - IF Order_Main.IsEmpty then exit; + if Order_Main.IsEmpty then + exit; with ADOQuerySub do begin close; sql.Clear; sql.Add('select * from Contract_Sub '); - sql.Add('where mainID ='+quotedstr((Order_Main.fieldbyname('mainID').AsString))); + sql.Add('where mainID =' + quotedstr((Order_Main.fieldbyname('mainID').AsString))); open; end; end; procedure TfrmClothContractList.SetStatus(); begin - TBAdd.Visible:=false; - tchk.Visible:=false; - tnochk.Visible:=false; - tbedit.Visible:=false; - tbdel.Visible:=false; - IF FType=''then + TBAdd.Visible := false; + tchk.Visible := false; + tnochk.Visible := false; + TReview.Visible := false; + tnoReview.Visible := false; + tbedit.Visible := false; + tbdel.Visible := false; + if FType = '' then begin - case cxTabControl1.TabIndex of - 0:begin - // tchk.Visible:=true; - tbedit.Visible:=true; - tbdel.Visible:=true; - TBAdd.Visible:=true; + if Trim(DParameters1) = 'Ȩ' then + begin + case cxTabControl1.TabIndex of + 0: + begin + TReview.Visible := true; + tbedit.Visible := true; + tbdel.Visible := true; + TBAdd.Visible := true; + end; + 1: + begin + tnoReview.Visible := true; + end; end; - 1:begin - // tnochk.Visible:=true; - end; - 2:begin + end + else + begin + case cxTabControl1.TabIndex of + 0: + begin + tbedit.Visible := true; + tbdel.Visible := true; + TBAdd.Visible := true; + end; + 1: + begin + end; end; end; + end; - IF FType='ѯ' then + if FType = 'ѯ' then begin - Tbadd.Visible:=false; - TBPrint.Visible:=false; + Tbadd.Visible := false; + TBPrint.Visible := false; //v1Price.Visible:=false; // v1PriceUnit.Visible:=false; // v1Money.Visible:=false; - // v1Price.Hidden:=true; // v1PriceUnit.Hidden:=true; // v1Money.Hidden:=true; - cxTabControl1.TabIndex:=2; - cxTabControl1.Visible:=false; + cxTabControl1.TabIndex := 2; + cxTabControl1.Visible := false; end; end; procedure TfrmClothContractList.FormDestroy(Sender: TObject); begin - frmClothContractList:=nil; + frmClothContractList := nil; end; -procedure TfrmClothContractList.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmClothContractList.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmClothContractList.FormCreate(Sender: TObject); begin - ScrollBox1.Align:=alClient; + ScrollBox1.Align := alClient; end; procedure TfrmClothContractList.TBCloseClick(Sender: TObject); begin Close; - WriteCxGrid(self.Caption+tv1.Name+'1',Tv1,'ָʾ'); - WriteCxGrid(self.Caption+tv2.Name,Tv2,'ָʾ'); + WriteCxGrid(self.Caption + tv1.Name + '1', Tv1, 'ָʾ'); + WriteCxGrid(self.Caption + tv2.Name, Tv2, 'ָʾ'); end; procedure TfrmClothContractList.InitGrid(); -var strwhere: string; +var + strwhere: string; begin - strwhere:=' where QDTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' - +' and QDTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''' - +' and HTType=''ɹͬ'''; - IF cxTabControl1.TabIndex=0 then - strwhere:=strwhere+' and isnull(C_status,''0'')=''0'' '; - IF cxTabControl1.TabIndex=1 then - strwhere:=strwhere+' and isnull(C_status,''0'')=''1'' '; + strwhere := ' where QDTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and QDTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''' + ' and HTType=''ɹͬ'''; +// if cxTabControl1.TabIndex = 0 then +// strwhere := strwhere + ' and isnull(C_status,''0'')=''0'' '; +// if cxTabControl1.TabIndex = 1 then +// strwhere := strwhere + ' and isnull(C_status,''0'')=''1'' '; +// if cxTabControl1.TabIndex < 2 then +// begin +// strwhere := strwhere + ' and isnull(A.ChkStatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + ''''; +// end; try ADOQueryMain.DisableControls; with ADOQueryMain do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; sql.Add(' select A.* '); sql.Add(' from Contract_Main A'); - sql.Add(' where QDTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' '); - sql.Add(' and QDTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''' '); + sql.Add(' where QDTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); + sql.Add(' and QDTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''' '); sql.Add(' and HTType=''ɹͬ'' '); - // IF cxTabControl1.TabIndex=0 then - // sql.Add(' and isnull(C_status,''0'')=''0'' '); - // IF cxTabControl1.TabIndex=1 then - // sql.Add(' and isnull(C_status,''0'')=''1'' '); + if cxTabControl1.TabIndex = 0 then + sql.Add(' and isnull(A.ChkStatus,''0'')=''0'' '); + if cxTabControl1.TabIndex = 1 then + sql.Add(' and isnull(A.ChkStatus,''0'')=''1'' '); Open; end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); finally ADOQueryMain.EnableControls; TBFind.Click; @@ -282,13 +308,14 @@ end; procedure TfrmClothContractList.InitForm(); begin - ReadCxGrid(self.Caption+tv1.Name+'1',Tv1,'ָʾ'); - ReadCxGrid(self.Caption+tv2.Name,Tv2,'ָʾ'); - cxTabControl1.TabIndex:=0; - if Trim(DParameters1)='1' then + ReadCxGrid(self.Caption + tv1.Name + '1', Tv1, 'ָʾ'); + ReadCxGrid(self.Caption + tv2.Name, Tv2, 'ָʾ'); + cxTabControl1.TabIndex := 0; + if Trim(DParameters1) = '1' then begin - TBPrint.Visible:=False; - end else + TBPrint.Visible := False; + end + else begin // v1Column1.Visible:=True; // v1Column1.Hidden:=False; @@ -296,32 +323,34 @@ begin // v1PRTUnit.Hidden:=False; // v1PRTQty.Visible:=True; // v1PRTQty.Hidden:=False; - TBPrint.Visible:=True; + TBPrint.Visible := True; end; - BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; - EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7; + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); InitGrid(); end; procedure TfrmClothContractList.TBFindClick(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmClothContractList.TBEditClick(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; + if Order_Main.IsEmpty then + Exit; try - frmClothContractInPutPB:=TfrmClothContractInPutPB.Create(Application); + frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application); with frmClothContractInPutPB do begin - PState:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); - if ShowModal=1 then + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + if ShowModal = 1 then begin InitGrid(); end; @@ -333,13 +362,15 @@ end; procedure TfrmClothContractList.TBDelClick(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; - if ClientDataSet2.IsEmpty=false then + if Order_Main.IsEmpty then + Exit; + if ClientDataSet2.IsEmpty = false then begin - Application.MessageBox('ѵɾͬ','ʾ',0); + Application.MessageBox('ѵɾͬ', 'ʾ', 0); Exit; end; - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; if DelData() then begin //TBRafresh.Click; @@ -348,45 +379,46 @@ begin end; end; -function TfrmClothContractList.DelData():Boolean; +function TfrmClothContractList.DelData(): Boolean; begin try - Result:=false; + Result := false; ADOQueryCmd.Connection.BeginTrans; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('delete from Contract_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); - sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete from Contract_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); + sql.Add('delete Contract_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); execsql; end; ADOQueryCmd.Connection.CommitTrans; - Result:=True; + Result := True; except ADOQueryCmd.Connection.RollbackTrans; - Result:=False; - Application.MessageBox('ɾ쳣','ʾ',0); + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); end; end; procedure TfrmClothContractList.TBExportClick(Sender: TObject); begin - if ADOQueryMain.IsEmpty then Exit; - TcxGridToExcel('ͬб',cxGrid1); + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel('ͬб', cxGrid1); end; procedure TfrmClothContractList.TBPrintClick(Sender: TObject); var - fPrintFile,FConNoM:string; - + fPrintFile, FConNoM: string; begin - if Order_Main.IsEmpty then Exit; + if Order_Main.IsEmpty then + Exit; - Panel4.Left:=(self.Width - Panel4.Width ) div 2; - Panel4.Visible:=true; + Panel4.Left := (self.Width - Panel4.Width) div 2; + Panel4.Visible := true; { fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ͬ.rmf' ; with ADOQueryTemp do @@ -426,12 +458,12 @@ end; procedure TfrmClothContractList.TBAddClick(Sender: TObject); begin try - frmClothContractInPutPB:=TfrmClothContractInPutPB.Create(Application); + frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application); with frmClothContractInPutPB do begin - PState:=0; - FMainId:=''; - if ShowModal=1 then + PState := 0; + FMainId := ''; + if ShowModal = 1 then begin InitGrid(); end; @@ -443,10 +475,11 @@ end; procedure TfrmClothContractList.ConNoChange(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmClothContractList.FormShow(Sender: TObject); @@ -455,10 +488,7 @@ begin SetStatus(); end; -procedure TfrmClothContractList.Tv1FocusedRecordChanged( - Sender: TcxCustomGridTableView; APrevFocusedRecord, - AFocusedRecord: TcxCustomGridRecord; - ANewItemRecordFocusingChanged: Boolean); +procedure TfrmClothContractList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin { with ADOQueryTemp do begin @@ -487,28 +517,22 @@ begin SInitCDSData20(ADOQueryTemp,ClientDataSet3); } end; -procedure TfrmClothContractList.Tv2MouseDown(Sender: TObject; - Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +procedure TfrmClothContractList.Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin - FInt:=2; + FInt := 2; end; -procedure TfrmClothContractList.Tv1MouseDown(Sender: TObject; - Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +procedure TfrmClothContractList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin - FInt:=1; + FInt := 1; end; -procedure TfrmClothContractList.Tv3MouseDown(Sender: TObject; - Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +procedure TfrmClothContractList.Tv3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin - FInt:=3; + FInt := 3; end; -procedure TfrmClothContractList.Tv2CellClick( - Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmClothContractList.Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin with ADOQueryTemp do begin @@ -518,35 +542,34 @@ begin sql.Add('C_Unit=(select Top 1 C_Unit from Contract_Sub AA,Contract_Sub_Mx BB where AA.SubId=BB.SubId and BB.MXid=A.Mxid)'); SQL.Add(' from Contract_Sub_MxTo A inner join JYOrder_Sub B on A.OrdSubId=B.SubId '); SQL.Add(' inner join JYOrder_Main C on C.MainId=B.MainId '); - sql.Add('where A.MxId='''+Trim(ClientDataSet2.fieldbyname('MxId').AsString)+''''); + sql.Add('where A.MxId=''' + Trim(ClientDataSet2.fieldbyname('MxId').AsString) + ''''); Open; end; - SCreateCDS20(ADOQueryTemp,ClientDataSet3); - SInitCDSData20(ADOQueryTemp,ClientDataSet3); + SCreateCDS20(ADOQueryTemp, ClientDataSet3); + SInitCDSData20(ADOQueryTemp, ClientDataSet3); end; procedure TfrmClothContractList.ToolButton5Click(Sender: TObject); var - maxno:string; + maxno: string; begin end; -procedure TfrmClothContractList.v2Column3PropertiesButtonClick( - Sender: TObject; AButtonIndex: Integer); +procedure TfrmClothContractList.v2Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='RKPlace'; - flagname:='ص'; - if ShowModal=1 then + flag := 'RKPlace'; + flagname := 'ص'; + if ShowModal = 1 then begin with ClientDataSet2 do begin Edit; - FieldByName('RKPlace').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); + FieldByName('RKPlace').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; end; @@ -555,8 +578,7 @@ begin end; end; -procedure TfrmClothContractList.conPress(Sender: TObject; - var Key: Char); +procedure TfrmClothContractList.conPress(Sender: TObject; var Key: Char); begin {if Key=#13 then begin @@ -581,68 +603,68 @@ begin end; } end; -procedure TfrmClothContractList.Tv1CellDblClick( - Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmClothContractList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin - If Order_Main.IsEmpty then Exit; + if Order_Main.IsEmpty then + Exit; try - frmClothContractInPutPB:=TfrmClothContractInPutPB.Create(Application); + frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application); with frmClothContractInPutPB do begin - PState:=1; - ToolBar1.Enabled:=false; - ToolBar2.Enabled:=false; - Tv1.OptionsData.Editing:=false; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); - if ShowModal=1 then + PState := 1; + ToolBar1.Enabled := false; + ToolBar2.Enabled := false; + Tv1.OptionsData.Editing := false; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo := Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); + if ShowModal = 1 then begin InitGrid(); end; end; finally frmClothContractInPutPB.Free; - end; + end; end; procedure TfrmClothContractList.TchkClick(Sender: TObject); begin - if Order_Main.IsEmpty then exit; + if Order_Main.IsEmpty then + exit; try with ADOQueryCmd do begin close; sql.Clear; sql.Add('update Contract_Sub SET C_status=''1'' '); - sql.Add('where subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + sql.Add('where subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); execsql; end; - application.MessageBox('ɹɣ','ʾϢ'); + application.MessageBox('ɹɣ', 'ʾϢ'); TBRafresh.Click; except - application.MessageBox('ɹʧܣ','ʾϢ',0); + application.MessageBox('ɹʧܣ', 'ʾϢ', 0); end; end; procedure TfrmClothContractList.TNochkClick(Sender: TObject); begin - if Order_Main.IsEmpty then exit; + if Order_Main.IsEmpty then + exit; try with ADOQueryCmd do begin close; sql.Clear; sql.Add('update Contract_Sub SET C_status=''0'' '); - sql.Add('where subID='+quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); + sql.Add('where subID=' + quotedstr(trim(Order_Main.fieldbyname('subID').AsString))); execsql; end; - application.MessageBox('ɹ','ʾϢ'); + application.MessageBox('ɹ', 'ʾϢ'); TBRafresh.Click; except - application.MessageBox('ʧܣ','ʾϢ',0); + application.MessageBox('ʧܣ', 'ʾϢ', 0); end; end; @@ -652,9 +674,7 @@ begin TBRafresh.Click; end; -procedure TfrmClothContractList.Tv1CustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +procedure TfrmClothContractList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin { if cxTabControl1.TabIndex=0 then begin @@ -678,16 +698,17 @@ end; procedure TfrmClothContractList.ToolButton1Click(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; + if Order_Main.IsEmpty then + Exit; try - frmFjList_RZ:=TfrmFjList_RZ.Create(Application); + frmFjList_RZ := TfrmFjList_RZ.Create(Application); with frmFjList_RZ do begin // PState:=1; - // if Trim(canshu1)<>'Ȩ' then cxButton1.Visible:=false; - fkeyNO:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - fType:='ƥɹ'; - if ShowModal=1 then + // if Trim(canshu1)<>'Ȩ' then cxButton1.Visible:=false; + fkeyNO := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + fType := 'ƥɹ'; + if ShowModal = 1 then begin end; @@ -697,74 +718,112 @@ begin end; end; -procedure TfrmClothContractList.Tv1CellClick( - Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmClothContractList.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin - InitSub(); + InitSub(); end; procedure TfrmClothContractList.Image2Click(Sender: TObject); begin - Panel4.Visible:=false; + Panel4.Visible := false; end; procedure TfrmClothContractList.Button1Click(Sender: TObject); var - fPrintFile,FConNoM:string; - + fPrintFile, FConNoM: string; begin - if Order_Main.IsEmpty then Exit; + if Order_Main.IsEmpty then + Exit; // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ͬ.rmf' ; - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(RadioGroup1.Items.Strings[RadioGroup1.ItemIndex])+'.rmf' ; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]) + '.rmf'; with ADOQueryTemp do begin Close; - Filtered:=False; + Filtered := False; sql.Clear; sql.Add('exec ClothContract_QryList :MainId,:WSql'); - Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' - +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; - Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); - Parameters.ParamByName('WSql').Value:=''; + Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''''; + Parameters.ParamByName('MainId').Value := Trim(Order_Main.fieldbyname('MainId').AsString); + Parameters.ParamByName('WSql').Value := ''; Open; end; - SCreateCDS20(ADOQueryTemp,CDS_PRT); - SInitCDSData20(ADOQueryTemp,CDS_PRT); - FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').AsString); + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + FConNoM := Trim(CDS_PRT.fieldbyname('ConNoM').AsString); if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile); RM1.ShowReport; - end else + end + else begin - Application.MessageBox(PChar('ûҵ'+trim(fPrintFile)),'ʾ',0); + Application.MessageBox(PChar('ûҵ' + trim(fPrintFile)), 'ʾ', 0); end; end; -procedure TfrmClothContractList.SQNOKeyPress(Sender: TObject; - var Key: Char); +procedure TfrmClothContractList.SQNOKeyPress(Sender: TObject; var Key: Char); begin - IF key=#13 then + if Key = #13 then begin - IF trim(SQNo.Text)='' then exit; + if trim(SQNo.Text) = '' then + exit; with ADOQueryMain do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; sql.Add(' select A.* '); sql.Add(' from Contract_Main A'); - sql.Add(' where SQNO like ''%'+trim(SQNo.Text)+'%'' '); + sql.Add(' where SQNO like ''%' + trim(SQNo.Text) + '%'' '); sql.Add(' and HTType=''ɹͬ'' '); Open; end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + end; +end; + +procedure TfrmClothContractList.TReviewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_Main SET ChkStatus=''1'',chktime=getdate(),chker=' + quotedstr(trim(Dname))); + sql.Add('where MainId=' + quotedstr(trim(Order_Main.fieldbyname('MainId').AsString))); + execsql; + end; + application.MessageBox('ɹ˳ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ɹʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmClothContractList.TnoReviewClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update Contract_Main SET ChkStatus=''0'',chktime=null,chker='''' '); + sql.Add('where MainId=' + quotedstr(trim(Order_Main.fieldbyname('MainId').AsString))); + execsql; + end; + application.MessageBox('ɹ˳ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ɹʧܣ', 'ʾϢ', 0); end; end; end. + diff --git a/贝其贸易管理/U_ClothContractListHZ.dfm b/贝其贸易管理/U_ClothContractListHZ.dfm index 04a5772..117ce60 100644 --- a/贝其贸易管理/U_ClothContractListHZ.dfm +++ b/贝其贸易管理/U_ClothContractListHZ.dfm @@ -22,7 +22,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ Width = 1366 AutoSize = True ButtonHeight = 30 - ButtonWidth = 59 + ButtonWidth = 83 Caption = 'ToolBar1' Color = clSkyBlue Flat = True @@ -69,16 +69,34 @@ object frmClothContractListHZ: TfrmClothContractListHZ ImageIndex = 54 OnClick = TBEditClick end - object ToolButton1: TToolButton + object TCK: TToolButton Left = 252 Top = 0 AutoSize = True + Caption = ' '#23457#26680' ' + ImageIndex = 41 + Visible = False + OnClick = TCKClick + end + object TnoCK: TToolButton + Left = 327 + Top = 0 + AutoSize = True + Caption = #25764#38144#23457#26680 + ImageIndex = 129 + Visible = False + OnClick = TnoCKClick + end + object ToolButton1: TToolButton + Left = 414 + Top = 0 + AutoSize = True Caption = #22797#21046 ImageIndex = 58 OnClick = ToolButton1Click end object TBDel: TToolButton - Left = 315 + Left = 477 Top = 0 AutoSize = True Caption = #21024#38500 @@ -86,7 +104,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ OnClick = TBDelClick end object TBExport: TToolButton - Left = 378 + Left = 540 Top = 0 AutoSize = True Caption = #23548#20986 @@ -95,7 +113,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ OnClick = TBExportClick end object TBPrint: TToolButton - Left = 441 + Left = 603 Top = 0 AutoSize = True Caption = #25171#21360 @@ -103,14 +121,15 @@ object frmClothContractListHZ: TfrmClothContractListHZ OnClick = TBPrintClick end object ToolButton2: TToolButton - Left = 504 + Left = 666 Top = 0 - Caption = #38468#20214 + AutoSize = True + Caption = ' '#38468#20214' ' ImageIndex = 57 OnClick = ToolButton2Click end object TBClose: TToolButton - Left = 563 + Left = 741 Top = 0 AutoSize = True Caption = #20851#38381 @@ -933,9 +952,9 @@ object frmClothContractListHZ: TfrmClothContractListHZ end object cxGrid1: TcxGrid Left = 0 - Top = 86 + Top = 109 Width = 1366 - Height = 629 + Height = 606 Align = alClient TabOrder = 3 object Tv1: TcxGridDBTableView @@ -957,8 +976,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False - OptionsData.Editing = False - OptionsSelection.CellSelect = False + OptionsData.Deleting = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Inactive = DataLink_TradeManage.SHuangSe @@ -968,6 +986,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ Caption = #32433#32447#36141#38144#21512#21516 DataBinding.FieldName = 'ConNo' HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_TradeManage.Default Width = 84 end @@ -975,6 +994,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_CodeName' HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_TradeManage.Default Width = 108 end @@ -985,6 +1005,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ Properties.SaveTime = False Properties.ShowTime = False HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_TradeManage.Default Width = 82 end @@ -992,6 +1013,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ Caption = #31614#35746#26085#26399 DataBinding.FieldName = 'QDTime' HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_TradeManage.Default Width = 89 end @@ -999,6 +1021,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ Caption = #20379#24212#21830 DataBinding.FieldName = 'FactoryNoName' HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_TradeManage.Default Width = 134 end @@ -1006,6 +1029,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_TradeManage.Default Width = 66 end @@ -1014,6 +1038,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ DataBinding.FieldName = 'Qty1' Visible = False HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_TradeManage.Default VisibleForCustomization = False Width = 46 @@ -1022,6 +1047,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ Caption = #25968#37327 DataBinding.FieldName = 'C_Qty' HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_TradeManage.Default Width = 58 end @@ -1029,6 +1055,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ Caption = #21333#20301 DataBinding.FieldName = 'C_Unit' HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_TradeManage.Default Width = 47 end @@ -1036,6 +1063,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ Caption = #21333#20215 DataBinding.FieldName = 'Price' HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_TradeManage.Default Width = 57 end @@ -1043,6 +1071,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ Caption = #24065#31181 DataBinding.FieldName = 'PriceUnit' HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_TradeManage.Default Width = 61 end @@ -1050,6 +1079,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ Caption = #24635#20215 DataBinding.FieldName = 'Money' HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_TradeManage.Default Width = 58 end @@ -1057,6 +1087,7 @@ object frmClothContractListHZ: TfrmClothContractListHZ Caption = #22791#27880 DataBinding.FieldName = 'C_Note' HeaderAlignmentHorz = taCenter + Options.Editing = False Styles.Header = DataLink_TradeManage.Default Width = 68 end @@ -1064,13 +1095,41 @@ object frmClothContractListHZ: TfrmClothContractListHZ Caption = #21512#21516#21495 DataBinding.FieldName = 'XSconNo' HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end + object Tv1Column1: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Width = 60 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end + object cxTabControl1: TcxTabControl + Left = 0 + Top = 86 + Width = 1366 + Height = 23 + Align = alTop + TabOrder = 4 + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( + #26410#23457#26680 + #24050#23457#26680 + #20840#37096) + OnChange = cxTabControl1Change + ClientRectBottom = 23 + ClientRectRight = 1366 + ClientRectTop = 19 + end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> @@ -1079,7 +1138,8 @@ object frmClothContractListHZ: TfrmClothContractListHZ object ADOQueryCmd: TADOQuery Connection = DataLink_TradeManage.ADOLink Parameters = <> - Left = 936 + Left = 976 + Top = 80 end object ADOQueryMain: TADOQuery Connection = DataLink_TradeManage.ADOLink diff --git a/贝其贸易管理/U_ClothContractListHZ.pas b/贝其贸易管理/U_ClothContractListHZ.pas index 9f72f13..29a4c8f 100644 --- a/贝其贸易管理/U_ClothContractListHZ.pas +++ b/贝其贸易管理/U_ClothContractListHZ.pas @@ -6,12 +6,24 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, - cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, - cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, - RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, - cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, - dxBarBuiltInMenu, cxNavigator; + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class, + RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxPC, + cxLookAndFeels, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, + dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue, dxSkinscxPCPainter, cxCheckBox; type TfrmClothContractListHZ = class(TForm) @@ -149,6 +161,10 @@ type cxGrid1Level1: TcxGridLevel; ToolButton2: TToolButton; v1Column3: TcxGridDBColumn; + TCK: TToolButton; + TnoCK: TToolButton; + cxTabControl1: TcxTabControl; + Tv1Column1: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -165,228 +181,144 @@ type procedure cxPageControl1Change(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); + procedure TCKClick(Sender: TObject); + procedure TnoCKClick(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); private - FInt,PFInt:Integer; + FInt, PFInt: Integer; procedure InitGrid(); procedure InitForm(); - function DelData():Boolean; + procedure SetStatus(); + function DelData(): Boolean; { Private declarations } public - { Public declarations } + { Public declarations } end; var frmClothContractListHZ: TfrmClothContractListHZ; implementation + uses - U_DataLink,U_ClothContractInPutSX,U_Fun,U_ProductOrderList,U_ZDYHelp,U_ClothContractInPutSXMX - ,U_ClothContractInPutHZ,U_ClothContractInPutPB, U_FjList_RZ; + U_DataLink, U_ClothContractInPutSX, U_Fun, U_ProductOrderList, U_ZDYHelp, + U_ClothContractInPutSXMX, U_ClothContractInPutHZ, U_ClothContractInPutPB, + U_FjList_RZ; {$R *.dfm} procedure TfrmClothContractListHZ.FormDestroy(Sender: TObject); begin - frmClothContractListHZ:=nil; + frmClothContractListHZ := nil; end; -procedure TfrmClothContractListHZ.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmClothContractListHZ.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmClothContractListHZ.TBCloseClick(Sender: TObject); begin Close; - WriteCxGrid('ͬбSX',Tv1,'ָʾ'); - WriteCxGrid('ɴ߼ӹͬ',Tv2,'ָʾ'); - WriteCxGrid('ɹͬ',Tv3,'ָʾ'); - WriteCxGrid('Ⱦɫͬ',Tv4,'ָʾ'); - WriteCxGrid('ӹͬ',Tv5,'ָʾ'); + WriteCxGrid('ͬбSX', Tv1, 'ָʾ'); + WriteCxGrid('ɴ߼ӹͬ', Tv2, 'ָʾ'); + WriteCxGrid('ɹͬ', Tv3, 'ָʾ'); + WriteCxGrid('Ⱦɫͬ', Tv4, 'ָʾ'); + WriteCxGrid('ӹͬ', Tv5, 'ָʾ'); end; procedure TfrmClothContractListHZ.InitGrid(); +var + strwhere: string; begin - if cxPageControl1.ActivePageIndex=0 then + strwhere := ''; +// if Trim(DParameters1) <> 'Ȩ' then +// strwhere := strwhere + ' and Filler=''' + Trim(DName) + ''''; + + strwhere := strwhere + ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''''; + if cxTabControl1.TabIndex < 2 then begin - try - ADOQueryMain.DisableControls; - with ADOQueryMain do - begin - Filtered:=False; - Close; - sql.Clear; - sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); - Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' - +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; - Open; - end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); - finally - ADOQueryMain.EnableControls; - end; - end else - if cxPageControl1.ActivePageIndex=1 then - begin - try - ADOQueryMain.DisableControls; - with ADOQueryMain do - begin - Filtered:=False; - Close; - sql.Clear; - sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId '); - sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); - sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); - SQL.Add(' and A.ConType=''ɴǰӹ'' '); - Open; - end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); - finally - ADOQueryMain.EnableControls; - end; - end else - if cxPageControl1.ActivePageIndex=2 then - begin - try - ADOQueryMain.DisableControls; - with ADOQueryMain do - begin - Filtered:=False; - Close; - sql.Clear; - sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId '); - sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); - sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); - SQL.Add(' and A.ConType=''ɴ߼ӹ'' '); - Open; - end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); - finally - ADOQueryMain.EnableControls; - end; - end else - if cxPageControl1.ActivePageIndex=3 then - begin - try - ADOQueryMain.DisableControls; - with ADOQueryMain do - begin - Filtered:=False; - Close; - sql.Clear; - sql.Add('exec ClothContract_QryList :MainId,:WSql'); - Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' - +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; - Open; - end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); - finally - ADOQueryMain.EnableControls; - end; - end else - if cxPageControl1.ActivePageIndex=4 then - begin - try - ADOQueryMain.DisableControls; - with ADOQueryMain do - begin - Filtered:=False; - Close; - sql.Clear; - sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId '); - sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); - sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); - SQL.Add(' and A.ConType=''Ⱦɫӹ'' '); - Open; - end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); - finally - ADOQueryMain.EnableControls; - end; - end else - if cxPageControl1.ActivePageIndex=5 then - begin - try - ADOQueryMain.DisableControls; - with ADOQueryMain do - begin - Filtered:=False; - Close; - sql.Clear; - sql.Add('select A.*,B.*,ConNoM=A.ConNo,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId '); - sql.Add(' where A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); - sql.Add(' and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''); - SQL.Add(' and A.ConType=''ӹ'' '); - Open; - end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); - finally - ADOQueryMain.EnableControls; + strwhere := strwhere + ' and isnull(OM.ChkStatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + ''''; + end; + + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); + Parameters.ParamByName('WSql').Value := strwhere; +// Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''''; + Open; end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; end; end; procedure TfrmClothContractListHZ.InitForm(); begin - ReadCxGrid('ͬбSX',Tv1,'ָʾ'); - ReadCxGrid('ɴ߼ӹͬ',Tv2,'ָʾ'); - ReadCxGrid('ɹͬ',Tv3,'ָʾ'); - ReadCxGrid('Ⱦɫͬ',Tv4,'ָʾ'); - ReadCxGrid('ӹͬ',Tv5,'ָʾ'); - if Trim(DParameters1)='1' then - begin - TBPrint.Visible:=False; - v1Column1.Visible:=False; - v1Column1.Hidden:=True; - v1PRTUnit.Visible:=False; - v1PRTUnit.Hidden:=True; - v1PRTQty.Visible:=False; - v1PRTQty.Hidden:=True; - end else - begin - v1Column1.Visible:=True; - v1Column1.Hidden:=False; - v1PRTUnit.Visible:=True; - v1PRTUnit.Hidden:=False; - v1PRTQty.Visible:=True; - v1PRTQty.Hidden:=False; - TBPrint.Visible:=True; - end; - BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; - EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + ReadCxGrid('ͬбSX', Tv1, 'ָʾ'); + ReadCxGrid('ɴ߼ӹͬ', Tv2, 'ָʾ'); + ReadCxGrid('ɹͬ', Tv3, 'ָʾ'); + ReadCxGrid('Ⱦɫͬ', Tv4, 'ָʾ'); + ReadCxGrid('ӹͬ', Tv5, 'ָʾ'); +// if Trim(DParameters1) = '1' then +// begin +// TBPrint.Visible := False; +// v1Column1.Visible := False; +// v1Column1.Hidden := True; +// v1PRTUnit.Visible := False; +// v1PRTUnit.Hidden := True; +// v1PRTQty.Visible := False; +// v1PRTQty.Hidden := True; +// end +// else +// begin +// v1Column1.Visible := True; +// v1Column1.Hidden := False; +// v1PRTUnit.Visible := True; +// v1PRTUnit.Hidden := False; +// v1PRTQty.Visible := True; +// v1PRTQty.Hidden := False; +// TBPrint.Visible := True; +// end; + + + BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7; + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + SetStatus(); InitGrid(); end; procedure TfrmClothContractListHZ.TBFindClick(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmClothContractListHZ.TBEditClick(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; - if cxPageControl1.ActivePageIndex=0 then + if Order_Main.IsEmpty then + Exit; + if cxPageControl1.ActivePageIndex = 0 then begin try - frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + frmClothContractInPutSXMX := TfrmClothContractInPutSXMX.Create(Application); with frmClothContractInPutSXMX do begin - PState:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); - if ShowModal=1 then + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo := Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); + if ShowModal = 1 then begin end; @@ -394,24 +326,24 @@ begin finally frmClothContractInPutSXMX.Free; end; - end else - if cxPageControl1.ActivePageIndex=1 then + end + else if cxPageControl1.ActivePageIndex = 1 then begin try - frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); with frmClothContractInPutHZ do begin - PState:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); - CPFlag:='ClothSX'; - CPFlagName:='ɴ'; - Caption:='Ⱦɴͬ'; - FactoryFlag:='PBFactory'; - v1Column3.Caption:='ӹ'; - v1Price.Caption:='ӹ'; - FConType:='ɴǰӹ'; - if ShowModal=1 then + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag := 'ClothSX'; + CPFlagName := 'ɴ'; + Caption := 'Ⱦɴͬ'; + FactoryFlag := 'PBFactory'; + v1Column3.Caption := 'ӹ'; + v1Price.Caption := 'ӹ'; + FConType := 'ɴǰӹ'; + if ShowModal = 1 then begin end; @@ -419,24 +351,24 @@ begin finally frmClothContractInPutHZ.Free; end; - end else - if cxPageControl1.ActivePageIndex=2 then + end + else if cxPageControl1.ActivePageIndex = 2 then begin try - frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); with frmClothContractInPutHZ do begin - PState:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); - CPFlag:='ClothSX'; - CPFlagName:='ɴ'; - Caption:='֯ͬ'; - FactoryFlag:='PBFactory'; - v1Column3.Caption:='ӹ'; - v1Price.Caption:='ӹ'; - FConType:='ɴ߼ӹ'; - if ShowModal=1 then + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag := 'ClothSX'; + CPFlagName := 'ɴ'; + Caption := '֯ͬ'; + FactoryFlag := 'PBFactory'; + v1Column3.Caption := 'ӹ'; + v1Price.Caption := 'ӹ'; + FConType := 'ɴ߼ӹ'; + if ShowModal = 1 then begin end; @@ -444,17 +376,17 @@ begin finally frmClothContractInPutHZ.Free; end; - end else - if cxPageControl1.ActivePageIndex=3 then + end + else if cxPageControl1.ActivePageIndex = 3 then begin try - frmClothContractInPutPB:=TfrmClothContractInPutPB.Create(Application); + frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application); with frmClothContractInPutPB do begin - PState:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); - if ShowModal=1 then + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo := Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); + if ShowModal = 1 then begin end; @@ -462,24 +394,24 @@ begin finally frmClothContractInPutPB.Free; end; - end else - if cxPageControl1.ActivePageIndex=4 then + end + else if cxPageControl1.ActivePageIndex = 4 then begin try - frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); with frmClothContractInPutHZ do begin - PState:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); - CPFlag:='Cloth'; - CPFlagName:=''; - Caption:='Ⱦɫӹͬ'; - FactoryFlag:='RanFactory'; - v1Column3.Caption:='Ⱦ'; - v1Price.Caption:='Ⱦɫ'; - FConType:='Ⱦɫӹ'; - if ShowModal=1 then + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag := 'Cloth'; + CPFlagName := ''; + Caption := 'Ⱦɫӹͬ'; + FactoryFlag := 'RanFactory'; + v1Column3.Caption := 'Ⱦ'; + v1Price.Caption := 'Ⱦɫ'; + FConType := 'Ⱦɫӹ'; + if ShowModal = 1 then begin end; @@ -487,24 +419,24 @@ begin finally frmClothContractInPutHZ.Free; end; - end else - if cxPageControl1.ActivePageIndex=5 then + end + else if cxPageControl1.ActivePageIndex = 5 then begin try - frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); with frmClothContractInPutHZ do begin - PState:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); - CPFlag:='Cloth'; - CPFlagName:=''; - Caption:='ӹͬ'; - FactoryFlag:='HZLFactory'; - v1Column3.Caption:='ӹ'; - v1Price.Caption:='ӹ'; - FConType:='ӹ'; - if ShowModal=1 then + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag := 'Cloth'; + CPFlagName := ''; + Caption := 'ӹͬ'; + FactoryFlag := 'HZLFactory'; + v1Column3.Caption := 'ӹ'; + v1Price.Caption := 'ӹ'; + FConType := 'ӹ'; + if ShowModal = 1 then begin end; @@ -518,46 +450,49 @@ end; procedure TfrmClothContractListHZ.TBDelClick(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; + if Order_Main.IsEmpty then + Exit; - if cxPageControl1.ActivePageIndex=0 then + if cxPageControl1.ActivePageIndex = 0 then begin with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from ContractSX_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); - sql.Add(' where C.Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + sql.Add(' where C.Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + ''''); Open; end; - if ADOQueryTemp.IsEmpty=False then + if ADOQueryTemp.IsEmpty = False then begin - Application.MessageBox('Ѿݲɾ!','ʾ',0); + Application.MessageBox('Ѿݲɾ!', 'ʾ', 0); Exit; end; - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; if DelData() then begin //TBRafresh.Click; //TBFind.Click; Order_Main.Delete; end; - end else - if cxPageControl1.ActivePageIndex=1 then + end + else if cxPageControl1.ActivePageIndex = 1 then begin - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('delete ContractHZ_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add('delete ContractHZ_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); ExecSQL; end; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from ContractHZ_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('select * from ContractHZ_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty then @@ -566,27 +501,28 @@ begin begin Close; sql.Clear; - sql.Add('delete ContractHZ_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete ContractHZ_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; end; Order_Main.Delete; - end else - if cxPageControl1.ActivePageIndex=2 then + end + else if cxPageControl1.ActivePageIndex = 2 then begin - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('delete ContractHZ_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add('delete ContractHZ_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); ExecSQL; end; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from ContractHZ_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('select * from ContractHZ_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty then @@ -595,40 +531,41 @@ begin begin Close; sql.Clear; - sql.Add('delete ContractHZ_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete ContractHZ_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; end; Order_Main.Delete; - end else - if cxPageControl1.ActivePageIndex=3 then + end + else if cxPageControl1.ActivePageIndex = 3 then begin with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from Contract_Sub_MX B inner join Contract_Sub C on B.SubId=C.SubId '); - sql.Add(' where C.Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + sql.Add(' where C.Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + ''''); Open; end; - if ADOQueryTemp.IsEmpty=False then + if ADOQueryTemp.IsEmpty = False then begin - Application.MessageBox('Ѿݲɾ!','ʾ',0); + Application.MessageBox('Ѿݲɾ!', 'ʾ', 0); Exit; end; - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('delete Contract_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add('delete Contract_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); ExecSQL; end; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from Contract_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('select * from Contract_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty then @@ -637,37 +574,38 @@ begin begin Close; sql.Clear; - sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete Contract_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; end; - if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + if Trim(Order_Main.fieldbyname('SubId').AsString) = '' then begin with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('delete Contract_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete Contract_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; end; Order_Main.Delete; - end else - if cxPageControl1.ActivePageIndex=4 then + end + else if cxPageControl1.ActivePageIndex = 4 then begin - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('delete ContractHZ_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add('delete ContractHZ_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); ExecSQL; end; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from ContractHZ_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('select * from ContractHZ_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty then @@ -676,27 +614,28 @@ begin begin Close; sql.Clear; - sql.Add('delete ContractHZ_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete ContractHZ_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; end; Order_Main.Delete; - end else - if cxPageControl1.ActivePageIndex=5 then + end + else if cxPageControl1.ActivePageIndex = 5 then begin - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('delete ContractHZ_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add('delete ContractHZ_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); ExecSQL; end; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from ContractHZ_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('select * from ContractHZ_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty then @@ -705,7 +644,7 @@ begin begin Close; sql.Clear; - sql.Add('delete ContractHZ_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete ContractHZ_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; end; @@ -714,23 +653,23 @@ begin end; -function TfrmClothContractListHZ.DelData():Boolean; +function TfrmClothContractListHZ.DelData(): Boolean; begin try - Result:=false; + Result := false; ADOQueryCmd.Connection.BeginTrans; with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('delete ContractSX_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+''''); + sql.Add('delete ContractSX_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); ExecSQL; end; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from ContractSX_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('select * from ContractSX_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; if ADOQueryTemp.IsEmpty then @@ -739,145 +678,143 @@ begin begin Close; sql.Clear; - sql.Add('delete ContractSX_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete ContractSX_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; end; - if Trim(Order_Main.fieldbyname('SubId').AsString)='' then + if Trim(Order_Main.fieldbyname('SubId').AsString) = '' then begin with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('delete ContractSX_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add('delete ContractSX_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); ExecSQL; end; end; ADOQueryCmd.Connection.CommitTrans; - Result:=True; + Result := True; except ADOQueryCmd.Connection.RollbackTrans; - Result:=False; - Application.MessageBox('ɾ쳣','ʾ',0); + Result := False; + Application.MessageBox('ɾ쳣', 'ʾ', 0); end; end; procedure TfrmClothContractListHZ.TBExportClick(Sender: TObject); begin - if ADOQueryMain.IsEmpty then Exit; - TcxGridToExcel('ͬб',cxGrid1); + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel('ͬб', cxGrid1); end; procedure TfrmClothContractListHZ.TBPrintClick(Sender: TObject); var - fPrintFile,FConNoM:string; - + fPrintFile, FConNoM: string; begin - if Order_Main.IsEmpty then Exit; - if cxPageControl1.ActivePageIndex=0 then + if Order_Main.IsEmpty then + Exit; + if cxPageControl1.ActivePageIndex = 0 then begin - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɴ߶ͬ.rmf' ; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ɴ߶ͬ.rmf'; with ADOQueryTemp do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); - Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' - +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; - Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); - Parameters.ParamByName('WSql').Value:=''; + Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''''; + Parameters.ParamByName('MainId').Value := Trim(Order_Main.fieldbyname('MainId').AsString); + Parameters.ParamByName('WSql').Value := ''; Open; end; - SCreateCDS20(ADOQueryTemp,CDS_PRT); - SInitCDSData20(ADOQueryTemp,CDS_PRT); - FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').AsString); - end else - if cxPageControl1.ActivePageIndex=1 then + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + FConNoM := Trim(CDS_PRT.fieldbyname('ConNoM').AsString); + end + else if cxPageControl1.ActivePageIndex = 1 then begin - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɴǰӹͬ.rmf' ; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ɴǰӹͬ.rmf'; with ADOQueryTemp do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId'); - SQL.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(' where A.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; - SCreateCDS20(ADOQueryTemp,CDS_PRT); - SInitCDSData20(ADOQueryTemp,CDS_PRT); - FConNoM:=Trim(CDS_PRT.fieldbyname('ConNo').AsString); - end else - if cxPageControl1.ActivePageIndex=2 then + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + FConNoM := Trim(CDS_PRT.fieldbyname('ConNo').AsString); + end + else if cxPageControl1.ActivePageIndex = 2 then begin - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɴ߼ӹͬ.rmf' ; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ɴ߼ӹͬ.rmf'; with ADOQueryTemp do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId'); - SQL.Add(' where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add(' where A.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; - SCreateCDS20(ADOQueryTemp,CDS_PRT); - SInitCDSData20(ADOQueryTemp,CDS_PRT); - FConNoM:=Trim(CDS_PRT.fieldbyname('ConNo').AsString); - end else - if cxPageControl1.ActivePageIndex=3 then + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + FConNoM := Trim(CDS_PRT.fieldbyname('ConNo').AsString); + end + else if cxPageControl1.ActivePageIndex = 3 then begin - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ͬ.rmf' ; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͬ.rmf'; with ADOQueryTemp do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; sql.Add('exec ClothContract_QryList :MainId,:WSql'); - Parameters.ParamByName('WSql').Value:=' and FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''' - +' and FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+''''; - Parameters.ParamByName('MainId').Value:=Trim(Order_Main.fieldbyname('MainId').AsString); - Parameters.ParamByName('WSql').Value:=''; + Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''''; + Parameters.ParamByName('MainId').Value := Trim(Order_Main.fieldbyname('MainId').AsString); + Parameters.ParamByName('WSql').Value := ''; Open; end; - SCreateCDS20(ADOQueryTemp,CDS_PRT); - SInitCDSData20(ADOQueryTemp,CDS_PRT); - FConNoM:=Trim(CDS_PRT.fieldbyname('ConNoM').AsString); - end else - if cxPageControl1.ActivePageIndex=4 then + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + FConNoM := Trim(CDS_PRT.fieldbyname('ConNoM').AsString); + end + else if cxPageControl1.ActivePageIndex = 4 then begin - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\Ⱦɫͬ.rmf' ; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\Ⱦɫͬ.rmf'; with ADOQueryTemp do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId'); - SQL.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add('where A.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; - SCreateCDS20(ADOQueryTemp,CDS_PRT); - SInitCDSData20(ADOQueryTemp,CDS_PRT); - FConNoM:=Trim(CDS_PRT.fieldbyname('ConNo').AsString); - end else - if cxPageControl1.ActivePageIndex=5 then + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + FConNoM := Trim(CDS_PRT.fieldbyname('ConNo').AsString); + end + else if cxPageControl1.ActivePageIndex = 5 then begin - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ӹͬ.rmf' ; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ӹͬ.rmf'; with ADOQueryTemp do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; sql.Add('select * from ContractHZ_Main A inner join ContractHZ_Sub B on A.MainId=B.MainId'); - SQL.Add('where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + SQL.Add('where A.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; - SCreateCDS20(ADOQueryTemp,CDS_PRT); - SInitCDSData20(ADOQueryTemp,CDS_PRT); - FConNoM:=Trim(CDS_PRT.fieldbyname('ConNo').AsString); + SCreateCDS20(ADOQueryTemp, CDS_PRT); + SInitCDSData20(ADOQueryTemp, CDS_PRT); + FConNoM := Trim(CDS_PRT.fieldbyname('ConNo').AsString); end; - if FileExists(fPrintFile) then begin //RMVariables['begindate']:=begindate.DateTime; @@ -886,9 +823,10 @@ begin //RMVariables['printer']:=Trim(gUserName); RM1.LoadFromFile(fPrintFile); RM1.ShowReport; - end else + end + else begin - Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\Ӧĺͬ.rmf'),'ʾ',0); + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\Ӧĺͬ.rmf'), 'ʾ', 0); end; end; @@ -900,15 +838,15 @@ end; procedure TfrmClothContractListHZ.TBAddClick(Sender: TObject); begin - if cxPageControl1.ActivePageIndex=0 then + if cxPageControl1.ActivePageIndex = 0 then begin try - frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + frmClothContractInPutSXMX := TfrmClothContractInPutSXMX.Create(Application); with frmClothContractInPutSXMX do begin - PState:=0; - FMainId:=''; - if ShowModal=1 then + PState := 0; + FMainId := ''; + if ShowModal = 1 then begin end; @@ -916,23 +854,23 @@ begin finally frmClothContractInPutSXMX.Free; end; - end else - if cxPageControl1.ActivePageIndex=1 then + end + else if cxPageControl1.ActivePageIndex = 1 then begin try - frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); with frmClothContractInPutHZ do begin - PState:=0; - FMainId:=''; - CPFlag:='ClothSX'; - CPFlagName:='ɴ'; - Caption:='Ⱦɴͬ'; - FactoryFlag:='PBFactory'; - v1Column3.Caption:='ӹ'; - v1Price.Caption:='ӹ'; - FConType:='ɴǰӹ'; - if ShowModal=1 then + PState := 0; + FMainId := ''; + CPFlag := 'ClothSX'; + CPFlagName := 'ɴ'; + Caption := 'Ⱦɴͬ'; + FactoryFlag := 'PBFactory'; + v1Column3.Caption := 'ӹ'; + v1Price.Caption := 'ӹ'; + FConType := 'ɴǰӹ'; + if ShowModal = 1 then begin end; @@ -940,23 +878,23 @@ begin finally frmClothContractInPutHZ.Free; end; - end else - if cxPageControl1.ActivePageIndex=2 then + end + else if cxPageControl1.ActivePageIndex = 2 then begin try - frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); with frmClothContractInPutHZ do begin - PState:=0; - FMainId:=''; - CPFlag:='ClothSX'; - CPFlagName:='ɴ'; - Caption:='֯ͬ'; - FactoryFlag:='PBFactory'; - v1Column3.Caption:='ӹ'; - v1Price.Caption:='ӹ'; - FConType:='ɴ߼ӹ'; - if ShowModal=1 then + PState := 0; + FMainId := ''; + CPFlag := 'ClothSX'; + CPFlagName := 'ɴ'; + Caption := '֯ͬ'; + FactoryFlag := 'PBFactory'; + v1Column3.Caption := 'ӹ'; + v1Price.Caption := 'ӹ'; + FConType := 'ɴ߼ӹ'; + if ShowModal = 1 then begin end; @@ -964,16 +902,16 @@ begin finally frmClothContractInPutHZ.Free; end; - end else - if cxPageControl1.ActivePageIndex=3 then + end + else if cxPageControl1.ActivePageIndex = 3 then begin try - frmClothContractInPutPB:=TfrmClothContractInPutPB.Create(Application); + frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application); with frmClothContractInPutPB do begin - PState:=0; - FMainId:=''; - if ShowModal=1 then + PState := 0; + FMainId := ''; + if ShowModal = 1 then begin end; @@ -981,23 +919,23 @@ begin finally frmClothContractInPutPB.Free; end; - end else - if cxPageControl1.ActivePageIndex=4 then + end + else if cxPageControl1.ActivePageIndex = 4 then begin try - frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); with frmClothContractInPutHZ do begin - PState:=0; - FMainId:=''; - CPFlag:='Cloth'; - CPFlagName:=''; - Caption:='Ⱦɫӹͬ'; - FactoryFlag:='RanFactory'; - v1Column3.Caption:='Ⱦ'; - v1Price.Caption:='Ⱦɫ'; - FConType:='Ⱦɫӹ'; - if ShowModal=1 then + PState := 0; + FMainId := ''; + CPFlag := 'Cloth'; + CPFlagName := ''; + Caption := 'Ⱦɫӹͬ'; + FactoryFlag := 'RanFactory'; + v1Column3.Caption := 'Ⱦ'; + v1Price.Caption := 'Ⱦɫ'; + FConType := 'Ⱦɫӹ'; + if ShowModal = 1 then begin end; @@ -1005,23 +943,23 @@ begin finally frmClothContractInPutHZ.Free; end; - end else - if cxPageControl1.ActivePageIndex=5 then + end + else if cxPageControl1.ActivePageIndex = 5 then begin try - frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); with frmClothContractInPutHZ do begin - PState:=0; - FMainId:=''; - CPFlag:='Cloth'; - CPFlagName:=''; - Caption:='ӹͬ'; - FactoryFlag:='HZLFactory'; - v1Column3.Caption:='ӹ'; - v1Price.Caption:='ӹ'; - FConType:='ӹ'; - if ShowModal=1 then + PState := 0; + FMainId := ''; + CPFlag := 'Cloth'; + CPFlagName := ''; + Caption := 'ӹͬ'; + FactoryFlag := 'HZLFactory'; + v1Column3.Caption := 'ӹ'; + v1Price.Caption := 'ӹ'; + FConType := 'ӹ'; + if ShowModal = 1 then begin end; @@ -1035,10 +973,11 @@ end; procedure TfrmClothContractListHZ.ConNoMChange(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmClothContractListHZ.FormShow(Sender: TObject); @@ -1046,53 +985,53 @@ begin InitForm(); end; -procedure TfrmClothContractListHZ.conPress(Sender: TObject; - var Key: Char); +procedure TfrmClothContractListHZ.conPress(Sender: TObject; var Key: Char); begin - if Key=#13 then + if Key = #13 then begin - if Length(Trim(ConNoM.Text))<3 then Exit; + if Length(Trim(ConNoM.Text)) < 3 then + Exit; try ADOQueryMain.DisableControls; with ADOQueryMain do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; - if cxPageControl1.ActivePageIndex=0 then + if cxPageControl1.ActivePageIndex = 0 then begin sql.Add('exec ClothContractSX_QryList :MainId,:WSql'); - Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''; - end else - if cxPageControl1.ActivePageIndex=1 then + Parameters.ParamByName('WSql').Value := ' and OM.conNo like ''' + '%' + Trim(ConNoM.Text) + '%' + ''''; + end + else if cxPageControl1.ActivePageIndex = 1 then begin sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId '); - SQL.Add(' where A.ConNO like'''+'%'+Trim(ConNoM.Text)+'%'+''''); + SQL.Add(' where A.ConNO like''' + '%' + Trim(ConNoM.Text) + '%' + ''''); sql.Add(' and A.ConType=''ɴ߼ӹ'''); - end else - if cxPageControl1.ActivePageIndex=2 then + end + else if cxPageControl1.ActivePageIndex = 2 then begin sql.Add('exec ClothContract_QryList :MainId,:WSql'); - Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''; - end else - if cxPageControl1.ActivePageIndex=3 then + Parameters.ParamByName('WSql').Value := ' and OM.conNo like ''' + '%' + Trim(ConNoM.Text) + '%' + ''''; + end + else if cxPageControl1.ActivePageIndex = 3 then begin sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId '); - SQL.Add(' where A.ConNO like'''+'%'+Trim(ConNoM.Text)+'%'+''''); + SQL.Add(' where A.ConNO like''' + '%' + Trim(ConNoM.Text) + '%' + ''''); sql.Add(' and A.ConType=''Ⱦɫӹ'''); - end else - if cxPageControl1.ActivePageIndex=4 then + end + else if cxPageControl1.ActivePageIndex = 4 then begin sql.Add('select A.*,B.*,Money=(B.Price*B.C_Qty) from ContractHZ_Main A inner join ContractHZ_Sub B on A.Mainid=B.MainId '); - SQL.Add(' where A.ConNO like'''+'%'+Trim(ConNoM.Text)+'%'+''''); + SQL.Add(' where A.ConNO like''' + '%' + Trim(ConNoM.Text) + '%' + ''''); sql.Add(' and A.ConType=''ӹ'''); end; Open; end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); finally ADOQueryMain.EnableControls; end; @@ -1106,18 +1045,19 @@ end; procedure TfrmClothContractListHZ.ToolButton1Click(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; - if cxPageControl1.ActivePageIndex=0 then + if Order_Main.IsEmpty then + Exit; + if cxPageControl1.ActivePageIndex = 0 then begin try - frmClothContractInPutSXMX:=TfrmClothContractInPutSXMX.Create(Application); + frmClothContractInPutSXMX := TfrmClothContractInPutSXMX.Create(Application); with frmClothContractInPutSXMX do begin - PState:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); - PCopyInt:=1; - if ShowModal=1 then + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo := Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); + PCopyInt := 1; + if ShowModal = 1 then begin end; @@ -1125,25 +1065,25 @@ begin finally frmClothContractInPutSXMX.Free; end; - end else - if cxPageControl1.ActivePageIndex=1 then + end + else if cxPageControl1.ActivePageIndex = 1 then begin try - frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); with frmClothContractInPutHZ do begin - PState:=1; - PCopyInt:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); - CPFlag:='ClothSX'; - CPFlagName:='ɴ'; - Caption:='Ⱦɴͬ'; - FactoryFlag:='PBFactory'; - v1Column3.Caption:='ӹ'; - v1Price.Caption:='ӹ'; - FConType:='ɴǰӹ'; - if ShowModal=1 then + PState := 1; + PCopyInt := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag := 'ClothSX'; + CPFlagName := 'ɴ'; + Caption := 'Ⱦɴͬ'; + FactoryFlag := 'PBFactory'; + v1Column3.Caption := 'ӹ'; + v1Price.Caption := 'ӹ'; + FConType := 'ɴǰӹ'; + if ShowModal = 1 then begin end; @@ -1151,25 +1091,25 @@ begin finally frmClothContractInPutHZ.Free; end; - end else - if cxPageControl1.ActivePageIndex=2 then + end + else if cxPageControl1.ActivePageIndex = 2 then begin try - frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); with frmClothContractInPutHZ do begin - PState:=1; - PCopyInt:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); - CPFlag:='ClothSX'; - CPFlagName:='ɴ'; - Caption:='֯ͬ'; - FactoryFlag:='PBFactory'; - v1Column3.Caption:='ӹ'; - v1Price.Caption:='ӹ'; - FConType:='ɴ߼ӹ'; - if ShowModal=1 then + PState := 1; + PCopyInt := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag := 'ClothSX'; + CPFlagName := 'ɴ'; + Caption := '֯ͬ'; + FactoryFlag := 'PBFactory'; + v1Column3.Caption := 'ӹ'; + v1Price.Caption := 'ӹ'; + FConType := 'ɴ߼ӹ'; + if ShowModal = 1 then begin end; @@ -1177,18 +1117,18 @@ begin finally frmClothContractInPutHZ.Free; end; - end else - if cxPageControl1.ActivePageIndex=3 then + end + else if cxPageControl1.ActivePageIndex = 3 then begin try - frmClothContractInPutPB:=TfrmClothContractInPutPB.Create(Application); + frmClothContractInPutPB := TfrmClothContractInPutPB.Create(Application); with frmClothContractInPutPB do begin - PState:=1; - PCopyInt:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - FConNo:=Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); - if ShowModal=1 then + PState := 1; + PCopyInt := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo := Trim(Self.Order_Main.fieldbyname('ConNoM').AsString); + if ShowModal = 1 then begin end; @@ -1196,25 +1136,25 @@ begin finally frmClothContractInPutPB.Free; end; - end else - if cxPageControl1.ActivePageIndex=4 then + end + else if cxPageControl1.ActivePageIndex = 4 then begin try - frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); with frmClothContractInPutHZ do begin - PState:=1; - PCopyInt:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); - CPFlag:='Cloth'; - CPFlagName:=''; - Caption:='Ⱦɫӹͬ'; - FactoryFlag:='RanFactory'; - v1Column3.Caption:='Ⱦ'; - v1Price.Caption:='Ⱦɫ'; - FConType:='Ⱦɫӹ'; - if ShowModal=1 then + PState := 1; + PCopyInt := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag := 'Cloth'; + CPFlagName := ''; + Caption := 'Ⱦɫӹͬ'; + FactoryFlag := 'RanFactory'; + v1Column3.Caption := 'Ⱦ'; + v1Price.Caption := 'Ⱦɫ'; + FConType := 'Ⱦɫӹ'; + if ShowModal = 1 then begin end; @@ -1222,25 +1162,25 @@ begin finally frmClothContractInPutHZ.Free; end; - end else - if cxPageControl1.ActivePageIndex=5 then + end + else if cxPageControl1.ActivePageIndex = 5 then begin try - frmClothContractInPutHZ:=TfrmClothContractInPutHZ.Create(Application); + frmClothContractInPutHZ := TfrmClothContractInPutHZ.Create(Application); with frmClothContractInPutHZ do begin - PState:=1; - PCopyInt:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - FConNo:=Trim(Self.Order_Main.fieldbyname('ConNo').AsString); - CPFlag:='Cloth'; - CPFlagName:=''; - Caption:='ӹͬ'; - FactoryFlag:='HZLFactory'; - v1Column3.Caption:='ӹ'; - v1Price.Caption:='ӹ'; - FConType:='ӹ'; - if ShowModal=1 then + PState := 1; + PCopyInt := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString); + CPFlag := 'Cloth'; + CPFlagName := ''; + Caption := 'ӹͬ'; + FactoryFlag := 'HZLFactory'; + v1Column3.Caption := 'ӹ'; + v1Price.Caption := 'ӹ'; + FConType := 'ӹ'; + if ShowModal = 1 then begin end; @@ -1253,16 +1193,17 @@ end; procedure TfrmClothContractListHZ.ToolButton2Click(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; + if Order_Main.IsEmpty then + Exit; try - frmFjList_RZ:=TfrmFjList_RZ.Create(Application); + frmFjList_RZ := TfrmFjList_RZ.Create(Application); with frmFjList_RZ do begin // PState:=1; - // if Trim(canshu1)<>'Ȩ' then cxButton1.Visible:=false; - fkeyNO:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - fType:='ƥɹ'; - if ShowModal=1 then + // if Trim(canshu1)<>'Ȩ' then cxButton1.Visible:=false; + fkeyNO := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + fType := 'ƥɹ'; + if ShowModal = 1 then begin end; @@ -1272,4 +1213,89 @@ begin end; end; +procedure TfrmClothContractListHZ.TCKClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update ContractSX_Main SET ChkStatus=''1'',chktime=getdate(),chker='+quotedstr(trim(Dname))); + sql.Add('where MainId=' + quotedstr(trim(Order_Main.fieldbyname('MainId').AsString))); + execsql; + end; + application.MessageBox('ɴ߲ɹ˳ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ɴ߲ɹʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmClothContractListHZ.TnoCKClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + try + with ADOQueryCmd do + begin + close; + sql.Clear; + sql.Add('update ContractSX_Main SET ChkStatus=''0'',chktime=null,Chker='''' '); + sql.Add('where MainId=' + quotedstr(trim(Order_Main.fieldbyname('MainId').AsString))); + execsql; + end; + application.MessageBox('ɴ߲ɹ˳ɹ', 'ʾϢ'); + TBRafresh.Click; + except + application.MessageBox('ɴ߲ɹʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmClothContractListHZ.cxTabControl1Change(Sender: TObject); +begin + SetStatus(); + InitGrid(); +end; + +procedure TfrmClothContractListHZ.SetStatus(); +begin + tbedit.Visible := false; + tbdel.Visible := false; + TCK.Visible := false; + TnoCK.Visible := false; + if Trim(DParameters1) = 'Ȩ' then + begin + case cxTabControl1.TabIndex of + 0: + begin + tbedit.Visible := true; + tbdel.Visible := true; + TCK.Visible := true; + end; + 1: + begin + TnoCK.Visible := true; + end; + end; + end + else + begin + case cxTabControl1.TabIndex of + 0: + begin + tbedit.Visible := true; + tbdel.Visible := true; + end; + 1: + begin + + end; + end; + end; + +end; + end. + diff --git a/贝其贸易管理/U_GetDllForm.pas b/贝其贸易管理/U_GetDllForm.pas index f9fea8a..590a70b 100644 --- a/贝其贸易管理/U_GetDllForm.pas +++ b/贝其贸易管理/U_GetDllForm.pas @@ -95,7 +95,7 @@ begin // DParameters1:='Ȩ'; //DCode:='002'; //DName:='ADMIN'; - //DParameters2:=''; + //DParameters2:=''; //DataBase:='Ȩ'; if not ConnData() then begin