From 8db5df0d5a7afa601fab65df81abc21362fc9c81 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E9=83=91?= Date: Fri, 19 Sep 2025 16:22:04 +0800 Subject: [PATCH] 1234 --- 检验管理/TradeManage.dof | 2 +- 检验管理/U_DataLink.pas | 16 +- 检验管理/U_GetDllForm.pas | 4 +- 检验管理/U_JYOrderCDOne.dfm | 34 +- 检验管理/U_JYOrderCDOne.pas | 61 +- 检验管理/U_MJManageNewFDNew.dfm | 29 +- 检验管理/U_MJManageNewFDNew.pas | 1820 ++++++++++++++-------------- 检验管理/U_ProductOrderNewList.pas | 16 +- 8 files changed, 1058 insertions(+), 924 deletions(-) diff --git a/检验管理/TradeManage.dof b/检验管理/TradeManage.dof index a5f7ff5..0117ff9 100644 --- a/检验管理/TradeManage.dof +++ b/检验管理/TradeManage.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\֣ƽ\Ŀ\ϫ\\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7djLingxi\\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/检验管理/U_DataLink.pas b/检验管理/U_DataLink.pas index 54c5229..8e27ed0 100644 --- a/检验管理/U_DataLink.pas +++ b/检验管理/U_DataLink.pas @@ -4,7 +4,21 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses; + Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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; var DConString:String; {ȫַ} server, dtbase, user, pswd: String; {ݿӲ} diff --git a/检验管理/U_GetDllForm.pas b/检验管理/U_GetDllForm.pas index 5dd3af4..6f3f242 100644 --- a/检验管理/U_GetDllForm.pas +++ b/检验管理/U_GetDllForm.pas @@ -81,7 +81,9 @@ begin // pswd:='rightsoft'; // pswd:='numlock'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - DConString := DataBaseStr; + + if trim(DataBaseStr) <> '' then + DConString := DataBaseStr; // DParameters1:='Ȩ'; // DCode:='002'; // DName:='ADMIN'; diff --git a/检验管理/U_JYOrderCDOne.dfm b/检验管理/U_JYOrderCDOne.dfm index cda4a51..e6cf2bc 100644 --- a/检验管理/U_JYOrderCDOne.dfm +++ b/检验管理/U_JYOrderCDOne.dfm @@ -21,6 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Left = 0 Top = 0 Width = 1366 + Height = 62 AutoSize = True ButtonHeight = 30 ButtonWidth = 107 @@ -94,12 +95,13 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne AutoSize = True Caption = #25171#21360#26631#31614 ImageIndex = 96 + Wrap = True Visible = False OnClick = ToolButton1Click end object TCPDB: TToolButton - Left = 513 - Top = 0 + Left = 0 + Top = 30 AutoSize = True Caption = #25104#21697#25171#21253 ImageIndex = 57 @@ -107,8 +109,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TCPDBClick end object ToolButton3: TToolButton - Left = 600 - Top = 0 + Left = 87 + Top = 30 AutoSize = True Caption = #25171#21360#21253#26631#31614 ImageIndex = 12 @@ -116,16 +118,16 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton3Click end object ToolButton2: TToolButton - Left = 699 - Top = 0 + Left = 186 + Top = 30 AutoSize = True Caption = #25171#21360#26816#39564#25253#21578 ImageIndex = 12 OnClick = ToolButton2Click end object TBAftChkHX: TToolButton - Left = 810 - Top = 0 + Left = 297 + Top = 30 AutoSize = True Caption = #26816#21518#22238#20462 ImageIndex = 54 @@ -133,24 +135,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TBAftChkHXClick end object TBClose: TToolButton - Left = 897 - Top = 0 + Left = 384 + Top = 30 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end object TBPrint: TToolButton - Left = 960 - Top = 0 + Left = 447 + Top = 30 AutoSize = True Caption = #25171#21360#30721#21333 ImageIndex = 12 OnClick = TBPrintClick end object ComboBox1: TComboBox - Left = 1047 - Top = 3 + Left = 534 + Top = 33 Width = 140 Height = 24 Style = csDropDownList @@ -169,7 +171,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object Panel1: TPanel Left = 0 - Top = 32 + Top = 62 Width = 1366 Height = 65 Align = alTop @@ -674,7 +676,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne TabOrder = 2 object Tv1: TcxGridDBTableView OnMouseUp = Tv1MouseUp - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> OnCellClick = Tv1CellClick OnCellDblClick = Tv1CellDblClick DataController.DataSource = DataSource1 diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas index 809784a..b88b7c2 100644 --- a/检验管理/U_JYOrderCDOne.pas +++ b/检验管理/U_JYOrderCDOne.pas @@ -9,7 +9,21 @@ uses cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, - RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit; + RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, + 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 TfrmJYOrderCDOne = class(TForm) @@ -567,7 +581,7 @@ end; procedure TfrmJYOrderCDOne.ToolButton1Click(Sender: TObject); var fPrintFile: string; - Txt, fImagePath: string; + Txt, fImagePath, Txt2, fImagePath2: string; Moudle: THandle; Makebar: TMakebar; Mixtext: TMixtext; @@ -611,24 +625,44 @@ begin Order_Main.EnableControls; exit; end; + with ADOQueryPrint do begin Close; SQL.Clear; - sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName,B.MF as prtmf,B.KZ as prtkz '); - sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) '); - // sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as MJLen '); - //sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),C.PRTCodeName)'); - //sql.Add(',Case when isnull(MJType,'''')=''Ʒ'' then ''B''+RTrim(Cast(MJXH as varchar(20))) '); - //sql.Add('when isnull(MJType,'''')=''ƴ'' then ''C''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH'); - sql.Add(',B.MPRTCF,B.CodeName,C.*,A.* '); - // sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); - sql.Add(' from WFB_MJJY A'); - sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); - sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); + sql.Add('exec P_Print_Roll ''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''' '); +// sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName,B.MF as prtmf,B.KZ as prtkz '); +// sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) '); +// // sql.Add(',case when MJQty2>0 then Cast(MJLen as varchar(20))+''+''+Cast(MJQty2 as varchar(20)) else Cast(MJLen as varchar(20)) end as MJLen '); +// //sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),C.PRTCodeName)'); +// //sql.Add(',Case when isnull(MJType,'''')=''Ʒ'' then ''B''+RTrim(Cast(MJXH as varchar(20))) '); +// //sql.Add('when isnull(MJType,'''')=''ƴ'' then ''C''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH'); +// sql.Add(',B.MPRTCF,B.CodeName,C.*,A.* '); +// // sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty'); +// sql.Add(' from WFB_MJJY A'); +// sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); +// sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); SQL.Add(' where A.MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); Open; end; + + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt2 := Trim(ADOQueryPrint.fieldbyname('PRINTCode').AsString); + fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\temp2.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath2) then + DeleteFile(fImagePath2); + Makebar(pchar(Txt2), Length(Txt2), 3, 3, 0, PChar(fImagePath2), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + Order_Main.EnableControls; + exit; + end; + if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) <> '' then fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) else @@ -636,6 +670,7 @@ begin if FileExists(fPrintFile) then begin RMVariables['QRBARCODE'] := fImagePath; + RMVariables['QRBARCODE2'] := fImagePath2; RM2.LoadFromFile(fPrintFile); //RM2.ShowReport; RM2.PrintReport; diff --git a/检验管理/U_MJManageNewFDNew.dfm b/检验管理/U_MJManageNewFDNew.dfm index 3bc4259..01036bb 100644 --- a/检验管理/U_MJManageNewFDNew.dfm +++ b/检验管理/U_MJManageNewFDNew.dfm @@ -1,6 +1,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF - Left = 142 - Top = 64 + Left = 347 + Top = 278 Width = 1265 Height = 738 Caption = #25104#21697#26816#39564 @@ -21,11 +21,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 0 Top = 81 Width = 249 - Height = 619 + Height = 618 Align = alLeft TabOrder = 0 object Tv3: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource3 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -126,7 +126,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 605 Top = 81 Width = 644 - Height = 619 + Height = 618 Align = alClient TabOrder = 1 object SpeedButton13: TSpeedButton @@ -1115,7 +1115,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 401 Top = 81 Width = 204 - Height = 619 + Height = 618 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -1874,7 +1874,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Button7: TButton Left = 94 - Top = 584 + Top = 576 Width = 94 Height = 37 Caption = #25171#21253#26631#31614 @@ -2449,7 +2449,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 249 Top = 81 Width = 152 - Height = 619 + Height = 618 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -2458,11 +2458,11 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 2 Top = 2 Width = 148 - Height = 290 + Height = 289 Align = alClient TabOrder = 0 object Tv2: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> OnCellClick = Tv2CellClick OnCellDblClick = Tv2CellDblClick DataController.DataSource = DataSource2 @@ -2567,7 +2567,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Panel8: TPanel Left = 2 - Top = 292 + Top = 291 Width = 148 Height = 41 Align = alBottom @@ -2582,7 +2582,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object AOrdDefNote1: TRichEdit Left = 2 - Top = 333 + Top = 332 Width = 148 Height = 284 Align = alBottom @@ -2795,6 +2795,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object cxStyleRepository1: TcxStyleRepository Left = 612 Top = 128 + PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svColor, svFont] Color = clBtnFace @@ -2911,6 +2912,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object cxStyleRepository2: TcxStyleRepository Left = 80 Top = 28 + PixelsPerInch = 96 object cxStyle3: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = clBtnFace @@ -2925,6 +2927,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object cxStyleRepository3: TcxStyleRepository Left = 64 Top = 32 + PixelsPerInch = 96 object cxStyle4: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = clBtnFace @@ -2939,6 +2942,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object cxStyleRepository4: TcxStyleRepository Left = 8 Top = 68 + PixelsPerInch = 96 object cxStyle5: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = clBtnFace @@ -2953,6 +2957,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object cxStyleRepository5: TcxStyleRepository Left = 40 Top = 52 + PixelsPerInch = 96 object cxStyle6: TcxStyle AssignedValues = [svFont] Font.Charset = GB2312_CHARSET diff --git a/检验管理/U_MJManageNewFDNew.pas b/检验管理/U_MJManageNewFDNew.pas index ad0e4ac..3f65efd 100644 --- a/检验管理/U_MJManageNewFDNew.pas +++ b/检验管理/U_MJManageNewFDNew.pas @@ -8,11 +8,22 @@ uses cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, - RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, - cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, - cxSplitter, cxCheckBox, MovePanel; - - + RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, + ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox, + MovePanel, 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 TfrmMJManageNewFDNewSF = class(TForm) @@ -251,22 +262,16 @@ type procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); - procedure Tv2CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TBCDClick(Sender: TObject); procedure FormShow(Sender: TObject); - procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure MJMaoZClick(Sender: TObject); procedure MJLenClick(Sender: TObject); procedure MJFKClick(Sender: TObject); procedure MJBanZuClick(Sender: TObject); procedure MJSJKZClick(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 FormClick(Sender: TObject); procedure Button12Click(Sender: TObject); procedure BTAddClick(Sender: TObject); @@ -306,8 +311,7 @@ type procedure MJLenChange(Sender: TObject); procedure MJQty3Change(Sender: TObject); procedure MJQty5Change(Sender: TObject); - procedure MJQty4KeyDown(Sender: TObject; var Key: Word; - Shift: TShiftState); + procedure MJQty4KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure MJStr4Exit(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure Edit9Click(Sender: TObject); @@ -315,84 +319,91 @@ type procedure Button7Click(Sender: TObject); private { Private declarations } - FInt,PState,PrintInt,SCInitGrid,FState,FCK:Integer; - FColumn,FBanZu,FAPID,FMainId,FSubId,FFFMJID:String; - fRollType:string; - isCommopen,IsJsMessage:boolean; - MValue,FCDName:String; - fxsws,fxsws1:string; + FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; + FColumn, FBanZu, FAPID, FMainId, FSubId, FFFMJID: string; + fRollType: string; + isCommopen, IsJsMessage: boolean; + MValue, FCDName: string; + fxsws, fxsws1: string; procedure InitJP(); procedure InitCDGrid(); procedure InitCDGridID(); - procedure AddCD(Fbtn:TButton); - procedure AddSL(Fbtn:TButton); - function SaveData():Boolean; - procedure BtnStatus(BSInt:Boolean); - procedure AddSLNew(Fbtn:TSpeedButton); - procedure AddCDNew(Fbtn:TSpeedButton); + procedure AddCD(Fbtn: TButton); + procedure AddSL(Fbtn: TButton); + function SaveData(): Boolean; + procedure BtnStatus(BSInt: Boolean); + procedure AddSLNew(Fbtn: TSpeedButton); + procedure AddCDNew(Fbtn: TSpeedButton); procedure SavedataCK(); - procedure PrtData(FMJID:String); - procedure OpenCom(DllName:string); - procedure CloseCom(DllName:string); - procedure On1201(Var Message:Tmessage);Message 1201; - procedure On1301(Var Message:Tmessage);Message 1301; - function JsXj(str1:string):string; + procedure PrtData(FMJID: string); + procedure OpenCom(DllName: string); + procedure CloseCom(DllName: string); + procedure On1201(var Message: Tmessage); message 1201; + procedure On1301(var Message: Tmessage); message 1301; + function JsXj(str1: string): string; public - fmanage:string; + fmanage: string; { Public declarations } end; var frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF; - newh,newh1:hwnd; + newh, newh1: hwnd; + implementation + uses - U_DataLink,U_Fun,U_ZDYHelp,U_iniParam, U_ClothHCList; + U_DataLink, U_Fun, U_ZDYHelp, U_iniParam, U_ClothHCList; {$R *.dfm} -procedure TfrmMJManageNewFDNewSF.On1301(Var Message:Tmessage); +procedure TfrmMJManageNewFDNewSF.On1301(var Message: Tmessage); var - i1,i2:integer; - unitname:string; - fdata:double; + i1, i2: integer; + unitname: string; + fdata: double; begin - i1:=message.WParam; - i2:=message.LParam; - IF IsJsMessage then + i1 := Message.WParam; + i2 := Message.LParam; + if IsJsMessage then begin - IF (trim(Edit7.Text)='') then + if (trim(Edit7.Text) = '') then begin - MJLen.Text:= format('%.'+trim(fxsws)+'f',[i1 /100000]); - IF i2=0 then Label9.Caption:='M' else Label9.Caption:='Y'; - edit1.Text:= format('%.'+trim(fxsws)+'f',[i1 /100000]); + MJLen.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]); + if i2 = 0 then + Label9.Caption := 'M' + else + Label9.Caption := 'Y'; + edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]); end; end; end; -procedure TfrmMJManageNewFDNewSF.On1201(Var Message:Tmessage); + +procedure TfrmMJManageNewFDNewSF.On1201(var Message: Tmessage); var - i1,i2:integer; - unitname:string; - fdata:double; + i1, i2: integer; + unitname: string; + fdata: double; begin - i1:=message.WParam; - i2:=message.LParam; - IF IsJsMessage then + i1 := Message.WParam; + i2 := Message.LParam; + if IsJsMessage then begin - IF trim(Edit9.Text)='' then + if trim(Edit9.Text) = '' then begin - MJMaoZ.Text:= format('%.'+trim(fxsws1)+'f',[i1 /100000]); + MJMaoZ.Text := format('%.' + trim(fxsws1) + 'f', [i1 / 100000]); end; end; end; -procedure TfrmMJManageNewFDNewSF.CloseCom(DllName:string); + +procedure TfrmMJManageNewFDNewSF.CloseCom(DllName: string); type - TMyFunc = function(sCommName:PAnsiChar): HWND; stdcall; + TMyFunc = function(sCommName: PAnsiChar): HWND; stdcall; var Tf1: TMyFunc; Tp1: TFarProc; - Th1:Thandle; + Th1: Thandle; begin Th1 := LoadLibrary(Pchar(trim(DllName))); if Th1 > 0 then @@ -402,7 +413,7 @@ begin if Tp1 <> nil then begin Tf1 := TMyFunc(Tp1); - newh1:=Tf1('Comm1'); + newh1 := Tf1('Comm1'); end else begin @@ -414,18 +425,17 @@ begin end else begin - application.MessageBox(Pchar('Ҳ '+trim(DllName)+' ļ'),'ʾ'); + application.MessageBox(Pchar('Ҳ ' + trim(DllName) + ' ļ'), 'ʾ'); end; end; -procedure TfrmMJManageNewFDNewSF.OpenCom(DllName:string); +procedure TfrmMJManageNewFDNewSF.OpenCom(DllName: string); type - TMyFunc = function(fhandle:hwnd;sCommName:PAnsiChar; - IntTime:integer;IsMessage:integer): HWND; stdcall; + TMyFunc = function(fhandle: hwnd; sCommName: PAnsiChar; IntTime: integer; IsMessage: integer): HWND; stdcall; var - Tf:TMyFunc; - Tp:TFarProc; - Th:Thandle; + Tf: TMyFunc; + Tp: TFarProc; + Th: Thandle; begin // closeCom(FComFile); Th := LoadLibrary(Pchar(trim(DllName))); @@ -436,17 +446,17 @@ begin if Tp <> nil then begin Tf := TMyFunc(Tp); - newh:=Tf(self.Handle,'Comm1',500,1); - if newh<1 then + newh := Tf(self.Handle, 'Comm1', 500, 1); + if newh < 1 then begin - application.MessageBox(Pchar('򿪴ʧܣ'),'ʾ'); + application.MessageBox(Pchar('򿪴ʧܣ'), 'ʾ'); end else - IsCommOpen:=true; + IsCommOpen := true; end else begin - IsCommOpen:=false; + IsCommOpen := false; end; finally // FreeLibrary(Th); @@ -454,11 +464,12 @@ begin end else begin - IsCommOpen:=false; - application.MessageBox(Pchar('Ҳ '+trim(DllName)+' ļ'),'ʾ'); + IsCommOpen := false; + application.MessageBox(Pchar('Ҳ ' + trim(DllName) + ' ļ'), 'ʾ'); end; end; -function TfrmMJManageNewFDNewSF.JsXj(str1:string):string; + +function TfrmMJManageNewFDNewSF.JsXj(str1: string): string; begin { str1:=trim(str1); result:=str1; @@ -474,41 +485,42 @@ begin except end; } end; + procedure TfrmMJManageNewFDNewSF.FormDestroy(Sender: TObject); begin - frmMJManageNewFDNewSF:=nil; + frmMJManageNewFDNewSF := nil; end; - -procedure TfrmMJManageNewFDNewSF.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmMJManageNewFDNewSF.FormClose(Sender: TObject; var Action: TCloseAction); begin //DataLink_WFBProducttion.ADOLink.Connected:=False; - Action:=caFree; - if isCommopen then + Action := caFree; + if isCommopen then begin - IF trim(dllName)<>'' then - closeCom(dllName); - IF trim(JCYDLL)<>'' then - closeCom(JCYDLL); + if trim(DllName) <> '' then + closeCom(DllName); + if trim(JCYDLL) <> '' then + closeCom(JCYDLL); end; end; + procedure TfrmMJManageNewFDNewSF.InitCDGrid(); begin with ADOQueryMain do begin Close; SQL.Clear; - if PState=1 then + if PState = 1 then sql.Add('select * from WFB_MJJY_CD where MJID='''' ') else - sql.Add('select * from WFB_MJJY_CD where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + sql.Add('select * from WFB_MJJY_CD where MJID=''' + Trim(CDS_MJID.fieldbyname('MJID').AsString) + ''''); Open; end; - SCreateCDS20(ADOQueryMain,CDS_MJCD); - SInitCDSData20(ADOQueryMain,CDS_MJCD); + SCreateCDS20(ADOQueryMain, CDS_MJCD); + SInitCDSData20(ADOQueryMain, CDS_MJCD); end; + procedure TfrmMJManageNewFDNewSF.InitCDGridID(); begin with ADOQueryMain do @@ -517,24 +529,24 @@ begin SQL.Clear; sql.Add('select '); //sql.Add('Case when isnull(MJType,'''')=''Ʒ'' then ''B''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH ,'); - sql.Add(' A.* from WFB_MJJY A where APID='''+Trim(FAPID)+''''); - if Trim(SCXFlag)<>'' then - sql.Add(' and JTType='''+Trim(SCXFlag)+''''); + sql.Add(' A.* from WFB_MJJY A where APID=''' + Trim(FAPID) + ''''); + if Trim(SCXFlag) <> '' then + sql.Add(' and JTType=''' + Trim(SCXFlag) + ''''); sql.Add('and mjstr2=''δ'' '); sql.Add(' order by FillTime desc'); Open; end; - SCreateCDS20(ADOQueryMain,CDS_MJID); - SInitCDSData20(ADOQueryMain,CDS_MJID); + SCreateCDS20(ADOQueryMain, CDS_MJID); + SInitCDSData20(ADOQueryMain, CDS_MJID); end; procedure TfrmMJManageNewFDNewSF.TBCloseClick(Sender: TObject); var - maxno:string; + maxno: string; begin - if CDS_MJCD.IsEmpty=False then + if CDS_MJCD.IsEmpty = False then begin - if Trim(CDS_MJCD.FieldByName('MCID').AsString)='' then + if Trim(CDS_MJCD.FieldByName('MCID').AsString) = '' then begin //try //ADOCmd.Connection.BeginTrans; @@ -574,31 +586,29 @@ begin Next; end; end; } - close; + close; //ADOCmd.Connection.CommitTrans; //ModalResult:=1; //except //ADOCmd.Connection.RollbackTrans; //Application.MessageBox('ʱʧܣ','ʾ',0); //end; - end else + end + else begin Close; end; - end else + end + else begin Close; end; - - end; -procedure TfrmMJManageNewFDNewSF.Tv2CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmMJManageNewFDNewSF.Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); var - fsj:string; + fsj: string; begin //FInt:=0; //Tv1.DataController.FocusedRecordIndex; @@ -608,14 +618,14 @@ end; procedure TfrmMJManageNewFDNewSF.TBCDClick(Sender: TObject); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='WFBCD'; - flagname:='õ'; - fnote:=True; - V1Note.Caption:='Ӣ'; - if ShowModal=1 then + flag := 'WFBCD'; + flagname := 'õ'; + fnote := True; + V1Note.Caption := 'Ӣ'; + if ShowModal = 1 then begin Self.InitJP(); end; @@ -632,9 +642,9 @@ begin begin Close; sql.Clear; - sql.Add('select BanZu from SY_User where UserId='''+Trim(DCode)+''''); + sql.Add('select BanZu from SY_User where UserId=''' + Trim(DCode) + ''''); Open; - FBanZu:=Trim(Fieldbyname('BanZu').AsString); + FBanZu := Trim(Fieldbyname('BanZu').AsString); end; {if Trim(FBanZu)='' then begin @@ -650,25 +660,26 @@ begin begin FCk:=9; end; } - IF trim(Edit7.Text)=''then - IsJsMessage:=true; + if trim(Edit7.Text) = '' then + IsJsMessage := true; - IF trim(fmanage)<>'Ȩ' then + if trim(fmanage) <> 'Ȩ' then begin - IF trim(dllName)<>'' then - OpenCom(dllName); - IF trim(JCYDLL)<>'' then - OpenCom(JCYDLL); - Edit7.Visible:=true; - Label35.Visible:=true; - Edit9.Visible:=true; - Label44.Visible:=true; + if trim(DllName) <> '' then + OpenCom(DllName); + if trim(JCYDLL) <> '' then + OpenCom(JCYDLL); + Edit7.Visible := true; + Label35.Visible := true; + Edit9.Visible := true; + Label44.Visible := true; end; end; + procedure TfrmMJManageNewFDNewSF.InitJP(); var - AA:array[0..100] of string; - i,j:Integer; + AA: array[0..100] of string; + i, j: Integer; begin with ADOTmp do begin @@ -679,99 +690,113 @@ begin end; if ADOTmp.IsEmpty then begin - Application.MessageBox('ûжõ㣡','ʾ',0); + Application.MessageBox('ûжõ㣡', 'ʾ', 0); Exit; end; with ADOTmp do begin First; - i:=0; + i := 0; while not Eof do begin - AA[i]:=Trim(fieldbyname('ZDYName').AsString); - i:=i+1; + AA[i] := Trim(fieldbyname('ZDYName').AsString); + i := i + 1; Next; end; end; - i:=i-1; - if i>69 then + i := i - 1; + if i > 69 then begin - i:=69; + i := 69; end; - for j:=0 to i do + for j := 0 to i do begin with ScrollBox1 do begin - TSpeedButton(Controls[j]).Visible:=True; - TSpeedButton(Controls[j]).Hint:=AA[j]; - if Length(AA[j])>4 then + TSpeedButton(Controls[j]).Visible := True; + TSpeedButton(Controls[j]).Hint := AA[j]; + if Length(AA[j]) > 4 then begin - TSpeedButton(Controls[j]).Caption:=Copy(Trim(AA[j]),1,4)+#13+Copy(Trim(AA[j]),5,Length(AA[j])-4); - end else - TSpeedButton(Controls[j]).Caption:=AA[j]; + TSpeedButton(Controls[j]).Caption := Copy(Trim(AA[j]), 1, 4) + #13 + Copy(Trim(AA[j]), 5, Length(AA[j]) - 4); + end + else + TSpeedButton(Controls[j]).Caption := AA[j]; end; end; end; -procedure TfrmMJManageNewFDNewSF.AddCD(Fbtn:TButton); +procedure TfrmMJManageNewFDNewSF.AddCD(Fbtn: TButton); begin - if PState<1 then Exit; - if Order_MJ.IsEmpty then Exit; + if PState < 1 then + Exit; + if Order_MJ.IsEmpty then + Exit; with CDS_MJCD do begin Append; - FieldByName('cdname').Value:=Trim(TButton(Fbtn).Caption); + FieldByName('cdname').Value := Trim(TButton(Fbtn).Caption); Post; end; end; -procedure TfrmMJManageNewFDNewSF.AddCDNew(Fbtn:TSpeedButton); + +procedure TfrmMJManageNewFDNewSF.AddCDNew(Fbtn: TSpeedButton); begin with CDS_MJCD do begin Append; - FieldByName('cdname').Value:=Trim(TSpeedButton(Fbtn).Hint); + FieldByName('cdname').Value := Trim(TSpeedButton(Fbtn).Hint); Post; end; end; -procedure TfrmMJManageNewFDNewSF.AddSL(Fbtn:TButton); + +procedure TfrmMJManageNewFDNewSF.AddSL(Fbtn: TButton); begin - if PState<1 then Exit; - if Order_MJ.IsEmpty then Exit; + if PState < 1 then + Exit; + if Order_MJ.IsEmpty then + Exit; //if MJMaoZ.Focused then - if FInt=4 then Exit; - if CDS_MJCD.IsEmpty=False then + if FInt = 4 then + Exit; + if CDS_MJCD.IsEmpty = False then begin - FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; - if Trim(FColumn)<>'' then + FColumn := Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn) <> '' then begin with CDS_MJCD do begin Edit; - FieldByName(FColumn).Value:=Trim(FieldByName(FColumn).AsString)+Trim(TButton(Fbtn).Caption); - if Trim(fieldbyname('CDQtyS').AsString)<>'' then - Fieldbyname('CDQty').Value:=Trim(fieldbyname('CDQtyS').AsString); + FieldByName(FColumn).Value := Trim(FieldByName(FColumn).AsString) + Trim(TButton(Fbtn).Caption); + if Trim(fieldbyname('CDQtyS').AsString) <> '' then + Fieldbyname('CDQty').Value := Trim(fieldbyname('CDQtyS').AsString); Post; end; end; end; end; -procedure TfrmMJManageNewFDNewSF.AddSLNew(Fbtn:TSpeedButton); -begin - if PState<1 then Exit; - if Trim(FAPID)='' then Exit; - if FInt=4 then Exit; - if FInt=11 then +procedure TfrmMJManageNewFDNewSF.AddSLNew(Fbtn: TSpeedButton); +begin + if PState < 1 then + Exit; + if Trim(FAPID) = '' then + Exit; + + if FInt = 4 then + Exit; + if FInt = 11 then begin - if TSpeedButton(Fbtn).Tag=9 then Exit; - Edit1.Text:=Trim(Edit1.Text)+Trim(TSpeedButton(Fbtn).Caption); + if TSpeedButton(Fbtn).Tag = 9 then + Exit; + Edit1.Text := Trim(Edit1.Text) + Trim(TSpeedButton(Fbtn).Caption); Edit1.SelectAll; - end else - if FInt=12 then + end + else if FInt = 12 then begin - if TSpeedButton(Fbtn).Tag=9 then Exit; - Edit2.Text:=Trim(Edit2.Text)+Trim(TSpeedButton(Fbtn).Caption); + if TSpeedButton(Fbtn).Tag = 9 then + Exit; + Edit2.Text := Trim(Edit2.Text) + Trim(TSpeedButton(Fbtn).Caption); Edit2.SelectAll; end; { else @@ -792,16 +817,16 @@ begin end; } end; -procedure TfrmMJManageNewFDNewSF.Tv2CellDblClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmMJManageNewFDNewSF.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin //if Tv2.OptionsSelection.CellSelect=True then - if CDS_MJCD.IsEmpty then Exit; + if CDS_MJCD.IsEmpty then + Exit; - if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + if Trim(CDS_MJCD.fieldbyname('MCID').AsString) = '' then begin - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; CDS_MJCD.Delete; end; @@ -809,41 +834,39 @@ end; procedure TfrmMJManageNewFDNewSF.MJMaoZClick(Sender: TObject); begin - FInt:=1; - FColumn:=''; - panel3.Visible:=True; + FInt := 1; + FColumn := ''; + panel3.Visible := True; end; procedure TfrmMJManageNewFDNewSF.MJLenClick(Sender: TObject); begin - FInt:=2; - FColumn:=''; - panel3.Visible:=True; + FInt := 2; + FColumn := ''; + panel3.Visible := True; end; procedure TfrmMJManageNewFDNewSF.MJFKClick(Sender: TObject); begin - FInt:=3; - FColumn:=''; - panel3.Visible:=True; + FInt := 3; + FColumn := ''; + panel3.Visible := True; end; procedure TfrmMJManageNewFDNewSF.MJBanZuClick(Sender: TObject); begin - FInt:=4; + FInt := 4; end; procedure TfrmMJManageNewFDNewSF.MJSJKZClick(Sender: TObject); begin - FInt:=4; + FInt := 4; end; -procedure TfrmMJManageNewFDNewSF.Tv1CellClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmMJManageNewFDNewSF.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin //DataLink_WFBProducttion.ADOLink.Connected:=False; - FInt:=4; + FInt := 4; // if PState=1 then Exit; InitCDGridID(); //InitCDGrid(); @@ -866,34 +889,37 @@ end; procedure TfrmMJManageNewFDNewSF.FormClick(Sender: TObject); begin - FInt:=4; + FInt := 4; end; procedure TfrmMJManageNewFDNewSF.Button12Click(Sender: TObject); var - fsj:string; + fsj: string; begin - if PState<1 then Exit; - if Trim(FAPID)='' then Exit; - if FInt=4 then Exit; + if PState < 1 then + Exit; + if Trim(FAPID) = '' then + Exit; + if FInt = 4 then + Exit; begin - FColumn:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; - if Trim(FColumn)<>'' then + FColumn := Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName; + if Trim(FColumn) <> '' then begin - if Trim(CDS_MJCD.FieldByName(FColumn).AsString)<>'' then + if Trim(CDS_MJCD.FieldByName(FColumn).AsString) <> '' then begin with CDS_MJCD do begin Edit; - if Length(CDS_MJCD.FieldByName(FColumn).AsString)=1 then + if Length(CDS_MJCD.FieldByName(FColumn).AsString) = 1 then begin - FieldByName(FColumn).Value:=null ; - FieldByName('CDQty').Value:=0; + FieldByName(FColumn).Value := null; + FieldByName('CDQty').Value := 0; end else begin - FieldByName(FColumn).Value:=Copy(Trim(FieldByName(FColumn).AsString),1,Length(Trim(FieldByName(FColumn).AsString))-1); - FieldByName('CDQty').Value:=FieldByName(FColumn).Value; + FieldByName(FColumn).Value := Copy(Trim(FieldByName(FColumn).AsString), 1, Length(Trim(FieldByName(FColumn).AsString)) - 1); + FieldByName('CDQty').Value := FieldByName(FColumn).Value; end; Post; end; @@ -902,64 +928,63 @@ begin end; end; -function TfrmMJManageNewFDNewSF.SaveData():Boolean; +function TfrmMJManageNewFDNewSF.SaveData(): Boolean; var - maxno,FMJID,BZID,strsql:String; - FMJLen:Double; - FOrder:Integer; + maxno, FMJID, BZID, strsql: string; + FMJLen: Double; + FOrder: Integer; begin - result:=false; - if PState=1 then - FMJID:='' - else if PState=2 then - FMJID:=Trim(CDS_MJID.fieldbyname('MJID').AsString) - else if PState<1 then Exit; + result := false; + if PState = 1 then + FMJID := '' + else if PState = 2 then + FMJID := Trim(CDS_MJID.fieldbyname('MJID').AsString) + else if PState < 1 then + Exit; - if PState=1 then + if PState = 1 then begin - IF fRollType=''then + if fRollType = '' then begin - with ADOCmd do - begin - Close; - sql.Clear; - sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) '); - sql.Add('from WFB_MJJY X where X.mainID='''+trim(fmainId)+''' '); - Open; - MJXH.Text:=Trim(fieldbyname('maxRoll').AsString); - end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) '); + sql.Add('from WFB_MJJY X where X.mainID=''' + trim(fmainId) + ''' '); + Open; + MJXH.Text := Trim(fieldbyname('maxRoll').AsString); + end; end - else - IF fRollType='׺'then + else if fRollType = '׺' then begin - with ADOCmd do - begin - Close; - sql.Clear; - sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) '); - sql.Add('from WFB_MJJY X where X.subID='''+trim(FSubId)+''' '); - sql.add('and X.MJStr4='+quotedstr(trim(MJstr4.text))); - Open; - MJXH.Text:=Trim(fieldbyname('maxRoll').AsString); - end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) '); + sql.Add('from WFB_MJJY X where X.subID=''' + trim(FSubId) + ''' '); + sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text))); + Open; + MJXH.Text := Trim(fieldbyname('maxRoll').AsString); + end; end - else - IF fRollType='޹'then + else if fRollType = '޹' then begin end else begin - with ADOCmd do - begin - Close; - sql.Clear; - sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) '); - sql.Add('from WFB_MJJY X where X.subID='''+trim(FSubId)+''' '); - Open; - MJXH.Text:=Trim(fieldbyname('maxRoll').AsString); - end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) '); + sql.Add('from WFB_MJJY X where X.subID=''' + trim(FSubId) + ''' '); + Open; + MJXH.Text := Trim(fieldbyname('maxRoll').AsString); + end; end; end; @@ -972,122 +997,120 @@ begin begin Close; sql.Clear; - SQL.Add('select * from WFB_MJJY where MJId='''+Trim(FMJID)+''''); + SQL.Add('select * from WFB_MJJY where MJId=''' + Trim(FMJID) + ''''); Open; end; with ADOCmd do begin - if Trim(FMJID)='' then + if Trim(FMJID) = '' then begin Append; - if GetLSNo(ADOTmp,maxno,Trim(SCXFlag),'WFB_MJJY',4,1)=False then + if GetLSNo(ADOTmp, maxno, Trim(SCXFlag), 'WFB_MJJY', 4, 1) = False then begin ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ˮ쳣','ʾ',0); + Application.MessageBox('ˮ쳣', 'ʾ', 0); exit; end; end - else begin - maxno:=Trim(FMJID); + else + begin + maxno := Trim(FMJID); Edit; end; - FieldByName('MainId').value:=Trim(FMainId); - FieldByName('SubId').value:=Trim(FSubId); - FieldByName('APId').value:=Trim(FAPId); - FieldByName('MJID').Value:=Trim(maxno); - FieldByName('MJStr2').Value:='δ'; - FieldByName('MJBanZu').Value:=Trim(FBanZu); - FieldByName('MJstr3').Value:=Trim(MJstr3.Text); - FieldByName('MJstr4').Value:=Trim(MJstr4.Text); - FieldByName('MJstr5').Value:=Trim(MJstr5.Text); - FieldByName('mjxh').Value:=Trim(mjxh.Text); - FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); - FieldByName('MJStr1').Value:=Trim(Label13.Caption); + FieldByName('MainId').value := Trim(FMainId); + FieldByName('SubId').value := Trim(FSubId); + FieldByName('APId').value := Trim(FAPId); + FieldByName('MJID').Value := Trim(maxno); + FieldByName('MJStr2').Value := 'δ'; + FieldByName('MJBanZu').Value := Trim(FBanZu); + FieldByName('MJstr3').Value := Trim(MJstr3.Text); + FieldByName('MJstr4').Value := Trim(MJstr4.Text); + FieldByName('MJstr5').Value := Trim(MJstr5.Text); + FieldByName('mjxh').Value := Trim(mjxh.Text); + FieldByName('MJTypeOther').Value := Trim(Label9.Caption); + FieldByName('MJStr1').Value := Trim(Label13.Caption); - FieldByName('MJLen').Value:=StrToFloatdef(trim(MJLen.Text),0); - FieldByName('MJQty1').Value:=StrToFloatdef(trim(MJQty1.Text),0); + FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0); + FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); // FieldByName('MJQty2').Value:=StrToFloatdef(trim(MJQty2.Text),0); - FieldByName('MJQty3').Value:=StrToFloatdef(trim(MJQty3.Text),0); - FieldByName('MJQty4').Value:=StrToFloatdef(trim(MJQty4.Text),0); - FieldByName('MJQty5').Value:=StrToFloatdef(trim(MJQty5.Text),0); - if Trim(MJFK.Text)<>'' then + FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); + FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0); + FieldByName('MJQty5').Value := StrToFloatdef(trim(MJQty5.Text), 0); + if Trim(MJFK.Text) <> '' then begin - FieldByName('MJFK').Value:=StrToFloat(MJFK.Text); + FieldByName('MJFK').Value := StrToFloat(MJFK.Text); end; - if Trim(MJMaoZ.Text)<>'' then + if Trim(MJMaoZ.Text) <> '' then begin - FieldByName('MJMaoZ').Value:=StrToFloat(MJMaoZ.Text); + FieldByName('MJMaoZ').Value := StrToFloat(MJMaoZ.Text); end; - if Trim(MJSJKZ.Text)<>'' then + if Trim(MJSJKZ.Text) <> '' then begin - FieldByName('MJSJKZ').Value:=StrToFloat(MJSJKZ.Text); + FieldByName('MJSJKZ').Value := StrToFloat(MJSJKZ.Text); end; - FieldByName('MJType').Value:=''; - if Trim(Edit3.Text)<>'' then + FieldByName('MJType').Value := ''; + if Trim(Edit3.Text) <> '' then begin - FieldByName('MJType').Value:='Ʒ'; + FieldByName('MJType').Value := 'Ʒ'; end; - if Trim(Edit4.Text)<>'' then + if Trim(Edit4.Text) <> '' then begin - FieldByName('MJType').Value:='Ʒ'; + FieldByName('MJType').Value := 'Ʒ'; end; - FieldByName('MJStr1').Value:=Trim(Label13.Caption); - - if Trim(FMJID)='' then + FieldByName('MJStr1').Value := Trim(Label13.Caption); + + if Trim(FMJID) = '' then begin - FieldByName('Filler').Value:=Trim(DName); - end else + FieldByName('Filler').Value := Trim(DName); + end + else begin - FieldByName('Editer').Value:=Trim(DName); - FieldByName('EditTime').Value:=SGetServerDateTime(ADOTmp); + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOTmp); end; - if Trim(SCXFlag)<>'' then + if Trim(SCXFlag) <> '' then begin - FieldByName('JTType').Value:=Trim(SCXFlag); + FieldByName('JTType').Value := Trim(SCXFlag); end; - FieldByName('MJTypeOther').Value:=Trim(Label9.Caption); - FieldByName('note').Value:=Trim(note.Text); + FieldByName('MJTypeOther').Value := Trim(Label9.Caption); + FieldByName('note').Value := Trim(note.Text); // FieldByName('baoNO').Value:=Trim(baono.text); // FieldByName('baoID').Value:=Trim(baoID.Text); Post; end; - if PState=1 then + if PState = 1 then begin - IF fRollType=''then + if fRollType = '' then begin with ADOCmd do begin Close; sql.Clear; sql.Add('update WFB_MJJY SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X where X.mainID=WFB_MJJY.mainID and X.MJID<>WFB_MJJY.MJID),0)'); - sql.Add('where MJID='''+Trim(maxno)+''''); + sql.Add('where MJID=''' + Trim(maxno) + ''''); execsql; end; end - else - IF fRollType='׺'then + else if fRollType = '׺' then begin with ADOCmd do begin Close; sql.Clear; sql.Add('update WFB_MJJY SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X where X.subID=WFB_MJJY.subID and X.mjstr4=WFB_MJJY.mjstr4 and X.MJID<>WFB_MJJY.MJID),0)'); - sql.Add('where MJID='''+Trim(maxno)+''''); + sql.Add('where MJID=''' + Trim(maxno) + ''''); execsql; end; end - - else - IF fRollType='޹'then + else if fRollType = '޹' then begin with ADOCmd do begin end; end - else begin with ADOCmd do @@ -1095,75 +1118,75 @@ begin Close; sql.Clear; sql.Add('update WFB_MJJY SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X where X.subID=WFB_MJJY.subID and X.MJID<>WFB_MJJY.MJID),0)'); - sql.Add('where MJID='''+Trim(maxno)+''''); + sql.Add('where MJID=''' + Trim(maxno) + ''''); execsql; end; end; end; - with ADOCmd do + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select MJXH from WFB_MJJY'); + sql.Add('where MJID=''' + Trim(maxno) + ''''); + open; + if not IsEmpty then begin - Close; - sql.Clear; - sql.Add('select MJXH from WFB_MJJY'); - sql.Add('where MJID='''+Trim(maxno)+''''); - open; - If not IsEmpty then - begin - MJXH.Text:=fieldbyname('mjxh').AsString; - end; + MJXH.Text := fieldbyname('mjxh').AsString; end; + end; - - FMJID:=Trim(maxno); - FFFMJID:=Trim(maxno); + FMJID := Trim(maxno); + FFFMJID := Trim(maxno); ///ĸõ with CDS_MJCD do begin First; while not Eof do begin - if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + if Trim(CDS_MJCD.fieldbyname('MCID').AsString) = '' then begin - if GetLSNo(ADOTmp,maxno,'MC','WFB_MJJY_CD',5,1)=False then + if GetLSNo(ADOTmp, maxno, 'MC', 'WFB_MJJY_CD', 5, 1) = False then begin ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ȡˮʧܣ','ʾ',0); + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); Exit; end; - end else + end + else begin - maxno:=Trim(CDS_MJCD.fieldbyname('MCID').AsString); + maxno := Trim(CDS_MJCD.fieldbyname('MCID').AsString); end; with ADOCmd do begin Close; SQL.Clear; sql.Add('select * from WFB_MJJY_CD '); - sql.Add(' where MCID='''+Trim(maxno)+''''); + sql.Add(' where MCID=''' + Trim(maxno) + ''''); Open; end; with ADOCmd do begin - if Trim(CDS_MJCD.fieldbyname('MCID').AsString)='' then + if Trim(CDS_MJCD.fieldbyname('MCID').AsString) = '' then Append else Edit; - FieldByName('MJId').Value:=Trim(FMJID); - FieldByName('MCID').Value:=Trim(maxno); - SSetSaveDataCDSNew(ADOCmd,Tv2,CDS_MJCD,'WFB_MJJY_CD',0); - FieldByName('KouFenType').Value:=CDS_MJCD.fieldbyname('KouFenType').Value; + FieldByName('MJId').Value := Trim(FMJID); + FieldByName('MCID').Value := Trim(maxno); + SSetSaveDataCDSNew(ADOCmd, Tv2, CDS_MJCD, 'WFB_MJJY_CD', 0); + FieldByName('KouFenType').Value := CDS_MJCD.fieldbyname('KouFenType').Value; Post; end; CDS_MJCD.Edit; - CDS_MJCD.FieldByName('MCID').Value:=Trim(maxno); + CDS_MJCD.FieldByName('MCID').Value := Trim(maxno); Next; end; end; with CDS_MJID do begin Append; - FieldByName('MJID').Value:=Trim(FMJID); + FieldByName('MJID').Value := Trim(FMJID); Post; end; with ADOCmd do @@ -1171,45 +1194,47 @@ begin close; sql.Clear; sql.Add('update WFB_MJJY SET CDList= dbo.F_Get_Order_SubStr(MJID,''MJCDHZSL'')'); - sql.Add('where MJID='''+Trim(FMJID)+''' '); + sql.Add('where MJID=''' + Trim(FMJID) + ''' '); execsql; end; //SavedataCK(); ADOCmd.Connection.CommitTrans; - Result:=True; + Result := True; // PState:=0; except - Result:=False; + Result := False; ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ʧܣ','ʾ',0); + Application.MessageBox('ʧܣ', 'ʾ', 0); end; end; procedure TfrmMJManageNewFDNewSF.BTAddClick(Sender: TObject); begin - if Trim(Label24.Caption)='' then Exit; + if Trim(Label24.Caption) = '' then + Exit; - PState:=1; + PState := 1; InitCDGridID(); InitCDGrid(); BtnStatus(True); - Label16.Caption:=''; + Label16.Caption := ''; end; procedure TfrmMJManageNewFDNewSF.BTEditClick(Sender: TObject); begin - if CDS_MJID.IsEmpty then Exit; - PState:=2; - Label16.Caption:='޸'; + if CDS_MJID.IsEmpty then + Exit; + PState := 2; + Label16.Caption := '޸'; end; procedure TfrmMJManageNewFDNewSF.BTPrintClick(Sender: TObject); var - fPrintFile:String; - mvalue:Double; - mvalue1:integer; - i:Integer; + fPrintFile: string; + mvalue: Double; + mvalue1: integer; + i: Integer; begin { if trim(MJLen.Text)='' then begin @@ -1226,9 +1251,9 @@ begin application.MessageBox('زܴ40KG','ʾϢ',0); exit; end; } - if (strtofloatdef(trim(MJLen.Text),0)=0) and (strtofloatdef(trim(mjqty4.Text),0)=0) then + if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then begin - application.MessageBox('ȻܶΪ㣡','ʾϢ',0); + application.MessageBox('ȻܶΪ㣡', 'ʾϢ', 0); exit; end; // if Trim(MJstr4.Text)<>'' then @@ -1252,7 +1277,8 @@ begin if trim(MJQty3.Text)='' then MJQty3.Text:=floattostr(strtofloatdef(trim(MJMaoZ.Text),0)-strtofloatdef(trim(MJQty4.Text),0) ); } - if Trim(FAPID)='' then Exit; + if Trim(FAPID) = '' then + Exit; { if FInt=4 then begin if CDS_MJID.IsEmpty=False then @@ -1262,9 +1288,9 @@ begin end; end; } - if trim(MJXH.text)='' then + if trim(MJXH.text) = '' then begin - application.MessageBox('ŲΪ','ʾ'); + application.MessageBox('ŲΪ', 'ʾ'); exit; end; @@ -1274,33 +1300,33 @@ begin Exit; end; } - IF trim(Label9.Caption)='' then + if trim(Label9.Caption) = '' then begin - Application.MessageBox('ȵλΪ!','ʾ',0); + Application.MessageBox('ȵλΪ!', 'ʾ', 0); Exit; end; - if Trim(MJQty1.Text)<>'' then + if Trim(MJQty1.Text) <> '' then begin - if TryStrToFloat(MJQty1.Text,mvalue)=False then + if TryStrToFloat(MJQty1.Text, mvalue) = False then begin - Application.MessageBox('ԭ¼!','ʾ',0); + Application.MessageBox('ԭ¼!', 'ʾ', 0); Exit; end; end; - if Trim(MJFK.Text)<>'' then + if Trim(MJFK.Text) <> '' then begin - if TryStrToFloat(MJFK.Text,mvalue)=False then + if TryStrToFloat(MJFK.Text, mvalue) = False then begin - Application.MessageBox('¼!','ʾ',0); + Application.MessageBox('¼!', 'ʾ', 0); Exit; end; end; - if Trim(MJMaoZ.Text)<>'' then + if Trim(MJMaoZ.Text) <> '' then begin - if TryStrToFloat(MJMaoZ.Text,mvalue)=False then + if TryStrToFloat(MJMaoZ.Text, mvalue) = False then begin - Application.MessageBox('¼!','ʾ',0); + Application.MessageBox('¼!', 'ʾ', 0); Exit; end; end; @@ -1314,23 +1340,23 @@ begin // end; // end; - IF fRollType='޹'then + if fRollType = '޹' then + begin + + with ADOCmd do begin + Close; + sql.Clear; + sql.Add('select * from WFB_MJJY where MainId=''' + trim(fmainId) + ''' and MJXH=' + MJXH.Text + ''); + Open; + end; + if ADOCmd.RecordCount <> 0 then + begin + Application.MessageBox('ظ!', 'ʾ', 0); + Exit; + end; - with ADOCmd do - begin - Close; - sql.Clear; - sql.Add('select * from WFB_MJJY where MainId='''+trim(fmainId)+''' and MJXH='+MJXH.Text+''); - Open; - end; - if ADOCmd.RecordCount <> 0 then - begin - Application.MessageBox('ظ!','ʾ',0); - Exit; - end; - - end ; + end; // if PState=1 then // begin @@ -1341,247 +1367,273 @@ begin //BtnStatus(False); //MJFK.Text:=''; //MJSJKZ.Text:=''; - MJLen.Text:=''; - MJMaoZ.Text:=''; - MJQty1.Text:=''; + MJLen.Text := ''; + MJMaoZ.Text := ''; + MJQty1.Text := ''; // MJQty2.Text:=''; //MJSJKZ.Text:=''; - Label15.Caption:=''; + Label15.Caption := ''; //MJQty3.Text:=''; - MJQty4.Text:=''; - MJQty5.Text:=''; - note.Text:=''; + MJQty4.Text := ''; + MJQty5.Text := ''; + note.Text := ''; // Edit3.Text:=''; // Edit4.Text:=''; // Edit5.Text:=''; - MJXH.Text:=inttostr(strTointdef(trim(MJXH.Text),0)+1); + MJXH.Text := inttostr(strTointdef(trim(MJXH.Text), 0) + 1); - IF PState=2 then + if PState = 2 then begin - apid.Text:=FAPID; + apid.Text := FAPID; Button3.Click; end; end else - exit; + exit; - - if Trim(Edit6.Text)='' then + if Trim(Edit6.Text) = '' then begin //for i:=1 to StrToInt(ComboBox1.Text) do //begin - PrtData(FFFMJID); + PrtData(FFFMJID); //end; end; - - Label16.Caption:=''; + Label16.Caption := ''; BTAdd.Click; MJLen.SetFocus; MJQty4.OnClick(MJQty4); end; -procedure TfrmMJManageNewFDNewSF.PrtData(FMJID:String); +procedure TfrmMJManageNewFDNewSF.PrtData(FMJID: string); var - fPrintFile:String; - Txt,fImagePath:string; + fPrintFile: string; + Txt, fImagePath, Txt2, fImagePath2: string; Moudle: THandle; - Makebar:TMakebar; - Mixtext:TMixtext; + Makebar: TMakebar; + Mixtext: TMixtext; begin with ADOQueryPrint do begin Close; SQL.Clear; - sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName,B.MF as prtmf,B.KZ as prtkz '); - sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) '); - sql.Add(',B.MPRTCF,B.CodeName,C.*,A.* '); - sql.Add(' from WFB_MJJY A'); - sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); - sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); - SQL.Add(' where A.MJID='''+Trim(FMJID)+''''); + sql.Add('exec P_Print_Roll ''' + Trim(FMJID) + ''' '); +// sql.Add('select A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.customerNoName,B.LBName,B.MF as prtmf,B.KZ as prtkz '); +// sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) '); +// sql.Add(',B.MPRTCF,B.CodeName,C.*,A.* '); +// sql.Add(' from WFB_MJJY A'); +// sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid'); +// sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId'); +// SQL.Add(' where A.MJID='''+Trim(FMJID)+''''); Open; end; sleep(300); try - Moudle:=LoadLibrary('MakeQRBarcode.dll'); - @Makebar:=GetProcAddress(Moudle,'Make'); - @Mixtext:=GetProcAddress(Moudle,'MixText'); - Txt:=Trim(ADOQueryPrint.fieldbyname('MJID').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(ADOQueryPrint.fieldbyname('MJID').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 - application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); CDS_MJID.EnableControls; exit; end; - if Trim(ADOQueryPrint.fieldbyname('Slbname').AsString)<>'' then - fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('Slbname').AsString) + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt2 := Trim(ADOQueryPrint.fieldbyname('PRINTCode').AsString); + fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\temp2.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath2) then + DeleteFile(fImagePath2); + Makebar(pchar(Txt2), Length(Txt2), 3, 3, 0, PChar(fImagePath2), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + CDS_MJID.EnableControls; + exit; + end; + + if Trim(ADOQueryPrint.fieldbyname('Slbname').AsString) <> '' then + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('Slbname').AsString) else - fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ͨñǩ.rmf'; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨñǩ.rmf'; if FileExists(fPrintFile) then begin - RMVariables['QRBARCODE']:=fImagePath; + RMVariables['QRBARCODE'] := fImagePath; + RMVariables['QRBARCODE2'] := fImagePath2; RM2.LoadFromFile(fPrintFile); - RM2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1); + RM2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1); // RM2.ShowReport; RM2.PrintReport; - end else + end + else begin - Application.MessageBox(PChar('û'+fPrintFile),'ʾ',0); + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); end; end; procedure TfrmMJManageNewFDNewSF.SavedataCK(); var - CRID:Integer; - MaxCkNo,MaxCkSubNo:String; + CRID: Integer; + MaxCkNo, MaxCkSubNo: string; begin //if Trim(Cds_Main.fieldbyname('SubType').AsString)='' then //////////////////////////////////////////////////////////////浽Ʒֿ//////////////////////////////////////////////// - with ADOCmd do - begin - Close; - sql.Clear; - SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); - sql.Add('select * from CK_BanCP_CRID'); - Open; - end; - CRID:=ADOCmd.fieldbyname('CRID').Value; - if GetLSNo(ADOCmd,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then - begin - ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ȡƷֿʧܣ','ʾ',0); - Exit; - end; - with ADOCmd do - begin - Close; - sql.Clear; - sql.Add('select * from CK_BanCP_CR where 1<>1'); - Open; - end; - with ADOCmd do - begin - Append; - FieldByName('MainId').Value:=Trim(FMainId); - FieldByName('SubId').Value:=Trim(FSubId); - FieldByName('APID').Value:=Trim(FAPID); - FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJId').AsString); - FieldByName('BCID').Value:=Trim(MaxCkNo); - FieldByName('CRTime').Value:=SGetServerDateTime(ADOTmp); - FieldByName('CRFlag').Value:=''; - FieldByName('CRType').Value:=''; + with ADOCmd do + begin + Close; + sql.Clear; + SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1'); + sql.Add('select * from CK_BanCP_CRID'); + Open; + end; + CRID := ADOCmd.fieldbyname('CRID').Value; + if GetLSNo(ADOCmd, MaxCkNo, 'JR', 'CK_BanCP_CR', 4, 1) = False then + begin + ADOCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ', 'ʾ', 0); + Exit; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('MainId').Value := Trim(FMainId); + FieldByName('SubId').Value := Trim(FSubId); + FieldByName('APID').Value := Trim(FAPID); + FieldByName('MJID').Value := Trim(CDS_MJID.fieldbyname('MJId').AsString); + FieldByName('BCID').Value := Trim(MaxCkNo); + FieldByName('CRTime').Value := SGetServerDateTime(ADOTmp); + FieldByName('CRFlag').Value := ''; + FieldByName('CRType').Value := ''; //FieldByName('JTType').Value:=Trim(XJFlag); - FieldByName('CRID').Value:=CRID; - if Trim(MJMaoZ.Text)<>'' then - begin - FieldByName('KGQty').Value:=StrToFloat(MJMaoZ.Text); - end; - if Trim(MJLen.Text)<>'' then - begin - FieldByName('Qty').Value:=StrToFloat(MJLen.Text); - end; - FieldByName('QtyUnit').Value:=Trim(Label9.Caption); - FieldByName('Filler').Value:=Trim(DName); - FieldByName('FillTime').Value:=SGetServerDateTime(ADOTmp); - if Trim(Edit3.Text)<>'' then - begin - FieldByName('CPType').Value:='Ʒ'; - end; - if Trim(Edit4.Text)<>'' then - begin - FieldByName('CPType').Value:='Ʒ'; - end; - Post; - end; - with ADOCmd do + FieldByName('CRID').Value := CRID; + if Trim(MJMaoZ.Text) <> '' then begin - Close; - sql.Clear; - sql.Add('select * from CK_BanCP_KC where 1<>1'); - Open; + FieldByName('KGQty').Value := StrToFloat(MJMaoZ.Text); end; - with ADOCmd do + if Trim(MJLen.Text) <> '' then begin - Append; - FieldByName('CRID').Value:=CRID; - FieldByName('BCID').Value:=Trim(MaxCkNo); - FieldByName('MJID').Value:=Trim(CDS_MJID.fieldbyname('MJID').AsString); - if Trim(MJMaoZ.Text)<>'' then - begin - FieldByName('KCKGQty').Value:=StrToFloat(MJMaoZ.Text); - end; - if Trim(MJLen.Text)<>'' then - begin - FieldByName('KCQty').Value:=StrToFloat(MJLen.Text); - end; - FieldByName('KCQtyUnit').Value:=Trim(Label9.Caption); - Post; + FieldByName('Qty').Value := StrToFloat(MJLen.Text); end; + FieldByName('QtyUnit').Value := Trim(Label9.Caption); + FieldByName('Filler').Value := Trim(DName); + FieldByName('FillTime').Value := SGetServerDateTime(ADOTmp); + if Trim(Edit3.Text) <> '' then + begin + FieldByName('CPType').Value := 'Ʒ'; + end; + if Trim(Edit4.Text) <> '' then + begin + FieldByName('CPType').Value := 'Ʒ'; + end; + Post; + end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOCmd do + begin + Append; + FieldByName('CRID').Value := CRID; + FieldByName('BCID').Value := Trim(MaxCkNo); + FieldByName('MJID').Value := Trim(CDS_MJID.fieldbyname('MJID').AsString); + if Trim(MJMaoZ.Text) <> '' then + begin + FieldByName('KCKGQty').Value := StrToFloat(MJMaoZ.Text); + end; + if Trim(MJLen.Text) <> '' then + begin + FieldByName('KCQty').Value := StrToFloat(MJLen.Text); + end; + FieldByName('KCQtyUnit').Value := Trim(Label9.Caption); + Post; + end; end; -procedure TfrmMJManageNewFDNewSF.BtnStatus(BSInt:Boolean); + +procedure TfrmMJManageNewFDNewSF.BtnStatus(BSInt: Boolean); begin // Tv2.OptionsSelection.CellSelect:=BSInt; end; + procedure TfrmMJManageNewFDNewSF.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject); var - mvalue:string; + mvalue: string; begin try - mvalue:=TcxTextEdit(Sender).EditingText; - if Trim(mvalue)<>'' then + mvalue := TcxTextEdit(Sender).EditingText; + if Trim(mvalue) <> '' then begin CDS_MJCD.Edit; - CDS_MJCD.FieldByName('CDQty').Value:=mvalue; + CDS_MJCD.FieldByName('CDQty').Value := mvalue; CDS_MJCD.Post; - end else + end + else begin CDS_MJCD.Edit; - CDS_MJCD.FieldByName('CDQty').Value:=0; + CDS_MJCD.FieldByName('CDQty').Value := 0; CDS_MJCD.Post; end; CDS_MJCD.Edit; - CDS_MJCD.FieldByName('CDQtyS').Value:=mvalue; + CDS_MJCD.FieldByName('CDQtyS').Value := mvalue; except - Application.MessageBox('Ƿ֣','ʾ',0); + Application.MessageBox('Ƿ֣', 'ʾ', 0); end; end; procedure TfrmMJManageNewFDNewSF.SpeedButton1Click(Sender: TObject); var - fsj:string; + fsj: string; begin - fsj:=Trim(TSpeedButton(Sender).Hint); - if Trim(fsj)='' then Exit; - fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); - TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption); + fsj := Trim(TSpeedButton(Sender).Hint); + if Trim(fsj) = '' then + Exit; + fsj := Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := fsj + Trim(TSpeedButton(Sender).Caption); TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; end; procedure TfrmMJManageNewFDNewSF.SpeedButton12Click(Sender: TObject); var - fsj:string; + fsj: string; begin - fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); - if Trim(fsj)='' then Exit; - TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1); + fsj := Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text); + if Trim(fsj) = '' then + Exit; + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := Copy(fsj, 1, Length(fsj) - 1); TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; end; procedure TfrmMJManageNewFDNewSF.SpeedButton13Click(Sender: TObject); var - i:Integer; + i: Integer; begin - if Trim(Label24.Caption)='' then Exit; - if Label24.Visible=False then Exit; + if Trim(Label24.Caption) = '' then + Exit; + if Label24.Visible = False then + Exit; {with ADOTmp do begin Close; @@ -1594,38 +1646,38 @@ begin Application.MessageBox('ŷδ¼,ܼ!','ʾ',0); Exit; end; } - if Trim(CDS_MJCD.fieldbyname('MJID').AsString)<>'' then + if Trim(CDS_MJCD.fieldbyname('MJID').AsString) <> '' then begin BTAdd.Click; end; - if Trim(Label15.Caption)<>'' then + if Trim(Label15.Caption) <> '' then begin //MJFK.Text:=''; //MJSJKZ.Text:=''; - MJLen.Text:=''; - MJMaoZ.Text:=''; - MJQty1.Text:=''; + MJLen.Text := ''; + MJMaoZ.Text := ''; + MJQty1.Text := ''; //MJSJKZ.Text:=''; - Label15.Caption:=''; - + Label15.Caption := ''; end; - if Trim(FAPID)='' then Exit; - FCDName:=Trim(TSpeedButton(Sender).Hint); - MovePanel1.Visible:=True; - Label21.Caption:=Trim(FCDName); - FInt:=11; + if Trim(FAPID) = '' then + Exit; + FCDName := Trim(TSpeedButton(Sender).Hint); + MovePanel1.Visible := True; + Label21.Caption := Trim(FCDName); + FInt := 11; Edit1.SetFocus; //CDQty.SetFocus; - Panel3.Visible:=True; - PState:=1; + Panel3.Visible := True; + PState := 1; with Panel3 do begin - for i:=0 to ControlCount-1 do + for i := 0 to ControlCount - 1 do begin if Controls[i] is TSpeedButton then begin - TSpeedButton(Controls[i]).Hint:=Trim(Edit1.Name); + TSpeedButton(Controls[i]).Hint := Trim(Edit1.Name); end; end; end; @@ -1634,89 +1686,90 @@ end; procedure TfrmMJManageNewFDNewSF.cxGridDBColumn2PropertiesChange(Sender: TObject); var - fsj:String; + fsj: string; begin - fsj:=Trim(Order_MJ.fieldbyname('SubId').AsString); + fsj := Trim(Order_MJ.fieldbyname('SubId').AsString); Order_MJ.DisableControls; with Order_MJ do begin First; while not Eof do begin - if Trim(Order_MJ.fieldbyname('SubId').AsString)<>fsj then + if Trim(Order_MJ.fieldbyname('SubId').AsString) <> fsj then begin Edit; - FieldByName('SSel').Value:=False; + FieldByName('SSel').Value := False; end; Next; end; end; Order_MJ.EnableControls; - Order_MJ.Locate('SubId',fsj,[]); + Order_MJ.Locate('SubId', fsj, []); end; procedure TfrmMJManageNewFDNewSF.Button1Click(Sender: TObject); var - mvalue:Double; + mvalue: Double; begin { if Trim(Edit1.Text)='' then begin Application.MessageBox('λòΪգ','ʾ',0); exit; end; } - if Trim(Edit1.Text)<>'' then + if Trim(Edit1.Text) <> '' then begin - if Trim(Edit2.Text)<>'' then + if Trim(Edit2.Text) <> '' then begin - if StrToFloat(Edit2.Text)'' then + if CDQty.Text <> '' then begin - if TryStrToFloat(CDQty.Text,mvalue)=False then + if TryStrToFloat(CDQty.Text, mvalue) = False then begin - Application.MessageBox('Ƿ!','ʾ',0); + Application.MessageBox('Ƿ!', 'ʾ', 0); Exit; end; end; with CDS_MJCD do begin Append; - FieldByName('cdname').Value:=Trim(FCDName); - FieldByName('CDbeg').Value:=Trim(Edit1.Text); - FieldByName('CDEnd').Value:=Trim(Edit2.Text); - FieldByName('KouFenQty').Value:=RadioGroup1.ItemIndex+1 ; - FieldByName('JBQty').Value:=strtofloatdef(trim(Edit8.Text),0); - if Trim(CDQty.Text)<>'' then + FieldByName('cdname').Value := Trim(FCDName); + FieldByName('CDbeg').Value := Trim(Edit1.Text); + FieldByName('CDEnd').Value := Trim(Edit2.Text); + FieldByName('KouFenQty').Value := RadioGroup1.ItemIndex + 1; + FieldByName('JBQty').Value := strtofloatdef(trim(Edit8.Text), 0); + if Trim(CDQty.Text) <> '' then begin - FieldByName('CDQty').Value:=StrToFloat(CDQty.Text); - end else + FieldByName('CDQty').Value := StrToFloat(CDQty.Text); + end + else begin - FieldByName('CDQty').Value:=0; + FieldByName('CDQty').Value := 0; end; Post; end; - Edit1.Text:=''; - Edit2.Text:=''; - CDQty.Text:=''; - Edit8.Text:=''; - MovePanel1.Visible:=False; - Panel3.Visible:=False; + Edit1.Text := ''; + Edit2.Text := ''; + CDQty.Text := ''; + Edit8.Text := ''; + MovePanel1.Visible := False; + Panel3.Visible := False; end; procedure TfrmMJManageNewFDNewSF.Button4Click(Sender: TObject); begin - Edit1.Text:=''; - Edit2.Text:=''; - CDQty.Text:=''; - MovePanel1.Visible:=False; - Panel3.Visible:=False; + Edit1.Text := ''; + Edit2.Text := ''; + CDQty.Text := ''; + MovePanel1.Visible := False; + Panel3.Visible := False; end; procedure TfrmMJManageNewFDNewSF.ToolButton1Click(Sender: TObject); @@ -1726,21 +1779,22 @@ end; procedure TfrmMJManageNewFDNewSF.Button5Click(Sender: TObject); var - fPrintFile:String; - i:Integer; + fPrintFile: string; + i: Integer; begin - if CDS_MJID.IsEmpty then Exit; + if CDS_MJID.IsEmpty then + Exit; PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString)); end; procedure TfrmMJManageNewFDNewSF.SpeedButton49Click(Sender: TObject); begin - Panel3.Visible:=False; + Panel3.Visible := False; end; procedure TfrmMJManageNewFDNewSF.APIDKeyPress(Sender: TObject; var Key: Char); begin - if Key=#13 then + if Key = #13 then begin Button3.Click; @@ -1808,16 +1862,16 @@ end; procedure TfrmMJManageNewFDNewSF.Edit1Click(Sender: TObject); var - i:Integer; + i: Integer; begin - Panel3.Visible:=True; + Panel3.Visible := True; with Panel3 do begin - for i:=0 to ControlCount-1 do + for i := 0 to ControlCount - 1 do begin if Controls[i] is TSpeedButton then begin - TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name); end; end; @@ -1826,93 +1880,98 @@ end; procedure TfrmMJManageNewFDNewSF.Edit2Change(Sender: TObject); var - mvalue:Double; + mvalue: Double; begin - if Trim(Edit1.Text)<>'' then + if Trim(Edit1.Text) <> '' then begin - if TryStrToFloat(Edit1.Text,mvalue)=False then + if TryStrToFloat(Edit1.Text, mvalue) = False then begin - Application.MessageBox('Ƿ!','ʾ',0); + Application.MessageBox('Ƿ!', 'ʾ', 0); Exit; end; - end else + end + else begin Exit; end; - if Trim(Edit2.Text)<>'' then + if Trim(Edit2.Text) <> '' then begin - if TryStrToFloat(Edit2.Text,mvalue)=False then + if TryStrToFloat(Edit2.Text, mvalue) = False then begin - Application.MessageBox('Ƿ!','ʾ',0); + Application.MessageBox('Ƿ!', 'ʾ', 0); Exit; end; - end else + end + else begin Exit; end; - CDQty.Text:=FloatToStr(StrToFloat(Edit2.Text)-StrToFloat(Edit1.Text)); + CDQty.Text := FloatToStr(StrToFloat(Edit2.Text) - StrToFloat(Edit1.Text)); end; procedure TfrmMJManageNewFDNewSF.Edit3Click(Sender: TObject); begin - if Trim(Edit3.Text)='' then + if Trim(Edit3.Text) = '' then begin - Edit3.Text:=''; - Edit4.Text:=''; - Edit5.Text:=''; - end else + Edit3.Text := ''; + Edit4.Text := ''; + Edit5.Text := ''; + end + else begin - Edit3.Text:=''; + Edit3.Text := ''; // Edit4.Text:=''; - Edit5.Text:=''; + Edit5.Text := ''; end; end; procedure TfrmMJManageNewFDNewSF.Edit4Click(Sender: TObject); begin - if Trim(Edit4.Text)='' then + if Trim(Edit4.Text) = '' then begin - Edit4.Text:=''; - Edit3.Text:=''; - Edit5.Text:=''; - end else + Edit4.Text := ''; + Edit3.Text := ''; + Edit5.Text := ''; + end + else begin - Edit4.Text:=''; + Edit4.Text := ''; // Edit3.Text:=''; - Edit5.Text:=''; + Edit5.Text := ''; end; end; procedure TfrmMJManageNewFDNewSF.Edit5Click(Sender: TObject); begin - if Trim(Edit5.Text)='' then + if Trim(Edit5.Text) = '' then begin - Edit5.Text:=''; - Edit3.Text:=''; - Edit4.Text:=''; - end else + Edit5.Text := ''; + Edit3.Text := ''; + Edit4.Text := ''; + end + else begin - Edit5.Text:=''; + Edit5.Text := ''; // Edit3.Text:=''; - Edit4.Text:=''; + Edit4.Text := ''; end; end; procedure TfrmMJManageNewFDNewSF.Edit6Click(Sender: TObject); begin - if Trim(Edit6.Text)='' then + if Trim(Edit6.Text) = '' then begin - Edit6.Text:=''; - end else + Edit6.Text := ''; + end + else begin - Edit6.Text:=''; + Edit6.Text := ''; end; end; -procedure TfrmMJManageNewFDNewSF.MJstr3KeyPress(Sender: TObject; - var Key: Char); +procedure TfrmMJManageNewFDNewSF.MJstr3KeyPress(Sender: TObject; var Key: Char); begin - IF key=#13 then + if Key = #13 then begin BTPrint.Click; end; @@ -1951,19 +2010,19 @@ end; procedure TfrmMJManageNewFDNewSF.Label9Click(Sender: TObject); begin - if trim(Label9.Caption)='M' then + if trim(Label9.Caption) = 'M' then begin - Label9.Caption:='Y'; - Label19.Caption:='Y'; - Label20.Caption:='Y'; - Label7.Caption:='Y'; + Label9.Caption := 'Y'; + Label19.Caption := 'Y'; + Label20.Caption := 'Y'; + Label7.Caption := 'Y'; end else begin - Label9.Caption:='M'; - Label19.Caption:='M'; - Label20.Caption:='M'; - Label7.Caption:='M'; + Label9.Caption := 'M'; + Label19.Caption := 'M'; + Label20.Caption := 'M'; + Label7.Caption := 'M'; end; end; @@ -1974,196 +2033,198 @@ end; procedure TfrmMJManageNewFDNewSF.Button2Click(Sender: TObject); begin - RadioGroup1.ItemIndex:=-1; + RadioGroup1.ItemIndex := -1; end; procedure TfrmMJManageNewFDNewSF.MJQty4Change(Sender: TObject); var - FReal:Double; + FReal: Double; begin - if Trim(MJQty4.Text)='' then + if Trim(MJQty4.Text) = '' then begin - MJMaoZ.Text:=''; + MJMaoZ.Text := ''; Exit; end; // MJQty4.Text:=JsXj(MJQty4.Text); - if TryStrToFloat(MJQty4.Text,FReal)=False then Exit; - if Trim(MJQty3.Text)<>'' then + if TryStrToFloat(MJQty4.Text, FReal) = False then + Exit; + if Trim(MJQty3.Text) <> '' then begin - if TryStrToFloat(MJQty3.Text,FReal)=True then - MJMaoZ.Text:=FloatToStr(StrToFloat(MJQty4.Text)+StrToFloat(MJQty3.Text)); - end else + if TryStrToFloat(MJQty3.Text, FReal) = True then + MJMaoZ.Text := FloatToStr(StrToFloat(MJQty4.Text) + StrToFloat(MJQty3.Text)); + end + else begin - MJMaoZ.Text:=MJQty4.Text; + MJMaoZ.Text := MJQty4.Text; end; - IF (strtofloatdef(trim(kmxs.Text),0)<>0) and (strtofloatdef(trim(mjQty4.Text),0)<>0) then + if (strtofloatdef(trim(kmxs.Text), 0) <> 0) and (strtofloatdef(trim(mjQty4.Text), 0) <> 0) then begin - MJLen.Text:=format('%.'+trim(fxsws)+'f',[strtofloatdef(trim(mjQty4.Text),0)*strtofloatdef(trim(kmxs.Text),0)]) + MJLen.Text := format('%.' + trim(fxsws) + 'f', [strtofloatdef(trim(mjQty4.Text), 0) * strtofloatdef(trim(kmxs.Text), 0)]) end; - MJQty5.Text:=format('%.'+trim(fxsws)+'f',[strtofloatdef(trim(mjQty4.Text),0)*2.2046]); + MJQty5.Text := format('%.' + trim(fxsws) + 'f', [strtofloatdef(trim(mjQty4.Text), 0) * 2.2046]); end; procedure TfrmMJManageNewFDNewSF.MJMaoZChange(Sender: TObject); var - FReal:Double; + FReal: Double; begin - if Trim(MJMaoZ.Text)='' then + if Trim(MJMaoZ.Text) = '' then begin //MJLen.Text:=''; - MJQty4.Text:=''; + MJQty4.Text := ''; Exit; end; - if TryStrToFloat(MJMaoZ.Text,FReal)=False then Exit; - if Trim(MJQty3.Text)<>'' then + if TryStrToFloat(MJMaoZ.Text, FReal) = False then + Exit; + if Trim(MJQty3.Text) <> '' then begin - if TryStrToFloat(MJQty3.Text,FReal)=False then Exit; - MJQty4.Text:=FloatToStr(StrToFloat(MJMaoZ.Text)-StrToFloat(MJQty3.Text)); - end else + if TryStrToFloat(MJQty3.Text, FReal) = False then + Exit; + MJQty4.Text := FloatToStr(StrToFloat(MJMaoZ.Text) - StrToFloat(MJQty3.Text)); + end + else begin - MJQty4.Text:=MJMaoZ.Text; + MJQty4.Text := MJMaoZ.Text; end; end; procedure TfrmMJManageNewFDNewSF.APIDClick(Sender: TObject); var - i:Integer; + i: Integer; begin - Panel3.Visible:=True; + Panel3.Visible := True; with Panel3 do begin - for i:=0 to ControlCount-1 do + for i := 0 to ControlCount - 1 do begin if Controls[i] is TSpeedButton then begin - TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name); end; end; end; end; - procedure TfrmMJManageNewFDNewSF.Button3Click(Sender: TObject); var - FBaoID:string; + FBaoID: string; begin - fRollType:=''; + fRollType := ''; with ADOTmp do - begin - Close; - sql.Clear; - sql.Add('select B.*,B.OrderNo OrderNoM,C.*, '); - sql.Add('maxMJxh=isnull((select max(mjxh) from WFB_MJJY X where X.SubID=C.subID),0),'); - sql.Add('maxBaoNO=1+isnull((select max(cast(baoNO as int)) from WFB_MJJY X where X.subID=C.subID ),0)'); - sql.Add('from JYOrder_Sub C'); - SQL.Add('inner join JYOrder_Main B on B.MainId=C.MainId '); - sql.Add('where C.SubID='''+Trim(APID.Text)+''''); + begin + Close; + sql.Clear; + sql.Add('select B.*,B.OrderNo OrderNoM,C.*, '); + sql.Add('maxMJxh=isnull((select max(mjxh) from WFB_MJJY X where X.SubID=C.subID),0),'); + sql.Add('maxBaoNO=1+isnull((select max(cast(baoNO as int)) from WFB_MJJY X where X.subID=C.subID ),0)'); + sql.Add('from JYOrder_Sub C'); + SQL.Add('inner join JYOrder_Main B on B.MainId=C.MainId '); + sql.Add('where C.SubID=''' + Trim(APID.Text) + ''''); // ShowMessage(SQL.Text); - Open; - end; - if ADOTmp.IsEmpty=False then - begin - fRollType:=trim(ADOTmp.fieldbyname('Orddefstr15').AsString); - Label24.Visible:=True; - Label24.Caption:=':'+Trim(ADOTmp.fieldbyname('OrderNoM').AsString); - Label38.Visible:=True; - Label38.Caption:='Ʒ:'+Trim(ADOTmp.fieldbyname('CodeName').AsString); - Label25.Visible:=True; - Label25.Caption:='ɫ:'+Trim(ADOTmp.fieldbyname('PRTCOLOR').AsString); + Open; + end; + if ADOTmp.IsEmpty = False then + begin + fRollType := trim(ADOTmp.fieldbyname('Orddefstr15').AsString); + Label24.Visible := True; + Label24.Caption := ':' + Trim(ADOTmp.fieldbyname('OrderNoM').AsString); + Label38.Visible := True; + Label38.Caption := 'Ʒ:' + Trim(ADOTmp.fieldbyname('CodeName').AsString); + Label25.Visible := True; + Label25.Caption := 'ɫ:' + Trim(ADOTmp.fieldbyname('PRTCOLOR').AsString); // Label2.Visible:=true; // Label2.Caption:='ͺ:'+Trim(ADOTmp.fieldbyname('PRTHX').AsString); // FAPID:=Trim(APID.Text); - FAPID:=Trim(ADOTmp.fieldbyname('SubId').AsString); - FMainId:=Trim(ADOTmp.fieldbyname('MainId').AsString); - FSubId:=Trim(ADOTmp.fieldbyname('SubId').AsString); - AOrdDefNote1.Text:='װҪ:'+#13 - +Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString)+#13 - //+':'+Trim(ADOTmp.fieldbyname('MPRTYaoFeng').AsString)+#13 + FAPID := Trim(ADOTmp.fieldbyname('SubId').AsString); + FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString); + FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString); + AOrdDefNote1.Text := 'װҪ:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 //+':'+Trim(ADOTmp.fieldbyname('MPRTYaoFeng').AsString)+#13 //+'̽:'+Trim(ADOTmp.fieldbyname('MPRTTangJin').AsString)+#13 //+':'+Trim(ADOTmp.fieldbyname('MPRTKaiJian').AsString)+#13 // +'ŷ:'+Trim(ADOTmp.fieldbyname('PRTMF').AsString)+#13 // +':'+Trim(ADOTmp.fieldbyname('PRTKZ').AsString)+#13 - +'Ҫ:'+#13 - +Trim(ADOTmp.fieldbyname('MPRTSCTeBieNote').AsString); + + 'Ҫ:' + #13 + Trim(ADOTmp.fieldbyname('MPRTSCTeBieNote').AsString); //+'رʾ:'+Trim(ADOTmp.fieldbyname('MPRTTeBieNote').AsString); - MJQty3.Text:=Trim(ADOTmp.fieldbyname('SPiZhong').AsString); - kmxs.Text:= Trim(ADOTmp.fieldbyname('kmxs').AsString); - if ADOTmp.FieldByName('PRTMF').AsFloat>0 then - MJFK.Text:=Trim(ADOTmp.fieldbyname('PRTMF').AsString); - if ADOTmp.FieldByName('PRTKZ').AsFloat>0 then - MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('PRTKZ').AsString); - MJXH.Text:=inttostr(ADOTmp.fieldbyname('maxMJxh').AsInteger+1); + MJQty3.Text := Trim(ADOTmp.fieldbyname('SPiZhong').AsString); + kmxs.Text := Trim(ADOTmp.fieldbyname('kmxs').AsString); + if ADOTmp.FieldByName('PRTMF').AsFloat > 0 then + MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString); + if ADOTmp.FieldByName('PRTKZ').AsFloat > 0 then + MJSJKZ.Text := Trim(ADOTmp.fieldbyname('PRTKZ').AsString); + MJXH.Text := inttostr(ADOTmp.fieldbyname('maxMJxh').AsInteger + 1); - fxsws:=Trim(ADOTmp.fieldbyname('xsws').AsString); - fxsws1:=Trim(ADOTmp.fieldbyname('xsws1').AsString); - baoNO.Text:= Trim(ADOTmp.fieldbyname('maxBaoNO').AsString); - if GetLSNo(ADOCmd,FBaoID,'BI','WFB_MJJY',3,1)=False then - begin - // ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧܣ','ʾ',0); - Exit; - end; - baoid.Text:=FBaoID; - // if trim(adotmp.fieldbyname('OrderUnit').asstring)<>'' then - // Label9.Caption:=trim(adotmp.fieldbyname('OrderUnit').asstring); - Edit3.Text:=''; - Edit4.Text:=''; - Edit5.Text:=''; - MJStr4.Text:=Trim(ADOTmp.fieldbyname('gangno').AsString); - end else + fxsws := Trim(ADOTmp.fieldbyname('xsws').AsString); + fxsws1 := Trim(ADOTmp.fieldbyname('xsws1').AsString); + baoNO.Text := Trim(ADOTmp.fieldbyname('maxBaoNO').AsString); + if GetLSNo(ADOCmd, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then begin - Application.MessageBox('!','ʾ',0); - Label2.Visible:=False; - Label2.Caption:=''; - APID.Text:=''; - FAPID:=''; - FMainId:=''; - FSubId:=''; - AOrdDefNote1.Text:=''; - MJStr4.Text:=''; - fRollType:=''; + // ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); Exit; end; + baoid.Text := FBaoID; + // if trim(adotmp.fieldbyname('OrderUnit').asstring)<>'' then + // Label9.Caption:=trim(adotmp.fieldbyname('OrderUnit').asstring); + Edit3.Text := ''; + Edit4.Text := ''; + Edit5.Text := ''; + MJStr4.Text := Trim(ADOTmp.fieldbyname('gangno').AsString); + end + else + begin + Application.MessageBox('!', 'ʾ', 0); + Label2.Visible := False; + Label2.Caption := ''; + APID.Text := ''; + FAPID := ''; + FMainId := ''; + FSubId := ''; + AOrdDefNote1.Text := ''; + MJStr4.Text := ''; + fRollType := ''; + Exit; + end; - APID.Text:=''; - BTAdd.Click; + APID.Text := ''; + BTAdd.Click; end; procedure TfrmMJManageNewFDNewSF.Edit7Click(Sender: TObject); begin - if Trim(Edit7.Text)='' then + if Trim(Edit7.Text) = '' then begin - Edit7.Text:=''; - if not IsCommOpen then OpenCom(JCYDLL); - IsJsMessage:=true; + Edit7.Text := ''; + if not IsCommOpen then + OpenCom(JCYDLL); + IsJsMessage := true; end else begin - Edit7.Text:=''; - IsJsMessage:=true; + Edit7.Text := ''; + IsJsMessage := true; end; end; procedure TfrmMJManageNewFDNewSF.Button6Click(Sender: TObject); begin - frmClothHCList:=TfrmClothHCList.create(self); + frmClothHCList := TfrmClothHCList.create(self); with frmClothHCList do begin - fType:='10'; - if showmodal=1 then + fType := '10'; + if showmodal = 1 then begin - APID.Text:=trim(Order_Main.fieldbyname('Subid').asstring); + APID.Text := trim(Order_Main.fieldbyname('Subid').asstring); Button3.Click; end; free; end; end; -procedure TfrmMJManageNewFDNewSF.MJQty4KeyPress(Sender: TObject; - var Key: Char); +procedure TfrmMJManageNewFDNewSF.MJQty4KeyPress(Sender: TObject; var Key: Char); begin - IF key=#13 then + if Key = #13 then begin BTPrint.Click; end; @@ -2171,16 +2232,16 @@ end; procedure TfrmMJManageNewFDNewSF.MJXHClick(Sender: TObject); var - i:Integer; + i: Integer; begin - Panel3.Visible:=True; + Panel3.Visible := True; with Panel3 do begin - for i:=0 to ControlCount-1 do + for i := 0 to ControlCount - 1 do begin if Controls[i] is TSpeedButton then begin - TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name); end; end; end; @@ -2201,158 +2262,156 @@ begin // MJQty2.Text:=JsXj(MJQty2.Text); end; -procedure TfrmMJManageNewFDNewSF.MJQty4KeyDown(Sender: TObject; - var Key: Word; Shift: TShiftState); +procedure TfrmMJManageNewFDNewSF.MJQty4KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin - Tedit(Sender).SelStart:=length(Tedit(Sender).Text); + Tedit(Sender).SelStart := length(Tedit(Sender).Text); end; procedure TfrmMJManageNewFDNewSF.MJStr4Exit(Sender: TObject); begin - IF Pstate=1 then + if Pstate = 1 then begin - IF fRollType=''then + if fRollType = '' then begin - with ADOCmd do - begin - Close; - sql.Clear; - sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) '); - sql.Add('from WFB_MJJY X where X.mainID='''+trim(fMainID)+''' '); + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) '); + sql.Add('from WFB_MJJY X where X.mainID=''' + trim(fMainID) + ''' '); // sql.add('and X.MJStr4='+quotedstr(trim(MJstr4.text))); - Open; - MJXH.Text:=Trim(fieldbyname('maxRoll').AsString); - end; + Open; + MJXH.Text := Trim(fieldbyname('maxRoll').AsString); + end; end - else - IF fRollType='׺'then + else if fRollType = '׺' then begin - with ADOCmd do - begin - Close; - sql.Clear; - sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) '); - sql.Add('from WFB_MJJY X where X.subID='''+trim(FSubId)+''' '); - sql.add('and X.MJStr4='+quotedstr(trim(MJstr4.text))); - Open; - MJXH.Text:=Trim(fieldbyname('maxRoll').AsString); - end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) '); + sql.Add('from WFB_MJJY X where X.subID=''' + trim(FSubId) + ''' '); + sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text))); + Open; + MJXH.Text := Trim(fieldbyname('maxRoll').AsString); + end; end + else if fRollType = '޹' then + begin - else - IF fRollType='޹'then - begin - end - else begin - with ADOCmd do - begin - Close; - sql.Clear; - sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) '); - sql.Add('from WFB_MJJY X where X.subID='''+trim(FSubId)+''' '); - Open; - MJXH.Text:=Trim(fieldbyname('maxRoll').AsString); - end; + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) '); + sql.Add('from WFB_MJJY X where X.subID=''' + trim(FSubId) + ''' '); + Open; + MJXH.Text := Trim(fieldbyname('maxRoll').AsString); + end; end; end; end; procedure TfrmMJManageNewFDNewSF.ToolButton2Click(Sender: TObject); begin - if CDS_MJID.IsEmpty then exit; - if CDS_MJCD.IsEmpty=False then + if CDS_MJID.IsEmpty then + exit; + if CDS_MJCD.IsEmpty = False then begin - if Trim(CDS_MJCD.fieldbyname('MJID').AsString)='' then + if Trim(CDS_MJCD.fieldbyname('MJID').AsString) = '' then begin - Application.MessageBox('δ,!','ʾ',0); + Application.MessageBox('δ,!', 'ʾ', 0); Exit; end; end; - FInt:=4; - PState:=0; + FInt := 4; + PState := 0; InitCDGrid(); with ADOTmp do begin close; sql.Clear; - sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+''''); + sql.Add('select * from WFB_MJJY where MJID=''' + Trim(CDS_MJID.fieldbyname('MJID').AsString) + ''''); Open; end; - MJFK.Text:=Trim(ADOTmp.fieldbyname('MJFK').AsString); - MJSJKZ.Text:=Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); + MJFK.Text := Trim(ADOTmp.fieldbyname('MJFK').AsString); + MJSJKZ.Text := Trim(ADOTmp.fieldbyname('MJSJKZ').AsString); - MJQty1.Text:=Trim(ADOTmp.fieldbyname('MJQty1').AsString); + MJQty1.Text := Trim(ADOTmp.fieldbyname('MJQty1').AsString); // MJQty2.Text:=Trim(ADOTmp.fieldbyname('MJQty2').AsString); - MJQty3.Text:=Trim(ADOTmp.fieldbyname('MJQty3').AsString); - MJQty4.Text:=Trim(ADOTmp.fieldbyname('MJQty4').AsString); - MJMaoZ.Text:=Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); - Label15.Caption:=Trim(CDS_MJID.fieldbyname('MJID').AsString); - MJLen.Text:=Trim(ADOTmp.fieldbyname('MJLen').AsString); - MJstr4.Text:=Trim(ADOTmp.fieldbyname('MJstr4').AsString); - MJXH.Text:=Trim(ADOTmp.fieldbyname('MJXH').AsString); - if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + MJQty3.Text := Trim(ADOTmp.fieldbyname('MJQty3').AsString); + MJQty4.Text := Trim(ADOTmp.fieldbyname('MJQty4').AsString); + MJMaoZ.Text := Trim(ADOTmp.fieldbyname('MJMaoZ').AsString); + Label15.Caption := Trim(CDS_MJID.fieldbyname('MJID').AsString); + MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString); + MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString); + MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString); + if Trim(ADOTmp.fieldbyname('MJType').AsString) = 'Ʒ' then begin - Edit3.Text:=''; - Edit4.Text:=''; - Edit5.Text:=''; - end else - if Trim(ADOTmp.fieldbyname('MJType').AsString)='Ʒ' then + Edit3.Text := ''; + Edit4.Text := ''; + Edit5.Text := ''; + end + else if Trim(ADOTmp.fieldbyname('MJType').AsString) = 'Ʒ' then begin - Edit4.Text:=''; - Edit3.Text:=''; - Edit5.Text:=''; - end else - if Trim(ADOTmp.fieldbyname('MJType').AsString)='' then + Edit4.Text := ''; + Edit3.Text := ''; + Edit5.Text := ''; + end + else if Trim(ADOTmp.fieldbyname('MJType').AsString) = '' then begin - Edit4.Text:=''; - Edit3.Text:=''; - Edit5.Text:=''; - end else - if Trim(ADOTmp.fieldbyname('MJType').AsString)='' then + Edit4.Text := ''; + Edit3.Text := ''; + Edit5.Text := ''; + end + else if Trim(ADOTmp.fieldbyname('MJType').AsString) = '' then begin - Edit4.Text:=''; - Edit3.Text:=''; - Edit5.Text:=''; + Edit4.Text := ''; + Edit3.Text := ''; + Edit5.Text := ''; end; BtnStatus(False); - Label16.Caption:=''; - PState:=2; + Label16.Caption := ''; + PState := 2; end; procedure TfrmMJManageNewFDNewSF.Edit9Click(Sender: TObject); begin - if Trim(Edit9.Text)='' then + if Trim(Edit9.Text) = '' then begin - Edit9.Text:=''; + Edit9.Text := ''; end else begin - Edit9.Text:=''; + Edit9.Text := ''; end; end; procedure TfrmMJManageNewFDNewSF.ToolButton3Click(Sender: TObject); begin - IF CDS_MJID.IsEmpty then exit; - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if CDS_MJID.IsEmpty then + exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; with ADOCmd do begin Close; sql.Clear; - sql.Add('delete WFB_MJJY where MJID='''+trim(CDS_MJID.fieldbyName('MJID').AsString)+''' '); - sql.Add('delete WFB_MJJY_CD where MJID='''+trim(CDS_MJID.fieldbyName('MJID').AsString)+''' '); + sql.Add('delete WFB_MJJY where MJID=''' + trim(CDS_MJID.fieldbyName('MJID').AsString) + ''' '); + sql.Add('delete WFB_MJJY_CD where MJID=''' + trim(CDS_MJID.fieldbyName('MJID').AsString) + ''' '); sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); - sql.Add(' '+quotedstr(trim(DName))); + sql.Add(' ' + quotedstr(trim(DName))); sql.Add(',getdate() '); - sql.Add(','+quotedstr(trim(self.Caption))); - sql.Add(','+quotedstr(trim('ɾ'))); - sql.Add(','+quotedstr(trim(':'+trim(CDS_MJID.FieldByName('MJID').AsString)+' ɫ:'+trim(fsubID)))); - sql.Add(','+quotedstr(trim('ɹ'))); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('ɾ'))); + sql.Add(',' + quotedstr(trim(':' + trim(CDS_MJID.FieldByName('MJID').AsString) + ' ɫ:' + trim(fsubID)))); + sql.Add(',' + quotedstr(trim('ɹ'))); sql.Add(')'); execsql; end; @@ -2360,15 +2419,17 @@ begin end; procedure TfrmMJManageNewFDNewSF.Button7Click(Sender: TObject); -var fPrintFile: string; - Txt,fImagePath:string; - Moudle: THandle; - Makebar:TMakebar; - Mixtext:TMixtext; - FBaoID:string; - i:Integer; +var + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; + FBaoID: string; + i: Integer; begin - IF CDS_MJID.IsEmpty then exit; + if CDS_MJID.IsEmpty then + exit; CDS_MJID.First; with ADOQueryPrint do begin @@ -2387,72 +2448,73 @@ begin sql.Add('from WFB_MJJY A'); sql.Add('inner join JYOrder_Sub C on C.SubID=A.SubID'); sql.Add('inner join JYOrder_Main D on D.MainID=A.MainID'); - SQL.Add('where A.BaoID='''+Trim(CDS_MJID.fieldbyname('baoID').AsString)+''''); + SQL.Add('where A.BaoID=''' + Trim(CDS_MJID.fieldbyname('baoID').AsString) + ''''); SQL.ADD('group by A.Baoid,A.BaoNo,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName'); Open; end; - if ADOQueryPrint.RecordCount>1 then + if ADOQueryPrint.RecordCount > 1 then begin - Application.MessageBox('´!','ʾ',0); + Application.MessageBox('´!', 'ʾ', 0); Exit; end; - if ADOQueryPrint.RecordCount<1 then + if ADOQueryPrint.RecordCount < 1 then begin - Application.MessageBox('˰Żδ棬뱣ݣڴӡ룡','ʾ',0); + Application.MessageBox('˰Żδ棬뱣ݣڴӡ룡', 'ʾ', 0); Exit; end; try - Moudle:=LoadLibrary('MakeQRBarcode.dll'); - @Makebar:=GetProcAddress(Moudle,'Make'); - @Mixtext:=GetProcAddress(Moudle,'MixText'); - Txt:=trim(BaoID.Text); - 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(BaoID.Text); + 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 - application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); exit; end; - - with ADOTmp do - begin - close; - sql.Clear; - sql.Add('select max(cast(baoNO as int)) as maxbaoNO from WFB_MJJY '); - sql.Add('where mainID='+quotedstr(trim(fmainID))); - sql.Add('and subID='+quotedstr(trim(fsubID))); - open; - end; - baoNo.Text:=inttostr(ADOTmp.fieldbyname('maxbaoNO').AsInteger+1); - if GetLSNo(ADOTmp,FBaoID,'BI','WFB_MJJY',3,1)=False then - begin - Application.MessageBox('ȡʧܣ','ʾ',0); - Exit; - end; - BaoID.Text:=trim(FBaoid); - if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)<>'' then - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(ADOQueryPrint.fieldbyname('NLbName').AsString)+'.rmf' + with ADOTmp do + begin + close; + sql.Clear; + sql.Add('select max(cast(baoNO as int)) as maxbaoNO from WFB_MJJY '); + sql.Add('where mainID=' + quotedstr(trim(fmainID))); + sql.Add('and subID=' + quotedstr(trim(fsubID))); + open; + end; + baoNo.Text := inttostr(ADOTmp.fieldbyname('maxbaoNO').AsInteger + 1); + if GetLSNo(ADOTmp, FBaoID, 'BI', 'WFB_MJJY', 3, 1) = False then + begin + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + BaoID.Text := trim(FBaoID); + + if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLbName').AsString) + '.rmf' else - fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\ǩ.rmf'; - IF Not FileExists(fPrintFile) then - begin - Application.MessageBox(PChar('û'+fPrintFile),'ʾ',0); - Exit; - end; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ǩ.rmf'; + if not FileExists(fPrintFile) then + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + Exit; + end; - if FileExists(fPrintFile) then - begin - RMVariables['QRBARCODE']:=fImagePath; - RM2.LoadFromFile(fPrintFile); - RM2.DefaultCopies:=1; + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE'] := fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.DefaultCopies := 1; //RM2.ShowReport; - RM2.printReport; - end; - + RM2.printReport; + end; end; end. + diff --git a/检验管理/U_ProductOrderNewList.pas b/检验管理/U_ProductOrderNewList.pas index df8cce5..35e078c 100644 --- a/检验管理/U_ProductOrderNewList.pas +++ b/检验管理/U_ProductOrderNewList.pas @@ -12,7 +12,21 @@ uses RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, cxContainer, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP,shellAPI, cxPC, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu; + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, + 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; type TfrmProductOrderNewList = class(TForm)