From 8d6b90b127a605cd828e5e4a86e922498b434b03 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Thu, 10 Jul 2025 16:43:42 +0800 Subject: [PATCH] ~ --- 坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas | 12 +- 坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas | 2 +- 检验管理/U_GetDllForm.pas | 4 +- 检验管理/U_JYOrderCDOne.dfm | 111 +++- 检验管理/U_JYOrderCDOne.pas | 105 +++- 检验管理/U_MJManageNewFDNew.dfm | 5 +- 检验管理/U_MJManageNewFDNew.pas | 43 +- 检验管理/U_OrderInPut.pas | 1 + 检验管理/U_ProductOrderLBNameSet.dfm | 36 +- 检验管理/U_ProductOrderLBNameSet.pas | 718 ++++++++++++---------- 10 files changed, 657 insertions(+), 380 deletions(-) diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas index dd05b43..2e62f6f 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas @@ -889,7 +889,7 @@ begin frmProductOrderListSel := TfrmProductOrderListSel.Create(Application); with frmProductOrderListSel do begin - if ShowModal = 1 then + if ShowModal = 1 then begin with Self.CDS_Sub do begin @@ -898,6 +898,8 @@ begin FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); FieldByName('OrderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); FieldByName('PiQty').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTddps').AsString); + FieldByName('Qty').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTOrderQty').AsString); + FieldByName('QtyUnit').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('OrderUnit').AsString); FieldByName('RCGangNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTrcgh').AsString); FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); @@ -963,17 +965,19 @@ begin FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('MainId').AsString); FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('SubId').AsString); FieldByName('OrderNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('PiQty').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTddps').AsString); + FieldByName('Qty').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTOrderQty').AsString); + FieldByName('QtyUnit').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('OrderUnit').AsString); + + FieldByName('RCGangNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTrcgh').AsString); FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('SOrddefstr1').AsString); FieldByName('PRTColor').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTColor').AsString); FieldByName('PRTkuanNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTkuanNo').AsString); FieldByName('PRTHX').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTHX').AsString); FieldByName('SPName').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTCodeName').AsString); FieldByName('SPSpec').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTSpec').AsString); -// FieldByName('SPCF').Value:=Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTCF').AsString); FieldByName('SPMF').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTMF').AsString); -// FieldByName('MPRTCode').Value:=Trim(frmProductOrderListSel1.Order_Main.fieldbyname('MPRTCode').AsString); FieldByName('SPKZ').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTKZ').AsString); -// FieldByName('FactoryName').Value:=Trim(frmProductOrderListSel1.Order_Main.fieldbyname('ToFactoryName').AsString); Post; end; end; diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas index ac54967..add7dc5 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas @@ -325,7 +325,7 @@ begin if ShowModal=1 then begin Self.InitGrid(); - end; + end; end; finally frmDJBCKInPut.Free; diff --git a/检验管理/U_GetDllForm.pas b/检验管理/U_GetDllForm.pas index e6b0ded..51d8317 100644 --- a/检验管理/U_GetDllForm.pas +++ b/检验管理/U_GetDllForm.pas @@ -66,7 +66,7 @@ begin //ֵַ SetLength(server, 255); - SetLength(dtbase, 255); + SetLength(dtbase, 255); SetLength(user, 255); SetLength(pswd, 255); @@ -85,7 +85,7 @@ begin // DParameters2 := ''; if not ConnData() then begin - result := 0; + result := 0; exit; end; if IsINIFile() then diff --git a/检验管理/U_JYOrderCDOne.dfm b/检验管理/U_JYOrderCDOne.dfm index 9c509e1..1d9e014 100644 --- a/检验管理/U_JYOrderCDOne.dfm +++ b/检验管理/U_JYOrderCDOne.dfm @@ -55,16 +55,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne ImageIndex = 59 OnClick = TBFindClick end - object TBExport: TToolButton + object ToolButton8: TToolButton Left = 126 Top = 0 AutoSize = True + Caption = #26029#21495#26597#35810 + ImageIndex = 21 + OnClick = ToolButton8Click + end + object TBExport: TToolButton + Left = 213 + Top = 0 + AutoSize = True Caption = #23548#20986 ImageIndex = 75 OnClick = TBExportClick end object TBZF: TToolButton - Left = 189 + Left = 276 Top = 0 AutoSize = True Caption = #20316#24223 @@ -73,7 +81,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TBZFClick end object TBManage: TToolButton - Left = 252 + Left = 339 Top = 0 AutoSize = True Caption = #32534#36753 @@ -82,7 +90,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TBManageClick end object TBDW: TToolButton - Left = 315 + Left = 402 Top = 0 AutoSize = True Caption = #20462#25913#25968#37327#21333#20301 @@ -90,32 +98,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TBDWClick end object ToolButton4: TToolButton - Left = 426 + Left = 513 Top = 0 AutoSize = True Caption = #25209#37327#35843#25972#31859#25968 ImageIndex = 54 - Wrap = True OnClick = ToolButton4Click end object ToolButton6: TToolButton - Left = 0 - Top = 30 + Left = 624 + Top = 0 AutoSize = True Caption = #20986#24211 ImageIndex = 16 OnClick = ToolButton6Click end object ToolButton7: TToolButton - Left = 63 - Top = 30 + Left = 687 + Top = 0 AutoSize = True Caption = #25764#38144#20986#24211 ImageIndex = 86 + Wrap = True OnClick = ToolButton7Click end object ToolButton1: TToolButton - Left = 150 + Left = 0 Top = 30 AutoSize = True Caption = #25171#21360#26631#31614 @@ -124,7 +132,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton1Click end object TCPDB: TToolButton - Left = 237 + Left = 87 Top = 30 AutoSize = True Caption = #25104#21697#25171#21253 @@ -133,7 +141,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TCPDBClick end object ToolButton3: TToolButton - Left = 324 + Left = 174 Top = 30 AutoSize = True Caption = #25171#21360#21253#26631#31614 @@ -142,7 +150,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton3Click end object ToolButton2: TToolButton - Left = 423 + Left = 273 Top = 30 AutoSize = True Caption = #25171#21360#26816#39564#25253#21578 @@ -150,7 +158,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton2Click end object ToolButton5: TToolButton - Left = 534 + Left = 384 Top = 30 AutoSize = True Caption = #25171#21360 @@ -158,7 +166,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = ToolButton5Click end object ComboBox1: TComboBox - Left = 597 + Left = 447 Top = 33 Width = 149 Height = 24 @@ -181,7 +189,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne #26816#39564#30721#21333'('#19977#32852#31859')') end object TBAftChkHX: TToolButton - Left = 746 + Left = 596 Top = 30 AutoSize = True Caption = #26816#21518#22238#20462 @@ -190,7 +198,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne OnClick = TBAftChkHXClick end object TBClose: TToolButton - Left = 833 + Left = 683 Top = 30 AutoSize = True Caption = #20851#38381 @@ -585,6 +593,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Height = 20 TabOrder = 7 OnChange = CustomerNoNameChange + OnKeyPress = SOrddefstr1KeyPress end object PRTHX: TEdit Tag = 2 @@ -594,8 +603,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Height = 20 TabOrder = 15 OnChange = CustomerNoNameChange + OnKeyPress = SOrddefstr1KeyPress end - object gangno: TEdit + object mjstr4: TEdit Tag = 2 Left = 1062 Top = 11 @@ -603,6 +613,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Height = 20 TabOrder = 8 OnChange = CustomerNoNameChange + OnKeyPress = SOrddefstr1KeyPress end object PRTkuanNo: TEdit Tag = 2 @@ -612,6 +623,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Height = 20 TabOrder = 16 OnChange = CustomerNoNameChange + OnKeyPress = SOrddefstr1KeyPress end end object cxGrid1: TcxGrid @@ -878,7 +890,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne end object v1Column4: TcxGridDBColumn Caption = #32568#21495 - DataBinding.FieldName = 'gangno' + DataBinding.FieldName = 'mjstr4' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 60 @@ -1251,14 +1263,61 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne Height = 145 ItemIndex = 0 Items.Strings = ( - #39034#40511#39564#25253 - #37329#31077#24800 - #37329#38745#25253#21578#10 - #39034#40511#21253#35013#39564#25253 + #21019#27719#39564#25253 + #21019#27719#21253#35013#39564#25253 #25104#21697#26816#39564#25253#21578) TabOrder = 1 end end + object Panel7: TPanel + Left = 376 + Top = 444 + Width = 505 + Height = 101 + Color = clSkyBlue + TabOrder = 8 + Visible = False + object Label20: TLabel + Left = 8 + Top = 20 + Width = 36 + Height = 12 + Caption = #32570#21495#65306 + end + object ComboBox2: TComboBox + Left = -12 + Top = 72 + Width = 145 + Height = 20 + Style = csDropDownList + ItemHeight = 12 + TabOrder = 0 + Visible = False + Items.Strings = ( + '' + 'M' + 'Y') + end + object Button3: TButton + Left = -8 + Top = 72 + Width = 60 + Height = 25 + Caption = #30830#23450 + TabOrder = 1 + Visible = False + OnClick = Button5Click + end + object Button4: TButton + Left = 428 + Top = 64 + Width = 60 + Height = 25 + Caption = #20851#38381 + TabOrder = 2 + OnClick = Button4Click + end + end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> @@ -1333,8 +1392,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False - Left = 424 - Top = 256 + Left = 400 + Top = 328 ReportData = {} end object RMDB_Main: TRMDBDataSet diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas index 69b5ae1..68d8698 100644 --- a/检验管理/U_JYOrderCDOne.pas +++ b/检验管理/U_JYOrderCDOne.pas @@ -125,7 +125,7 @@ type PRTHX: TEdit; v1Column4: TcxGridDBColumn; v1Column5: TcxGridDBColumn; - gangno: TEdit; + mjstr4: TEdit; Label15: TLabel; v1Column13: TcxGridDBColumn; v1Column18: TcxGridDBColumn; @@ -167,6 +167,12 @@ type Tv1Column3: TcxGridDBColumn; ToolButton6: TToolButton; ToolButton7: TToolButton; + ToolButton8: TToolButton; + Panel7: TPanel; + Label20: TLabel; + ComboBox2: TComboBox; + Button3: TButton; + Button4: TButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -208,6 +214,9 @@ type procedure Image1Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject); + procedure SOrddefstr1KeyPress(Sender: TObject; var Key: Char); + procedure ToolButton8Click(Sender: TObject); + procedure Button4Click(Sender: TObject); private DQdate: TDateTime; FLeft, FTop: Integer; @@ -856,7 +865,7 @@ begin TBFind.Click; if Order_Main.IsEmpty = False then begin - //InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp); + InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString), PRTColor, ADOQueryTemp); //InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp); end; end; @@ -1377,8 +1386,8 @@ begin // fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\鱨ͨ.rmf'; if FileExists(fPrintFile) then begin - RM2.LoadFromFile(fPrintFile); - RM2.ShowReport; + RM1.LoadFromFile(fPrintFile); + RM1.ShowReport; end else begin @@ -1390,7 +1399,7 @@ end; procedure TfrmJYOrderCDOne.ToolButton5Click(Sender: TObject); var - fPrintFile, fPrintFile10, FMainID: string; + fPrintFile, fPrintFile10, FMainID, sqlstr: string; begin if Order_Main.IsEmpty then Exit; @@ -1417,6 +1426,7 @@ begin sql.Add('SELECT * FROM TBSubID where 1=2 '); open; end; + sqlstr := ''; FMainID := ''; Order_Main.DisableControls; try @@ -1442,10 +1452,15 @@ begin exit; end; end; - ADOQueryCmd.append; - ADOQueryCmd.fieldbyname('SubId').Value := Trim(Order_Main.fieldbyname('MJID').AsString); - ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode); - ADOQueryCmd.post; + sqlstr := sqlstr + 'insert into TBSubID(SubId,Dname) '; + sqlstr := sqlstr + ' values( '; + sqlstr := sqlstr + ' ''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''', '; + sqlstr := sqlstr + ' ''' + Trim(DCode) + ''' '; + sqlstr := sqlstr + ' ) '; +// ADOQueryCmd.append; +// ADOQueryCmd.fieldbyname('SubId').Value := Trim(Order_Main.fieldbyname('MJID').AsString); +// ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode); +// ADOQueryCmd.post; end; Next; end; @@ -1455,6 +1470,14 @@ begin ADOQueryCmd.Connection.RollbackTrans; end; Order_Main.EnableControls; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(sqlstr); +// showmessage(sql.text); + ExecSQL; + end; if trim(ComboBox1.Text) = '뵥' then begin with ADOQueryTemp do @@ -1479,7 +1502,7 @@ begin sql.add(',@flag=''2'' '); Open; end; -// SCreateCDS20(ADOQueryTemp, CDS_PRT); +// SCreateCDS20(ADOQueryTemp, CDS_PRT); // SInitCDSData20(ADOQueryTemp, CDS_PRT); end; if (trim(ComboBox1.Text) = '뵥(ϸ)') or (trim(ComboBox1.Text) = '뵥()') or (trim(ComboBox1.Text) = '뵥()') then @@ -1672,5 +1695,67 @@ begin end; +procedure TfrmJYOrderCDOne.SOrddefstr1KeyPress(Sender: TObject; var Key: Char); +var + fsj, FCXZD: string; +begin + if Key = #13 then + begin + fsj := Trim(TEdit(Sender).text); + FCXZD := Trim(TEdit(Sender).name); + if Length(fsj) < 2 then + Exit; + MovePanel2.Visible := True; + MovePanel2.Refresh; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + Filtered := False; + sql.Clear; + sql.Add('select A.*,'); + sql.Add('C.OrderNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,C.CustomerNoName,B.*,'); + sql.Add('KouFenQty=(select Sum(X.KouFenQty) from WFB_MJJY_CD X where X.MJID=A.MJID),'); + sql.Add('CDQty=(select count(X.MJID) from WFB_MJJY_CD X where X.MJID=A.MJID)'); + 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('where ' + FCXZD + '=' + quotedstr(trim(fsj))); +// ShowMessage(SQL.text); + Open; + end; + SCreateCDS20(ADOQueryMain, Order_Main); + SInitCDSData20(ADOQueryMain, Order_Main); + finally + ADOQueryMain.EnableControls; + end; + MovePanel2.Visible := False; + // JSbaoNum(); + end; + +end; + +procedure TfrmJYOrderCDOne.ToolButton8Click(Sender: TObject); +begin + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add('exec P_JYorder_Cxdh '); + sql.add('@mainID=' + quotedstr(Trim(Order_Main.fieldbyname('MainId').AsString))); +// ShowMessage(SQL.text); + Open; + end; + Panel7.Visible := True; + Label20.Caption := 'ȱ:' + ADOQueryTemp.fieldbyname('MJxh').AsString; +end; + +procedure TfrmJYOrderCDOne.Button4Click(Sender: TObject); +begin + Panel7.Visible := false; +end; + end. diff --git a/检验管理/U_MJManageNewFDNew.dfm b/检验管理/U_MJManageNewFDNew.dfm index 69b735a..70dbb1f 100644 --- a/检验管理/U_MJManageNewFDNew.dfm +++ b/检验管理/U_MJManageNewFDNew.dfm @@ -1,6 +1,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF - Left = 223 - Top = 122 + Left = 477 + Top = 290 Width = 1265 Height = 738 Caption = #25104#21697#26816#39564 @@ -2267,7 +2267,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF AutoSize = True Caption = #20462#25913 ImageIndex = 54 - Visible = False OnClick = ToolButton2Click end object TBClose: TToolButton diff --git a/检验管理/U_MJManageNewFDNew.pas b/检验管理/U_MJManageNewFDNew.pas index 3e24d1b..76ec486 100644 --- a/检验管理/U_MJManageNewFDNew.pas +++ b/检验管理/U_MJManageNewFDNew.pas @@ -337,7 +337,7 @@ type { Private declarations } FInt, PState, PrintInt, SCInitGrid, FState, FCK, FJYP: Integer; FColumn, FBanZu, FAPID, FMainId, FSubId, FFFMJID: string; - FJZ, FJC: Double; + FJZ, FJC, Fmachi: Double; fRollType, fRollType1: string; isCommopen, IsJsMessage: boolean; MValue, FCDName: string; @@ -394,7 +394,7 @@ begin // Label9.Caption := 'Y'; end; - edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]); +// edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]); end; end; @@ -689,10 +689,16 @@ begin OpenCom(DllName); if trim(JCYDLL) <> '' then OpenCom(JCYDLL); - Edit7.Visible := true; + Edit7.Visible := true; Label35.Visible := true; Edit9.Visible := true; Label44.Visible := true; + + end; + if Trim(DParameters1) = 'Ȩ' then + begin + ToolButton2.Visible := true; +// showmessage('˽ΪȨ!'); end; end; @@ -1049,8 +1055,17 @@ begin FieldByName('mjxh').Value := Trim(mjxh.Text); FieldByName('MJTypeOther').Value := Trim(Label9.Caption); FieldByName('MJStr1').Value := Trim(Label13.Caption); + if Fmachi > 1 then + begin + FieldByName('MJLen').Value := format('%.' + trim(fxsws) + 'f', [StrToFloatdef(trim(MJLen.Text), 0) / (Fmachi / 100) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc]); + + end + else + begin + FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc; + + end; - FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc; FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); @@ -1531,7 +1546,7 @@ begin // RM2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1); // // RM2.ShowReport; // RM2.PrintReport; - if Edit5.Text <> '' then + if Edit5.Text <> '' then begin RM3.LoadFromFile(fPrintFile); RM3.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1); @@ -1736,6 +1751,8 @@ begin Label21.Caption := Trim(FCDName); FInt := 11; Edit1.SetFocus; +// edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]); + edit1.Text := trim(MJLen.Text); //CDQty.SetFocus; Panel3.Visible := True; PState := 1; @@ -1779,12 +1796,13 @@ end; procedure TfrmMJManageNewFDNewSF.Button1Click(Sender: TObject); var mvalue: Double; -begin +begin { if Trim(Edit1.Text)='' then begin Application.MessageBox('λòΪգ','ʾ',0); exit; end; } + edit2.Text := trim(MJLen.Text); if Trim(Edit1.Text) <> '' then begin if Trim(Edit2.Text) <> '' then @@ -2239,6 +2257,7 @@ begin FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString); FJZ := ADOTmp.fieldbyname('jiazhong').AsFloat; FJC := ADOTmp.fieldbyname('jiachang').AsFloat; + Fmachi := ADOTmp.fieldbyname('machi').asfloat; FJYP := StrToIntdef(ADOTmp.fieldbyname('jypiqty').asstring, 0); AOrdDefNote1.Text := 'װҪ:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 //+':'+Trim(ADOTmp.fieldbyname('MPRTYaoFeng').AsString)+#13 //+'̽:'+Trim(ADOTmp.fieldbyname('MPRTTangJin').AsString)+#13 @@ -2492,6 +2511,18 @@ end; procedure TfrmMJManageNewFDNewSF.ToolButton2Click(Sender: TObject); begin + with ADOTmp do + begin + Close; + sql.Clear; + SQL.Add('select * from SY_PurView where ModuleId=''02'' and ModuleSubId =''98'' and UserID=''' + Trim(dname) + ''' '); + Open; + end; + if ADOTmp.IsEmpty then + begin + Application.MessageBox('ΪȨ޹!', 'ʾ', 0); + Exit; + end; if CDS_MJID.IsEmpty then exit; if CDS_MJCD.IsEmpty = False then diff --git a/检验管理/U_OrderInPut.pas b/检验管理/U_OrderInPut.pas index 516f6fd..3acc634 100644 --- a/检验管理/U_OrderInPut.pas +++ b/检验管理/U_OrderInPut.pas @@ -611,6 +611,7 @@ begin fieldbyname('SordQty1').Value := Order_Sub.fieldbyname('SordQty1').AsFloat; fieldbyname('SordQty2').Value := Order_Sub.fieldbyname('SordQty2').AsFloat; fieldbyname('SordQty3').Value := Order_Sub.fieldbyname('SordQty3').AsFloat; + FieldByName('PRTColor').Value := trim(Order_Sub.FieldByName('PRTColor').AsString); FieldByName('Sorddefstr10').Value := Order_Sub.FieldByName('Sorddefstr10').AsString; FieldByName('khOrderNO').Value := trim(Order_Sub.FieldByName('khOrderNO').AsString); FieldByName('SLBName').Value := ExtractFileName(trim(SLBName.Text)); diff --git a/检验管理/U_ProductOrderLBNameSet.dfm b/检验管理/U_ProductOrderLBNameSet.dfm index 051cf64..64efb80 100644 --- a/检验管理/U_ProductOrderLBNameSet.dfm +++ b/检验管理/U_ProductOrderLBNameSet.dfm @@ -137,16 +137,24 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet ImageIndex = 60 OnClick = ToolButton9Click end - object ToolButton7: TToolButton + object ToolButton12: TToolButton Left = 261 Top = 30 AutoSize = True + Caption = #30721#23610#35774#32622 + ImageIndex = 60 + OnClick = ToolButton12Click + end + object ToolButton7: TToolButton + Left = 348 + Top = 30 + AutoSize = True Caption = #39044#35272#21367#26631#31614 ImageIndex = 12 OnClick = ToolButton7Click end object ToolButton8: TToolButton - Left = 360 + Left = 447 Top = 30 AutoSize = True Caption = #39044#35272#21253#26631#31614 @@ -154,7 +162,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet OnClick = ToolButton8Click end object PiZhong: TEdit - Left = 459 + Left = 546 Top = 30 Width = 121 Height = 30 @@ -167,7 +175,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet TabOrder = 0 end object TBClose: TToolButton - Left = 580 + Left = 667 Top = 30 AutoSize = True Caption = #20851#38381 @@ -421,7 +429,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet Align = alTop TabOrder = 2 object Tv1: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> OnCellDblClick = Tv1CellDblClick DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -610,6 +618,24 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet Options.Focusing = False Width = 65 end + object Tv1Column1: TcxGridDBColumn + Caption = #30721#23610 + DataBinding.FieldName = 'machi' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column2: TcxGridDBColumn + Caption = #26579#21378#32568#21495 + DataBinding.FieldName = 'PRTrcgh' + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column3: TcxGridDBColumn + Caption = #27454#21495 + DataBinding.FieldName = 'PRTKuanNo' + HeaderAlignmentHorz = taCenter + Width = 60 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/检验管理/U_ProductOrderLBNameSet.pas b/检验管理/U_ProductOrderLBNameSet.pas index 8898a89..10a0c49 100644 --- a/检验管理/U_ProductOrderLBNameSet.pas +++ b/检验管理/U_ProductOrderLBNameSet.pas @@ -6,11 +6,26 @@ 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; + 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, 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 TfrmProductOrderLBNameSet = class(TForm) @@ -97,6 +112,10 @@ type v1Column7: TcxGridDBColumn; v1Column8: TcxGridDBColumn; ToolButton11: TToolButton; + Tv1Column1: TcxGridDBColumn; + ToolButton12: TToolButton; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -106,20 +125,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); @@ -134,50 +146,52 @@ type procedure ToolButton9Click(Sender: TObject); procedure ToolButton10Click(Sender: TObject); procedure ToolButton11Click(Sender: TObject); + procedure ToolButton12Click(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(); @@ -190,41 +204,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; @@ -232,7 +247,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -244,10 +259,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); @@ -255,12 +271,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; @@ -269,11 +283,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 @@ -299,9 +311,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; @@ -338,18 +348,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; @@ -359,51 +370,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 @@ -417,27 +428,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; @@ -453,91 +465,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; @@ -545,7 +553,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -556,51 +564,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; @@ -608,7 +617,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -626,36 +635,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 @@ -664,45 +669,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 @@ -714,9 +711,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; @@ -724,7 +721,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -733,17 +730,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(); @@ -752,8 +748,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; @@ -761,51 +757,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; @@ -813,7 +810,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -825,51 +822,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; @@ -877,7 +875,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -889,147 +887,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; @@ -1037,7 +1041,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -1049,51 +1053,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; @@ -1101,7 +1106,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -1112,51 +1117,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; @@ -1164,7 +1170,7 @@ begin while not Eof do begin edit; - fieldbyname('Ssel').AsBoolean:=False; + fieldbyname('Ssel').AsBoolean := False; post; next; end; @@ -1173,4 +1179,70 @@ 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 machi=' + Trim(PiZhong.Text)); + sql.Add(' where Subid=''' + Trim(Order_Main.fieldbyname('Subid').AsString) + ''''); + ExecSQL; + end; + with Order_Main do + begin + Edit; + FieldByName('machi').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; + end. +