From 57b9ca039668b153ab8c7c57dd852932992baca4 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Thu, 25 Sep 2025 13:21:52 +0800 Subject: [PATCH] =?UTF-8?q?=E5=BE=85=E6=A3=80=E5=B8=83=E5=8A=A0=E6=97=A5?= =?UTF-8?q?=E5=BF=97?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas | 3 +- 坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.dfm | 4 +- 坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas | 288 ++++++++------ 坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas | 415 +++++++++++--------- 4 files changed, 400 insertions(+), 310 deletions(-) diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas index ddb6fd2..f3c005d 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas @@ -245,10 +245,11 @@ begin if Trim(FFSPID) = '' then begin Append; + FieldByName('BZNoteList').Value := Trim(CDS_Sub.fieldbyname('FactoryName').AsString) + ';' + Trim(CDS_Sub.fieldbyname('OrderNo').AsString) + ';' + Trim(CDS_Sub.fieldbyname('PiQty').AsString); end else begin - Edit; + Edit; end; FieldByName('SPID').Value := Trim(Maxno); FieldByName('FZSPID').Value := Trim(Maxno); diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.dfm index 9887019..c6e5342 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.dfm @@ -437,13 +437,13 @@ object frmDJBCKOutList: TfrmDJBCKOutList Left = 0 Top = 105 Width = 1193 - Height = 440 + Height = 439 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 object Tv1: TcxGridDBTableView OnMouseDown = Tv1MouseDown - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas index a7a10b1..261de10 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKOutList.pas @@ -4,14 +4,27 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, - cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, - cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, - cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, - cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, - RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, - cxCalendar, cxButtonEdit, cxTextEdit, RM_BarCode; + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, + RM_BarCode, 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; type TfrmDJBCKOutList = class(TForm) @@ -133,15 +146,14 @@ type procedure TBAddClick(Sender: TObject); procedure TBEditClick(Sender: TObject); procedure ToolButton3Click(Sender: TObject); - procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; - Shift: TShiftState; X, Y: Integer); + procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure PRTColorChange(Sender: TObject); procedure SOrddefstr1Change(Sender: TObject); procedure PRTHXChange(Sender: TObject); procedure QCorderNoKeyPress(Sender: TObject; var Key: Char); procedure CKorderNoKeyPress(Sender: TObject; var Key: Char); private - canshu1,canshu2:string; + canshu1, canshu2: string; procedure InitGrid(); procedure GetGangLb(); { Private declarations } @@ -153,8 +165,9 @@ var frmDJBCKOutList: TfrmDJBCKOutList; implementation + uses - U_DataLink,U_RTFun,U_DJBCKOutPut; + U_DataLink, U_RTFun, U_DJBCKOutPut; {$R *.dfm} procedure TfrmDJBCKOutList.GetGangLb(); @@ -167,14 +180,14 @@ begin sql.Clear; sql.Add('select * from KH_Zdy where Type=''LBGANGFLAG'' '); open; - If not isEmpty then + if not isEmpty then begin while not eof do begin LBGANG.Items.Add(trim(fieldbyname('zdyName').AsString)); next; end; - LBGANG.ItemIndex:=0; + LBGANG.ItemIndex := 0; end; end; ADOQueryTemp.EnableControls; @@ -182,22 +195,21 @@ end; procedure TfrmDJBCKOutList.FormDestroy(Sender: TObject); begin - frmDJBCKOutList:=nil; + frmDJBCKOutList := nil; end; -procedure TfrmDJBCKOutList.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmDJBCKOutList.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmDJBCKOutList.FormCreate(Sender: TObject); begin //cxGrid1.Align:=alClient; - canshu1:=Trim(DParameters1); - canshu2:=Trim(DParameters2); - EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); - BegDate.DateTime:=EndDate.DateTime-1; + canshu1 := Trim(DParameters1); + canshu2 := Trim(DParameters2); + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 1; end; procedure TfrmDJBCKOutList.InitGrid(); @@ -206,7 +218,7 @@ begin ADOQueryMain.DisableControls; with ADOQueryMain do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; sql.Add(' select A.* ,B.SOrddefstr1,B.PRTColor,B.PRTHX,B.PrtkuanNo'); @@ -216,13 +228,13 @@ begin SQL.Add(' and CRFlag='''' '); SQL.Add(' and isnull(CKName,'''')=''첼'' '); - Parameters.ParamByName('begdate').Value:=Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime)); - Parameters.ParamByName('enddate').Value:=Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1)); + Parameters.ParamByName('begdate').Value := Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + Parameters.ParamByName('enddate').Value := Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); Open; //ShowMessage(SQL.Text); end; - SCreateCDS20(ADOQueryMain,CDS_Main); - SInitCDSData20(ADOQueryMain,CDS_Main); + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); finally ADOQueryMain.EnableControls; end; @@ -238,47 +250,49 @@ procedure TfrmDJBCKOutList.ConNoMChange(Sender: TObject); begin if ADOQueryMain.Active then begin - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); end; end; procedure TfrmDJBCKOutList.TBCloseClick(Sender: TObject); begin - WriteCxGrid('ӹбPMD',Tv1,'ӹֿ'); + WriteCxGrid('ӹбPMD', Tv1, 'ӹֿ'); Close; end; procedure TfrmDJBCKOutList.FormShow(Sender: TObject); begin - if Trim(canshu2)='鿴' then + if Trim(canshu2) = '鿴' then begin - TBAdd.Visible:=False; - TBDel.Visible:=False; - TBEdit.Visible:=False; - end else + TBAdd.Visible := False; + TBDel.Visible := False; + TBEdit.Visible := False; + end + else begin - TBAdd.Visible:=True; - TBDel.Visible:=True; - TBEdit.Visible:=True; + TBAdd.Visible := True; + TBDel.Visible := True; + TBEdit.Visible := True; end; GetGangLb(); - ReadCxGrid('ӹбPMD',Tv1,'ӹֿ'); + ReadCxGrid('ӹбPMD', Tv1, 'ӹֿ'); //InitGrid(); end; procedure TfrmDJBCKOutList.TBExportClick(Sender: TObject); begin - if ADOQueryMain.IsEmpty then exit; - TcxGridToExcel('ӹб',cxGrid2); + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel('ӹб', cxGrid2); end; procedure TfrmDJBCKOutList.TBFindClick(Sender: TObject); begin if ADOQueryMain.Active then begin - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,CDS_Main); - SInitCDSData20(ADOQueryMain,CDS_Main); + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); end; end; @@ -289,17 +303,17 @@ end; procedure TfrmDJBCKOutList.SPIDChange(Sender: TObject); begin - if Length(Trim(SPID.Text))<4 then + if Length(Trim(SPID.Text)) < 4 then begin - if Trim(SPID.Text)<>'' then Exit; + if Trim(SPID.Text) <> '' then + Exit; end; TBFind.Click; end; -procedure TfrmDJBCKOutList.SPIDKeyPress(Sender: TObject; - var Key: Char); +procedure TfrmDJBCKOutList.SPIDKeyPress(Sender: TObject; var Key: Char); begin - if Key=#13 then + if Key = #13 then begin {if Length(Trim(SPID.Text))<4 then Exit; try @@ -326,17 +340,18 @@ end; procedure TfrmDJBCKOutList.N1Click(Sender: TObject); begin - if CDS_Main.IsEmpty then Exit; + if CDS_Main.IsEmpty then + Exit; CDS_Main.DisableControls; with CDS_Main do begin First; while not eof do begin - if Trim(CDS_Main.fieldbyname('CRType').AsString)='' then + if Trim(CDS_Main.fieldbyname('CRType').AsString) = '' then begin Edit; - FieldByName('SSel').Value:=True; + FieldByName('SSel').Value := True; Post; end; Next; @@ -347,66 +362,76 @@ end; procedure TfrmDJBCKOutList.N2Click(Sender: TObject); begin - SelOKNo(CDS_Main,False); + SelOKNo(CDS_Main, False); end; procedure TfrmDJBCKOutList.TBDelClick(Sender: TObject); begin - if CDS_Main.IsEmpty then Exit; - if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + if CDS_Main.IsEmpty then + Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString) <> '' then begin with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select Top 1 * from WFB_MJJY where isnull(APID,'''')='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('select Top 1 * from WFB_MJJY where isnull(APID,'''')=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); Open; end; - if ADOQueryTemp.IsEmpty=False then + if ADOQueryTemp.IsEmpty = False then begin - Application.MessageBox('Ѽ鲻ɾ!','ʾ',0); + Application.MessageBox('Ѽ鲻ɾ!', 'ʾ', 0); Exit; end; - if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽƳ' then + if Trim(CDS_Main.fieldbyname('CRType').AsString) = 'ƽƳ' then begin with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from CK_SXPB_CR where FZSPID='); - sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('(select SPID from CK_SXPB_CR where PYID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); sql.Add(' and isnull(CRType,'''')=''ƽ'')'); sql.Add(' and CRQtyFlag=-1'); Open; end; - if ADOQueryTemp.IsEmpty=False then + if ADOQueryTemp.IsEmpty = False then begin - Application.MessageBox('г¼ɾ!','ʾ',0); + Application.MessageBox('г¼ɾ!', 'ʾ', 0); Exit; end; end; - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; try ADOQueryCmd.Connection.BeginTrans; with ADOQueryCmd do begin Close; - sql.Clear; - sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Clear; + sql.Add(' delete CK_SXPB_CR where SPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); sql.Add(' Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); - sql.Add(' where SPID='''+Trim(CDS_Main.fieldbyname('FZSPID').AsString)+''''); - if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽƳ' then + sql.Add(' where SPID=''' + Trim(CDS_Main.fieldbyname('FZSPID').AsString) + ''''); + if Trim(CDS_Main.fieldbyname('CRType').AsString) = 'ƽƳ' then begin - sql.Add(' delete CK_SXPB_CR where isnull(PYID,'''')='''+Trim(CDS_Main.fieldbyname('PYID').AsString)+''''); + sql.Add(' delete CK_SXPB_CR where isnull(PYID,'''')=''' + Trim(CDS_Main.fieldbyname('PYID').AsString) + ''''); end; + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('첼ɾ'))); + sql.Add(',' + quotedstr(trim('ⵥţ' + trim(CDS_Main.FieldByName('SPID').AsString) + ',ӹ' + trim(CDS_Main.FieldByName('factoryName').AsString) + ',' + trim(CDS_Main.FieldByName('QCorderNo').AsString) + ',ƥ' + trim(CDS_Main.FieldByName('piqty').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); ExecSQL; end; ADOQueryCmd.Connection.CommitTrans; except ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ɾ쳣!','ʾ',0); + Application.MessageBox('ɾ쳣!', 'ʾ', 0); end; end; CDS_Main.Delete; @@ -415,11 +440,11 @@ end; procedure TfrmDJBCKOutList.TBAddClick(Sender: TObject); begin try - frmDJBCKOutPut:=TfrmDJBCKOutPut.Create(Application); + frmDJBCKOutPut := TfrmDJBCKOutPut.Create(Application); with frmDJBCKOutPut do begin - FBCId:=''; - if ShowModal=1 then + FBCId := ''; + if ShowModal = 1 then begin Self.InitGrid(); end; @@ -431,30 +456,31 @@ end; procedure TfrmDJBCKOutList.TBEditClick(Sender: TObject); begin - if CDS_Main.IsEmpty then Exit; + if CDS_Main.IsEmpty then + Exit; with ADOQueryTemp do begin Close; sql.Clear; sql.Add('select * from CK_SXPB_CR where FZSPID='); - sql.Add('(select SPID from CK_SXPB_CR where PYID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('(select SPID from CK_SXPB_CR where PYID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); sql.Add(' and isnull(CRType,'''')=''ƽ'')'); sql.Add(' and CRQtyFlag=-1'); Open; end; - if ADOQueryTemp.IsEmpty=False then + if ADOQueryTemp.IsEmpty = False then begin - Application.MessageBox('г¼޸!','ʾ',0); + Application.MessageBox('г¼޸!', 'ʾ', 0); Exit; end; try - frmDJBCKOutPut:=TfrmDJBCKOutPut.Create(Application); + frmDJBCKOutPut := TfrmDJBCKOutPut.Create(Application); with frmDJBCKOutPut do begin - FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); - TBDel.Visible:=False; - TBAdd.Visible:=False; - if ShowModal=1 then + FBCId := Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible := False; + TBAdd.Visible := False; + if ShowModal = 1 then begin Self.InitGrid(); end; @@ -467,31 +493,31 @@ end; procedure TfrmDJBCKOutList.ToolButton3Click(Sender: TObject); var - fPrintFile:string; - Txt,fImagePath:string; - Moudle: THandle; - Makebar:TMakebar; - Mixtext:TMixtext; - + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; begin - if CDS_Main.IsEmpty then Exit; + if CDS_Main.IsEmpty then + Exit; //if Trim(CDS_Main.fieldbyname('CRType').AsString)<>'' then Exit; - if CDS_Main.Locate('SSel',True,[])=False then + if CDS_Main.Locate('SSel', True, []) = False then begin - Application.MessageBox('ûѡ!','ʾ',0); + Application.MessageBox('ûѡ!', 'ʾ', 0); Exit; end; - IF Trim(LBGANG.Text)='' then + if Trim(LBGANG.Text) = '' then begin - Application.MessageBox('ѡҪӡĸױǩ','ʾ',0); + Application.MessageBox('ѡҪӡĸױǩ', 'ʾ', 0); Exit; end; - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LBGANG.Text)+'.rmf' ; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBGANG.Text) + '.rmf'; CDS_Main.DisableControls; with CDS_Main do begin First; - while CDS_Main.Locate('SSel',True,[]) do + while CDS_Main.Locate('SSel', True, []) do begin with ADOQueryPrint do begin @@ -503,41 +529,43 @@ begin sql.Add(' from CK_SXPB_CR A'); sql.Add(' left join JYOrder_Main B on A.ORDmainIdCK=B.mainID'); sql.Add(' left join JYOrder_Sub C on A.ORDSubIdCK=C.subID'); - sql.Add(' where A.SPId='''+Trim(CDS_Main.fieldbyname('SPId').AsString)+''''); + sql.Add(' where A.SPId=''' + Trim(CDS_Main.fieldbyname('SPId').AsString) + ''''); Open; end; - SCreateCDS20(ADOQueryPrint,CDS_PRT); - SInitCDSData20(ADOQueryPrint,CDS_PRT); + SCreateCDS20(ADOQueryPrint, CDS_PRT); + SInitCDSData20(ADOQueryPrint, CDS_PRT); try - Moudle:=LoadLibrary('MakeQRBarcode.dll'); - @Makebar:=GetProcAddress(Moudle,'Make'); - @Mixtext:=GetProcAddress(Moudle,'MixText'); - Txt:=Trim(CDS_PRT.fieldbyname('SPID').AsString); - fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp' ; - if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then - CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil); - if FileExists(fImagePath) then DeleteFile(fImagePath); - Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3); + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := Trim(CDS_PRT.fieldbyname('SPID').AsString); + fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath) then + DeleteFile(fImagePath); + Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3); except CDS_Main.EnableControls; - application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); exit; end; if FileExists(fPrintFile) then begin - RMVariables['QRBARCODE']:=fImagePath; + RMVariables['QRBARCODE'] := fImagePath; RM1.LoadFromFile(fPrintFile); //RM1.ShowReport; RM1.PrintReport; - end else + end + else begin CDS_Main.EnableControls; - Application.MessageBox(PChar('û'+fPrintFile),'ʾ',0); + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); Exit; end; Edit; - FieldByName('SSel').Value:=False; + FieldByName('SSel').Value := False; Post; end; end; @@ -545,8 +573,7 @@ begin end; -procedure TfrmDJBCKOutList.Tv1MouseDown(Sender: TObject; - Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +procedure TfrmDJBCKOutList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin { if CDS_Main.IsEmpty then Exit; if Trim(CDS_Main.fieldbyname('CRType').AsString)<>'' then @@ -573,60 +600,60 @@ begin TBFind.Click; end; -procedure TfrmDJBCKOutList.QCorderNoKeyPress(Sender: TObject; - var Key: Char); +procedure TfrmDJBCKOutList.QCorderNoKeyPress(Sender: TObject; var Key: Char); begin - IF trim(QCorderNo.Text)='' then exit; - IF Key=#13 then + if trim(QCorderNo.Text) = '' then + exit; + if Key = #13 then begin try ADOQueryMain.DisableControls; with ADOQueryMain do begin Close; - Filtered:=False; + Filtered := False; sql.Clear; sql.Add(' select A.* ,B.SOrddefstr1,B.PRTColor,B.PRTHX,B.PrtkuanNo'); sql.Add(' from CK_SXPB_CR A'); sql.Add(' left join JYOrder_Sub B on A.ORDSubIdCK=B.SubId'); - sql.add(' where A.QCorderNo like '+quotedstr('%'+trim(QCorderNo.text)+'%')); + sql.add(' where A.QCorderNo like ' + quotedstr('%' + trim(QCorderNo.text) + '%')); SQL.Add(' and CRFlag='''' '); SQL.Add(' and isnull(CKName,'''')=''첼'' '); Open; //ShowMessage(SQL.Text); - end; - SCreateCDS20(ADOQueryMain,CDS_Main); - SInitCDSData20(ADOQueryMain,CDS_Main); + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); finally ADOQueryMain.EnableControls; end; end; end; -procedure TfrmDJBCKOutList.CKorderNoKeyPress(Sender: TObject; - var Key: Char); +procedure TfrmDJBCKOutList.CKorderNoKeyPress(Sender: TObject; var Key: Char); begin - IF trim(CKorderNo.Text)='' then exit; - IF Key=#13 then + if trim(CKorderNo.Text) = '' then + exit; + if Key = #13 then begin try ADOQueryMain.DisableControls; with ADOQueryMain do begin Close; - Filtered:=False; + Filtered := False; sql.Clear; sql.Add(' select A.* ,B.SOrddefstr1,B.PRTColor,B.PRTHX,B.PrtkuanNo'); sql.Add(' from CK_SXPB_CR A'); sql.Add(' left join JYOrder_Sub B on A.ORDSubIdCK=B.SubId'); - sql.add(' where A.CKorderNo like '+quotedstr('%'+trim(CKorderNo.text)+'%')); + sql.add(' where A.CKorderNo like ' + quotedstr('%' + trim(CKorderNo.text) + '%')); SQL.Add(' and CRFlag='''' '); SQL.Add(' and isnull(CKName,'''')=''첼'' '); Open; //ShowMessage(SQL.Text); - end; - SCreateCDS20(ADOQueryMain,CDS_Main); - SInitCDSData20(ADOQueryMain,CDS_Main); + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); finally ADOQueryMain.EnableControls; end; @@ -634,3 +661,4 @@ begin end; end. + diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas index 56bee68..c6e3fd5 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas @@ -4,29 +4,27 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView, - cxGridTableView, cxGridBandedTableView, cxGridDBBandedTableView, - cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridDBTableView, - cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, - cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, - RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, - cxCalendar, cxButtonEdit, cxTextEdit, cxPC, BtnEdit, 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; + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, + BtnEdit, 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 TfrmDJBRKList = class(TForm) @@ -172,9 +170,9 @@ type procedure Button2Click(Sender: TObject); procedure defstr2KeyPress(Sender: TObject; var Key: Char); private - canshu1,canshu2:string; + canshu1, canshu2: string; procedure InitGrid(); - Procedure setstatus(); + procedure setstatus(); { Private declarations } public { Public declarations } @@ -184,33 +182,34 @@ var frmDJBRKList: TfrmDJBRKList; implementation + uses - U_DataLink,U_RTFun,U_DJBCKInPut, U_ZdyAttachGYS; + U_DataLink, U_RTFun, U_DJBCKInPut, U_ZdyAttachGYS; {$R *.dfm} -Procedure TfrmDJBRKList.setstatus(); +procedure TfrmDJBRKList.setstatus(); begin - TBedit.Visible:=false; - TBdel.Visible:=false; - TBchk.Visible:=false; - TBNochk.Visible:=false; - TBTSedit.Visible:=false; - IF canshu1='Ȩ'then + TBedit.Visible := false; + TBdel.Visible := false; + TBchk.Visible := false; + TBNochk.Visible := false; + TBTSedit.Visible := false; + if canshu1 = 'Ȩ' then begin case cxTabControl1.TabIndex of 0: - begin - TBedit.Visible:=true; - TBdel.Visible:=true; - TBchk.Visible:=true; - TBTSedit.Visible:=true; - end; + begin + TBedit.Visible := true; + TBdel.Visible := true; + TBchk.Visible := true; + TBTSedit.Visible := true; + end; 1: - begin - TBNochk.Visible:=True; - TBTSedit.Visible:=true; - end; + begin + TBNochk.Visible := True; + TBTSedit.Visible := true; + end; end; end @@ -218,15 +217,15 @@ begin begin case cxTabControl1.TabIndex of 0: - begin - TBedit.Visible:=true; - TBdel.Visible:=true; + begin + TBedit.Visible := true; + TBdel.Visible := true; // TBchk.Visible:=true; - end; + end; 1: - begin + begin // TBNochk.Visible:=True; - end; + end; end; end; @@ -234,22 +233,21 @@ end; procedure TfrmDJBRKList.FormDestroy(Sender: TObject); begin - frmDJBRKList:=nil; + frmDJBRKList := nil; end; -procedure TfrmDJBRKList.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmDJBRKList.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmDJBRKList.FormCreate(Sender: TObject); begin //cxGrid1.Align:=alClient; - canshu1:=Trim(DParameters1); - canshu2:=Trim(DParameters2); - EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); - BegDate.DateTime:=EndDate.DateTime; + canshu1 := Trim(DParameters1); + canshu2 := Trim(DParameters2); + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime; end; procedure TfrmDJBRKList.InitGrid(); @@ -258,7 +256,7 @@ begin ADOQueryMain.DisableControls; with ADOQueryMain do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; sql.Add(' select A.* ,AvgQty=case when piQty<>0 then cast(Qty/piQty as decimal(18,2)) else 0 end'); @@ -268,17 +266,17 @@ begin sql.Add(' ,PRTkuanNo=(select PRTkuanNo from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); sql.Add(' from CK_SXPB_CR A'); - sql.add(' where A.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); - sql.Add(' and A.CRTime<='''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); + sql.add(' where A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); + sql.Add(' and A.CRTime<=''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + ''''); sql.Add(' and isnull(CKName,'''')=''첼'''); SQL.Add(' and CRFlag='''' '); - IF cxTabControl1.TabIndex<2 then - SQL.Add(' and isnull(A.chkstatus,''0'')='''+inttostr(cxTabControl1.TabIndex)+''' '); + if cxTabControl1.TabIndex < 2 then + SQL.Add(' and isnull(A.chkstatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + ''' '); Open; //ShowMessage(SQL.Text); end; - SCreateCDS20(ADOQueryMain,CDS_Main); - SInitCDSData20(ADOQueryMain,CDS_Main); + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); finally ADOQueryMain.EnableControls; end; @@ -294,84 +292,88 @@ procedure TfrmDJBRKList.ConNoMChange(Sender: TObject); begin if ADOQueryMain.Active then begin - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); end; end; procedure TfrmDJBRKList.TBCloseClick(Sender: TObject); begin - WriteCxGrid('첼б',Tv1,'첼ֿ'); + WriteCxGrid('첼б', Tv1, '첼ֿ'); Close; end; procedure TfrmDJBRKList.FormShow(Sender: TObject); begin - if Trim(canshu2)='鿴' then + if Trim(canshu2) = '鿴' then begin - TBAdd.Visible:=False; - TBDel.Visible:=False; - TBEdit.Visible:=False; - end else + TBAdd.Visible := False; + TBDel.Visible := False; + TBEdit.Visible := False; + end + else begin - TBAdd.Visible:=True; - TBDel.Visible:=True; - TBEdit.Visible:=True; + TBAdd.Visible := True; + TBDel.Visible := True; + TBEdit.Visible := True; end; - ReadCxGrid('첼б',Tv1,'첼ֿ'); + ReadCxGrid('첼б', Tv1, '첼ֿ'); setstatus(); // InitGrid(); end; procedure TfrmDJBRKList.TBExportClick(Sender: TObject); begin - if ADOQueryMain.IsEmpty then exit; - TcxGridToExcel('첼б',cxGrid2); + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel('첼б', cxGrid2); end; procedure TfrmDJBRKList.TBFindClick(Sender: TObject); begin if ADOQueryMain.Active then begin - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,CDS_Main); - SInitCDSData20(ADOQueryMain,CDS_Main); + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); end; end; procedure TfrmDJBRKList.N1Click(Sender: TObject); begin - SelOKNo(CDS_Main,True); + SelOKNo(CDS_Main, True); end; procedure TfrmDJBRKList.N2Click(Sender: TObject); begin - SelOKNo(CDS_Main,False); + SelOKNo(CDS_Main, False); end; procedure TfrmDJBRKList.TBDelClick(Sender: TObject); begin - if CDS_Main.IsEmpty then Exit; - if Trim(CDS_Main.fieldbyname('SPID').AsString)<>'' then + if CDS_Main.IsEmpty then + Exit; + if Trim(CDS_Main.fieldbyname('SPID').AsString) <> '' then begin - if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽ' then + if Trim(CDS_Main.fieldbyname('CRType').AsString) = 'ƽ' then begin - Application.MessageBox('ƽΪԶɣɾ!','ʾ',0); + Application.MessageBox('ƽΪԶɣɾ!', 'ʾ', 0); Exit; end; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('select * from CK_SXPB_CR where FZSPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); sql.Add(' and CRQtyFlag=-1'); 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; try ADOQueryCmd.Connection.BeginTrans; @@ -379,10 +381,18 @@ begin begin Close; sql.Clear; - sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add(' delete CK_SXPB_CR where SPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); {sql.Add('Update CK_SXPB_KC Set KCKGQty=(select sum(isnull(KGQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); sql.Add(',KCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.CRID=CK_SXPB_KC.CRID)'); sql.Add(' where CRID='+Trim(CDS_Main.fieldbyname('CRID').AsString));} + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('첼ɾ'))); + sql.Add(',' + quotedstr(trim('ⵥţ' + trim(CDS_Main.FieldByName('SPID').AsString) + ',ӹ' + trim(CDS_Main.FieldByName('factoryName').AsString) + ',' + trim(CDS_Main.FieldByName('QCorderNo').AsString) + ',ƥ' + trim(CDS_Main.FieldByName('piqty').AsString)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); ExecSQL; end; { with ADOQueryTemp do @@ -406,10 +416,11 @@ begin CDS_Main.Delete; except ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ɾ쳣!','ʾ',0); + Application.MessageBox('ɾ쳣!', 'ʾ', 0); end; - end else + end + else begin CDS_Main.Delete; end; @@ -418,11 +429,11 @@ end; procedure TfrmDJBRKList.TBAddClick(Sender: TObject); begin try - frmDJBCKInPut:=TfrmDJBCKInPut.Create(Application); + frmDJBCKInPut := TfrmDJBCKInPut.Create(Application); with frmDJBCKInPut do begin - FBCId:=''; - if ShowModal=1 then + FBCId := ''; + if ShowModal = 1 then begin Self.InitGrid(); end; @@ -434,20 +445,34 @@ end; procedure TfrmDJBRKList.TBEditClick(Sender: TObject); begin - if CDS_Main.IsEmpty then Exit; - if Trim(CDS_Main.fieldbyname('CRType').AsString)='ƽ' then + if CDS_Main.IsEmpty then + Exit; + if Trim(CDS_Main.fieldbyname('CRType').AsString) = 'ƽ' then begin - Application.MessageBox('ƽΪԶɣ޸!','ʾ',0); + Application.MessageBox('ƽΪԶɣ޸!', 'ʾ', 0); + Exit; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from CK_SXPB_CR where FZSPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); + sql.Add(' and CRQtyFlag=-1'); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + Application.MessageBox('г¼޸!', 'ʾ', 0); Exit; end; try - frmDJBCKInPut:=TfrmDJBCKInPut.Create(Application); + frmDJBCKInPut := TfrmDJBCKInPut.Create(Application); with frmDJBCKInPut do begin - FBCId:=Trim(CDS_Main.fieldbyname('SPID').AsString); - TBDel.Visible:=False; - TBAdd.Visible:=False; - if ShowModal=1 then + FBCId := Trim(CDS_Main.fieldbyname('SPID').AsString); + TBDel.Visible := False; + TBAdd.Visible := False; + if ShowModal = 1 then begin Self.InitGrid(); end; @@ -459,7 +484,7 @@ end; procedure TfrmDJBRKList.SPIDKeyPress(Sender: TObject; var Key: Char); begin - if Key=#13 then + if Key = #13 then begin {if Length(Trim(SPID.Text))<4 then Exit; try @@ -488,9 +513,10 @@ end; procedure TfrmDJBRKList.SPIDChange(Sender: TObject); begin - if Length(Trim(SPID.Text))<4 then + if Length(Trim(SPID.Text)) < 4 then begin - if Trim(SPID.Text)<>'' then Exit; + if Trim(SPID.Text) <> '' then + Exit; end; TBFind.Click; end; @@ -507,15 +533,16 @@ end; procedure TfrmDJBRKList.OrderNoKeyPress(Sender: TObject; var Key: Char); begin - IF trim(OrderNo.Text)='' then exit; - IF Key=#13 then + if trim(OrderNo.Text) = '' then + exit; + if Key = #13 then begin try ADOQueryMain.DisableControls; with ADOQueryMain do begin Close; - Filtered:=False; + Filtered := False; sql.Clear; sql.Add(' select A.* '); sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); @@ -524,16 +551,16 @@ begin sql.Add(' ,PRTkuanNo=(select PRTkuanNo from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); sql.Add(' from CK_SXPB_CR A'); - sql.add(' where exists(select MainID from JYOrder_Main X where X.mainID=A.ORDMainIdRK and X.orderNo like '+quotedstr('%'+trim(OrderNo.text)+'%')+')'); + sql.add(' where exists(select MainID from JYOrder_Main X where X.mainID=A.ORDMainIdRK and X.orderNo like ' + quotedstr('%' + trim(OrderNo.text) + '%') + ')'); sql.Add(' and isnull(CKName,'''')=''첼'''); SQL.Add(' and CRFlag='''' '); - IF cxTabControl1.TabIndex<2 then - SQL.Add(' and isnull(A.chkstatus,''0'')='''+inttostr(cxTabControl1.TabIndex)+''' '); + if cxTabControl1.TabIndex < 2 then + SQL.Add(' and isnull(A.chkstatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + ''' '); Open; //ShowMessage(SQL.Text); - end; - SCreateCDS20(ADOQueryMain,CDS_Main); - SInitCDSData20(ADOQueryMain,CDS_Main); + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); finally ADOQueryMain.EnableControls; end; @@ -542,10 +569,11 @@ end; procedure TfrmDJBRKList.TBCHKClick(Sender: TObject); begin - if CDS_Main.IsEmpty then exit; - if CDS_Main.Locate('SSel',True,[])=False then + if CDS_Main.IsEmpty then + exit; + if CDS_Main.Locate('SSel', True, []) = False then begin - Application.MessageBox('ûѡ!','ʾ',0); + Application.MessageBox('ûѡ!', 'ʾ', 0); Exit; end; try @@ -554,14 +582,14 @@ begin DisableControls; while not eof do begin - IF fieldbyname('ssel').AsBoolean then + if fieldbyname('ssel').AsBoolean then begin with ADOQueryCmd do begin close; sql.Clear; - sql.Add('update CK_SXPB_CR SET chkstatus=''1'',chker='''+trim(DName)+''',chkTime=getdate() '); - sql.Add('where SPID='+quotedstr(trim(CDS_Main.fieldbyname('SPID').AsString))); + sql.Add('update CK_SXPB_CR SET chkstatus=''1'',chker=''' + trim(DName) + ''',chkTime=getdate() '); + sql.Add('where SPID=' + quotedstr(trim(CDS_Main.fieldbyname('SPID').AsString))); execsql; end; end; @@ -569,19 +597,20 @@ begin end; EnableControls; end; - application.MessageBox('˳ɹ','ʾϢ'); + application.MessageBox('˳ɹ', 'ʾϢ'); TBRafresh.Click; except - application.MessageBox('ʧܣ','ʾϢ',0); + application.MessageBox('ʧܣ', 'ʾϢ', 0); end; end; procedure TfrmDJBRKList.TBNOchkClick(Sender: TObject); begin - if CDS_Main.IsEmpty then exit; - if CDS_Main.Locate('SSel',True,[])=False then + if CDS_Main.IsEmpty then + exit; + if CDS_Main.Locate('SSel', True, []) = False then begin - Application.MessageBox('ûѡ!','ʾ',0); + Application.MessageBox('ûѡ!', 'ʾ', 0); Exit; end; try @@ -590,14 +619,14 @@ begin DisableControls; while not eof do begin - IF fieldbyname('ssel').AsBoolean then + if fieldbyname('ssel').AsBoolean then begin with ADOQueryCmd do begin close; sql.Clear; - sql.Add('update CK_SXPB_CR SET chkstatus=''0'',chker='''+trim(DName)+''',chkTime=getdate() '); - sql.Add('where SPID='+quotedstr(trim(CDS_Main.fieldbyname('SPID').AsString))); + sql.Add('update CK_SXPB_CR SET chkstatus=''0'',chker=''' + trim(DName) + ''',chkTime=getdate() '); + sql.Add('where SPID=' + quotedstr(trim(CDS_Main.fieldbyname('SPID').AsString))); execsql; end; end; @@ -605,10 +634,10 @@ begin end; EnableControls; end; - application.MessageBox('˳ɹ','ʾϢ'); + application.MessageBox('˳ɹ', 'ʾϢ'); TBRafresh.Click; except - application.MessageBox('ʧܣ','ʾϢ',0); + application.MessageBox('ʧܣ', 'ʾϢ', 0); end; end; @@ -621,64 +650,84 @@ end; procedure TfrmDJBRKList.Button5Click(Sender: TObject); begin - IF CDS_Main.IsEmpty then exit; - IF trim(factoryName1.Text)='' then + if CDS_Main.IsEmpty then + exit; + if trim(factoryName1.Text) = '' 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; try with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('update CK_SXPB_CR SET factoryName='''+trim(factoryName1.Text)+''',edittime=getdate() where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('첼޸'))); + sql.Add(',' + quotedstr(trim('ⵥţ' + trim(CDS_Main.FieldByName('SPID').AsString) + ',ԭӹ' + Trim(CDS_Main.fieldbyname('factoryName').AsString) + ',޸ĺ' + trim(factoryName1.Text)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + sql.Add('update CK_SXPB_CR SET factoryName=''' + trim(factoryName1.Text) + ''',edittime=getdate() where SPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); // sql.Add('update WFB_MJJY SET factoryName='''+trim(factoryName1.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); ExecSQL; end; - Application.MessageBox('ɹ!','ʾ',0); - Panel5.Visible:=false; + Application.MessageBox('ɹ!', 'ʾ', 0); + Panel5.Visible := false; TBRafresh.Click; except - Application.MessageBox('ʧ!','ʾ',0); + Application.MessageBox('ʧ!', 'ʾ', 0); end; end; procedure TfrmDJBRKList.Button1Click(Sender: TObject); begin - IF CDS_Main.IsEmpty then exit; - IF trim(Com_CRype.Text)='' then + if CDS_Main.IsEmpty then + exit; + if trim(Com_CRype.Text) = '' 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; try with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('update CK_SXPB_CR SET CRType='''+trim(Com_CRype.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('첼޸'))); + sql.Add(',' + quotedstr(trim('ⵥţ' + trim(CDS_Main.FieldByName('SPID').AsString) + ',ԭ' + Trim(CDS_Main.fieldbyname('CRType').AsString) + ',޸ĺ' + trim(Com_CRype.Text)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + sql.Add('update CK_SXPB_CR SET CRType=''' + trim(Com_CRype.Text) + ''' where SPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); ExecSQL; end; - Application.MessageBox('ɹ!','ʾ',0); - Panel5.Visible:=false; + Application.MessageBox('ɹ!', 'ʾ', 0); + Panel5.Visible := false; TBRafresh.Click; except - Application.MessageBox('ʧ!','ʾ',0); + Application.MessageBox('ʧ!', 'ʾ', 0); end; end; procedure TfrmDJBRKList.factoryName1BtnClick(Sender: TObject); begin try - frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); with frmZdyAttachGYS do begin - if ShowModal=1 then + if ShowModal = 1 then begin - factoryName1.Text:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + factoryName1.Text := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); end; end; finally @@ -688,29 +737,31 @@ end; procedure TfrmDJBRKList.TBTSeditClick(Sender: TObject); begin - factoryName1.Text:=''; - Com_CRype.Text:=''; - edit_defstr2.Text:=''; - edit_gangNo.Text:=''; - edit_note.Text:=''; - Panel5.Left:=(self.Width-Panel5.Width) div 2; - Panel5.Visible:=true; + factoryName1.Text := ''; + Com_CRype.Text := ''; + edit_defstr2.Text := ''; + edit_gangNo.Text := ''; + edit_note.Text := ''; + Panel5.Left := (self.Width - Panel5.Width) div 2; + Panel5.Visible := true; end; procedure TfrmDJBRKList.Button6Click(Sender: TObject); begin - Panel5.Visible:=false; + Panel5.Visible := false; end; procedure TfrmDJBRKList.Button2Click(Sender: TObject); begin - IF CDS_Main.IsEmpty then exit; - IF trim(edit_defstr2.Text)='' then + if CDS_Main.IsEmpty then + exit; + if trim(edit_defstr2.Text) = '' 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; try with CDS_Main do begin @@ -718,13 +769,21 @@ begin first; while not eof do begin - IF fieldbyName('Ssel').AsBoolean then + if fieldbyName('Ssel').AsBoolean then begin with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('update CK_SXPB_CR SET defstr2='''+trim(edit_defstr2.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('첼޸'))); + sql.Add(',' + quotedstr(trim('ⵥţ' + trim(CDS_Main.FieldByName('SPID').AsString) + ',ԭͳƵ' + Trim(CDS_Main.fieldbyname('defstr2').AsString) + ',޸ĺ' + trim(edit_defstr2.Text)))); + sql.Add(',' + quotedstr(trim('ɹ'))); + sql.Add(')'); + sql.Add('update CK_SXPB_CR SET defstr2=''' + trim(edit_defstr2.Text) + ''' where SPID=''' + Trim(CDS_Main.fieldbyname('SPID').AsString) + ''''); ExecSQL; end; end; @@ -733,25 +792,26 @@ begin EnableControls; end; - Application.MessageBox('ɹ!','ʾ',0); - Panel5.Visible:=false; + Application.MessageBox('ɹ!', 'ʾ', 0); + Panel5.Visible := false; TBRafresh.Click; except - Application.MessageBox('ʧ!','ʾ',0); + Application.MessageBox('ʧ!', 'ʾ', 0); end; end; procedure TfrmDJBRKList.defstr2KeyPress(Sender: TObject; var Key: Char); begin - IF trim(defstr2.Text)='' then exit; - IF Key=#13 then + if trim(defstr2.Text) = '' then + exit; + if Key = #13 then begin try ADOQueryMain.DisableControls; with ADOQueryMain do begin Close; - Filtered:=False; + Filtered := False; sql.Clear; sql.Add(' select A.* '); sql.Add(',OrderNO=(select OrderNO from JYOrder_Main JM where JM.MainId=A.ORDMainIdRK)'); @@ -760,16 +820,16 @@ begin sql.Add(' ,PRTkuanNo=(select PRTkuanNo from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); sql.Add(' from CK_SXPB_CR A'); - sql.add(' where A.defstr2 like '+quotedstr('%'+trim(OrderNo.text)+'%')); + sql.add(' where A.defstr2 like ' + quotedstr('%' + trim(OrderNo.text) + '%')); sql.Add(' and isnull(CKName,'''')=''첼'''); SQL.Add(' and CRFlag='''' '); - IF cxTabControl1.TabIndex<2 then - SQL.Add(' and isnull(A.chkstatus,''0'')='''+inttostr(cxTabControl1.TabIndex)+''' '); + if cxTabControl1.TabIndex < 2 then + SQL.Add(' and isnull(A.chkstatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + ''' '); Open; //ShowMessage(SQL.Text); - end; - SCreateCDS20(ADOQueryMain,CDS_Main); - SInitCDSData20(ADOQueryMain,CDS_Main); + end; + SCreateCDS20(ADOQueryMain, CDS_Main); + SInitCDSData20(ADOQueryMain, CDS_Main); finally ADOQueryMain.EnableControls; end; @@ -777,3 +837,4 @@ begin end; end. +