From b4e34880a99908182d7cc1f92d9c5388e58b3124 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Thu, 5 Feb 2026 17:27:52 +0800 Subject: [PATCH] =?UTF-8?q?=E6=89=93=E5=8C=85=20=20=E7=A0=81=E5=8D=95?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 检验管理/TradeManage.skincfg | 90 +- 检验管理/U_CPDBAO.dfm | 68 +- 检验管理/U_CPDBAO.pas | 1119 ++++++++++------- 检验管理/U_CPDBAO_S.dfm | 1652 ++++++++++++++++++++++++++ 检验管理/U_CPDBAO_S.pas | 1324 +++++++++++++++++++++ 检验管理/U_JYOrderCDOne.dfm | 16 +- 检验管理/U_JYOrderCDOne.pas | 77 +- 检验管理/U_MJManageNewFDNew.dfm | 24 +- 检验管理/U_MJManageNewFDNew.pas | 159 ++- 检验管理/U_ProductOrderLBNameSet.dfm | 119 +- 检验管理/U_ProductOrderLBNameSet.pas | 847 +++++++------ 11 files changed, 4598 insertions(+), 897 deletions(-) create mode 100644 检验管理/U_CPDBAO_S.dfm create mode 100644 检验管理/U_CPDBAO_S.pas diff --git a/检验管理/TradeManage.skincfg b/检验管理/TradeManage.skincfg index 0bd3d07..89edbfe 100644 --- a/检验管理/TradeManage.skincfg +++ b/检验管理/TradeManage.skincfg @@ -2,49 +2,49 @@ Default=1 ShowNotifications=1 Enabled=1 -dxSkinBlack=0 -dxSkinBlue=0 -dxSkinBlueprint=0 -dxSkinCaramel=0 -dxSkinCoffee=0 -dxSkinDarkRoom=0 -dxSkinDarkSide=0 -dxSkinDevExpressDarkStyle=0 -dxSkinDevExpressStyle=0 -dxSkinFoggy=0 -dxSkinGlassOceans=0 -dxSkinHighContrast=0 -dxSkiniMaginary=0 -dxSkinLilian=0 -dxSkinLiquidSky=0 -dxSkinLondonLiquidSky=0 -dxSkinMcSkin=0 -dxSkinMetropolis=0 -dxSkinMetropolisDark=0 -dxSkinMoneyTwins=0 -dxSkinOffice2007Black=0 -dxSkinOffice2007Blue=0 -dxSkinOffice2007Green=0 -dxSkinOffice2007Pink=0 -dxSkinOffice2007Silver=0 -dxSkinOffice2010Black=0 -dxSkinOffice2010Blue=0 -dxSkinOffice2010Silver=0 -dxSkinOffice2013DarkGray=0 -dxSkinOffice2013LightGray=0 -dxSkinOffice2013White=0 -dxSkinPumpkin=0 -dxSkinSeven=0 -dxSkinSevenClassic=0 -dxSkinSharp=0 -dxSkinSharpPlus=0 -dxSkinSilver=0 -dxSkinSpringTime=0 -dxSkinStardust=0 -dxSkinSummer2008=0 -dxSkinTheAsphaltWorld=0 +dxSkinBlack=1 +dxSkinBlue=1 +dxSkinBlueprint=1 +dxSkinCaramel=1 +dxSkinCoffee=1 +dxSkinDarkRoom=1 +dxSkinDarkSide=1 +dxSkinDevExpressDarkStyle=1 +dxSkinDevExpressStyle=1 +dxSkinFoggy=1 +dxSkinGlassOceans=1 +dxSkinHighContrast=1 +dxSkiniMaginary=1 +dxSkinLilian=1 +dxSkinLiquidSky=1 +dxSkinLondonLiquidSky=1 +dxSkinMcSkin=1 +dxSkinMetropolis=1 +dxSkinMetropolisDark=1 +dxSkinMoneyTwins=1 +dxSkinOffice2007Black=1 +dxSkinOffice2007Blue=1 +dxSkinOffice2007Green=1 +dxSkinOffice2007Pink=1 +dxSkinOffice2007Silver=1 +dxSkinOffice2010Black=1 +dxSkinOffice2010Blue=1 +dxSkinOffice2010Silver=1 +dxSkinOffice2013DarkGray=1 +dxSkinOffice2013LightGray=1 +dxSkinOffice2013White=1 +dxSkinPumpkin=1 +dxSkinSeven=1 +dxSkinSevenClassic=1 +dxSkinSharp=1 +dxSkinSharpPlus=1 +dxSkinSilver=1 +dxSkinSpringTime=1 +dxSkinStardust=1 +dxSkinSummer2008=1 +dxSkinTheAsphaltWorld=1 dxSkinsDefaultPainters=1 -dxSkinValentine=0 -dxSkinVS2010=0 -dxSkinWhiteprint=0 -dxSkinXmas2008Blue=0 +dxSkinValentine=1 +dxSkinVS2010=1 +dxSkinWhiteprint=1 +dxSkinXmas2008Blue=1 diff --git a/检验管理/U_CPDBAO.dfm b/检验管理/U_CPDBAO.dfm index d457143..8423564 100644 --- a/检验管理/U_CPDBAO.dfm +++ b/检验管理/U_CPDBAO.dfm @@ -1,9 +1,8 @@ object frmCPDBao: TfrmCPDBao - Left = 19 - Top = 72 - Width = 1382 - Height = 753 - VertScrollBar.Position = 2 + Left = 324 + Top = 149 + Width = 1551 + Height = 742 Caption = #25171#21253#31383#21475 Color = clBtnFace Font.Charset = GB2312_CHARSET @@ -21,8 +20,8 @@ object frmCPDBao: TfrmCPDBao TextHeight = 12 object ToolBar1: TToolBar Left = 0 - Top = -2 - Width = 1533 + Top = 0 + Width = 1535 Height = 33 ButtonHeight = 30 ButtonWidth = 59 @@ -54,8 +53,8 @@ object frmCPDBao: TfrmCPDBao end object Panel1: TPanel Left = 0 - Top = 31 - Width = 1533 + Top = 33 + Width = 1535 Height = 76 Align = alTop BevelInner = bvRaised @@ -486,10 +485,27 @@ object frmCPDBao: TfrmCPDBao '24' '25') end + object cxButton8: TcxButton + Left = 984 + Top = 40 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #37325#25171#21253#26631#31614 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 20 + OnClick = cxButton8Click + LookAndFeel.Kind = lfOffice11 + end end object Panel2: TPanel Left = 400 - Top = 139 + Top = 141 Width = 1133 Height = 560 Caption = 'Panel2' @@ -508,7 +524,7 @@ object frmCPDBao: TfrmCPDBao ParentFont = False TabOrder = 0 object TV2: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> OnCustomDrawCell = TV2CustomDrawCell DataController.DataSource = DataSource2 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -666,9 +682,10 @@ object frmCPDBao: TfrmCPDBao Width = 1131 Height = 292 Align = alClient + PopupMenu = PopupMenu1 TabOrder = 1 object TV4: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DSSEL DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < @@ -832,7 +849,7 @@ object frmCPDBao: TfrmCPDBao end object Panel3: TPanel Left = 999 - Top = 225 + Top = 227 Width = 290 Height = 286 BevelInner = bvRaised @@ -1027,9 +1044,9 @@ object frmCPDBao: TfrmCPDBao end object Panel4: TPanel Left = 0 - Top = 107 + Top = 109 Width = 553 - Height = 592 + Height = 594 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -1039,11 +1056,11 @@ object frmCPDBao: TfrmCPDBao Left = 2 Top = 89 Width = 549 - Height = 501 + Height = 503 Align = alClient TabOrder = 0 object Tv3: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DSTm DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -1355,8 +1372,8 @@ object frmCPDBao: TfrmCPDBao end end object MovePanel1: TMovePanel - Left = 506 - Top = 274 + Left = 198 + Top = 208 Width = 715 Height = 327 BevelInner = bvLowered @@ -1435,6 +1452,7 @@ object frmCPDBao: TfrmCPDBao object cxStyleRepository1: TcxStyleRepository Left = 317 Top = 306 + PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svColor, svFont] Color = clInactiveCaption @@ -1648,4 +1666,16 @@ object frmCPDBao: TfrmCPDBao Left = 332 Top = 420 end + object PopupMenu1: TPopupMenu + Left = 948 + Top = 568 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end end diff --git a/检验管理/U_CPDBAO.pas b/检验管理/U_CPDBAO.pas index 121923a..ec2107b 100644 --- a/检验管理/U_CPDBAO.pas +++ b/检验管理/U_CPDBAO.pas @@ -1,16 +1,29 @@ unit U_CPDBAO; -interface +interface uses - Windows, Messages, strutils,SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + Windows, Messages, strutils, SysUtils, Variants, Classes, Graphics, Controls, + Forms, Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, - cxGridTableView, cxGridDBTableView, cxClasses, cxControls, - cxGridCustomView, cxGrid, StdCtrls, cxContainer, cxTextEdit, - cxCurrencyEdit, BtnEdit, ExtCtrls, ComCtrls, ToolWin, DBClient, ADODB, - MovePanel, Buttons, Menus, cxLookAndFeelPainters, cxButtons, RM_Common, - RM_Class, RM_GridReport, RM_System, RM_Dataset, cxCheckBox,MMSystem; + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, + cxGrid, StdCtrls, cxContainer, cxTextEdit, cxCurrencyEdit, BtnEdit, ExtCtrls, + ComCtrls, ToolWin, DBClient, ADODB, MovePanel, Buttons, Menus, + cxLookAndFeelPainters, cxButtons, RM_Common, RM_Class, RM_GridReport, + RM_System, RM_Dataset, cxCheckBox, MMSystem, cxLookAndFeels, cxNavigator, + dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue, dxSkinscxPCPainter; type TfrmCPDBao = class(TForm) @@ -160,16 +173,17 @@ type ComboBox4: TComboBox; Label12: TLabel; ADOQuery2: TADOQuery; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + cxButton8: TcxButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); - procedure FormCreate(Sender: TObject); procedure SmNOKeyPress(Sender: TObject; var Key: Char); procedure FormShow(Sender: TObject); - procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); + procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure kcKwBtnClick(Sender: TObject); procedure Button4Click(Sender: TObject); procedure baoNoKeyPress(Sender: TObject; var Key: Char); @@ -189,28 +203,36 @@ type procedure cxButton5Click(Sender: TObject); procedure cxButton6Click(Sender: TObject); procedure cxButton7Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure cxButton8Click(Sender: TObject); private - Rolls:integer; + Rolls: integer; procedure InitGrid(); procedure InitMJID(); - function SaveRK():Boolean; - Procedure QueryRk(); - Procedure QueryTM(); + function SaveRK(): Boolean; + procedure QueryRk(); + procedure QueryTM(); { Private declarations } public { Public declarations } end; + var frmCPDBao: TfrmCPDBao; - newh:hwnd; + newh: hwnd; + implementation + uses - U_DataLink,U_Fun, U_ZDYHelp, U_OrderSelRK; + U_DataLink, U_Fun, U_ZDYHelp, U_OrderSelRK; {$R *.dfm} -Procedure TfrmCPDBao.QueryTm(); + +procedure TfrmCPDBao.QueryTm(); var - FBaoID:string; + FBaoID: string; begin + with ADOQueryTM do begin close; @@ -219,41 +241,118 @@ begin sql.Add('from WFB_MJJY A '); sql.Add('inner join JYOrder_sub B on B.subID=A.subID '); sql.Add('inner join JYOrder_main C on C.mainID=A.MainID '); - sql.Add('and A.mjstr2=''δ'' and C.orderNo='+quotedstr(trim(BtnEditA1.Text))); + sql.Add('and isnull(A.BAOID,'''')='''' and A.mjstr2=''δ'' and C.orderNo=' + quotedstr(trim(BtnEditA1.Text))); open; end; - SCreateCDS20(ADOQueryTM,CDSTM); - SInitCDSData20(ADOQueryTM,CDSTM); + SCreateCDS20(ADOQueryTM, CDSTM); + SInitCDSData20(ADOQueryTM, CDSTM); - SCreateCDS20(ADOQueryTM,CDSMJID); -// SInitCDSData20(ADOQueryMain,CDSMJID); - SCreateCDS20(ADOQueryTM,CDSSEL); -// SInitCDSData20(ADOQueryMain,CDSSEL); +//if CDSMJID.IsEmpty then +// exit; +// if CDSMJID.fieldByName('SDefNote').AsString <> '' then +// begin +// application.MessageBox('Ѵɾ', 'ʾϢ', 0); +// exit; +// end - IF not CDSTM.IsEmpty then + if not CDSMJID.IsEmpty then + begin + Rolls := 0; + with CDSMJID do + begin + DisableControls; + first; + while not eof do + begin + Rolls := Rolls + 1; + next; + end; + EnableControls; + end; + end + else + SCreateCDS20(ADOQueryTM, CDSMJID); +// SInitCDSData20(ADOQueryMain, CDSMJID); + + with ADOQueryMain do + begin + close; + sql.Clear; + sql.Add('select A.*,B.* ,MPrtCodeName,C.orderNo as OrderNoM'); + sql.Add('from WFB_MJJY A '); + sql.Add('inner join JYOrder_sub B on B.subID=A.subID '); + sql.Add('inner join JYOrder_main C on C.mainID=A.MainID '); + sql.Add('and isnull(A.BAOID,'''')<>'''' and A.mjstr2=''δ'' and C.orderNo=' + quotedstr(trim(BtnEditA1.Text))); + SQL.Add('order by [dbo].[Get_ShuZi](BaoNo)'); + open; + end; + SCreateCDS20(ADOQueryMain, CDSSEL); + SInitCDSData20(ADOQueryMain, CDSSEL); + + if not CDSTM.IsEmpty then begin with ADOQuery1 do begin close; sql.clear; sql.add('select isnull(max(cast(baoNo as int)),0)+1 as MaxBaoNo from WFB_MJJY '); - sql.Add('where mainID='+quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); + sql.Add('where mainID=' + quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); open; end; - baoNo.text:=ADOQuery1.fieldbyname('MaxBaoNo').AsString; - if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then +// baoNo.text := ADOQuery1.fieldbyname('MaxBaoNo').AsString; + if GetLSNo(ADOQueryTmp, FBaoID, 'BI', 'WFB_MJJY', 4, 1) = False then begin ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧܣ','ʾ',0); + Application.MessageBox('ȡʧܣ', 'ʾ', 0); Exit; end; - BaoID.Text:=trim(FBaoid); + BaoID.Text := trim(FBaoID); end; SMNO.SetFocus; +// with ADOQueryTM do +// begin +// close; +// sql.Clear; +// sql.Add('select A.*,B.*,C.MPrtCodeName,C.orderNo as OrderNoM'); +// sql.Add('from WFB_MJJY A '); +// sql.Add('inner join JYOrder_sub B on B.subID=A.subID '); +// sql.Add('inner join JYOrder_main C on C.mainID=A.MainID '); +// sql.Add('and A.mjstr2=''δ'' and C.orderNo=' + quotedstr(trim(BtnEditA1.Text))); +// open; +// end; +// SCreateCDS20(ADOQueryTM, CDSTM); +// SInitCDSData20(ADOQueryTM, CDSTM); +// +// SCreateCDS20(ADOQueryTM, CDSMJID); +//// SInitCDSData20(ADOQueryMain,CDSMJID); +// SCreateCDS20(ADOQueryTM, CDSSEL); +//// SInitCDSData20(ADOQueryMain,CDSSEL); +// +// if not CDSTM.IsEmpty then +// begin +// with ADOQuery1 do +// begin +// close; +// sql.clear; +// sql.add('select isnull(max(cast(baoNo as int)),0)+1 as MaxBaoNo from WFB_MJJY '); +// sql.Add('where mainID=' + quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); +// open; +// end; +// baoNo.text := ADOQuery1.fieldbyname('MaxBaoNo').AsString; +// if GetLSNo(ADOQueryTmp, FBaoID, 'BI', 'WFB_MJJY', 4, 1) = False then +// begin +// ADOQueryCmd.Connection.RollbackTrans; +// Application.MessageBox('ȡʧܣ', 'ʾ', 0); +// Exit; +// end; +// BaoID.Text := trim(FBaoID); +// end; +// +// SMNO.SetFocus; end; -Procedure TfrmCPDBao.QueryRk(); +procedure TfrmCPDBao.QueryRk(); begin with ADOQuery1 do begin @@ -264,20 +363,20 @@ begin sql.Add('RK_RollNum=(select sum(SOrdQty1) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''''),'); sql.Add('RK_Qty=(select sum(MJLen) from CK_BanCP_CR X where X.APID=A.APID and X.CRType='''') '); sql.Add('from JYOrder_sub_anPai A '); - SQL.Add('WHERE exists(select MJID from WFB_MJJY X where X.APID=A.APID and X.MJID='+quotedstr(trim(smNO.Text))); + SQL.Add('WHERE exists(select MJID from WFB_MJJY X where X.APID=A.APID and X.MJID=' + quotedstr(trim(smNO.Text))); sql.Add(')'); open; end; end; -function TfrmCPDBao.SaveRK():Boolean; +function TfrmCPDBao.SaveRK(): Boolean; var - maxno:String; - CRID:Integer; - MaxCkNo,MaxCkSubNo:String; - MhcTime:TdateTime; + maxno: string; + CRID: Integer; + MaxCkNo, MaxCkSubNo: string; + MhcTime: TdateTime; begin - Result:=false; + Result := false; ADOQueryCmd.Connection.BeginTrans; try @@ -373,11 +472,11 @@ begin begin Close; sql.Clear; - sql.Add('Update WFB_MJJY Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(ADOQueryMain.fieldbyname('MJID').AsString)+''''); + sql.Add('Update WFB_MJJY Set BaoNo=''' + trim(BaoNo.Text) + ''',BaoID=''' + trim(Baoid.text) + ''' where MJID=''' + Trim(ADOQueryMain.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; ADOQueryCmd.Connection.CommitTrans; - Result:=true; + Result := true; except ADOQueryCmd.Connection.RollbackTrans; end; @@ -395,16 +494,15 @@ begin SQL.Add('where 1=2 '); Open; end; - SCreateCDS20(ADOQueryMain,CDSMJID); - SInitCDSData20(ADOQueryMain,CDSMJID); - SCreateCDS20(ADOQueryMain,CDSSEL); - SInitCDSData20(ADOQueryMain,CDSSEL); + SCreateCDS20(ADOQueryMain, CDSMJID); + SInitCDSData20(ADOQueryMain, CDSMJID); + SCreateCDS20(ADOQueryMain, CDSSEL); + SInitCDSData20(ADOQueryMain, CDSSEL); end; procedure TfrmCPDBao.InitMJID(); begin - MovePanel1.Visible:=false; - + MovePanel1.Visible := false; with ADOQueryMain do begin @@ -413,70 +511,70 @@ begin SQL.Add('select A.*,B.*,C.MprtCodeName,C.orderNo as OrderNoM from WFB_MJJY A '); sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId'); sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID'); - sql.Add('where MJID='+quotedstr(trim(SmNO.Text))); + sql.Add('where MJID=' + quotedstr(trim(SmNO.Text))); Open; - if not IsEmpty then + if not IsEmpty then begin - IF trim(Fieldbyname('MJstr2').AsString)='' then + if trim(Fieldbyname('MJstr2').AsString) = '' then begin CDSMJID.Append; - CDSMJID.FieldByName('SDefNote').Value:=''; - CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.FieldByName('SDefNote').Value := ''; + CDSMJID.FieldByName('MJID').Value := trim(SmNO.Text); CDSMJID.Post; end else begin - CDSMJID.Append; - CDSMJID.FieldByName('SDefNote').Value:='ɹ'; - CDSMJID.FieldByName('MJID').Value:=trim(ADOQueryMain.Fieldbyname('MJID').AsString); + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value := 'ɹ'; + CDSMJID.FieldByName('MJID').Value := trim(ADOQueryMain.Fieldbyname('MJID').AsString); // CDSMJID.FieldByName('CRID').Value:=trim(ADOQueryMain.Fieldbyname('CRID').AsString); - CDSMJID.FieldByName('PRTCodeName').Value:=trim(ADOQueryMain.Fieldbyname('PRTCodeName').AsString); - CDSMJID.FieldByName('MPRTCodeName').Value:=trim(ADOQueryMain.Fieldbyname('MPRTCodeName').AsString); - CDSMJID.FieldByName('PRTColor').Value:=trim(ADOQueryMain.Fieldbyname('PRTColor').AsString); - CDSMJID.FieldByName('PRTHX').Value:=trim(ADOQueryMain.Fieldbyname('PRTHX').AsString); - CDSMJID.FieldByName('MJStr4').Value:=trim(ADOQueryMain.Fieldbyname('MJStr4').AsString); - CDSMJID.FieldByName('MJType').Value:=trim(ADOQueryMain.Fieldbyname('MJType').AsString); - CDSMJID.FieldByName('BaoNo').Value:=trim(BaoNo.Text); - CDSMJID.FieldByName('BaoID').Value:=trim(BaoID.Text); - CDSMJID.FieldByName('SOrdQty1').Value:=1; - CDSMJID.FieldByName('MJLen').Value:=ADOQueryMain.Fieldbyname('MJLen').AsFloat; - CDSMJID.FieldByName('MJMaoZ').Value:=ADOQueryMain.Fieldbyname('MJMaoZ').AsFloat; - CDSMJID.FieldByName('MJQty3').Value:=ADOQueryMain.Fieldbyname('MJQty3').AsFloat; - CDSMJID.FieldByName('MJQty4').Value:=ADOQueryMain.Fieldbyname('MJQty4').AsFloat; - CDSMJID.FieldByName('MJTypeOther').Value:=trim(ADOQueryMain.Fieldbyname('MJTypeOther').AsString); - CDSMJID.FieldByName('mainID').Value:=trim(ADOQueryMain.Fieldbyname('mainID').AsString); - CDSMJID.FieldByName('subID').Value:=trim(ADOQueryMain.Fieldbyname('subID').AsString); - CDSMJID.Post; - Rolls:=Rolls+1; + CDSMJID.FieldByName('PRTCodeName').Value := trim(ADOQueryMain.Fieldbyname('PRTCodeName').AsString); + CDSMJID.FieldByName('MPRTCodeName').Value := trim(ADOQueryMain.Fieldbyname('MPRTCodeName').AsString); + CDSMJID.FieldByName('PRTColor').Value := trim(ADOQueryMain.Fieldbyname('PRTColor').AsString); + CDSMJID.FieldByName('PRTHX').Value := trim(ADOQueryMain.Fieldbyname('PRTHX').AsString); + CDSMJID.FieldByName('MJStr4').Value := trim(ADOQueryMain.Fieldbyname('MJStr4').AsString); + CDSMJID.FieldByName('MJType').Value := trim(ADOQueryMain.Fieldbyname('MJType').AsString); + CDSMJID.FieldByName('BaoNo').Value := trim(BaoNo.Text); + CDSMJID.FieldByName('BaoID').Value := trim(BaoID.Text); + CDSMJID.FieldByName('SOrdQty1').Value := 1; + CDSMJID.FieldByName('MJLen').Value := ADOQueryMain.Fieldbyname('MJLen').AsFloat; + CDSMJID.FieldByName('MJMaoZ').Value := ADOQueryMain.Fieldbyname('MJMaoZ').AsFloat; + CDSMJID.FieldByName('MJQty3').Value := ADOQueryMain.Fieldbyname('MJQty3').AsFloat; + CDSMJID.FieldByName('MJQty4').Value := ADOQueryMain.Fieldbyname('MJQty4').AsFloat; + CDSMJID.FieldByName('MJTypeOther').Value := trim(ADOQueryMain.Fieldbyname('MJTypeOther').AsString); + CDSMJID.FieldByName('mainID').Value := trim(ADOQueryMain.Fieldbyname('mainID').AsString); + CDSMJID.FieldByName('subID').Value := trim(ADOQueryMain.Fieldbyname('subID').AsString); + CDSMJID.Post; + Rolls := Rolls + 1; end; end else begin CDSMJID.Append; - CDSMJID.FieldByName('SDefNote').Value:='벻'; - CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.FieldByName('SDefNote').Value := '벻'; + CDSMJID.FieldByName('MJID').Value := trim(SmNO.Text); CDSMJID.Post; end; end; - IF trim(CDSMJID.FieldByName('SDefNote').AsString)<>'ɹ' then + if trim(CDSMJID.FieldByName('SDefNote').AsString) <> 'ɹ' then begin - MovePanel1.Visible:=true; - Edit2.Text:=SmNO.Text; - Label2.Caption:=trim(CDSMJID.FieldByName('SDefNote').AsString); - IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then - PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + MovePanel1.Visible := true; + Edit2.Text := SmNO.Text; + Label2.Caption := trim(CDSMJID.FieldByName('SDefNote').AsString); + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav'), 0, SND_ASYNC); CDSMJID.delete; end; - If CDSTM.Locate('MJID',trim(smno.Text),[]) then + if CDSTM.Locate('MJID', trim(smno.Text), []) then begin // application.MessageBox('AAAA','AAAAAAAA',0); CDSTM.Delete; tv2.Controller.EditingController.ShowEdit(); tv3.Controller.EditingController.ShowEdit(); end; - IF CheckBox1.Checked then + if CheckBox1.Checked = true then begin - IF (Rolls=strtointdef(trim(ComboBox3.Text),0)) and (strtointdef(trim(ComboBox3.Text),0)>0) then + if (Rolls = strtointdef(trim(ComboBox3.Text), 0)) and (strtointdef(trim(ComboBox3.Text), 0) > 0) then begin FileName.Click; end; @@ -485,17 +583,16 @@ end; procedure TfrmCPDBao.FormDestroy(Sender: TObject); begin - frmCPDBao:=nil; + frmCPDBao := nil; end; -procedure TfrmCPDBao.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmCPDBao.FormClose(Sender: TObject; var Action: TCloseAction); begin //writeCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); - writeCxGrid(self.Caption+Tv2.Name,Tv2,'Ʒֿ'); - writeCxGrid(self.Caption+Tv3.Name+'1',Tv3,'Ʒֿ'); - writeCxGrid(self.Caption+Tv4.Name,Tv4,'Ʒֿ'); - Action:=cafree; + writeCxGrid(self.Caption + Tv2.Name, Tv2, 'Ʒֿ'); + writeCxGrid(self.Caption + Tv3.Name + '1', Tv3, 'Ʒֿ'); + writeCxGrid(self.Caption + Tv4.Name, Tv4, 'Ʒֿ'); + Action := cafree; end; procedure TfrmCPDBao.TBCloseClick(Sender: TObject); @@ -505,19 +602,19 @@ end; procedure TfrmCPDBao.FormCreate(Sender: TObject); begin - Panel2.Align:=alClient; + Panel2.Align := alClient; //readCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); - readCxGrid(self.Caption+Tv2.Name,Tv2,'Ʒֿ'); - readCxGrid(self.Caption+Tv3.Name+'1',Tv3,'Ʒֿ'); - readCxGrid(self.Caption+Tv4.Name,Tv4,'Ʒֿ'); - Rolls:=0; + readCxGrid(self.Caption + Tv2.Name, Tv2, 'Ʒֿ'); + readCxGrid(self.Caption + Tv3.Name + '1', Tv3, 'Ʒֿ'); + readCxGrid(self.Caption + Tv4.Name, Tv4, 'Ʒֿ'); + Rolls := 0; end; procedure TfrmCPDBao.SmNOKeyPress(Sender: TObject; var Key: Char); begin - IF key=#13 then + if Key = #13 then begin - if combobox4.Text='ɫ' then + if combobox4.Text = 'ɫ' then begin with ADOQuery2 do begin @@ -526,50 +623,52 @@ begin sql.add('select B.PRTCOLOR,MaxBaoNo=isnull(max(cast(baoNo as int)),0)+1 '); sql.add('from WFB_MJJY A '); sql.add('inner join JYOrder_Sub B on A.SubId=B.SubId '); - sql.add('where A.MainId='+quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); - sql.add('and B.PRTColor=(select PRTColor from WFB_MJJY WM inner join JYOrder_Sub JS on WM.SubId=JS.SubId where WM.MJID='''+trim(smno.Text)+''')'); + sql.add('where A.MainId=' + quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); + sql.add('and B.PRTColor=(select PRTColor from WFB_MJJY WM inner join JYOrder_Sub JS on WM.SubId=JS.SubId where WM.MJID=''' + trim(smno.Text) + ''')'); open; end; - if cdsmjid.IsEmpty=false then + if cdsmjid.IsEmpty = false then begin - if self.ADOQuery2.FieldByName('prtcolor').asstring<>cdsmjid.FieldByName('prtcolor').AsString then + if self.ADOQuery2.FieldByName('prtcolor').asstring <> cdsmjid.FieldByName('prtcolor').AsString then begin - MovePanel1.Visible:=true; - Edit2.Text:=SmNO.Text; - Label2.Caption:='ɫܴͬ'; - smno.Text:=''; + MovePanel1.Visible := true; + Edit2.Text := SmNO.Text; + Label2.Caption := 'ɫܴͬ'; + smno.Text := ''; smno.SetFocus; exit; end; end; - baoNo.text:=ADOQuery2.fieldbyname('MaxBaoNo').AsString; + baoNo.text := ADOQuery2.fieldbyname('MaxBaoNo').AsString; end; - if trim(BaoNo.Text)='' then + if trim(BaoNo.Text) = '' then begin - application.MessageBox('ŲΪ','ʾ'); + application.MessageBox('ŲΪ', 'ʾ'); exit; end; - if trim(BaoID.Text)='' then + if trim(BaoID.Text) = '' then begin - application.MessageBox('벻Ϊ','ʾ'); + application.MessageBox('벻Ϊ', 'ʾ'); exit; end; - IF CDSTM.IsEmpty then exit; - if trim(smno.Text)='' then exit; - IF CDSMJID.Locate('MJID',trim(smno.Text),[]) then + if CDSTM.IsEmpty then + exit; + if trim(smno.Text) = '' then + exit; + if CDSMJID.Locate('MJID', trim(smno.Text), []) then begin - MovePanel1.Visible:=true; - Edit2.Text:=SmNO.Text; - Label2.Caption:='˾ظɨ裡'; - IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ظɨ.wav')) then - PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ظɨ.wav'),0, SND_ASYNC); - smno.Text:=''; + MovePanel1.Visible := true; + Edit2.Text := SmNO.Text; + Label2.Caption := '˾ظɨ裡'; + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ظɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ظɨ.wav'), 0, SND_ASYNC); + smno.Text := ''; smno.SetFocus; exit; end; - If not CDSTM.Locate('MJID',trim(smno.Text),[]) then + if not CDSTM.Locate('MJID', trim(smno.Text), []) then begin with ADOQuery1 do begin @@ -578,41 +677,41 @@ begin SQL.Add('select A.*,B.*,C.MprtCodeName,C.OrderNO as orderNoM from WFB_MJJY A '); sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId'); sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID'); - sql.Add('where MJID='+quotedstr(trim(SmNO.Text))); + sql.Add('where MJID=' + quotedstr(trim(SmNO.Text))); Open; - IF isempty then + if isempty then begin - MovePanel1.Visible:=true; - Edit2.Text:=SmNO.Text; - Label2.Caption:='˾Ŵ'; - IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav')) then - PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav'),0, SND_ASYNC); + MovePanel1.Visible := true; + Edit2.Text := SmNO.Text; + Label2.Caption := '˾Ŵ'; + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɨ.wav'), 0, SND_ASYNC); end else begin - If not CDSTM.Locate('orderNoM',trim(fieldbyname('OrderNoM').AsString),[]) then + if not CDSTM.Locate('orderNoM', trim(fieldbyname('OrderNoM').AsString), []) then begin - MovePanel1.Visible:=true; - Edit2.Text:=SmNO.Text; - Label2.Caption:='˾ڵǰ'; - IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav')) then - PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav'),0, SND_ASYNC); + MovePanel1.Visible := true; + Edit2.Text := SmNO.Text; + Label2.Caption := '˾ڵǰ'; + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɨ.wav'), 0, SND_ASYNC); end else begin - IF Fieldbyname('MJstr2').AsString<>'δ' then + if Fieldbyname('MJstr2').AsString <> 'δ' then begin - MovePanel1.Visible:=true; - Edit2.Text:=SmNO.Text; - Label2.Caption:=fieldbyname('Mjstr2').AsString; + MovePanel1.Visible := true; + Edit2.Text := SmNO.Text; + Label2.Caption := fieldbyname('Mjstr2').AsString; end else begin - if self.ADOQuery1.FieldByName('baoid').AsString<>'' then + if self.ADOQuery1.FieldByName('baoid').AsString <> '' then begin - MovePanel1.Visible:=true; - Edit2.Text:=SmNO.Text; - Label2.Caption:='˾Ѵ'; + MovePanel1.Visible := true; + Edit2.Text := SmNO.Text; + Label2.Caption := '˾Ѵ'; end else begin @@ -623,7 +722,7 @@ begin end; end; end; - smno.Text:=''; + smno.Text := ''; smno.SetFocus; exit; end @@ -631,44 +730,42 @@ begin begin initMJID(); end; - smno.Text:=''; + smno.Text := ''; smno.SetFocus; end; end; procedure TfrmCPDBao.FormShow(Sender: TObject); begin - MovePanel1.Left:=(Width-MovePanel1.Width) div 2; - MovePanel1.top:=(Height-MovePanel1.Height-200) div 2; + MovePanel1.Left := (Width - MovePanel1.Width) div 2; + MovePanel1.top := (Height - MovePanel1.Height - 200) div 2; // InitGrid(); end; -procedure TfrmCPDBao.TV2CustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); +procedure TfrmCPDBao.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); var - i:integer; + i: integer; begin - i:=tv2.GetColumnByFieldName('SDefNote').Index; - if (AViewInfo.GridRecord.Values[i]<>'ɹ') then - ACanvas.Brush.Color:=clred; + i := tv2.GetColumnByFieldName('SDefNote').Index; + if (AViewInfo.GridRecord.Values[i] <> 'ɹ') then + ACanvas.Brush.Color := clred; end; procedure TfrmCPDBao.kcKwBtnClick(Sender: TObject); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='CPKWFlag'; - flagname:='λϢ'; - V1Name.Caption:='λ'; - V1Note.Caption:='Ӣ'; + flag := 'CPKWFlag'; + flagname := 'λϢ'; + V1Name.Caption := 'λ'; + V1Note.Caption := 'Ӣ'; // MainType:=Trim(DName); - fnote:=FALSE; - if ShowModal=1 then + fnote := FALSE; + if ShowModal = 1 then begin - kcKw.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + kcKw.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); end; end; finally @@ -678,19 +775,20 @@ end; procedure TfrmCPDBao.Button4Click(Sender: TObject); begin - MovePanel1.Visible:=False; + MovePanel1.Visible := False; SmNO.SetFocus; end; procedure TfrmCPDBao.baoNoKeyPress(Sender: TObject; var Key: Char); -var FBaoID: string; +var + FBaoID: string; begin end; procedure TfrmCPDBao.baoNoClick(Sender: TObject); var - i:Integer; + i: Integer; begin // Panel3.Visible:=True; { with Panel3 do @@ -707,56 +805,61 @@ end; procedure TfrmCPDBao.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 TfrmCPDBao.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 TfrmCPDBao.SpeedButton49Click(Sender: TObject); var - FBaoID:string; + FBaoID: string; begin - IF trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Hint)<>'' then + if trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Hint) <> '' then begin - if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then + if GetLSNo(ADOQueryTmp, FBaoID, 'BI', 'WFB_MJJY', 4, 1) = False then begin ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧܣ','ʾ',0); + Application.MessageBox('ȡʧܣ', 'ʾ', 0); Exit; end; - BaoID.Text:=trim(FBaoid); + BaoID.Text := trim(FBaoID); end; - Panel3.Visible:=False; + Panel3.Visible := False; end; procedure TfrmCPDBao.FileNameClick(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 trim(BaoID.Text)='' then + if trim(BaoID.Text) = '' then begin - application.MessageBox('벻δ','ʾ'); + application.MessageBox('벻δ', 'ʾ'); exit; end; - IF CDSMJID.IsEmpty then exit; + if CDSMJID.IsEmpty then + exit; with ADOQueryPrint do begin @@ -765,20 +868,20 @@ begin sql.Add(' SELECT D.LBName,D.NLBName'); sql.Add(' from WFB_MJJY A'); sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); - SQL.Add('where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + SQL.Add('where MJID=''' + Trim(CDSMJID.fieldbyname('MJID').AsString) + ''''); Open; - IF not ADOQueryPrint.IsEmpty then + if not ADOQueryPrint.IsEmpty then begin - if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)='' then + if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) = '' then begin - application.MessageBox('ûðǩܴ','ʾϢ',0); + application.MessageBox('ûðǩܴ', 'ʾϢ', 0); exit; end; end; end; ADOQueryCmd.Connection.BeginTrans; try - with CDSMJID do + with CDSMJID do begin DisableControls; first; @@ -788,26 +891,26 @@ begin begin Close; sql.Clear; - sql.Add('Update WFB_MJJY Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + sql.Add('Update WFB_MJJY Set BaoNo=''' + trim(BaoNo.Text) + ''',BaoID=''' + trim(Baoid.text) + ''' where MJID=''' + Trim(CDSMJID.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; edit; - fieldByName('Sflag').AsString :='2'; - fieldbyname('BaoNo').Value:=trim(BaoNo.Text); - fieldbyname('BaoID').Value:=trim(BaoID.Text); + fieldByName('Sflag').AsString := '2'; + fieldbyname('BaoNo').Value := trim(BaoNo.Text); + fieldbyname('BaoID').Value := trim(BaoID.Text); post; next; end; EnableControls; end; ADOQueryCmd.Connection.CommitTrans; - IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav')) then - PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav'),0, SND_ASYNC); + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ȷ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ȷ.wav'), 0, SND_ASYNC); except ADOQueryCmd.Connection.RollbackTrans; - IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then - PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); - application.MessageBox('޸ʧܣ','ʾϢ',0); + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav'), 0, SND_ASYNC); + application.MessageBox('޸ʧܣ', 'ʾϢ', 0); exit; end; @@ -833,92 +936,93 @@ 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(BaoID.Text)+''''); + SQL.Add('where A.BaoID=''' + Trim(BaoID.Text) + ''''); 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); - IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then - PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + Application.MessageBox('´!', 'ʾ', 0); + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav'), 0, SND_ASYNC); Exit; end; - if ADOQueryPrint.RecordCount<1 then + if ADOQueryPrint.RecordCount < 1 then begin - Application.MessageBox('˰Żδ棬뱣ݣڴӡ룡','ʾ',0); - IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then - PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + Application.MessageBox('˰Żδ棬뱣ݣڴӡ룡', 'ʾ', 0); + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav'), 0, SND_ASYNC); 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; - baoNo.Text:=inttostr(strtointdef(trim(baoNo.Text),0)+1); - if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then - begin - ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧܣ','ʾ',0); - Exit; - end; - BaoID.Text:=trim(FBaoid); - CDSsel.Last; - with CDSMJID do - begin - DisableControls; - first; - while not eof do - begin - CDSsel.Append; - for i:=0 to FieldCount-1 do - begin - CDSsel.fields[i].value:=Fields[i].Value ; - end; - CDSsel.Post; - next; - end; - EnableControls; - end; - CDSMJID.EmptyDataSet; - - IF check_bz.Checked then + baoNo.Text := inttostr(strtointdef(trim(baoNo.Text), 0) + 1); + if GetLSNo(ADOQueryTmp, FBaoID, 'BI', 'WFB_MJJY', 4, 1) = False then begin - 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 + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + BaoID.Text := trim(FBaoID); + CDSsel.Last; + with CDSMJID do + begin + DisableControls; + first; + while not eof do begin - Application.MessageBox(PChar('û'+fPrintFile),'ʾ',0); + CDSsel.Append; + for i := 0 to FieldCount - 1 do + begin + CDSsel.fields[i].value := Fields[i].Value; + end; + CDSsel.Post; + next; + end; + EnableControls; + end; + CDSMJID.EmptyDataSet; + + if check_bz.Checked then + begin + if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) + '.rmf'// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) + else +// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ǩ.rmf'; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ǩ'; + if not FileExists(fPrintFile) then + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); Exit; end; if FileExists(fPrintFile) then begin - RMVariables['QRBARCODE']:=fImagePath; + RMVariables['QRBARCODE'] := fImagePath; RM2.LoadFromFile(fPrintFile); - RM2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1); + RM2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1); //RM2.ShowReport; RM2.printReport; - end; + end; end; - Rolls:=0; + Rolls := 0; SmNO.SetFocus; { IF check_Fbz.Checked then @@ -949,56 +1053,57 @@ end; procedure TfrmCPDBao.baoNoExit(Sender: TObject); var - FBaoID:string; + FBaoID: string; begin - IF baoNo.Text<>'' then - begin - if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then + if baoNo.Text <> '' then + begin + if GetLSNo(ADOQueryTmp, FBaoID, 'BI', 'WFB_MJJY', 4, 1) = False then begin ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧܣ','ʾ',0); + Application.MessageBox('ȡʧܣ', 'ʾ', 0); Exit; end; - BaoID.Text:=trim(FBaoid); - end - else - BaoID.Text:=''; + BaoID.Text := trim(FBaoID); + end + else + BaoID.Text := ''; end; procedure TfrmCPDBao.BtnEditA1BtnClick(Sender: TObject); begin - frmOrderSelRK:=TfrmOrderSelRK.Create(Application); - with frmOrderSelRK do + frmOrderSelRK := TfrmOrderSelRK.Create(Application); + with frmOrderSelRK do + begin + if ShowModal = 1 then begin - if ShowModal=1 then + CDS_OrderSel.DisableControls; + with CDS_OrderSel do begin - CDS_OrderSel.DisableControls; - with CDS_OrderSel do + First; + while not Eof do begin - First; - while not Eof do + if FieldByName('SSel').Value = True then begin - if FieldByName('SSel').Value=True then - begin - BtnEditA1.Text:=trim(CDS_OrderSel.fieldbyname('OrderNo').asstring); - end; - Next; + BtnEditA1.Text := trim(CDS_OrderSel.fieldbyname('OrderNo').asstring); end; + Next; end; - CDS_OrderSel.EnableControls; end; + CDS_OrderSel.EnableControls; end; + end; QueryTm(); end; procedure TfrmCPDBao.cxButton3Click(Sender: TObject); var - i:integer; + i: integer; begin - IF CDSMJID.IsEmpty then exit; - IF CDSMJID.fieldByName('Sflag').AsString='2' then + if CDSMJID.IsEmpty then + exit; + if CDSMJID.fieldByName('Sflag').AsString = '2' then begin - application.MessageBox('Ѵɾ','ʾϢ',0); + application.MessageBox('Ѵɾ', 'ʾϢ', 0); exit; end else @@ -1007,23 +1112,25 @@ begin begin CDSTM.Last; - CDSTM.Append; - for i:=0 to FieldCount-1 do - begin - CDSTM.fields[i].value:=Fields[i].Value ; - end; - CDSTM.Post; + CDSTM.Append; + for i := 0 to FieldCount - 1 do + begin + CDSTM.fields[i].value := Fields[i].Value; + end; + CDSTM.Post; end; CDSMJID.Delete; + Rolls := Rolls - 1; end; end; procedure TfrmCPDBao.cxButton2Click(Sender: TObject); begin - IF CDSMJID.IsEmpty then exit; + if CDSMJID.IsEmpty then + exit; ADOQueryCmd.Connection.BeginTrans; try - with CDSMJID do + with CDSMJID do begin DisableControls; first; @@ -1033,13 +1140,13 @@ begin begin Close; sql.Clear; - sql.Add('Update WFB_MJJY Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + sql.Add('Update WFB_MJJY Set BaoNo=''' + trim(BaoNo.Text) + ''',BaoID=''' + trim(Baoid.text) + ''' where MJID=''' + Trim(CDSMJID.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; edit; - fieldByName('Sflag').AsString :='2'; - fieldbyname('BaoNo').Value:=trim(BaoNo.Text); - fieldbyname('BaoID').Value:=trim(BaoID.Text); + fieldByName('Sflag').AsString := '2'; + fieldbyname('BaoNo').Value := trim(BaoNo.Text); + fieldbyname('BaoID').Value := trim(BaoID.Text); post; next; end; @@ -1049,18 +1156,20 @@ begin // application.MessageBox('޸ijɹ','ʾϢ',0); except ADOQueryCmd.Connection.RollbackTrans; - application.MessageBox('޸ʧܣ','ʾϢ',0); + application.MessageBox('޸ʧܣ', 'ʾϢ', 0); end; end; procedure TfrmCPDBao.cxButton4Click(Sender: TObject); var - FBaoid:string; + FBaoid: string; begin - if CDSSEL.IsEmpty then Exit; - if CDSSEL.Locate('SSel',True,[])=False then + + if CDSSEL.IsEmpty then + Exit; + if CDSSEL.Locate('SSel', True, []) = False then begin - Application.MessageBox('ûѡ!','ʾ',0); + Application.MessageBox('ûѡ!', 'ʾ', 0); Exit; end; try @@ -1068,78 +1177,152 @@ begin // ADOQueryCmd.Connection.BeginTrans; with CDSSEL do begin - First; - while FieldByName('SSel').AsBoolean do + // First; + while CDSSEL.Locate('SSel', True, []) do begin with ADOQueryCmd do begin Close; sql.Clear; sql.Add('Update WFB_MJJY Set baoID='''',baoNo='''' '); - sql.Add('where MJID='''+Trim(CDSSEL.fieldbyname('MJID').AsString)+''''); + sql.Add('where MJID=''' + Trim(CDSSEL.fieldbyname('MJID').AsString) + ''''); ExecSQL; end; delete; + end; + end; // ADOQueryCmd.Connection.CommitTrans; CDSSEL.EnableControls; - application.MessageBox('ݳɹ','ʾϢ'); + application.MessageBox('ݳɹ', 'ʾϢ'); - with ADOQueryTM do - begin - close; - sql.Clear; - sql.Add('select A.*,B.*,C.MPrtCodeName,C.orderNo as OrderNoM'); - sql.Add('from WFB_MJJY A '); - sql.Add('inner join JYOrder_sub B on B.subID=A.subID '); - sql.Add('inner join JYOrder_main C on C.mainID=A.MainID '); - sql.Add('and A.mjstr2=''δ'' and C.orderNo='+quotedstr(trim(BtnEditA1.Text))); - open; - end; - SCreateCDS20(ADOQueryTM,CDSTM); - SInitCDSData20(ADOQueryTM,CDSTM); - - IF not CDSTM.IsEmpty then - begin - with ADOQuery1 do + with ADOQueryTM do begin close; - sql.clear; - sql.add('select isnull(max(cast(baoNo as int)),0)+1 as MaxBaoNo from WFB_MJJY '); - sql.Add('where mainID='+quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); + sql.Clear; + sql.Add('select A.*,B.*,C.MPrtCodeName,C.orderNo as OrderNoM'); + sql.Add('from WFB_MJJY A '); + sql.Add('inner join JYOrder_sub B on B.subID=A.subID '); + sql.Add('inner join JYOrder_main C on C.mainID=A.MainID '); + sql.Add(' and A.mjstr2=''δ'' and C.orderNo=' + quotedstr(trim(BtnEditA1.Text))); open; end; - baoNo.text:=ADOQuery1.fieldbyname('MaxBaoNo').AsString; - if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then - begin - ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧܣ','ʾ',0); - Exit; - end; - BaoID.Text:=trim(FBaoid); - end; + SCreateCDS20(ADOQueryTM, CDSTM); + SInitCDSData20(ADOQueryTM, CDSTM); - SMNO.SetFocus; + if not CDSTM.IsEmpty then + begin + with ADOQuery1 do + begin + close; + sql.clear; + sql.add('select isnull(max(cast(baoNo as int)),0)+1 as MaxBaoNo from WFB_MJJY '); + sql.Add('where mainID=' + quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); + open; + end; + baoNo.text := ADOQuery1.fieldbyname('MaxBaoNo').AsString; + if GetLSNo(ADOQueryTmp, FBaoid, 'BI', 'WFB_MJJY', 4, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + BaoID.Text := trim(FBaoid); + end; + + SMNO.SetFocus; + cxButton5.Click; exit; except // ADOQueryCmd.Connection.RollbackTrans; CDSSEL.EnableControls; - application.MessageBox('ݳʧܣ','ʾϢ',0); + application.MessageBox('ݳʧܣ', 'ʾϢ', 0); end; +// if CDSSEL.IsEmpty then +// Exit; +// if CDSSEL.Locate('SSel', True, []) = False then +// begin +// Application.MessageBox('ûѡ!', 'ʾ', 0); +// Exit; +// end; +// try +// CDSSEL.DisableControls; +// // ADOQueryCmd.Connection.BeginTrans; +// with CDSSEL do +// begin +// First; +// while FieldByName('SSel').AsBoolean do +// begin +// with ADOQueryCmd do +// begin +// Close; +// sql.Clear; +// sql.Add('Update WFB_MJJY Set baoID='''',baoNo='''' '); +// sql.Add('where MJID=''' + Trim(CDSSEL.fieldbyname('MJID').AsString) + ''''); +// ExecSQL; +// end; +// delete; +// end; +// end; +// // ADOQueryCmd.Connection.CommitTrans; +// CDSSEL.EnableControls; +// application.MessageBox('ݳɹ', 'ʾϢ'); +// +// with ADOQueryTM do +// begin +// close; +// sql.Clear; +// sql.Add('select A.*,B.*,C.MPrtCodeName,C.orderNo as OrderNoM'); +// sql.Add('from WFB_MJJY A '); +// sql.Add('inner join JYOrder_sub B on B.subID=A.subID '); +// sql.Add('inner join JYOrder_main C on C.mainID=A.MainID '); +// sql.Add('and A.mjstr2=''δ'' and C.orderNo=' + quotedstr(trim(BtnEditA1.Text))); +// open; +// end; +// SCreateCDS20(ADOQueryTM, CDSTM); +// SInitCDSData20(ADOQueryTM, CDSTM); +// +// if not CDSTM.IsEmpty then +// begin +// with ADOQuery1 do +// begin +// close; +// sql.clear; +// sql.add('select isnull(max(cast(baoNo as int)),0)+1 as MaxBaoNo from WFB_MJJY '); +// sql.Add('where mainID=' + quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); +// open; +// end; +// baoNo.text := ADOQuery1.fieldbyname('MaxBaoNo').AsString; +// if GetLSNo(ADOQueryTmp, FBaoid, 'BI', 'WFB_MJJY', 4, 1) = False then +// begin +// ADOQueryCmd.Connection.RollbackTrans; +// Application.MessageBox('ȡʧܣ', 'ʾ', 0); +// Exit; +// end; +// BaoID.Text := trim(FBaoid); +// end; +// +// SMNO.SetFocus; +// exit; +// except +// // ADOQueryCmd.Connection.RollbackTrans; +// CDSSEL.EnableControls; +// application.MessageBox('ݳʧܣ', 'ʾϢ', 0); +// end; end; procedure TfrmCPDBao.FbqBtnClick(Sender: TObject); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='BAOFFLAG'; - flagname:='ǩ'; - if ShowModal=1 then + flag := 'BAOFFLAG'; + flagname := 'ǩ'; + if ShowModal = 1 then begin - Fbq.Text:=trim(ClientDataSet1.fieldbyname('zdyName').AsString); + Fbq.Text := trim(ClientDataSet1.fieldbyname('zdyName').AsString); end; end; finally @@ -1149,20 +1332,15 @@ end; procedure TfrmCPDBao.BaoBqBtnClick(Sender: TObject); type - TMyFunc = function(App:Tapplication; FormH:hwnd; FormID:integer; - Language: integer; WinStyle:integer; - GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar; - Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar; - Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar; - Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;stdcall; + TMyFunc = function(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; stdcall; var Tf: TMyFunc; Tp: TFarProc; - Th:Thandle; - LabInt,labname:String; + Th: Thandle; + LabInt, labname: string; begin //if PPInt=2 then Exit; - Ddatabase:=StringOfChar(' ', 32); + Ddatabase := StringOfChar(' ', 32); Th := LoadLibrary('LabelSet.dll'); if Th > 0 then begin @@ -1171,21 +1349,13 @@ begin if Tp <> nil then begin Tf := TMyFunc(Tp); - newh:=Tf(Application,0,2,0,0, - PChar(DCode), - PChar(DName), - PChar(Ddatabase), - PChar('ǩģ'), - PChar(''), - PChar(''), - '','','','','','','','',PChar(DConString) - ); - if Trim(PChar(Ddatabase))<>'' then - begin - Ddatabase:=Trim(PChar(Ddatabase)); + newh := Tf(Application, 0, 2, 0, 0, PChar(DCode), PChar(DName), PChar(Ddatabase), PChar('ǩģ'), PChar(''), PChar(''), '', '', '', '', '', '', '', '', PChar(DConString)); + if Trim(PChar(Ddatabase)) <> '' then + begin + Ddatabase := Trim(PChar(Ddatabase)); // LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ; - BaoBq.Text:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) ); - end; + BaoBq.Text := Trim(RightBStr(Ddatabase, Length(Ddatabase) - Pos('|', Ddatabase))); + end; end else begin @@ -1197,7 +1367,7 @@ begin end else begin - ShowMessage('Ҳ'+Trim('LabelSet.dll')); + ShowMessage('Ҳ' + Trim('LabelSet.dll')); end; end; @@ -1209,15 +1379,16 @@ end; procedure TfrmCPDBao.cxButton6Click(Sender: TObject); begin - IF CDSTM.IsEmpty then exit; - if trim(BaoNo.Text)='' then + if CDSTM.IsEmpty then + exit; + if trim(BaoNo.Text) = '' then begin - application.MessageBox('ŲΪ','ʾ'); + application.MessageBox('ŲΪ', 'ʾ'); exit; end; - if trim(BaoID.Text)='' then + if trim(BaoID.Text) = '' then begin - application.MessageBox('벻Ϊ','ʾ'); + application.MessageBox('벻Ϊ', 'ʾ'); exit; end; @@ -1225,19 +1396,19 @@ begin begin DisableControls; // first; - while Locate('ssel',true,[]) do + while Locate('ssel', true, []) do begin - if combobox4.Text='ɫ' then + if combobox4.Text = 'ɫ' then begin - if cdsmjid.IsEmpty=false then + if cdsmjid.IsEmpty = false then begin - if cdstm.FieldByName('PRTCOLOR').AsString<>cdsmjid.FieldByName('prtcolor').AsString then + if cdstm.FieldByName('PRTCOLOR').AsString <> cdsmjid.FieldByName('prtcolor').AsString then begin - MovePanel1.Visible:=true; - Edit2.Text:=SmNO.Text; - Label2.Caption:='ɫܴͬ'; - label2.Font.Size:=36; - smno.Text:=''; + MovePanel1.Visible := true; + Edit2.Text := SmNO.Text; + Label2.Caption := 'ɫܴͬ'; + label2.Font.Size := 36; + smno.Text := ''; smno.SetFocus; EnableControls; exit; @@ -1250,44 +1421,44 @@ begin sql.add('select MaxBaoNo=isnull(max(cast(baoNo as int)),0)+1 '); sql.add('from WFB_MJJY A '); sql.add('inner join JYOrder_Sub B on A.SubId=B.SubId '); - sql.add('where A.MainId='+quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); - sql.add('and B.PRTColor=(select PRTColor from WFB_MJJY WM inner join JYOrder_Sub JS on WM.SubId=JS.SubId where WM.MJID='''+trim(self.CDSTM.fieldbyname('mjid').AsString)+''')'); + sql.add('where A.MainId=' + quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); + sql.add('and B.PRTColor=(select PRTColor from WFB_MJJY WM inner join JYOrder_Sub JS on WM.SubId=JS.SubId where WM.MJID=''' + trim(self.CDSTM.fieldbyname('mjid').AsString) + ''')'); // showmessage(sql.Text); open; end; - baoNo.text:=ADOQuery2.fieldbyname('MaxBaoNo').AsString; + baoNo.text := ADOQuery2.fieldbyname('MaxBaoNo').AsString; end; - - IF CDSMJID.Locate('MJID',trim(CDSTM.fieldbyname('MJID').AsString),[]) then + + if CDSMJID.Locate('MJID', trim(CDSTM.fieldbyname('MJID').AsString), []) then begin - MovePanel1.Visible:=true; - Edit2.Text:=SmNO.Text; - Label2.Caption:='˾ظɨ裡'; - smno.Text:=''; + MovePanel1.Visible := true; + Edit2.Text := SmNO.Text; + Label2.Caption := '˾ظɨ裡'; + smno.Text := ''; smno.SetFocus; EnableControls; exit; end; CDSMJID.Append; - CDSMJID.FieldByName('SDefNote').Value:='ɹ'; - CDSMJID.FieldByName('MJID').Value:=trim(Fieldbyname('MJID').AsString); + CDSMJID.FieldByName('SDefNote').Value := 'ɹ'; + CDSMJID.FieldByName('MJID').Value := trim(Fieldbyname('MJID').AsString); // CDSMJID.FieldByName('CRID').Value:=trim(ADOQueryMain.Fieldbyname('CRID').AsString); - CDSMJID.FieldByName('PRTCodeName').Value:=trim(Fieldbyname('PRTCodeName').AsString); - CDSMJID.FieldByName('MPRTCodeName').Value:=trim(Fieldbyname('MPRTCodeName').AsString); - CDSMJID.FieldByName('PRTColor').Value:=trim(Fieldbyname('PRTColor').AsString); - CDSMJID.FieldByName('PRTHX').Value:=trim(Fieldbyname('PRTHX').AsString); - CDSMJID.FieldByName('MJStr4').Value:=trim(Fieldbyname('MJStr4').AsString); - CDSMJID.FieldByName('MJType').Value:=trim(Fieldbyname('MJType').AsString); - CDSMJID.FieldByName('BaoNo').Value:=trim(BaoNo.Text); - CDSMJID.FieldByName('BaoID').Value:=trim(BaoID.Text); - CDSMJID.FieldByName('SOrdQty1').Value:=1; - CDSMJID.FieldByName('MJLen').Value:=Fieldbyname('MJLen').AsFloat; - CDSMJID.FieldByName('MJMaoZ').Value:=Fieldbyname('MJMaoZ').AsFloat; - CDSMJID.FieldByName('MJQty3').Value:=Fieldbyname('MJQty3').AsFloat; - CDSMJID.FieldByName('MJQty4').Value:=Fieldbyname('MJQty4').AsFloat; - CDSMJID.FieldByName('MJTypeOther').Value:=trim(Fieldbyname('MJTypeOther').AsString); - CDSMJID.FieldByName('mainID').Value:=trim(Fieldbyname('mainID').AsString); - CDSMJID.FieldByName('subID').Value:=trim(Fieldbyname('subID').AsString); + CDSMJID.FieldByName('PRTCodeName').Value := trim(Fieldbyname('PRTCodeName').AsString); + CDSMJID.FieldByName('MPRTCodeName').Value := trim(Fieldbyname('MPRTCodeName').AsString); + CDSMJID.FieldByName('PRTColor').Value := trim(Fieldbyname('PRTColor').AsString); + CDSMJID.FieldByName('PRTHX').Value := trim(Fieldbyname('PRTHX').AsString); + CDSMJID.FieldByName('MJStr4').Value := trim(Fieldbyname('MJStr4').AsString); + CDSMJID.FieldByName('MJType').Value := trim(Fieldbyname('MJType').AsString); + CDSMJID.FieldByName('BaoNo').Value := trim(BaoNo.Text); + CDSMJID.FieldByName('BaoID').Value := trim(BaoID.Text); + CDSMJID.FieldByName('SOrdQty1').Value := 1; + CDSMJID.FieldByName('MJLen').Value := Fieldbyname('MJLen').AsFloat; + CDSMJID.FieldByName('MJMaoZ').Value := Fieldbyname('MJMaoZ').AsFloat; + CDSMJID.FieldByName('MJQty3').Value := Fieldbyname('MJQty3').AsFloat; + CDSMJID.FieldByName('MJQty4').Value := Fieldbyname('MJQty4').AsFloat; + CDSMJID.FieldByName('MJTypeOther').Value := trim(Fieldbyname('MJTypeOther').AsString); + CDSMJID.FieldByName('mainID').Value := trim(Fieldbyname('mainID').AsString); + CDSMJID.FieldByName('subID').Value := trim(Fieldbyname('subID').AsString); CDSMJID.Post; CDSTM.Delete; @@ -1301,9 +1472,129 @@ end; procedure TfrmCPDBao.cxButton7Click(Sender: TObject); begin - SDofilter(ADOQueryTM,SGetFilters(Panel5,1,2)); - SCreateCDS20(ADOQueryTM,CDSTM); - SInitCDSData20(ADOQueryTM,CDSTM); + SDofilter(ADOQueryTM, SGetFilters(Panel5, 1, 2)); + SCreateCDS20(ADOQueryTM, CDSTM); + SInitCDSData20(ADOQueryTM, CDSTM); +end; + +procedure TfrmCPDBao.N1Click(Sender: TObject); +begin + SelOKNoFiler(Tv4, True); +end; + +procedure TfrmCPDBao.N2Click(Sender: TObject); +begin + SelOKNoFiler(Tv4, False); +end; + +procedure TfrmCPDBao.cxButton8Click(Sender: TObject); +var + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; + FBaoID: string; + i: Integer; +begin + + if CDSSEL.IsEmpty then + exit; + + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add(' SELECT D.LBName,D.NLBName'); + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); + SQL.Add('where MJID=''' + Trim(CDSSEL.fieldbyname('MJID').AsString) + ''''); + Open; + if not ADOQueryPrint.IsEmpty then + begin + if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) = '' then + begin + application.MessageBox('ûðǩܴ', 'ʾϢ', 0); + exit; + end; + end; + end; + + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,'); + sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),'); + sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), '); + sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), '); + sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), '); + sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); + sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); + sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), '); + SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); + 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(CDSSEL.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 + begin + Application.MessageBox('´!', 'ʾ', 0); + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav'), 0, SND_ASYNC); + Exit; + end; + if ADOQueryPrint.RecordCount < 1 then + begin + Application.MessageBox('˰Żδ棬뱣ݣڴӡ룡', 'ʾ', 0); + if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\.wav'), 0, SND_ASYNC); + 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); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + exit; + end; + + if check_bz.Checked then + begin + if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) + '.rmf' // fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) + else + 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 := strtointdef(trim(ComboBox1.Text), 1); + //RM2.ShowReport; + RM2.printReport; + end; + end; + end; end. + diff --git a/检验管理/U_CPDBAO_S.dfm b/检验管理/U_CPDBAO_S.dfm new file mode 100644 index 0000000..4c1c3da --- /dev/null +++ b/检验管理/U_CPDBAO_S.dfm @@ -0,0 +1,1652 @@ +object frmCPDBao_S: TfrmCPDBao_S + Left = 613 + Top = 315 + Width = 1382 + Height = 753 + VertScrollBar.Position = 2 + Caption = #25171#21253#31383#21475 + Color = clBtnFace + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = False + WindowState = wsMaximized + OnClose = FormClose + OnCreate = FormCreate + OnDestroy = FormDestroy + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = -2 + Width = 1533 + Height = 33 + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clSkyBlue + EdgeInner = esNone + EdgeOuter = esNone + Flat = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TradeManage.ThreeImgList + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + Visible = False + object TBClose: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 55 + OnClick = TBCloseClick + end + end + object Panel1: TPanel + Left = 0 + Top = 31 + Width = 1533 + Height = 76 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 1 + object Label16: TLabel + Left = 420 + Top = 88 + Width = 48 + Height = 12 + Caption = #36135#36816#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label15: TLabel + Left = 40 + Top = 84 + Width = 48 + Height = 12 + Caption = #37197#36135#20154#21592 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label14: TLabel + Left = 234 + Top = 80 + Width = 24 + Height = 12 + Caption = #21253#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + Visible = False + end + object Label1: TLabel + Left = 32 + Top = 14 + Width = 100 + Height = 24 + Caption = #26465#30721#32534#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label5: TLabel + Left = 1168 + Top = 85 + Width = 50 + Height = 24 + Caption = #24211#20301 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label3: TLabel + Left = 327 + Top = 14 + Width = 50 + Height = 24 + Caption = #21253#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 473 + Top = 14 + Width = 75 + Height = 24 + Caption = #21253#26465#30721 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object PHYG: TBtnEditA + Left = 92 + Top = 84 + Width = 100 + Height = 20 + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + TabOrder = 1 + Visible = False + end + object defstr2: TComboBox + Left = 472 + Top = 84 + Width = 101 + Height = 20 + Style = csDropDownList + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Pitch = fpFixed + Font.Style = [] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ItemHeight = 12 + ItemIndex = 0 + ParentFont = False + TabOrder = 2 + Visible = False + Items.Strings = ( + '' + #24555#20214 + #24930#20214) + end + object packNo: TcxCurrencyEdit + Left = 262 + Top = 76 + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '0' + TabOrder = 3 + Visible = False + Width = 100 + end + object SmNO: TEdit + Left = 136 + Top = 10 + Width = 165 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clBlue + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 0 + OnKeyPress = SmNOKeyPress + end + object kcKw: TBtnEditA + Left = 1228 + Top = 81 + Width = 89 + Height = 33 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 4 + Visible = False + OnBtnClick = kcKwBtnClick + end + object baoNo: TEdit + Left = 383 + Top = 10 + Width = 66 + Height = 32 + Hint = 'baoNo' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 5 + OnClick = baoNoClick + OnExit = baoNoExit + OnKeyPress = baoNoKeyPress + end + object BaoID: TEdit + Left = 550 + Top = 10 + Width = 170 + Height = 32 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + TabOrder = 6 + OnClick = baoNoClick + end + object FileName: TcxButton + Left = 984 + Top = 8 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #25171#21360#21253#26631#31614 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = FileNameClick + LookAndFeel.Kind = lfOffice11 + end + object cxButton1: TcxButton + Left = 1068 + Top = 8 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #20851#38381 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnClick = cxButton1Click + LookAndFeel.Kind = lfOffice11 + end + object ComboBox1: TComboBox + Left = 920 + Top = 12 + Width = 49 + Height = 23 + Style = csDropDownList + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = 'Times New Roman' + Font.Style = [] + ItemHeight = 15 + ItemIndex = 0 + ParentFont = False + TabOrder = 9 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object cxButton3: TcxButton + Left = 728 + Top = 8 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #21024#38500 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnClick = cxButton3Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton2: TcxButton + Left = 704 + Top = 80 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #20445#23384 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + OnClick = cxButton2Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton4: TcxButton + Left = 728 + Top = 40 + Width = 77 + Height = 33 + Hint = 'Filesother' + Caption = #25764#38144#25171#21253 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 12 + OnClick = cxButton4Click + LookAndFeel.Kind = lfOffice11 + end + object check_Fbz: TCheckBox + Left = 864 + Top = 80 + Width = 105 + Height = 17 + Caption = #21253#21103#26631#31614 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 13 + end + object Fbq: TBtnEditA + Left = 960 + Top = 80 + Width = 121 + Height = 20 + TabOrder = 14 + OnBtnClick = FbqBtnClick + end + object ComboBox2: TComboBox + Left = 1077 + Top = 80 + Width = 49 + Height = 20 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 12 + ItemIndex = 0 + ParentFont = False + TabOrder = 15 + Text = '1' + Items.Strings = ( + '1' + '2' + '3' + '4') + end + object check_bz: TCheckBox + Left = 828 + Top = 16 + Width = 89 + Height = 17 + Caption = #21253#26631#31614 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 16 + end + object BaoBq: TBtnEditA + Left = 1144 + Top = 72 + Width = 141 + Height = 20 + TabOrder = 17 + Visible = False + OnBtnClick = BaoBqBtnClick + end + object CheckBox1: TCheckBox + Left = 828 + Top = 48 + Width = 133 + Height = 17 + Caption = #33258#21160#25171#21253 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 18 + end + object ComboBox3: TComboBox + Left = 920 + Top = 44 + Width = 49 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 19 + Items.Strings = ( + '1' + '2' + '3' + '4' + '5' + '6' + '7' + '8' + '9' + '10' + '11' + '12' + '13' + '14' + '15' + '16' + '17' + '18' + '19' + '20' + '21' + '22' + '23' + '24' + '25') + end + end + object Panel2: TPanel + Left = 400 + Top = 139 + Width = 1133 + Height = 560 + Caption = 'Panel2' + TabOrder = 2 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 1131 + Height = 266 + Align = alTop + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + OnCustomDrawCell = TV2CustomDrawCell + DataController.DataSource = DataSource2 + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn5 + end + item + Kind = skSum + Column = cxGridDBColumn6 + end + item + Kind = skSum + end + item + Kind = skSum + Column = V2Column2 + end + item + Kind = skSum + Column = V2Column3 + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Editing = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn1: TcxGridDBColumn + Caption = #25195#25551#20449#24687 + DataBinding.FieldName = 'SDefNote' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 154 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #26465#30721#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 113 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object cxGridDBColumn3: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Width = 94 + end + object V2Column5: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V2Column4: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'MJStr4' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object V2Column1: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNO' + Visible = False + HeaderAlignmentHorz = taCenter + Width = 120 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Width = 46 + end + object V2BaoID: TcxGridDBColumn + Caption = #21253#26465#30721 + DataBinding.FieldName = 'BaoID' + HeaderAlignmentHorz = taCenter + Width = 94 + end + object V2BaoNO: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'BaoNO' + HeaderAlignmentHorz = taCenter + Width = 51 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'SOrdQty1' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object V2Column2: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object V2Column3: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV2 + end + end + object cxGrid1: TcxGrid + Left = 1 + Top = 267 + Width = 1131 + Height = 292 + Align = alClient + TabOrder = 1 + object TV4: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DSSEL + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = 'C_Code' + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = cxGridDBColumn16 + end + item + Kind = skSum + Column = cxGridDBColumn17 + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn18 + end + item + Kind = skSum + Column = cxGridDBColumn19 + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.Default + object cxGridDBColumn8: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Styles.Content = DataLink_TradeManage.FoneRed + Styles.Footer = DataLink_TradeManage.FoneRed + Styles.Header = DataLink_TradeManage.FoneRed + Width = 53 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #26465#30721#21495 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 113 + end + object cxGridDBColumn10: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object cxGridDBColumn11: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object cxGridDBColumn12: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BCGangNO' + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + object V4Column1: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object V4Column2: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'MJstr4' + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn13: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'MJType' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object cxGridDBColumn14: TcxGridDBColumn + Caption = #21253#26465#30721 + DataBinding.FieldName = 'BaoID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 94 + end + object cxGridDBColumn15: TcxGridDBColumn + Caption = #21253#21495 + DataBinding.FieldName = 'BaoNO' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 51 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'SOrdQty1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJLen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'MJMaoZ' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + object cxGridDBColumn19: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'MJQty4' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Styles.Header = DataLink_TradeManage.FontBlue + Width = 60 + end + end + object cxGridLevel3: TcxGridLevel + GridView = TV4 + end + end + end + object Panel3: TPanel + Left = 999 + Top = 225 + Width = 290 + Height = 286 + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clSkyBlue + TabOrder = 4 + Visible = False + object SpeedButton1: TSpeedButton + Left = 4 + Top = 211 + Width = 140 + Height = 70 + Caption = '0' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton2: TSpeedButton + Left = 4 + Top = 143 + Width = 70 + Height = 70 + Caption = '1' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton3: TSpeedButton + Left = 74 + Top = 143 + Width = 70 + Height = 70 + Caption = '2' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton4: TSpeedButton + Left = 144 + Top = 143 + Width = 70 + Height = 70 + Caption = '3' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton5: TSpeedButton + Left = 4 + Top = 73 + Width = 70 + Height = 70 + Caption = '4' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton6: TSpeedButton + Left = 74 + Top = 73 + Width = 70 + Height = 70 + Caption = '5' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton7: TSpeedButton + Left = 144 + Top = 73 + Width = 70 + Height = 70 + Caption = '6' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton8: TSpeedButton + Left = 4 + Top = 3 + Width = 70 + Height = 70 + Caption = '7' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton9: TSpeedButton + Left = 74 + Top = 2 + Width = 70 + Height = 70 + Caption = '8' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton10: TSpeedButton + Left = 144 + Top = 2 + Width = 70 + Height = 70 + Caption = '9' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton11: TSpeedButton + Tag = 9 + Left = 144 + Top = 213 + Width = 70 + Height = 68 + Caption = '.' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #40657#20307 + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton1Click + end + object SpeedButton12: TSpeedButton + Left = 214 + Top = 2 + Width = 70 + Height = 70 + Caption = #8592 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -37 + Font.Name = #40657#20307 + Font.Style = [] + ParentFont = False + OnClick = SpeedButton12Click + end + object SpeedButton49: TSpeedButton + Tag = 9 + Left = 214 + Top = 73 + Width = 70 + Height = 208 + Caption = #30830#23450 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -29 + Font.Name = #26999#20307'_GB2312' + Font.Style = [fsBold] + ParentFont = False + OnClick = SpeedButton49Click + end + end + object Panel4: TPanel + Left = 0 + Top = 107 + Width = 553 + Height = 592 + Align = alLeft + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = 'Panel4' + TabOrder = 5 + object cxGrid3: TcxGrid + Left = 2 + Top = 89 + Width = 549 + Height = 501 + Align = alClient + TabOrder = 0 + object Tv3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + DataController.DataSource = DSTm + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + OptionsView.Indicator = True + Styles.Header = DataLink_TradeManage.Default + object v3Column5: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'Ssel' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 42 + end + object Tv3Column1: TcxGridDBColumn + Caption = #26465#30721 + DataBinding.FieldName = 'MJID' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Styles.Content = DataLink_TradeManage.FontBlue + Styles.Footer = DataLink_TradeManage.FontBlue + Width = 88 + end + object v3Column1: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'MPRTCodeName' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 72 + end + object v3Column2: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'PRTColor' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 44 + end + object v3Column4: TcxGridDBColumn + Caption = #33457#22411 + DataBinding.FieldName = 'PRTHX' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 43 + end + object v3Column3: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'MJlen' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 47 + end + object v3Column8: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'SOrddefstr1' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object v3Column6: TcxGridDBColumn + Caption = #21367#21495 + DataBinding.FieldName = 'MJXH' + HeaderAlignmentHorz = taCenter + Width = 50 + end + object v3Column7: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'MJStr4' + HeaderAlignmentHorz = taCenter + Width = 50 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv3 + end + end + object Panel5: TPanel + Left = 2 + Top = 2 + Width = 549 + Height = 87 + Align = alTop + BevelOuter = bvNone + TabOrder = 1 + object Label6: TLabel + Left = 8 + Top = 13 + Width = 45 + Height = 14 + Caption = #35746#21333#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label7: TLabel + Left = 8 + Top = 56 + Width = 24 + Height = 12 + Caption = #39068#33394 + end + object Label8: TLabel + Left = 96 + Top = 56 + Width = 24 + Height = 12 + Caption = #33394#21495 + end + object Label9: TLabel + Left = 180 + Top = 56 + Width = 24 + Height = 12 + Caption = #33457#22411 + end + object Label10: TLabel + Left = 268 + Top = 56 + Width = 24 + Height = 12 + Caption = #32568#21495 + end + object Label11: TLabel + Left = 356 + Top = 56 + Width = 24 + Height = 12 + Caption = #21367#21495 + end + object Label12: TLabel + Left = 272 + Top = 13 + Width = 60 + Height = 14 + Caption = #25171#21253#26041#24335 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BtnEditA1: TBtnEditA + Left = 56 + Top = 9 + Width = 153 + Height = 22 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnBtnClick = BtnEditA1BtnClick + end + object cxButton5: TcxButton + Left = 212 + Top = 8 + Width = 49 + Height = 25 + Hint = 'Filesother' + Caption = #21047#26032 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = cxButton5Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton6: TcxButton + Left = 468 + Top = 8 + Width = 61 + Height = 25 + Hint = 'Filesother' + Caption = #30830#23450#36873#25321 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = cxButton6Click + LookAndFeel.Kind = lfOffice11 + end + object cxButton7: TcxButton + Left = 468 + Top = 48 + Width = 57 + Height = 25 + Hint = 'Filesother' + Caption = #36807#28388 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = cxButton7Click + LookAndFeel.Kind = lfOffice11 + end + object PRTColor: TEdit + Tag = 2 + Left = 32 + Top = 52 + Width = 60 + Height = 20 + TabOrder = 4 + end + object SOrddefstr1: TEdit + Tag = 1 + Left = 120 + Top = 52 + Width = 60 + Height = 20 + TabOrder = 5 + end + object PRTHX: TEdit + Tag = 2 + Left = 204 + Top = 52 + Width = 60 + Height = 20 + TabOrder = 6 + end + object mjstr4: TEdit + Tag = 1 + Left = 292 + Top = 52 + Width = 60 + Height = 20 + TabOrder = 7 + end + object MJXH: TEdit + Tag = 1 + Left = 380 + Top = 52 + Width = 60 + Height = 20 + TabOrder = 8 + end + object ComboBox4: TComboBox + Left = 336 + Top = 8 + Width = 81 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ItemHeight = 16 + ItemIndex = 0 + ParentFont = False + TabOrder = 9 + Text = #25353#35746#21333 + Items.Strings = ( + #25353#35746#21333 + #25353#39068#33394) + end + end + end + object MovePanel1: TMovePanel + Left = 506 + Top = 274 + Width = 715 + Height = 327 + BevelInner = bvLowered + Color = clSkyBlue + TabOrder = 3 + Visible = False + object Label2: TLabel + Left = 184 + Top = 160 + Width = 198 + Height = 64 + Caption = 'Label2' + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Edit2: TEdit + Left = 177 + Top = 43 + Width = 412 + Height = 72 + Enabled = False + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -64 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 + ParentFont = False + ReadOnly = True + TabOrder = 0 + Text = '91209120001' + end + object Button4: TButton + Left = 300 + Top = 272 + Width = 75 + Height = 41 + Caption = #20851#38381 + TabOrder = 1 + OnClick = Button4Click + end + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 552 + Top = 136 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 500 + Top = 232 + end + object CDSMJID: TClientDataSet + Aggregates = <> + Params = <> + Left = 732 + Top = 212 + end + object DataSource2: TDataSource + DataSet = CDSMJID + Left = 836 + Top = 248 + end + object ADOQueryTmp: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 388 + Top = 324 + end + object cxStyleRepository1: TcxStyleRepository + Left = 317 + Top = 306 + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont] + Color = clInactiveCaption + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle2: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = 4707838 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBtnText + end + object cxStyle_gridRow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 16311512 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridFoot: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridHead: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_gridGroupBox: TcxStyle + AssignedValues = [svColor, svFont] + Color = clMoneyGreen + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_yellow: TcxStyle + AssignedValues = [svColor, svFont] + Color = 8454143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_Red: TcxStyle + AssignedValues = [svColor, svFont] + Color = clRed + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontBlack: TcxStyle + AssignedValues = [svFont] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + end + object cxStyle_fontclFuchsia: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clFuchsia + end + object cxStyle_fontclPurple: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clPurple + end + object cxStyle_fontclGreen: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clGreen + end + object cxStyle_fontclBlue: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlue + end + object cxStyle_fontclTeal: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clTeal + end + object cxStyle_fontclOlive: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -32 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clOlive + end + end + object ADOQuery1: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 252 + Top = 428 + end + object DataSource1: TDataSource + DataSet = ADOQuery1 + Left = 312 + Top = 464 + end + object ADOQueryTm: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 144 + Top = 240 + end + object DSTm: TDataSource + DataSet = CDSTM + Left = 88 + Top = 216 + end + object RMDB_Main: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 576 + Top = 256 + end + object RM2: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_Main + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 424 + Top = 256 + ReportData = {} + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeManage.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 652 + Top = 232 + end + object CDSTM: TClientDataSet + Aggregates = <> + Params = <> + Left = 212 + Top = 221 + end + object CDSSEL: TClientDataSet + Aggregates = <> + Params = <> + Left = 957 + Top = 497 + end + object DSSEL: TDataSource + DataSet = CDSSEL + Left = 849 + Top = 501 + end + object ADOQuery2: TADOQuery + Connection = DataLink_TradeManage.ADOLink + Parameters = <> + Left = 332 + Top = 420 + end +end diff --git a/检验管理/U_CPDBAO_S.pas b/检验管理/U_CPDBAO_S.pas new file mode 100644 index 0000000..ff2c1e6 --- /dev/null +++ b/检验管理/U_CPDBAO_S.pas @@ -0,0 +1,1324 @@ +unit U_CPDBAO_S; + +interface + +uses + Windows, Messages, strutils,SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, + cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, + cxGridCustomView, cxGrid, StdCtrls, cxContainer, cxTextEdit, + cxCurrencyEdit, BtnEdit, ExtCtrls, ComCtrls, ToolWin, DBClient, ADODB, + MovePanel, Buttons, Menus, cxLookAndFeelPainters, cxButtons, RM_Common, + RM_Class, RM_GridReport, RM_System, RM_Dataset, cxCheckBox,MMSystem, + cxLookAndFeels, 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 + TfrmCPDBao_S = class(TForm) + ToolBar1: TToolBar; + TBClose: TToolButton; + Panel1: TPanel; + PHYG: TBtnEditA; + defstr2: TComboBox; + Label16: TLabel; + Label15: TLabel; + packNo: TcxCurrencyEdit; + Label14: TLabel; + Label1: TLabel; + Panel2: TPanel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + cxGridDBColumn1: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + ADOQueryMain: TADOQuery; + ADOQueryCmd: TADOQuery; + CDSMJID: TClientDataSet; + DataSource2: TDataSource; + SmNO: TEdit; + ADOQueryTmp: TADOQuery; + V2Column1: TcxGridDBColumn; + kcKw: TBtnEditA; + Label5: TLabel; + MovePanel1: TMovePanel; + Edit2: TEdit; + Button4: TButton; + Label2: TLabel; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + cxStyle2: TcxStyle; + cxStyle_gridRow: TcxStyle; + cxStyle_gridFoot: TcxStyle; + cxStyle_gridHead: TcxStyle; + cxStyle_gridGroupBox: TcxStyle; + cxStyle_yellow: TcxStyle; + cxStyle_Red: TcxStyle; + cxStyle_fontBlack: TcxStyle; + cxStyle_fontclFuchsia: TcxStyle; + cxStyle_fontclPurple: TcxStyle; + cxStyle_fontclGreen: TcxStyle; + cxStyle_fontclBlue: TcxStyle; + cxStyle_fontclTeal: TcxStyle; + cxStyle_fontclOlive: TcxStyle; + ADOQuery1: TADOQuery; + DataSource1: TDataSource; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + cxGridLevel2: TcxGridLevel; + Tv3Column1: TcxGridDBColumn; + ADOQueryTm: TADOQuery; + DSTm: TDataSource; + baoNo: TEdit; + BaoID: TEdit; + Label3: TLabel; + Label4: TLabel; + V2BaoNO: TcxGridDBColumn; + V2BaoID: TcxGridDBColumn; + Panel3: TPanel; + SpeedButton1: TSpeedButton; + SpeedButton2: TSpeedButton; + SpeedButton3: TSpeedButton; + SpeedButton4: TSpeedButton; + SpeedButton5: TSpeedButton; + SpeedButton6: TSpeedButton; + SpeedButton7: TSpeedButton; + SpeedButton8: TSpeedButton; + SpeedButton9: TSpeedButton; + SpeedButton10: TSpeedButton; + SpeedButton11: TSpeedButton; + SpeedButton12: TSpeedButton; + SpeedButton49: TSpeedButton; + FileName: TcxButton; + RMDB_Main: TRMDBDataSet; + RM2: TRMGridReport; + cxButton1: TcxButton; + ComboBox1: TComboBox; + V2Column2: TcxGridDBColumn; + V2Column3: TcxGridDBColumn; + Panel4: TPanel; + ADOQueryPrint: TADOQuery; + Label6: TLabel; + BtnEditA1: TBtnEditA; + v3Column1: TcxGridDBColumn; + v3Column2: TcxGridDBColumn; + v3Column3: TcxGridDBColumn; + CDSTM: TClientDataSet; + Panel5: TPanel; + cxButton3: TcxButton; + cxButton2: TcxButton; + CDSSEL: TClientDataSet; + cxGrid1: TcxGrid; + TV4: TcxGridDBTableView; + cxGridDBColumn8: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + cxGridDBColumn10: TcxGridDBColumn; + cxGridDBColumn11: TcxGridDBColumn; + cxGridDBColumn12: TcxGridDBColumn; + cxGridDBColumn13: TcxGridDBColumn; + cxGridDBColumn14: TcxGridDBColumn; + cxGridDBColumn15: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridDBColumn19: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + DSSEL: TDataSource; + cxButton4: TcxButton; + V2Column5: TcxGridDBColumn; + V2Column4: TcxGridDBColumn; + V4Column1: TcxGridDBColumn; + V4Column2: TcxGridDBColumn; + v3Column4: TcxGridDBColumn; + check_Fbz: TCheckBox; + Fbq: TBtnEditA; + ComboBox2: TComboBox; + check_bz: TCheckBox; + BaoBq: TBtnEditA; + cxButton5: TcxButton; + cxButton6: TcxButton; + v3Column5: TcxGridDBColumn; + CheckBox1: TCheckBox; + ComboBox3: TComboBox; + v3Column6: TcxGridDBColumn; + v3Column7: TcxGridDBColumn; + cxButton7: TcxButton; + v3Column8: TcxGridDBColumn; + Label7: TLabel; + PRTColor: TEdit; + SOrddefstr1: TEdit; + Label8: TLabel; + PRTHX: TEdit; + Label9: TLabel; + mjstr4: TEdit; + Label10: TLabel; + MJXH: TEdit; + Label11: TLabel; + ComboBox4: TComboBox; + Label12: TLabel; + ADOQuery2: TADOQuery; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + + procedure FormCreate(Sender: TObject); + procedure SmNOKeyPress(Sender: TObject; var Key: Char); + procedure FormShow(Sender: TObject); + procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); + procedure kcKwBtnClick(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure baoNoKeyPress(Sender: TObject; var Key: Char); + procedure baoNoClick(Sender: TObject); + procedure SpeedButton1Click(Sender: TObject); + procedure SpeedButton12Click(Sender: TObject); + procedure SpeedButton49Click(Sender: TObject); + procedure FileNameClick(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure baoNoExit(Sender: TObject); + procedure BtnEditA1BtnClick(Sender: TObject); + procedure cxButton3Click(Sender: TObject); + procedure cxButton2Click(Sender: TObject); + procedure cxButton4Click(Sender: TObject); + procedure FbqBtnClick(Sender: TObject); + procedure BaoBqBtnClick(Sender: TObject); + procedure cxButton5Click(Sender: TObject); + procedure cxButton6Click(Sender: TObject); + procedure cxButton7Click(Sender: TObject); + private + Rolls:integer; + procedure InitGrid(); + procedure InitMJID(); + function SaveRK():Boolean; + Procedure QueryRk(); + Procedure QueryTM(); + { Private declarations } + public + { Public declarations } + end; +var + frmCPDBao_S: TfrmCPDBao_S; + newh:hwnd; +implementation +uses + U_DataLink,U_Fun, U_ZDYHelp, U_OrderSelRK; +{$R *.dfm} +Procedure TfrmCPDBao_S.QueryTm(); +var + FBaoID:string; +begin + with ADOQueryTM do + begin + close; + sql.Clear; + sql.Add('select A.*,B.*,C.MPrtCodeName,C.orderNo as OrderNoM'); + sql.Add('from WFB_MJJY A '); + sql.Add('inner join JYOrder_sub B on B.subID=A.subID '); + sql.Add('inner join JYOrder_main C on C.mainID=A.MainID '); + sql.Add('and A.mjstr2=''δ'' and C.orderNo='+quotedstr(trim(BtnEditA1.Text))); + open; + end; + SCreateCDS20(ADOQueryTM,CDSTM); + SInitCDSData20(ADOQueryTM,CDSTM); + + SCreateCDS20(ADOQueryTM,CDSMJID); +// SInitCDSData20(ADOQueryMain,CDSMJID); + SCreateCDS20(ADOQueryTM,CDSSEL); +// SInitCDSData20(ADOQueryMain,CDSSEL); + + IF not CDSTM.IsEmpty then + begin + with ADOQuery1 do + begin + close; + sql.clear; + sql.add('select isnull(max(cast(baoNo as int)),0)+1 as MaxBaoNo from WFB_MJJY '); + sql.Add('where mainID='+quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); + open; + end; + baoNo.text:=ADOQuery1.fieldbyname('MaxBaoNo').AsString; + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + end; + + SMNO.SetFocus; +end; + +Procedure TfrmCPDBao_S.QueryRk(); +begin + with ADOQuery1 do + begin + close; + sql.Clear; + sql.Add('select A.*,hC_ps=A.AordQty2,JY_ps=(select count(MainID) from WFB_MJJY X where X.APID=A.APID),'); + sql.Add('JY_Qty=(select sum(MJLen) from WFB_MJJY X where X.APID=A.APID), '); + sql.Add('RK_RollNum=(select sum(SOrdQty1) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''''),'); + sql.Add('RK_Qty=(select sum(MJLen) from CK_BanCP_CR X where X.APID=A.APID and X.CRType='''') '); + sql.Add('from JYOrder_sub_anPai A '); + SQL.Add('WHERE exists(select MJID from WFB_MJJY X where X.APID=A.APID and X.MJID='+quotedstr(trim(smNO.Text))); + sql.Add(')'); + open; + end; +end; + +function TfrmCPDBao_S.SaveRK():Boolean; +var + maxno:String; + CRID:Integer; + MaxCkNo,MaxCkSubNo:String; + MhcTime:TdateTime; +begin + Result:=false; + ADOQueryCmd.Connection.BeginTrans; + + try + {with ADOQueryTmp 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:=ADOQueryTmp.fieldbyname('CRID').AsInteger; + if GetLSNo(ADOQueryTmp,MaxCkNo,'JR','CK_BanCP_CR',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡƷֿʧܣ','ʾ',0); + Exit; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_CR where 1<>1'); + Open; + end; + mhcTime:=SGetServerDateTime(ADOQueryTmp); + + with ADOQueryCmd do + begin + Append; + FieldByName('MainId').Value:=Trim(ADOQueryMain.fieldbyname('MainId').AsString); + FieldByName('SubId').Value:=Trim(ADOQueryMain.fieldbyname('SubId').AsString); + FieldByName('C_Code').Value:=Trim(ADOQueryMain.fieldbyname('PRTCode').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('PRTCodeName').AsString); + //FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('PRTColor').AsString); + FieldByName('APID').Value:=Trim(ADOQueryMain.fieldbyname('APID').AsString); + FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJId').AsString); + FieldByName('mjxh').Value:=Trim(ADOQueryMain.fieldbyname('mjxh').AsString); + FieldByName('BaoNo').Value:=Trim(BaoNo.Text); + FieldByName('BaoID').Value:=Trim(BaoID.Text); + + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',mhcTime); + FieldByName('CRFlag').Value:=''; + FieldByName('CRType').Value:=''; + FieldByName('CRID').Value:=CRID; + FieldByName('KGQty').Value:=0; + FieldByName('Qty').Value:=ADOQueryMain.fieldbyname('MJLen').Value; + FieldByName('RollNum').Value:=1; + FieldByName('QtyUnit').Value:=ADOQueryMain.fieldbyname('MJTypeOther').Value; + FieldByName('CPType').Value:=ADOQueryMain.fieldbyname('MJType').Value; + //FieldByName('Note').Value:=ADOQueryMain.fieldbyname('Note').Value; + FieldByName('Filler').Value:=Trim(DName); + FieldByName('FillTime').Value:=SGetServerDateTime(ADOQueryTmp); + //fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('PRTCodeName').AsString,ADOQueryMain.fieldbyname('PRTColor').AsString); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from CK_BanCP_KC where 1<>1'); + Open; + end; + with ADOQueryCmd do + begin + Append; + FieldByName('CRID').Value:=CRID; + FieldByName('BCID').Value:=Trim(MaxCkNo); + FieldByName('CRTime').Value:=FormatDateTime('yyyy-MM-dd',mhcTime); + FieldByName('CRType').Value:=''; + FieldByName('CPType').Value:=ADOQueryMain.fieldbyname('MJType').Value; + FieldByName('C_Code').Value:=Trim(ADOQueryMain.fieldbyname('PRTCode').AsString); + FieldByName('C_CodeName').Value:=Trim(ADOQueryMain.fieldbyname('PRTCodeName').AsString); + //FieldByName('C_SPec').Value:=Trim(ADOQueryMain.fieldbyname('C_SPec').AsString); + FieldByName('C_Color').Value:=Trim(ADOQueryMain.fieldbyname('PRTColor').AsString); + FieldByName('BaoNo').Value:=Trim(BaoNo.Text); + FieldByName('BaoID').Value:=Trim(BaoID.Text); + FieldByName('MJID').Value:=Trim(ADOQueryMain.fieldbyname('MJID').AsString); + FieldByName('KCKGQty').Value:=0; + FieldByName('KCQty').Value:=ADOQueryMain.fieldbyname('MJlen').Value; + FieldByName('RollNum').Value:=1; + FieldByName('KCQtyUnit').Value:=ADOQueryMain.fieldbyname('MJTypeOther').Value; + FieldByName('mjxh').Value:=Trim(ADOQueryMain.fieldbyname('mjxh').AsString); + //FieldByName('KCNote').Value:=ADOQueryMain.fieldbyname('Note').Value; + //fieldbyname('kcKw').Value:=GetKw(ADOQueryTmp,ADOQueryMain.fieldbyname('PRTCodeName').AsString,ADOQueryMain.fieldbyname('PRTColor').AsString); + Post; + end; } + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(ADOQueryMain.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result:=true; + except + ADOQueryCmd.Connection.RollbackTrans; + end; +end; + +procedure TfrmCPDBao_S.InitGrid(); +begin + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.*,C.MprtCodeName,C.orderNo as OrderNoM from WFB_MJJY A '); + sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId'); + sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID'); + SQL.Add('where 1=2 '); + Open; + end; + SCreateCDS20(ADOQueryMain,CDSMJID); + SInitCDSData20(ADOQueryMain,CDSMJID); + SCreateCDS20(ADOQueryMain,CDSSEL); + SInitCDSData20(ADOQueryMain,CDSSEL); +end; + +procedure TfrmCPDBao_S.InitMJID(); +begin + MovePanel1.Visible:=false; + + + with ADOQueryMain do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.*,C.MprtCodeName,C.orderNo as OrderNoM from WFB_MJJY A '); + sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId'); + sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID'); + sql.Add('where MJID='+quotedstr(trim(SmNO.Text))); + Open; + if not IsEmpty then + begin + IF trim(Fieldbyname('MJstr2').AsString)='' then + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:=''; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + end + else + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='ɹ'; + CDSMJID.FieldByName('MJID').Value:=trim(ADOQueryMain.Fieldbyname('MJID').AsString); +// CDSMJID.FieldByName('CRID').Value:=trim(ADOQueryMain.Fieldbyname('CRID').AsString); + CDSMJID.FieldByName('PRTCodeName').Value:=trim(ADOQueryMain.Fieldbyname('PRTCodeName').AsString); + CDSMJID.FieldByName('MPRTCodeName').Value:=trim(ADOQueryMain.Fieldbyname('MPRTCodeName').AsString); + CDSMJID.FieldByName('PRTColor').Value:=trim(ADOQueryMain.Fieldbyname('PRTColor').AsString); + CDSMJID.FieldByName('PRTHX').Value:=trim(ADOQueryMain.Fieldbyname('PRTHX').AsString); + CDSMJID.FieldByName('MJStr4').Value:=trim(ADOQueryMain.Fieldbyname('MJStr4').AsString); + CDSMJID.FieldByName('MJType').Value:=trim(ADOQueryMain.Fieldbyname('MJType').AsString); + CDSMJID.FieldByName('BaoNo').Value:=trim(BaoNo.Text); + CDSMJID.FieldByName('BaoID').Value:=trim(BaoID.Text); + CDSMJID.FieldByName('SOrdQty1').Value:=1; + CDSMJID.FieldByName('MJLen').Value:=ADOQueryMain.Fieldbyname('MJLen').AsFloat; + CDSMJID.FieldByName('MJMaoZ').Value:=ADOQueryMain.Fieldbyname('MJMaoZ').AsFloat; + CDSMJID.FieldByName('MJQty3').Value:=ADOQueryMain.Fieldbyname('MJQty3').AsFloat; + CDSMJID.FieldByName('MJQty4').Value:=ADOQueryMain.Fieldbyname('MJQty4').AsFloat; + CDSMJID.FieldByName('MJTypeOther').Value:=trim(ADOQueryMain.Fieldbyname('MJTypeOther').AsString); + CDSMJID.FieldByName('mainID').Value:=trim(ADOQueryMain.Fieldbyname('mainID').AsString); + CDSMJID.FieldByName('subID').Value:=trim(ADOQueryMain.Fieldbyname('subID').AsString); + CDSMJID.Post; + Rolls:=Rolls+1; + end; + end + else + begin + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='벻'; + CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text); + CDSMJID.Post; + end; + end; + IF trim(CDSMJID.FieldByName('SDefNote').AsString)<>'ɹ' then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:=trim(CDSMJID.FieldByName('SDefNote').AsString); + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + CDSMJID.delete; + end; + If CDSTM.Locate('MJID',trim(smno.Text),[]) then + begin + // application.MessageBox('AAAA','AAAAAAAA',0); + CDSTM.Delete; + tv2.Controller.EditingController.ShowEdit(); + tv3.Controller.EditingController.ShowEdit(); + end; + IF CheckBox1.Checked then + begin + IF (Rolls=strtointdef(trim(ComboBox3.Text),0)) and (strtointdef(trim(ComboBox3.Text),0)>0) then + begin + FileName.Click; + end; + end; +end; + +procedure TfrmCPDBao_S.FormDestroy(Sender: TObject); +begin + frmCPDBao:=nil; +end; + +procedure TfrmCPDBao_S.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + //writeCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + writeCxGrid(self.Caption+Tv2.Name,Tv2,'Ʒֿ'); + writeCxGrid(self.Caption+Tv3.Name+'1',Tv3,'Ʒֿ'); + writeCxGrid(self.Caption+Tv4.Name,Tv4,'Ʒֿ'); + Action:=cafree; +end; + +procedure TfrmCPDBao_S.TBCloseClick(Sender: TObject); +begin + close; +end; + +procedure TfrmCPDBao_S.FormCreate(Sender: TObject); +begin + Panel2.Align:=alClient; + //readCxGrid(self.Caption+tv1.Name,Tv1,'Ʒֿ'); + readCxGrid(self.Caption+Tv2.Name,Tv2,'Ʒֿ'); + readCxGrid(self.Caption+Tv3.Name+'1',Tv3,'Ʒֿ'); + readCxGrid(self.Caption+Tv4.Name,Tv4,'Ʒֿ'); + Rolls:=0; +end; + +procedure TfrmCPDBao_S.SmNOKeyPress(Sender: TObject; var Key: Char); +begin + IF key=#13 then + begin + if combobox4.Text='ɫ' then + begin + with ADOQuery2 do + begin + close; + sql.clear; + sql.add('select B.PRTCOLOR,MaxBaoNo=isnull(max(cast(baoNo as int)),0)+1 '); + sql.add('from WFB_MJJY A '); + sql.add('inner join JYOrder_Sub B on A.SubId=B.SubId '); + sql.add('where A.MainId='+quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); + sql.add('and B.PRTColor=(select PRTColor from WFB_MJJY WM inner join JYOrder_Sub JS on WM.SubId=JS.SubId where WM.MJID='''+trim(smno.Text)+''')'); + open; + end; + if cdsmjid.IsEmpty=false then + begin + if self.ADOQuery2.FieldByName('prtcolor').asstring<>cdsmjid.FieldByName('prtcolor').AsString then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='ɫܴͬ'; + smno.Text:=''; + smno.SetFocus; + exit; + end; + end; + + baoNo.text:=ADOQuery2.fieldbyname('MaxBaoNo').AsString; + end; + + if trim(BaoNo.Text)='' then + begin + application.MessageBox('ŲΪ','ʾ'); + exit; + end; + if trim(BaoID.Text)='' then + begin + application.MessageBox('벻Ϊ','ʾ'); + exit; + end; + IF CDSTM.IsEmpty then exit; + if trim(smno.Text)='' then exit; + IF CDSMJID.Locate('MJID',trim(smno.Text),[]) then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='˾ظɨ裡'; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ظɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ظɨ.wav'),0, SND_ASYNC); + smno.Text:=''; + smno.SetFocus; + exit; + end; + If not CDSTM.Locate('MJID',trim(smno.Text),[]) then + begin + with ADOQuery1 do + begin + Close; + sql.Clear; + SQL.Add('select A.*,B.*,C.MprtCodeName,C.OrderNO as orderNoM from WFB_MJJY A '); + sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId'); + sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID'); + sql.Add('where MJID='+quotedstr(trim(SmNO.Text))); + Open; + IF isempty then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='˾Ŵ'; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav'),0, SND_ASYNC); + end + else + begin + If not CDSTM.Locate('orderNoM',trim(fieldbyname('OrderNoM').AsString),[]) then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='˾ڵǰ'; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ.wav'),0, SND_ASYNC); + end + else + begin + IF Fieldbyname('MJstr2').AsString<>'δ' then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:=fieldbyname('Mjstr2').AsString; + end + else + begin + if self.ADOQuery1.FieldByName('baoid').AsString<>'' then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='˾Ѵ'; + end + else + begin + initMJID(); + end; + + end; + end; + end; + end; + smno.Text:=''; + smno.SetFocus; + exit; + end + else + begin + initMJID(); + end; + smno.Text:=''; + smno.SetFocus; + end; +end; + +procedure TfrmCPDBao_S.FormShow(Sender: TObject); +begin + MovePanel1.Left:=(Width-MovePanel1.Width) div 2; + MovePanel1.top:=(Height-MovePanel1.Height-200) div 2; + // InitGrid(); +end; + +procedure TfrmCPDBao_S.TV2CustomDrawCell(Sender: TcxCustomGridTableView; + ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; + var ADone: Boolean); +var + i:integer; +begin + i:=tv2.GetColumnByFieldName('SDefNote').Index; + if (AViewInfo.GridRecord.Values[i]<>'ɹ') then + ACanvas.Brush.Color:=clred; +end; + +procedure TfrmCPDBao_S.kcKwBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='CPKWFlag'; + flagname:='λϢ'; + V1Name.Caption:='λ'; + V1Note.Caption:='Ӣ'; +// MainType:=Trim(DName); + fnote:=FALSE; + if ShowModal=1 then + begin + kcKw.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPDBao_S.Button4Click(Sender: TObject); +begin + MovePanel1.Visible:=False; + SmNO.SetFocus; +end; + +procedure TfrmCPDBao_S.baoNoKeyPress(Sender: TObject; var Key: Char); +var FBaoID: string; +begin + +end; + +procedure TfrmCPDBao_S.baoNoClick(Sender: TObject); +var + i:Integer; +begin +// Panel3.Visible:=True; + { with Panel3 do + begin + for i:=0 to ControlCount-1 do + begin + if Controls[i] is TSpeedButton then + begin + TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name); + end; + end; + end; } +end; + +procedure TfrmCPDBao_S.SpeedButton1Click(Sender: TObject); +var + 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); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; + +procedure TfrmCPDBao_S.SpeedButton12Click(Sender: TObject); +var + 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); + TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll; +end; +procedure TfrmCPDBao_S.SpeedButton49Click(Sender: TObject); +var + FBaoID:string; +begin + IF trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Hint)<>'' then + begin + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + end; + Panel3.Visible:=False; +end; + +procedure TfrmCPDBao_S.FileNameClick(Sender: TObject); +var fPrintFile: string; + Txt,fImagePath:string; + Moudle: THandle; + Makebar:TMakebar; + Mixtext:TMixtext; + FBaoID:string; + i:Integer; +begin + if trim(BaoID.Text)='' then + begin + application.MessageBox('벻δ','ʾ'); + exit; + end; + IF CDSMJID.IsEmpty then exit; + + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add(' SELECT D.LBName,D.NLBName'); + sql.Add(' from WFB_MJJY A'); + sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID'); + SQL.Add('where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + Open; + IF not ADOQueryPrint.IsEmpty then + begin + if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)='' then + begin + application.MessageBox('ûðǩܴ','ʾϢ',0); + exit; + end; + end; + end; + ADOQueryCmd.Connection.BeginTrans; + try + with CDSMJID do + begin + DisableControls; + first; + while not eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + edit; + fieldByName('Sflag').AsString :='2'; + fieldbyname('BaoNo').Value:=trim(BaoNo.Text); + fieldbyname('BaoID').Value:=trim(BaoID.Text); + post; + next; + end; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ȷ.wav'),0, SND_ASYNC); + except + ADOQueryCmd.Connection.RollbackTrans; + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + application.MessageBox('޸ʧܣ','ʾϢ',0); + exit; + end; + + +{ if trim(BaoID.Text)='' then + begin + application.MessageBox('벻δ','ʾ'); + exit; + end; } + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,'); + sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),'); + sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), '); + sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), '); + sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), '); + sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); + sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); + sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), '); + SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); + 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(BaoID.Text)+''''); + 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 + begin + Application.MessageBox('´!','ʾ',0); + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + Exit; + end; + if ADOQueryPrint.RecordCount<1 then + begin + Application.MessageBox('˰Żδ棬뱣ݣڴӡ룡','ʾ',0); + IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav')) then + PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\.wav'),0, SND_ASYNC); + 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); + except + application.MessageBox('ʧܣ','ʾϢ',MB_ICONERROR); + exit; + end; + + baoNo.Text:=inttostr(strtointdef(trim(baoNo.Text),0)+1); + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + CDSsel.Last; + with CDSMJID do + begin + DisableControls; + first; + while not eof do + begin + CDSsel.Append; + for i:=0 to FieldCount-1 do + begin + CDSsel.fields[i].value:=Fields[i].Value ; + end; + CDSsel.Post; + next; + end; + EnableControls; + end; + CDSMJID.EmptyDataSet; + + IF check_bz.Checked then + begin + 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; + + if FileExists(fPrintFile) then + begin + RMVariables['QRBARCODE']:=fImagePath; + RM2.LoadFromFile(fPrintFile); + RM2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1); + //RM2.ShowReport; + RM2.printReport; + end; + end; + + Rolls:=0; + SmNO.SetFocus; +{ + IF check_Fbz.Checked then + begin + fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(Fbq.Text)+'.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:=strtointdef(trim(ComboBox2.Text),1); + //RM2.ShowReport; + RM2.printReport; + end; + end; + } +end; + +procedure TfrmCPDBao_S.cxButton1Click(Sender: TObject); +begin + TBClose.Click; +end; + +procedure TfrmCPDBao_S.baoNoExit(Sender: TObject); +var + FBaoID:string; +begin + IF baoNo.Text<>'' then + begin + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + end + else + BaoID.Text:=''; +end; + +procedure TfrmCPDBao_S.BtnEditA1BtnClick(Sender: TObject); +begin + frmOrderSelRK:=TfrmOrderSelRK.Create(Application); + with frmOrderSelRK do + begin + if ShowModal=1 then + begin + CDS_OrderSel.DisableControls; + with CDS_OrderSel do + begin + First; + while not Eof do + begin + if FieldByName('SSel').Value=True then + begin + BtnEditA1.Text:=trim(CDS_OrderSel.fieldbyname('OrderNo').asstring); + end; + Next; + end; + end; + CDS_OrderSel.EnableControls; + end; + end; + QueryTm(); +end; + +procedure TfrmCPDBao_S.cxButton3Click(Sender: TObject); +var + i:integer; +begin + IF CDSMJID.IsEmpty then exit; + IF CDSMJID.fieldByName('Sflag').AsString='2' then + begin + application.MessageBox('Ѵɾ','ʾϢ',0); + exit; + end + else + begin + with CDSMJID do + begin + CDSTM.Last; + + CDSTM.Append; + for i:=0 to FieldCount-1 do + begin + CDSTM.fields[i].value:=Fields[i].Value ; + end; + CDSTM.Post; + end; + CDSMJID.Delete; + end; +end; + +procedure TfrmCPDBao_S.cxButton2Click(Sender: TObject); +begin + IF CDSMJID.IsEmpty then exit; + ADOQueryCmd.Connection.BeginTrans; + try + with CDSMJID do + begin + DisableControls; + first; + while not eof do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + edit; + fieldByName('Sflag').AsString :='2'; + fieldbyname('BaoNo').Value:=trim(BaoNo.Text); + fieldbyname('BaoID').Value:=trim(BaoID.Text); + post; + next; + end; + EnableControls; + end; + ADOQueryCmd.Connection.CommitTrans; + // application.MessageBox('޸ijɹ','ʾϢ',0); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox('޸ʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmCPDBao_S.cxButton4Click(Sender: TObject); +var + FBaoid:string; +begin + if CDSSEL.IsEmpty then Exit; + if CDSSEL.Locate('SSel',True,[])=False then + begin + Application.MessageBox('ûѡ!','ʾ',0); + Exit; + end; + try + CDSSEL.DisableControls; + // ADOQueryCmd.Connection.BeginTrans; + with CDSSEL do + begin + First; + while FieldByName('SSel').AsBoolean do + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update WFB_MJJY Set baoID='''',baoNo='''' '); + sql.Add('where MJID='''+Trim(CDSSEL.fieldbyname('MJID').AsString)+''''); + ExecSQL; + end; + delete; + end; + end; + // ADOQueryCmd.Connection.CommitTrans; + CDSSEL.EnableControls; + application.MessageBox('ݳɹ','ʾϢ'); + + with ADOQueryTM do + begin + close; + sql.Clear; + sql.Add('select A.*,B.*,C.MPrtCodeName,C.orderNo as OrderNoM'); + sql.Add('from WFB_MJJY A '); + sql.Add('inner join JYOrder_sub B on B.subID=A.subID '); + sql.Add('inner join JYOrder_main C on C.mainID=A.MainID '); + sql.Add('and A.mjstr2=''δ'' and C.orderNo='+quotedstr(trim(BtnEditA1.Text))); + open; + end; + SCreateCDS20(ADOQueryTM,CDSTM); + SInitCDSData20(ADOQueryTM,CDSTM); + + IF not CDSTM.IsEmpty then + begin + with ADOQuery1 do + begin + close; + sql.clear; + sql.add('select isnull(max(cast(baoNo as int)),0)+1 as MaxBaoNo from WFB_MJJY '); + sql.Add('where mainID='+quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); + open; + end; + baoNo.text:=ADOQuery1.fieldbyname('MaxBaoNo').AsString; + if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ','ʾ',0); + Exit; + end; + BaoID.Text:=trim(FBaoid); + end; + + SMNO.SetFocus; + exit; + except + // ADOQueryCmd.Connection.RollbackTrans; + CDSSEL.EnableControls; + application.MessageBox('ݳʧܣ','ʾϢ',0); + end; +end; + +procedure TfrmCPDBao_S.FbqBtnClick(Sender: TObject); +begin + try + frmZDYHelp:=TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag:='BAOFFLAG'; + flagname:='ǩ'; + if ShowModal=1 then + begin + Fbq.Text:=trim(ClientDataSet1.fieldbyname('zdyName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmCPDBao_S.BaoBqBtnClick(Sender: TObject); +type + TMyFunc = function(App:Tapplication; FormH:hwnd; FormID:integer; + Language: integer; WinStyle:integer; + GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar; + Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar; + Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar; + Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;stdcall; +var + Tf: TMyFunc; + Tp: TFarProc; + Th:Thandle; + LabInt,labname:String; +begin + //if PPInt=2 then Exit; + Ddatabase:=StringOfChar(' ', 32); + Th := LoadLibrary('LabelSet.dll'); + if Th > 0 then + begin + try + Tp := GetProcAddress(Th, 'GetDllForm'); + if Tp <> nil then + begin + Tf := TMyFunc(Tp); + newh:=Tf(Application,0,2,0,0, + PChar(DCode), + PChar(DName), + PChar(Ddatabase), + PChar('ǩģ'), + PChar(''), + PChar(''), + '','','','','','','','',PChar(DConString) + ); + if Trim(PChar(Ddatabase))<>'' then + begin + Ddatabase:=Trim(PChar(Ddatabase)); + // LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ; + BaoBq.Text:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) ); + end; + end + else + begin + ShowMessage('ӡִд'); + end; + finally + // FreeLibrary(); + end; + end + else + begin + ShowMessage('Ҳ'+Trim('LabelSet.dll')); + end; + +end; + +procedure TfrmCPDBao_S.cxButton5Click(Sender: TObject); +begin + QueryTm(); +end; + +procedure TfrmCPDBao_S.cxButton6Click(Sender: TObject); +begin + IF CDSTM.IsEmpty then exit; + if trim(BaoNo.Text)='' then + begin + application.MessageBox('ŲΪ','ʾ'); + exit; + end; + if trim(BaoID.Text)='' then + begin + application.MessageBox('벻Ϊ','ʾ'); + exit; + end; + + with CDSTM do + begin + DisableControls; + // first; + while Locate('ssel',true,[]) do + begin + if combobox4.Text='ɫ' then + begin + if cdsmjid.IsEmpty=false then + begin + if cdstm.FieldByName('PRTCOLOR').AsString<>cdsmjid.FieldByName('prtcolor').AsString then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='ɫܴͬ'; + label2.Font.Size:=36; + smno.Text:=''; + smno.SetFocus; + EnableControls; + exit; + end; + end; + with ADOQuery2 do + begin + close; + sql.clear; + sql.add('select MaxBaoNo=isnull(max(cast(baoNo as int)),0)+1 '); + sql.add('from WFB_MJJY A '); + sql.add('inner join JYOrder_Sub B on A.SubId=B.SubId '); + sql.add('where A.MainId='+quotedstr(trim(CDSTM.fieldbyname('MainID').AsString))); + sql.add('and B.PRTColor=(select PRTColor from WFB_MJJY WM inner join JYOrder_Sub JS on WM.SubId=JS.SubId where WM.MJID='''+trim(self.CDSTM.fieldbyname('mjid').AsString)+''')'); +// showmessage(sql.Text); + open; + end; + baoNo.text:=ADOQuery2.fieldbyname('MaxBaoNo').AsString; + end; + + IF CDSMJID.Locate('MJID',trim(CDSTM.fieldbyname('MJID').AsString),[]) then + begin + MovePanel1.Visible:=true; + Edit2.Text:=SmNO.Text; + Label2.Caption:='˾ظɨ裡'; + smno.Text:=''; + smno.SetFocus; + EnableControls; + exit; + end; + CDSMJID.Append; + CDSMJID.FieldByName('SDefNote').Value:='ɹ'; + CDSMJID.FieldByName('MJID').Value:=trim(Fieldbyname('MJID').AsString); +// CDSMJID.FieldByName('CRID').Value:=trim(ADOQueryMain.Fieldbyname('CRID').AsString); + CDSMJID.FieldByName('PRTCodeName').Value:=trim(Fieldbyname('PRTCodeName').AsString); + CDSMJID.FieldByName('MPRTCodeName').Value:=trim(Fieldbyname('MPRTCodeName').AsString); + CDSMJID.FieldByName('PRTColor').Value:=trim(Fieldbyname('PRTColor').AsString); + CDSMJID.FieldByName('PRTHX').Value:=trim(Fieldbyname('PRTHX').AsString); + CDSMJID.FieldByName('MJStr4').Value:=trim(Fieldbyname('MJStr4').AsString); + CDSMJID.FieldByName('MJType').Value:=trim(Fieldbyname('MJType').AsString); + CDSMJID.FieldByName('BaoNo').Value:=trim(BaoNo.Text); + CDSMJID.FieldByName('BaoID').Value:=trim(BaoID.Text); + CDSMJID.FieldByName('SOrdQty1').Value:=1; + CDSMJID.FieldByName('MJLen').Value:=Fieldbyname('MJLen').AsFloat; + CDSMJID.FieldByName('MJMaoZ').Value:=Fieldbyname('MJMaoZ').AsFloat; + CDSMJID.FieldByName('MJQty3').Value:=Fieldbyname('MJQty3').AsFloat; + CDSMJID.FieldByName('MJQty4').Value:=Fieldbyname('MJQty4').AsFloat; + CDSMJID.FieldByName('MJTypeOther').Value:=trim(Fieldbyname('MJTypeOther').AsString); + CDSMJID.FieldByName('mainID').Value:=trim(Fieldbyname('mainID').AsString); + CDSMJID.FieldByName('subID').Value:=trim(Fieldbyname('subID').AsString); + CDSMJID.Post; + + CDSTM.Delete; + tv2.Controller.EditingController.ShowEdit(); + tv3.Controller.EditingController.ShowEdit(); + end; + first; + EnableControls; + end; +end; + +procedure TfrmCPDBao_S.cxButton7Click(Sender: TObject); +begin + SDofilter(ADOQueryTM,SGetFilters(Panel5,1,2)); + SCreateCDS20(ADOQueryTM,CDSTM); + SInitCDSData20(ADOQueryTM,CDSTM); +end; + +end. diff --git a/检验管理/U_JYOrderCDOne.dfm b/检验管理/U_JYOrderCDOne.dfm index 7725be6..23d5446 100644 --- a/检验管理/U_JYOrderCDOne.dfm +++ b/检验管理/U_JYOrderCDOne.dfm @@ -20,7 +20,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1370 + Width = 1362 Height = 62 AutoSize = True ButtonHeight = 30 @@ -173,7 +173,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object ComboBox1: TComboBox Left = 515 - Top = 30 + Top = 33 Width = 149 Height = 24 Style = csDropDownList @@ -183,8 +183,10 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Font.Name = #23435#20307 Font.Style = [] ItemHeight = 16 + ItemIndex = 0 ParentFont = False TabOrder = 0 + Text = #38144#21806#30721#21333'(1'#21015')' Items.Strings = ( #38144#21806#30721#21333'(1'#21015')' #33521#25991#30721#21333 @@ -199,7 +201,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne #38024#32455#24067#21333#21367#21333#21253#35013#31665#21333 #25191#20565#30721#21333 #25191#20565#30721#21333'('#20844#26020')' - #25191#20565#30721#21333'(5'#21015')') + #25191#20565#30721#21333'(5'#21015')' + #24378#20852#30721#21333 + #25171#21253#30721#21333) end object TBAftChkHX: TToolButton Left = 664 @@ -230,7 +234,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object Panel1: TPanel Left = 0 Top = 62 - Width = 1370 + Width = 1362 Height = 67 Align = alTop BevelInner = bvRaised @@ -677,8 +681,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne object cxGrid1: TcxGrid Left = 0 Top = 129 - Width = 1370 - Height = 594 + Width = 1362 + Height = 586 Align = alClient PopupMenu = PopupMenu1 TabOrder = 3 diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas index 72ccb51..9f2f0aa 100644 --- a/检验管理/U_JYOrderCDOne.pas +++ b/检验管理/U_JYOrderCDOne.pas @@ -1466,32 +1466,6 @@ begin ADOQueryCmd.Connection.RollbackTrans; end; Order_Main.EnableControls; -// if trim(ComboBox1.Text) = '뵥(2)' then -// begin -// with ADOQueryTemp do -// begin -// Close; -// sql.Clear; -// sql.add('exec P_Print_CKMDYDLS '); -// sql.add('@DName=' + quotedstr(Trim(DCode))); -// Open; -// end; -// SCreateCDS20(ADOQueryTemp, CDS_HZ); -// SInitCDSData20(ADOQueryTemp, CDS_HZ); -// -// with ADOQueryPrint do -// begin -// Close; -// sql.Clear; -// sql.add('exec P_Do_PrintMd_HZ '); -// sql.add('@mainID=' + quotedstr(Trim(''))); -// sql.add(',@DName=' + quotedstr(Trim(DCode))); -// sql.add(',@flag=''2'' '); -// Open; -// end; -//// SCreateCDS20(ADOQueryTemp, CDS_PRT); -//// SInitCDSData20(ADOQueryTemp, CDS_PRT); -// end; if (trim(ComboBox1.Text) = '뵥(1)') or (trim(ComboBox1.Text) = '뵥(2)') or (trim(ComboBox1.Text) = 'Ӣ뵥') then begin @@ -1516,8 +1490,6 @@ begin sql.add(',@flag=''2'' '); Open; end; -// SCreateCDS20(ADOQueryTemp, CDS_PRT); -// SInitCDSData20(ADOQueryTemp, CDS_PRT); end; if (trim(ComboBox1.Text) = '뵥(װ)') then @@ -1692,7 +1664,54 @@ begin Open; end; end; + if trim(ComboBox1.Text) = '뵥' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMDYDL_DB '); + sql.add('@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd_HZ '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''22'' '); + Open; + end; + end; + if trim(ComboBox1.Text) = 'ǿ뵥' then + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.add('exec P_Print_CKMDYDL_QXMD '); + sql.add('@DName=' + quotedstr(Trim(DCode))); + Open; + end; + SCreateCDS20(ADOQueryTemp, CDS_HZ); + SInitCDSData20(ADOQueryTemp, CDS_HZ); + + with ADOQueryPrint do + begin + Close; + sql.Clear; + sql.add('exec P_Do_PrintMd_HZ '); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add(',@flag=''22'' '); + Open; + end; + end; if (trim(ComboBox1.Text) = '뵥(Ⱦɫ)') or (trim(ComboBox1.Text) = '뵥()') then begin with ADOQueryTemp do @@ -1849,7 +1868,7 @@ begin end; end; - if (trim(ComboBox1.Text) = 'ִ뵥(5)') then + if (trim(ComboBox1.Text) = 'ִ뵥(5)') then begin with ADOQueryTemp do begin diff --git a/检验管理/U_MJManageNewFDNew.dfm b/检验管理/U_MJManageNewFDNew.dfm index 5cb7b9a..153b0fa 100644 --- a/检验管理/U_MJManageNewFDNew.dfm +++ b/检验管理/U_MJManageNewFDNew.dfm @@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 0 Top = 105 Width = 237 - Height = 741 + Height = 733 Align = alLeft TabOrder = 1 object Tv3: TcxGridDBTableView @@ -123,8 +123,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object ScrollBox1: TScrollBox Left = 649 Top = 105 - Width = 645 - Height = 741 + Width = 637 + Height = 733 Align = alClient TabOrder = 4 object SpeedButton13: TSpeedButton @@ -1002,7 +1002,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 445 Top = 105 Width = 204 - Height = 741 + Height = 733 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -1724,7 +1724,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object Panel4: TPanel Left = 0 Top = 0 - Width = 1294 + Width = 1286 Height = 105 Align = alTop BevelInner = bvRaised @@ -1733,14 +1733,14 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object Panel5: TPanel Left = 2 Top = 2 - Width = 1290 + Width = 1282 Height = 101 Align = alClient TabOrder = 0 object Panel6: TPanel Left = 1 Top = 31 - Width = 1288 + Width = 1280 Height = 74 Align = alTop BevelInner = bvRaised @@ -2035,7 +2035,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF object ToolBar1: TToolBar Left = 1 Top = 1 - Width = 1288 + Width = 1280 Height = 30 ButtonHeight = 30 ButtonWidth = 83 @@ -2352,7 +2352,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 237 Top = 105 Width = 208 - Height = 741 + Height = 733 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -2361,7 +2361,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Left = 2 Top = 2 Width = 204 - Height = 415 + Height = 407 Align = alClient TabOrder = 0 object Tv2: TcxGridDBTableView @@ -2470,7 +2470,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object Panel8: TPanel Left = 2 - Top = 417 + Top = 409 Width = 204 Height = 29 Align = alBottom @@ -2485,7 +2485,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF end object AOrdDefNote1: TRichEdit Left = 2 - Top = 446 + Top = 438 Width = 204 Height = 293 Align = alBottom diff --git a/检验管理/U_MJManageNewFDNew.pas b/检验管理/U_MJManageNewFDNew.pas index 72d7e4b..c7a08e1 100644 --- a/检验管理/U_MJManageNewFDNew.pas +++ b/检验管理/U_MJManageNewFDNew.pas @@ -319,7 +319,7 @@ type FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; FColumn, FBanZu, FAPID, FMainId, FSubId, FFFMJID: string; FJZ, FJC: Double; - fRollType, fRollType1: string; + fRollType, fRollType1, fbaotype, fbaosx: string; isCommopen, IsJsMessage: boolean; MValue, FCDName: string; fxsws, fxsws1: string; @@ -334,6 +334,7 @@ type procedure AddCDNew(Fbtn: TSpeedButton); procedure SavedataCK(); procedure PrtData(FMJID: string); + procedure PrtBaoData(FBaoid: string); procedure OpenCom(DllName: string); procedure CloseCom(DllName: string); procedure On1201(var Message: Tmessage); message 1201; @@ -1076,6 +1077,11 @@ begin FieldByName('MJTypeOther').Value := Trim(Label9.Caption); FieldByName('note').Value := Trim(note.Text); + if trim(fbaotype) = 'ֶ' then + begin + FieldByName('baoNO').Value := Trim(baono.text); + FieldByName('baoID').Value := Trim(baoID.Text); + end; // FieldByName('baoNO').Value:=Trim(baono.text); // FieldByName('baoID').Value:=Trim(baoID.Text); Post; @@ -1214,7 +1220,32 @@ begin sql.Add('where MJID=''' + Trim(FMJID) + ''' '); execsql; end; - + if (fbaotype = 'ֶ') or (fbaotype = '') or (PState = 2) then + begin + + end + else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('exec P_Update_Bao ''' + trim(FMJID) + ''' '); + if fbaotype = '' then + begin + sql.Add(',1 '); + end + else if fbaotype = 'ɫ' then + begin + sql.Add(',2 '); + end + else if fbaotype = 'ɫ' then + begin + sql.Add(',3 '); + end; + execsql; + end; + end; //SavedataCK(); ADOCmd.Connection.CommitTrans; Result := True; @@ -1430,7 +1461,42 @@ begin PrtData(FFFMJID); //end; end; + if Trim(Edit6.Text) = '' then + begin + if (fbaotype = 'ֶ') or (fbaotype = '') then + begin + end + else + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('exec P_View_Baoid ''' + trim(FFFMJID) + ''' '); + sql.Add(',''' + trim(FMainId) + ''' ,''' + trim(FSubId) + ''' '); + if fbaotype = '' then + begin + sql.Add(' ,1 '); + end; + if fbaotype = 'ɫ' then + begin + sql.Add(' ,2 '); + end; + if fbaotype = 'ɫ' then + begin + sql.Add(' ,3 '); + end; + Open; + end; + + if trim(ADOCmd.FieldByName('baoid').AsString) <> '' then + begin + PrtBaoData(ADOCmd.fieldbyname('baoid').AsString); + end; + end; + + end; Label16.Caption := ''; BTAdd.Click; MJMaoZ.SetFocus; @@ -2189,6 +2255,8 @@ begin FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString); FJZ := ADOTmp.fieldbyname('jiazhong').AsFloat; FJC := ADOTmp.fieldbyname('jiachang').AsFloat; + fbaotype := Trim(ADOTmp.fieldbyname('baotype').AsString); + fbaosx := Trim(ADOTmp.fieldbyname('baosx').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 @@ -2539,6 +2607,93 @@ begin InitCDGridID(); end; +procedure TfrmMJManageNewFDNewSF.PrtBaoData(FBaoid: string); +var + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; + i: Integer; +begin + if CDS_MJID.IsEmpty then + exit; + CDS_MJID.First; + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,'); + sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),'); + sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), '); + sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), '); + sql.Add('MJXH=DBO.F_Get_Order_SubStr(BaoID,''BNMJXH''), '); + sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), '); + sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); + sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); + sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), '); + SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen'); + 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(FBaoid) + ''''); + 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 + begin + Application.MessageBox('´!', 'ʾ', 0); + Exit; + end; + if ADOQueryPrint.RecordCount < 1 then + begin + Application.MessageBox('˰Żδ棬뱣ݣڴӡ룡', 'ʾ', 0); + Exit; + end; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt := trim(FBaoid); + 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); + exit; + end; + + if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then + begin + ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('NLBName').AsString), ADOCmd); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) + end + else + begin + ExportFtErpFile('ǩ.rmf', ADOCmd); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ǩ.rmf'; + end; + + 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; + //RM2.ShowReport; + RM2.printReport; + end; + +end; + procedure TfrmMJManageNewFDNewSF.Button7Click(Sender: TObject); var fPrintFile: string; diff --git a/检验管理/U_ProductOrderLBNameSet.dfm b/检验管理/U_ProductOrderLBNameSet.dfm index bf93f98..aeb109c 100644 --- a/检验管理/U_ProductOrderLBNameSet.dfm +++ b/检验管理/U_ProductOrderLBNameSet.dfm @@ -1,6 +1,6 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet - Left = 170 - Top = 95 + Left = 182 + Top = 249 Width = 1378 Height = 754 Caption = #26631#31614#35774#32622 @@ -20,7 +20,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1370 + Width = 1362 + Height = 62 AutoSize = True ButtonHeight = 30 ButtonWidth = 107 @@ -79,16 +80,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet ImageIndex = 60 OnClick = ToolButton2Click end - object ToolButton4: TToolButton - Left = 339 - Top = 0 - AutoSize = True - Caption = #21253#26631#31614#35774#32622 - ImageIndex = 60 - OnClick = ToolButton4Click - end object ToolButton3: TToolButton - Left = 438 + Left = 339 Top = 0 AutoSize = True Caption = #30382#37325#35774#32622'(Kg)' @@ -96,64 +89,89 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet OnClick = ToolButton3Click end object ToolButton10: TToolButton - Left = 549 + Left = 450 Top = 0 AutoSize = True Caption = #21152#37325#35774#32622 ImageIndex = 60 + Wrap = True OnClick = ToolButton10Click end object ToolButton11: TToolButton - Left = 636 - Top = 0 + Left = 0 + Top = 30 AutoSize = True Caption = #21152#38271#35774#32622 ImageIndex = 60 OnClick = ToolButton11Click end object ToolButton5: TToolButton - Left = 723 - Top = 0 + Left = 87 + Top = 30 AutoSize = True Caption = #25442#31639#31995#25968 ImageIndex = 60 OnClick = ToolButton5Click end object ToolButton6: TToolButton - Left = 810 - Top = 0 + Left = 174 + Top = 30 AutoSize = True Caption = #38271#24230#20301#25968 ImageIndex = 60 OnClick = ToolButton6Click end object ToolButton9: TToolButton - Left = 897 - Top = 0 + Left = 261 + Top = 30 AutoSize = True Caption = #37325#37327#20301#25968 ImageIndex = 60 OnClick = ToolButton9Click end + object ToolButton12: TToolButton + Left = 348 + Top = 30 + AutoSize = True + Caption = #27599#21253#21367#25968 + ImageIndex = 60 + OnClick = ToolButton12Click + end + object ToolButton13: TToolButton + Left = 435 + Top = 30 + AutoSize = True + Caption = #27599#21367#38271#24230 + ImageIndex = 60 + OnClick = ToolButton13Click + end + object ToolButton4: TToolButton + Left = 522 + Top = 30 + AutoSize = True + Caption = #21253#26631#31614#35774#32622 + ImageIndex = 60 + OnClick = ToolButton4Click + end object ToolButton7: TToolButton - Left = 984 - Top = 0 + Left = 621 + Top = 30 AutoSize = True Caption = #39044#35272#21367#26631#31614 ImageIndex = 12 OnClick = ToolButton7Click end object ToolButton8: TToolButton - Left = 1083 - Top = 0 + Left = 720 + Top = 30 AutoSize = True Caption = #39044#35272#21253#26631#31614 ImageIndex = 12 OnClick = ToolButton8Click end object PiZhong: TEdit - Left = 1182 - Top = 0 + Left = 819 + Top = 30 Width = 121 Height = 30 Font.Charset = GB2312_CHARSET @@ -165,8 +183,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet TabOrder = 0 end object TBClose: TToolButton - Left = 1303 - Top = 0 + Left = 940 + Top = 30 AutoSize = True Caption = #20851#38381 ImageIndex = 55 @@ -175,8 +193,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet end object Panel1: TPanel Left = 0 - Top = 32 - Width = 1370 + Top = 62 + Width = 1362 Height = 62 Align = alTop BevelInner = bvRaised @@ -413,8 +431,8 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet end object cxGrid1: TcxGrid Left = 0 - Top = 94 - Width = 1370 + Top = 124 + Width = 1362 Height = 545 Align = alTop TabOrder = 2 @@ -614,6 +632,41 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet HeaderAlignmentHorz = taCenter Width = 80 end + object Tv1Column2: TcxGridDBColumn + Caption = #25171#21253#26041#24335 + DataBinding.FieldName = 'baotype' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + '' + #21333#21367#21333#21253 + #25163#21160#25171#21253 + #22810#21367#21333#33394) + Properties.OnEditValueChanged = Tv1Column2PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column3: TcxGridDBColumn + Caption = #27599#21253#21367#25968 + DataBinding.FieldName = 'JS' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column4: TcxGridDBColumn + Caption = #21253#21495#39034#24207 + DataBinding.FieldName = 'baosx' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.Items.Strings = ( + #25353#39068#33394#29983#25104 + #25353#35746#21333#29983#25104 + #25353#32568#21495#29983#25104) + Properties.OnEditValueChanged = Tv1Column4PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column5: TcxGridDBColumn + Caption = #27599#21253#38271#24230 + DataBinding.FieldName = 'PRTDC' + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/检验管理/U_ProductOrderLBNameSet.pas b/检验管理/U_ProductOrderLBNameSet.pas index 331a21c..144393d 100644 --- a/检验管理/U_ProductOrderLBNameSet.pas +++ b/检验管理/U_ProductOrderLBNameSet.pas @@ -6,25 +6,24 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, - cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, - cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, - RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,StrUtils, - Menus, cxDropDownEdit,cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, - cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, - dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, - dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, - dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, - dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, - dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, - dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, - dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, - dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, - dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, - dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, - dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, - dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, - dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; + 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, StrUtils, Menus, cxDropDownEdit, + cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue, dxSkinscxPCPainter; type TfrmProductOrderLBNameSet = class(TForm) @@ -112,6 +111,12 @@ type v1Column8: TcxGridDBColumn; ToolButton11: TToolButton; Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + ToolButton12: TToolButton; + ToolButton13: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -121,20 +126,13 @@ type procedure TBRafreshClick(Sender: TObject); procedure OrderNoChange(Sender: TObject); procedure FormShow(Sender: TObject); - procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure CheckBox2Click(Sender: TObject); - procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; - ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; - out AStyle: TcxStyle); - procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; - ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; - var ADone: Boolean); + procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); + procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure ToolButton1Click(Sender: TObject); procedure OrderNoKeyPress(Sender: TObject; var Key: Char); - procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, - Y: Integer); + procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Button1Click(Sender: TObject); procedure Image2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); @@ -149,50 +147,55 @@ type procedure ToolButton9Click(Sender: TObject); procedure ToolButton10Click(Sender: TObject); procedure ToolButton11Click(Sender: TObject); + procedure ToolButton12Click(Sender: TObject); + procedure ToolButton13Click(Sender: TObject); + procedure Tv1Column2PropertiesEditValueChanged(Sender: TObject); + procedure Tv1Column4PropertiesEditValueChanged(Sender: TObject); private - DQdate:TDateTime; + DQdate: TDateTime; procedure InitGrid(); procedure InitForm(); { Private declarations } public - FFInt,FCloth:Integer; + FFInt, FCloth: Integer; { Public declarations } end; var frmProductOrderLBNameSet: TfrmProductOrderLBNameSet; - newh:hwnd; + newh: hwnd; + implementation + uses - U_DataLink,U_OrderInPut,U_Fun; + U_DataLink, U_OrderInPut, U_Fun; {$R *.dfm} procedure TfrmProductOrderLBNameSet.FormDestroy(Sender: TObject); begin - frmProductOrderLBNameSet:=nil; + frmProductOrderLBNameSet := nil; end; -procedure TfrmProductOrderLBNameSet.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmProductOrderLBNameSet.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmProductOrderLBNameSet.FormCreate(Sender: TObject); begin - cxgrid1.Align:=alClient; + cxgrid1.Align := alClient; //BegDate.DateTime:=SGetServerDateTime(ADOQueryTemp)-7; //EndDate.DateTime:=SGetServerDateTime(ADOQueryTemp); - DQdate:=SGetServerDate(ADOQueryTemp); + DQdate := SGetServerDate(ADOQueryTemp); end; procedure TfrmProductOrderLBNameSet.TBCloseClick(Sender: TObject); begin Close; - WriteCxGrid('ǩ1',Tv1,'ָʾ'); + WriteCxGrid('ǩ1', Tv1, 'ָʾ'); end; procedure TfrmProductOrderLBNameSet.InitGrid(); @@ -205,41 +208,42 @@ begin sql.Clear; sql.add('select A.*,B.* from JYOrder_Main A '); Sql.add('inner join JYOrder_Sub B on B.Mainid=A.Mainid '); - sql.add('where A.Filltime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''' '); - sql.add('and A.Filltime<'''+Trim(FormatDatetime('yyyy-MM-dd',EndDate.DateTime+1))+''' '); + sql.add('where A.Filltime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' '); + sql.add('and A.Filltime<''' + Trim(FormatDatetime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''' '); Open; end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); finally ADOQueryMain.EnableControls; end; end; - procedure TfrmProductOrderLBNameSet.InitForm(); begin - ReadCxGrid('ǩ1',Tv1,'ָʾ'); - BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7; - EndDate.DateTime:=SGetServerDate10(ADOQueryTemp); + ReadCxGrid('ǩ1', Tv1, 'ָʾ'); + BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7; + EndDate.DateTime := SGetServerDate10(ADOQueryTemp); InitGrid(); end; procedure TfrmProductOrderLBNameSet.TBFindClick(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; + procedure TfrmProductOrderLBNameSet.TBPrintClick(Sender: TObject); begin - Panel4.Visible:=True; + Panel4.Visible := True; end; procedure TfrmProductOrderLBNameSet.TBRafreshClick(Sender: TObject); begin - CheckBox1.Checked:=False; + CheckBox1.Checked := False; with Order_Main do begin DisableControls; @@ -247,7 +251,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -259,10 +263,11 @@ end; procedure TfrmProductOrderLBNameSet.OrderNoChange(Sender: TObject); begin - if ADOQueryMain.Active=False then Exit; - SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); end; procedure TfrmProductOrderLBNameSet.FormShow(Sender: TObject); @@ -270,12 +275,10 @@ begin InitForm(); end; -procedure TfrmProductOrderLBNameSet.Tv1CellDblClick( - Sender: TcxCustomGridTableView; - ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; - AShift: TShiftState; var AHandled: Boolean); +procedure TfrmProductOrderLBNameSet.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin - if ToolButton1.Visible=False then Exit; + if ToolButton1.Visible = False then + Exit; ToolButton1.Click; end; @@ -284,11 +287,9 @@ begin TBRafresh.Click; end; -procedure TfrmProductOrderLBNameSet.Tv1StylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +procedure TfrmProductOrderLBNameSet.Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); var - id,id10:Integer; + id, id10: Integer; begin {try if Tv1.GroupedItemCount=0 then @@ -314,9 +315,7 @@ begin end; } end; -procedure TfrmProductOrderLBNameSet.v1DeliveryDateCustomDrawCell( - Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; - AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +procedure TfrmProductOrderLBNameSet.v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount; Id10:=TV1.GetColumnByFieldName('SubStatus').Index; @@ -353,18 +352,19 @@ end; procedure TfrmProductOrderLBNameSet.ToolButton1Click(Sender: TObject); begin - if Order_Main.IsEmpty then Exit; + if Order_Main.IsEmpty then + Exit; try - frmOrderInPut:=TfrmOrderInPut.Create(Application); + frmOrderInPut := TfrmOrderInPut.Create(Application); with frmOrderInPut do begin - PState:=1; - FMainId:=Trim(Self.Order_Main.fieldbyname('MainId').AsString); - ToolBar2.Visible:=False; - TBSave.Visible:=False; - ScrollBox1.Enabled:=False; - Tv1.OptionsSelection.CellSelect:=False; - if ShowModal=1 then + PState := 1; + FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString); + ToolBar2.Visible := False; + TBSave.Visible := False; + ScrollBox1.Enabled := False; + Tv1.OptionsSelection.CellSelect := False; + if ShowModal = 1 then begin end; @@ -374,51 +374,51 @@ begin end; end; -procedure TfrmProductOrderLBNameSet.OrderNoKeyPress(Sender: TObject; - var Key: Char); +procedure TfrmProductOrderLBNameSet.OrderNoKeyPress(Sender: TObject; var Key: Char); begin - if Key=#13 then + if Key = #13 then begin - if Length(OrderNo.Text)<3 then Exit; + if Length(OrderNo.Text) < 3 then + Exit; try ADOQueryMain.DisableControls; with ADOQueryMain do begin - Filtered:=False; + Filtered := False; Close; sql.Clear; sql.add('select A.*,B.* from JYOrder_Main A '); Sql.add('inner join JYOrder_Sub B on B.Mainid=A.Mainid '); - sql.Add('where A.orderNo like '+quotedstr('%'+trim(orderNo.Text)+'%')); + sql.Add('where A.orderNo like ' + quotedstr('%' + trim(orderNo.Text) + '%')); // ExecSQL; Open; end; - SCreateCDS20(ADOQueryMain,Order_Main); - SInitCDSData20(ADOQueryMain,Order_Main); + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); finally ADOQueryMain.EnableControls; end; end; end; -procedure TfrmProductOrderLBNameSet.Panel10MouseMove(Sender: TObject; - Shift: TShiftState; X, Y: Integer); +procedure TfrmProductOrderLBNameSet.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; - TWinControl(Panel4).Perform(WM_SYSCOMMAND,$F012,0); + TWinControl(Panel4).Perform(WM_SYSCOMMAND, $F012, 0); end; procedure TfrmProductOrderLBNameSet.Button1Click(Sender: TObject); var - fPrintFile:string; - Porderno,LBName:string; - i,j:Integer; - OrderKg:Double; + fPrintFile: string; + Porderno, LBName: string; + i, j: Integer; + OrderKg: Double; begin - if Order_Main.IsEmpty then Exit; - LBName:=RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(LBName)+'.rmf' ; - if RadioGroup1.ItemIndex=0 then + if Order_Main.IsEmpty then + Exit; + LBName := RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf'; + if RadioGroup1.ItemIndex = 0 then begin with ADOQueryPrint do begin @@ -432,27 +432,28 @@ begin sql.Add(' *1.00/100*B.PRTOrderQty*0.9144*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 as varchar(20))+''Kg'' '); sql.Add(' else '''' end as PRTOrderKgQtyStr '); sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); - sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''''); + sql.Add(' and A.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''); Open; end; - end else + end + else begin with ADOQueryPrint do begin Close; sql.Clear; sql.Add('exec P_View_OrderSub :begdate,:enddate,:wsql '); - Parameters.ParamByName('WSql').Value:=' and A.MainId='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''; - Parameters.ParamByName('begdate').Value:='1899-01-01'; - Parameters.ParamByName('enddate').Value:='2050-01-01'; + Parameters.ParamByName('WSql').Value := ' and A.MainId=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + ''''; + Parameters.ParamByName('begdate').Value := '1899-01-01'; + Parameters.ParamByName('enddate').Value := '2050-01-01'; Open; end; - if Trim(ADOQueryPrint.FieldByName('PRTHX').AsString)<>'' then + if Trim(ADOQueryPrint.FieldByName('PRTHX').AsString) <> '' then begin - if Trim(LBName)='ɫ' then + if Trim(LBName) = 'ɫ' then begin - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\ɫ.rmf' ; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ɫ.rmf'; end; end; end; @@ -468,91 +469,87 @@ begin sql.Add(' *1.00/100*B.PRTOrderQty*0.9144*dbo.F_Get_Order_MFKZ(A.MainId,''KZ'')/1000 As decimal(18,2)) '); sql.Add(' else 0 end as PRTOrderKgQty'); sql.Add(' from JYOrder_Main A inner join JYOrder_Sub B on A.MainId=B.MainId '); - sql.Add(' and A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+''')AA'); + sql.Add(' and A.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''')AA'); Open; end; - OrderKg:=ADOQueryTemp.fieldbyname('PRTOrderKgHZQty').Value; - SCreateCDS20(ADOQueryPrint,CDS_Print); - SInitCDSData20(ADOQueryPrint,CDS_Print); + OrderKg := ADOQueryTemp.fieldbyname('PRTOrderKgHZQty').Value; + SCreateCDS20(ADOQueryPrint, CDS_Print); + SInitCDSData20(ADOQueryPrint, CDS_Print); if FileExists(fPrintFile) then begin RM1.LoadFromFile(fPrintFile); - if OrderKg>0 then - RMVariables['OrderKg']:='/'+Trim(FloatToStr(OrderKg))+'Kg' + if OrderKg > 0 then + RMVariables['OrderKg'] := '/' + Trim(FloatToStr(OrderKg)) + 'Kg' else - RMVariables['OrderKg']:=''; + RMVariables['OrderKg'] := ''; RM1.ShowReport; - end else + end + else begin - Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\'+Trim(LBName)+'.rmf'),'ʾ',0); + Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf'), 'ʾ', 0); end; end; procedure TfrmProductOrderLBNameSet.Image2Click(Sender: TObject); begin - Panel4.Visible:=False; + Panel4.Visible := False; end; procedure TfrmProductOrderLBNameSet.ToolButton2Click(Sender: TObject); type - TMyFunc = function(App:Tapplication; FormH:hwnd; FormID:integer; - Language: integer; WinStyle:integer; - GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar; - Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar; - Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar; - Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;stdcall; + TMyFunc = function(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; stdcall; var Tf: TMyFunc; Tp: TFarProc; - Th:Thandle; - LabInt,labname:String; + Th: Thandle; + LabInt, labname: string; OpenDiaLog: TOpenDialog; - fFileName:string; - fFilePath:string; + fFileName: string; + fFilePath: string; begin - IF Order_Main.IsEmpty then exit; - if Order_Main.Locate('SSel',True,[])=False then + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('SSel', True, []) = False then begin - Application.MessageBox('ûѡݣ','ʾ',0); + Application.MessageBox('ûѡݣ', 'ʾ', 0); Exit; end; - fFileName:=''; + fFileName := ''; try OpenDiaLog := TOpenDialog.Create(Self); if OpenDiaLog.Execute then begin - fFilePath:=OpenDiaLog.FileName; - fFileName:=ExtractFileName(OpenDiaLog.FileName); + fFilePath := OpenDiaLog.FileName; + fFileName := ExtractFileName(OpenDiaLog.FileName); end; finally end; - IF trim(fFileName)='' then exit; + if trim(fFileName) = '' then + exit; with order_Main do begin first; - While not Eof do + while not Eof do begin - If FieldByName('Ssel').AsBoolean=true then + if FieldByName('Ssel').AsBoolean = true then begin with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('Update JYOrder_Sub Set SLBName='''+Trim(fFileName)+''''); - sql.Add(' where Subid='''+Trim(Order_Main.fieldbyname('Subid').AsString)+''''); + sql.Add('Update JYOrder_Sub Set SLBName=''' + Trim(fFileName) + ''''); + sql.Add(' where Subid=''' + Trim(Order_Main.fieldbyname('Subid').AsString) + ''''); ExecSQL; end; Edit; - FieldByName('SLbName').Value:=trim(fFileName); + FieldByName('SLbName').Value := trim(fFileName); end; next; end; end; - - with Order_Main do begin DisableControls; @@ -560,7 +557,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -571,51 +568,52 @@ end; procedure TfrmProductOrderLBNameSet.ToolButton3Click(Sender: TObject); var - FPiZhong:string; - FReal:Double; + FPiZhong: string; + FReal: Double; begin - IF Order_Main.IsEmpty then exit; - if Order_Main.Locate('SSel',True,[])=False then + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('SSel', True, []) = False then begin - Application.MessageBox('ûѡݣ','ʾ',0); + Application.MessageBox('ûѡݣ', 'ʾ', 0); Exit; end; - if Trim(PiZhong.Text)='' then + if Trim(PiZhong.Text) = '' then begin - Application.MessageBox('ƤزΪ!','ʾ',0); + Application.MessageBox('ƤزΪ!', 'ʾ', 0); Exit; end; - if TryStrToFloat(PiZhong.Text,FReal)=False then + if TryStrToFloat(PiZhong.Text, FReal) = False then begin - Application.MessageBox('ƤطǷ!','ʾ',0); + Application.MessageBox('ƤطǷ!', 'ʾ', 0); Exit; end; with order_Main do begin first; - While not Eof do + while not Eof do begin - if order_Main.FieldByName('Ssel').AsBoolean=true then + if order_Main.FieldByName('Ssel').AsBoolean = true then begin with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('Update JYOrder_Sub Set SPiZhong='+Trim(PiZhong.Text)); - sql.Add(' where Subid='''+Trim(Order_Main.fieldbyname('Subid').AsString)+''''); + sql.Add('Update JYOrder_Sub Set SPiZhong=' + Trim(PiZhong.Text)); + sql.Add(' where Subid=''' + Trim(Order_Main.fieldbyname('Subid').AsString) + ''''); ExecSQL; end; with Order_Main do begin Edit; - FieldByName('SPiZhong').Value:=PiZhong.Text; + FieldByName('SPiZhong').Value := PiZhong.Text; Post; end; end; next; end; end; - CheckBox1.Checked:=False; + CheckBox1.Checked := False; with Order_Main do begin DisableControls; @@ -623,7 +621,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -641,36 +639,32 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=CheckBox1.Checked; + fieldbyname('Ssel').AsBoolean := CheckBox1.Checked; post; next; end; first; EnableControls; - end; + end; end; procedure TfrmProductOrderLBNameSet.ToolButton4Click(Sender: TObject); type - TMyFunc = function(App:Tapplication; FormH:hwnd; FormID:integer; - Language: integer; WinStyle:integer; - GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar; - Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar; - Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar; - Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;stdcall; + TMyFunc = function(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; stdcall; var Tf: TMyFunc; Tp: TFarProc; - Th:Thandle; - LabInt,labname:String; + Th: Thandle; + LabInt, labname: string; begin - IF Order_Main.IsEmpty then exit; - if Order_Main.Locate('SSel',True,[])=False then + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('SSel', True, []) = False then begin - Application.MessageBox('ûѡݣ','ʾ',0); + Application.MessageBox('ûѡݣ', 'ʾ', 0); Exit; end; - Ddatabase:=StringOfChar(' ', 32); + Ddatabase := StringOfChar(' ', 32); Th := LoadLibrary('LabelSet.dll'); if Th > 0 then begin @@ -679,45 +673,37 @@ begin if Tp <> nil then begin Tf := TMyFunc(Tp); - newh:=Tf(Application,0,2,0,0, - PChar(DCode), - PChar(DName), - PChar(Ddatabase), - PChar('ǩģ'), - PChar(''), - PChar(''), - '','','','','','','','',PChar(DConString) - ); - if Trim(PChar(Ddatabase))<>'' then + newh := Tf(Application, 0, 2, 0, 0, PChar(DCode), PChar(DName), PChar(Ddatabase), PChar('ǩģ'), PChar(''), PChar(''), '', '', '', '', '', '', '', '', PChar(DConString)); + if Trim(PChar(Ddatabase)) <> '' then + begin + Ddatabase := Trim(PChar(Ddatabase)); + LabInt := Trim(LeftBStr(Ddatabase, Pos('|', Ddatabase) - 1)); + labname := Trim(RightBStr(Ddatabase, Length(Ddatabase) - Pos('|', Ddatabase))); + with order_Main do begin - Ddatabase:=Trim(PChar(Ddatabase)); - LabInt:=Trim( LeftBStr(Ddatabase,Pos('|',Ddatabase)-1) ) ; - labname:=Trim(RightBStr(Ddatabase,Length(Ddatabase)-Pos('|',Ddatabase) ) ); - with order_Main do + first; + while not Eof do begin - first; - While not Eof do + if order_Main.FieldByName('Ssel').AsBoolean = true then begin - if order_Main.FieldByName('Ssel').AsBoolean=true then + with ADOQueryCmd do begin - with ADOQueryCmd do - begin - Close; - sql.Clear; - sql.Add('Update JYOrder_Main Set NLBName='''+Trim(labname)+''''); - sql.Add(' where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); - ExecSQL; - end; - with Order_Main do - begin - Edit; - FieldByName('NLbName').Value:=trim(labname); - end; + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set NLBName=''' + Trim(labname) + ''''); + sql.Add(' where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + ''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('NLbName').Value := trim(labname); end; - next; end; + next; end; end; + end; end else begin @@ -729,9 +715,9 @@ begin end else begin - ShowMessage('Ҳ'+Trim('LabelSet.dll')); + ShowMessage('Ҳ' + Trim('LabelSet.dll')); end; - CheckBox1.Checked:=False; + CheckBox1.Checked := False; with Order_Main do begin DisableControls; @@ -739,7 +725,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -748,17 +734,16 @@ begin end; end; -procedure TfrmProductOrderLBNameSet.v1Column2PropertiesEditValueChanged( - Sender: TObject); +procedure TfrmProductOrderLBNameSet.v1Column2PropertiesEditValueChanged(Sender: TObject); var - mvalues:string; + mvalues: string; begin - mvalues:=TCXTextEdit(Sender).Text; + mvalues := TCXTextEdit(Sender).Text; with Order_Main do begin edit; - fieldbyname('Orddefstr15').Value:=mvalues; + fieldbyname('Orddefstr15').Value := mvalues; post; end; tv1.Controller.EditingController.ShowEdit(); @@ -767,8 +752,8 @@ begin begin Close; sql.Clear; - sql.Add('Update JYOrder_Main Set Orddefstr15='''+trim(mvalues)+''' '); - sql.Add('where Mainid='''+Trim(Order_Main.fieldbyname('Mainid').AsString)+''''); + sql.Add('Update JYOrder_Main Set Orddefstr15=''' + trim(mvalues) + ''' '); + sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + ''''); ExecSQL; end; @@ -776,51 +761,52 @@ end; procedure TfrmProductOrderLBNameSet.ToolButton5Click(Sender: TObject); var - FPiZhong:string; - FReal:Double; + FPiZhong: string; + FReal: Double; begin - IF Order_Main.IsEmpty then exit; - if Order_Main.Locate('SSel',True,[])=False then + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('SSel', True, []) = False then begin - Application.MessageBox('ûѡݣ','ʾ',0); + Application.MessageBox('ûѡݣ', 'ʾ', 0); Exit; end; - if Trim(PiZhong.Text)='' then + if Trim(PiZhong.Text) = '' then begin - Application.MessageBox('ϵΪ!','ʾ',0); + Application.MessageBox('ϵΪ!', 'ʾ', 0); Exit; end; - if TryStrToFloat(PiZhong.Text,FReal)=False then + if TryStrToFloat(PiZhong.Text, FReal) = False then begin - Application.MessageBox('ϵǷ!','ʾ',0); + Application.MessageBox('ϵǷ!', 'ʾ', 0); Exit; end; with order_Main do begin first; - While not Eof do + while not Eof do begin - if order_Main.FieldByName('Ssel').AsBoolean=true then + if order_Main.FieldByName('Ssel').AsBoolean = true then begin with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('Update JYOrder_Sub Set kmxs='+Trim(PiZhong.Text)); - sql.Add(' where Subid='''+Trim(Order_Main.fieldbyname('Subid').AsString)+''''); + sql.Add('Update JYOrder_Sub Set kmxs=' + Trim(PiZhong.Text)); + sql.Add(' where Subid=''' + Trim(Order_Main.fieldbyname('Subid').AsString) + ''''); ExecSQL; end; with Order_Main do begin Edit; - FieldByName('kmxs').Value:=PiZhong.Text; + FieldByName('kmxs').Value := PiZhong.Text; Post; end; end; next; end; end; - CheckBox1.Checked:=False; + CheckBox1.Checked := False; with Order_Main do begin DisableControls; @@ -828,7 +814,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -840,51 +826,52 @@ end; procedure TfrmProductOrderLBNameSet.ToolButton6Click(Sender: TObject); var - FPiZhong:string; - FReal:Double; + FPiZhong: string; + FReal: Double; begin - IF Order_Main.IsEmpty then exit; - if Order_Main.Locate('SSel',True,[])=False then + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('SSel', True, []) = False then begin - Application.MessageBox('ûѡݣ','ʾ',0); + Application.MessageBox('ûѡݣ', 'ʾ', 0); Exit; end; - if Trim(PiZhong.Text)='' then + if Trim(PiZhong.Text) = '' then begin - Application.MessageBox('СλΪ!','ʾ',0); + Application.MessageBox('СλΪ!', 'ʾ', 0); Exit; end; - if TryStrToFloat(PiZhong.Text,FReal)=False then + if TryStrToFloat(PiZhong.Text, FReal) = False then begin - Application.MessageBox('СλǷ!','ʾ',0); + Application.MessageBox('СλǷ!', 'ʾ', 0); Exit; end; with order_Main do begin first; - While not Eof do + while not Eof do begin - if order_Main.FieldByName('Ssel').AsBoolean=true then + if order_Main.FieldByName('Ssel').AsBoolean = true then begin with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('Update JYOrder_main Set XSWS='+Trim(PiZhong.Text)); - sql.Add(' where mainID='''+Trim(Order_Main.fieldbyname('mainID').AsString)+''''); + sql.Add('Update JYOrder_main Set XSWS=' + Trim(PiZhong.Text)); + sql.Add(' where mainID=''' + Trim(Order_Main.fieldbyname('mainID').AsString) + ''''); ExecSQL; end; with Order_Main do begin Edit; - FieldByName('XSWS').Value:=PiZhong.Text; + FieldByName('XSWS').Value := PiZhong.Text; Post; end; end; next; end; end; - CheckBox1.Checked:=False; + CheckBox1.Checked := False; with Order_Main do begin DisableControls; @@ -892,7 +879,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -904,147 +891,153 @@ end; procedure TfrmProductOrderLBNameSet.ToolButton7Click(Sender: TObject); var - fPrintFile:String; - Txt,fImagePath:string; - Moudle: THandle; - Makebar:TMakebar; - Mixtext:TMixtext; + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; begin - IF Order_Main.IsEmpty then exit; - IF trim(Order_Main.fieldbyname('SLbName').AsString)='' then exit; + if Order_Main.IsEmpty then + exit; + if trim(Order_Main.fieldbyname('SLbName').AsString) = '' then + exit; with ADOQueryPrint do begin Close; SQL.Clear; sql.Add('exec P_Print_Cs_Roll '); - sql.Add('@mainID='''+trim(Order_Main.fieldbyname('subID').AsString)+''' '); + sql.Add('@mainID=''' + trim(Order_Main.fieldbyname('subID').AsString) + ''' '); Open; end; 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); exit; end; - fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(Order_Main.fieldbyname('SLbName').AsString); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(Order_Main.fieldbyname('SLbName').AsString); if FileExists(fPrintFile) then begin - RMVariables['QRBARCODE']:=fImagePath; + RMVariables['QRBARCODE'] := fImagePath; RM1.LoadFromFile(fPrintFile); RM1.ShowReport; end else begin - Application.MessageBox(PChar('ûҵ'+trim(fPrintFile)),'ʾϢ',0); + Application.MessageBox(PChar('ûҵ' + trim(fPrintFile)), 'ʾϢ', 0); end; - end; procedure TfrmProductOrderLBNameSet.ToolButton8Click(Sender: TObject); var - fPrintFile:String; - Txt,fImagePath:string; - Moudle: THandle; - Makebar:TMakebar; - Mixtext:TMixtext; + fPrintFile: string; + Txt, fImagePath: string; + Moudle: THandle; + Makebar: TMakebar; + Mixtext: TMixtext; begin - IF Order_Main.IsEmpty then exit; - IF trim(Order_Main.fieldbyname('NLBName').AsString)='' then exit; + if Order_Main.IsEmpty then + exit; + if trim(Order_Main.fieldbyname('NLBName').AsString) = '' then + exit; with ADOQueryPrint do begin Close; SQL.Clear; sql.Add('exec P_Print_Cs_Bao '); - sql.Add('@mainID='''+trim(Order_Main.fieldbyname('mainID').AsString)+''' '); + sql.Add('@mainID=''' + trim(Order_Main.fieldbyname('mainID').AsString) + ''' '); Open; end; 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); exit; end; - fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(Order_Main.fieldbyname('NLBName').AsString)+'.rmf'; + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(Order_Main.fieldbyname('NLBName').AsString) + '.rmf'; if FileExists(fPrintFile) then begin - RMVariables['QRBARCODE']:=fImagePath; + RMVariables['QRBARCODE'] := fImagePath; RM1.LoadFromFile(fPrintFile); RM1.ShowReport; end else begin - Application.MessageBox(PChar('ûҵ'+trim(fPrintFile)),'ʾϢ',0); + Application.MessageBox(PChar('ûҵ' + trim(fPrintFile)), 'ʾϢ', 0); end; end; procedure TfrmProductOrderLBNameSet.ToolButton9Click(Sender: TObject); var - FPiZhong:string; - FReal:Double; + FPiZhong: string; + FReal: Double; begin - IF Order_Main.IsEmpty then exit; - if Order_Main.Locate('SSel',True,[])=False then + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('SSel', True, []) = False then begin - Application.MessageBox('ûѡݣ','ʾ',0); + Application.MessageBox('ûѡݣ', 'ʾ', 0); Exit; end; - if Trim(PiZhong.Text)='' then + if Trim(PiZhong.Text) = '' then begin - Application.MessageBox('СλΪ!','ʾ',0); + Application.MessageBox('СλΪ!', 'ʾ', 0); Exit; end; - if TryStrToFloat(PiZhong.Text,FReal)=False then + if TryStrToFloat(PiZhong.Text, FReal) = False then begin - Application.MessageBox('СλǷ!','ʾ',0); + Application.MessageBox('СλǷ!', 'ʾ', 0); Exit; end; with order_Main do begin first; - While not Eof do + while not Eof do begin - if order_Main.FieldByName('Ssel').AsBoolean=true then + if order_Main.FieldByName('Ssel').AsBoolean = true then begin with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('Update JYOrder_main Set XSWS1='+Trim(PiZhong.Text)); - sql.Add(' where mainID='''+Trim(Order_Main.fieldbyname('mainID').AsString)+''''); + sql.Add('Update JYOrder_main Set XSWS1=' + Trim(PiZhong.Text)); + sql.Add(' where mainID=''' + Trim(Order_Main.fieldbyname('mainID').AsString) + ''''); ExecSQL; end; with Order_Main do begin Edit; - FieldByName('XSWS1').Value:=PiZhong.Text; + FieldByName('XSWS1').Value := PiZhong.Text; Post; end; end; next; end; end; - CheckBox1.Checked:=False; + CheckBox1.Checked := False; with Order_Main do begin DisableControls; @@ -1052,7 +1045,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -1064,51 +1057,52 @@ end; procedure TfrmProductOrderLBNameSet.ToolButton10Click(Sender: TObject); var - FPiZhong:string; - FReal:Double; + FPiZhong: string; + FReal: Double; begin - IF Order_Main.IsEmpty then exit; - if Order_Main.Locate('SSel',True,[])=False then + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('SSel', True, []) = False then begin - Application.MessageBox('ûѡݣ','ʾ',0); + Application.MessageBox('ûѡݣ', 'ʾ', 0); Exit; end; - if Trim(PiZhong.Text)='' then + if Trim(PiZhong.Text) = '' then begin - Application.MessageBox('زΪ!','ʾ',0); + Application.MessageBox('زΪ!', 'ʾ', 0); Exit; end; - if TryStrToFloat(PiZhong.Text,FReal)=False then + if TryStrToFloat(PiZhong.Text, FReal) = False then begin - Application.MessageBox('طǷ!','ʾ',0); + Application.MessageBox('طǷ!', 'ʾ', 0); Exit; end; with order_Main do begin first; - While not Eof do + while not Eof do begin - if order_Main.FieldByName('Ssel').AsBoolean=true then + if order_Main.FieldByName('Ssel').AsBoolean = true then begin with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('Update JYOrder_Sub Set JIAZhong='+Trim(PiZhong.Text)); - sql.Add(' where Subid='''+Trim(Order_Main.fieldbyname('Subid').AsString)+''''); + sql.Add('Update JYOrder_Sub Set JIAZhong=' + Trim(PiZhong.Text)); + sql.Add(' where Subid=''' + Trim(Order_Main.fieldbyname('Subid').AsString) + ''''); ExecSQL; end; with Order_Main do begin Edit; - FieldByName('JIAZhong').Value:=PiZhong.Text; + FieldByName('JIAZhong').Value := PiZhong.Text; Post; end; end; next; end; end; - CheckBox1.Checked:=False; + CheckBox1.Checked := False; with Order_Main do begin DisableControls; @@ -1116,7 +1110,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -1127,51 +1121,52 @@ end; procedure TfrmProductOrderLBNameSet.ToolButton11Click(Sender: TObject); var - FPiZhong:string; - FReal:Double; + FPiZhong: string; + FReal: Double; begin - IF Order_Main.IsEmpty then exit; - if Order_Main.Locate('SSel',True,[])=False then + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('SSel', True, []) = False then begin - Application.MessageBox('ûѡݣ','ʾ',0); + Application.MessageBox('ûѡݣ', 'ʾ', 0); Exit; end; - if Trim(PiZhong.Text)='' then + if Trim(PiZhong.Text) = '' then begin - Application.MessageBox('ӳΪ!','ʾ',0); + Application.MessageBox('ӳΪ!', 'ʾ', 0); Exit; end; - if TryStrToFloat(PiZhong.Text,FReal)=False then + if TryStrToFloat(PiZhong.Text, FReal) = False then begin - Application.MessageBox('ӳǷ!','ʾ',0); + Application.MessageBox('ӳǷ!', 'ʾ', 0); Exit; end; with order_Main do begin first; - While not Eof do + while not Eof do begin - if order_Main.FieldByName('Ssel').AsBoolean=true then + if order_Main.FieldByName('Ssel').AsBoolean = true then begin with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('Update JYOrder_Sub Set jiachang='+Trim(PiZhong.Text)); - sql.Add(' where Subid='''+Trim(Order_Main.fieldbyname('Subid').AsString)+''''); + sql.Add('Update JYOrder_Sub Set jiachang=' + Trim(PiZhong.Text)); + sql.Add(' where Subid=''' + Trim(Order_Main.fieldbyname('Subid').AsString) + ''''); ExecSQL; end; with Order_Main do begin Edit; - FieldByName('jiachang').Value:=PiZhong.Text; + FieldByName('jiachang').Value := PiZhong.Text; Post; end; end; next; end; end; - CheckBox1.Checked:=False; + CheckBox1.Checked := False; with Order_Main do begin DisableControls; @@ -1179,7 +1174,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -1188,4 +1183,182 @@ begin end; end; +procedure TfrmProductOrderLBNameSet.ToolButton12Click(Sender: TObject); +var + FPiZhong: string; + FReal: Double; +begin + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡݣ', 'ʾ', 0); + Exit; + end; + if Trim(PiZhong.Text) = '' then + begin + Application.MessageBox('ÿΪ!', 'ʾ', 0); + Exit; + end; + if TryStrToFloat(PiZhong.Text, FReal) = False then + begin + Application.MessageBox('ÿǷ!', 'ʾ', 0); + Exit; + end; + with order_Main do + begin + first; + while not Eof do + begin + if order_Main.FieldByName('Ssel').AsBoolean = true then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Sub Set JS=' + Trim(PiZhong.Text)); + sql.Add(' where Subid=''' + Trim(Order_Main.fieldbyname('Subid').AsString) + ''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('JS').Value := PiZhong.Text; + Post; + end; + end; + next; + end; + end; + CheckBox1.Checked := False; + with Order_Main do + begin + DisableControls; + first; + while not Eof do + begin + edit; + fieldbyname('Ssel').AsBoolean := False; + post; + next; + end; + first; + EnableControls; + end; +end; + +procedure TfrmProductOrderLBNameSet.ToolButton13Click(Sender: TObject); +var + FPiZhong: string; + FReal: Double; +begin + if Order_Main.IsEmpty then + exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡݣ', 'ʾ', 0); + Exit; + end; + if Trim(PiZhong.Text) = '' then + begin + Application.MessageBox('ÿȲΪ!', 'ʾ', 0); + Exit; + end; + if TryStrToFloat(PiZhong.Text, FReal) = False then + begin + Application.MessageBox('ÿȷǷ!', 'ʾ', 0); + Exit; + end; + with order_Main do + begin + first; + while not Eof do + begin + if order_Main.FieldByName('Ssel').AsBoolean = true then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Sub Set PRTDC=' + Trim(PiZhong.Text)); + sql.Add(' where Subid=''' + Trim(Order_Main.fieldbyname('Subid').AsString) + ''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('PRTDC').Value := PiZhong.Text; + Post; + end; + end; + next; + end; + end; + CheckBox1.Checked := False; + with Order_Main do + begin + DisableControls; + first; + while not Eof do + begin + edit; + fieldbyname('Ssel').AsBoolean := False; + post; + next; + end; + first; + EnableControls; + end; + +end; + +procedure TfrmProductOrderLBNameSet.Tv1Column2PropertiesEditValueChanged(Sender: TObject); +var + mvalues: string; +begin + mvalues := TCXTextEdit(Sender).Text; + + with Order_Main do + begin + edit; + fieldbyname('baotype').Value := mvalues; + post; + end; + tv1.Controller.EditingController.ShowEdit(); + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set baotype=''' + trim(mvalues) + ''' '); + sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + ''''); + ExecSQL; + end; +end; + +procedure TfrmProductOrderLBNameSet.Tv1Column4PropertiesEditValueChanged(Sender: TObject); +var + mvalues: string; +begin + mvalues := TCXTextEdit(Sender).Text; + + with Order_Main do + begin + edit; + fieldbyname('baosx').Value := mvalues; + post; + end; + tv1.Controller.EditingController.ShowEdit(); + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update JYOrder_Main Set baosx=''' + trim(mvalues) + ''' '); + sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + ''''); + ExecSQL; + end; +end; + end. +