From 8625d20e956bba443acbc851810563107652fc4e Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Wed, 30 Apr 2025 16:25:49 +0800 Subject: [PATCH] ~ --- T03贸易布匹检验/DjdMachineInsp.identcache | Bin 3611 -> 3611 bytes T03贸易布匹检验/U_MachRollMain.dfm | 34 +++--- T03贸易布匹检验/U_MachRollMain.pas | 134 ++++++++++++++++------ 3 files changed, 115 insertions(+), 53 deletions(-) diff --git a/T03贸易布匹检验/DjdMachineInsp.identcache b/T03贸易布匹检验/DjdMachineInsp.identcache index 415d003d8af58b95881fccbe654923c1f8dcdba5..515b0c208e13d8967de03daad4e44749672d10f2 100644 GIT binary patch delta 78 zcmbO&Gh1du1=GZM_sN?%B_>~BQQAC<=@#SUT|Ci~1-KnHZ(+H~IN6$g5fFP#ZsB+_ g`7V1bSc02tJ=5e~wvf%Dyljk<`I#LiE3!)g0EJo_xc~qF delta 78 zcmV-U0I~m@9Ge`lcmk7(1tPQg0@?wyE(I9^lV=Q6lWqe*lK~DIlj#RalaU8llN$+L kv*`yi0g+!vlfMEOlP(27v$zSb0+9qklN1FSv%3ri0WW$P<^TWy diff --git a/T03贸易布匹检验/U_MachRollMain.dfm b/T03贸易布匹检验/U_MachRollMain.dfm index 0c694c1..a99999e 100644 --- a/T03贸易布匹检验/U_MachRollMain.dfm +++ b/T03贸易布匹检验/U_MachRollMain.dfm @@ -317,7 +317,7 @@ end object OutPutWeight: TcxTextEdit Tag = 999 - Left = 8864 + Left = 8561 Top = 10000 AutoSize = False ParentFont = False @@ -374,7 +374,7 @@ Width = 181 end object cxDBImage1: TcxDBImage - Left = 8864 + Left = 8561 Top = 10000 Hint = 'FileName' DataBinding.DataField = 'FilesOther' @@ -521,7 +521,7 @@ Width = 149 end object C_Pattern: TcxTextEdit - Left = 8864 + Left = 8561 Top = 10000 ParentFont = False Properties.ReadOnly = True @@ -532,7 +532,7 @@ Width = 124 end object RuleYardstick: TcxTextEdit - Left = 8703 + Left = 8400 Top = 10000 AutoSize = False ParentFont = False @@ -554,7 +554,7 @@ Width = 69 end object C_StyleNo: TcxTextEdit - Left = 8864 + Left = 8561 Top = 10000 Properties.ReadOnly = True Style.HotTrack = False @@ -579,7 +579,7 @@ OnClick = packPostBtnClick end object customStrField1: TcxTextEdit - Left = 8864 + Left = 8561 Top = 10000 Properties.ReadOnly = True Style.HotTrack = False @@ -590,7 +590,7 @@ Width = 121 end object customStrField2: TcxTextEdit - Left = 8864 + Left = 8561 Top = 10000 Style.HotTrack = False Style.TransparentBorder = False @@ -600,7 +600,7 @@ Width = 121 end object C_Width: TcxTextEdit - Left = 8864 + Left = 8561 Top = 10000 ParentFont = False Style.HotTrack = False @@ -611,7 +611,7 @@ Width = 121 end object C_GramWeight: TcxTextEdit - Left = 8864 + Left = 8561 Top = 10000 ParentFont = False Style.HotTrack = False @@ -622,7 +622,7 @@ Width = 121 end object addLen: TcxTextEdit - Left = 8864 + Left = 8561 Top = 10000 Style.HotTrack = False Style.TransparentBorder = False @@ -632,7 +632,7 @@ Width = 121 end object addWet: TcxTextEdit - Left = 8864 + Left = 8561 Top = 10000 Style.HotTrack = False Style.TransparentBorder = False @@ -642,7 +642,7 @@ Width = 121 end object bt_printmd: TButton - Left = 8864 + Left = 8561 Top = 10000 Width = 48 Height = 33 @@ -658,7 +658,7 @@ OnClick = bt_printmdClick end object presentLen: TcxTextEdit - Left = 8864 + Left = 8561 Top = 10000 Style.HotTrack = False Style.TransparentBorder = False @@ -668,7 +668,7 @@ Width = 121 end object presentWeight: TcxTextEdit - Left = 8864 + Left = 8561 Top = 10000 Style.HotTrack = False Style.TransparentBorder = False @@ -678,7 +678,7 @@ Width = 121 end object unitPieces: TcxTextEdit - Left = 8864 + Left = 8561 Top = 10000 Style.HotTrack = False Style.TransparentBorder = False @@ -764,7 +764,9 @@ '1' '2' '3' - '4') + '4' + '5' + '6') end object dxLayoutControl_packGroup_Root: TdxLayoutGroup AlignHorz = ahClient diff --git a/T03贸易布匹检验/U_MachRollMain.pas b/T03贸易布匹检验/U_MachRollMain.pas index 7e02c45..b7236e0 100644 --- a/T03贸易布匹检验/U_MachRollMain.pas +++ b/T03贸易布匹检验/U_MachRollMain.pas @@ -372,6 +372,7 @@ type function deletePack(packId: string): boolean; function checkPicecNo(): boolean; function getCurPieceNO(mCcid: string): string; + function InitDevComboboxG(ADOQueryTmp: TADOQuery; combobox: TcxCombobox; mFlag: string; selFlag: Boolean = true): Boolean; type public @@ -432,6 +433,21 @@ begin Application.MessageBox('µÈ¼¶²»ÄÜΪ¿Õ!', 'Ìáʾ', 0); exit; end; + + with ADOCmd do + begin + Close; + SQL.Clear; + SQL.Add(' select * from BS_Cloth_IO A where STKName=''óÒ×´ý¼ì²¼'' '); + SQL.Add(' and A.FromSubId=''' + trim(Fsubid) + ''''); + Open; + end; + if ADOCmd.IsEmpty then + begin + Application.MessageBox('¸ÃÑÕɫδÔÚ´ý¼ì²¼²Ö¿â£¬²»¿ÉÒÔ¼ìÑé¸ÃÑÕÉ«£¡', 'ÌáʾÐÅÏ¢', MB_ICONERROR); + exit; + end; + if CheckData('Ìá½»') = false then exit; @@ -901,6 +917,49 @@ begin frmMachRollMain := nil; end; +function TfrmMachRollMain.InitDevComboboxG(ADOQueryTmp: TADOQuery; combobox: TcxCombobox; mFlag: string; selFlag: Boolean = true): Boolean; +begin + Result := false; + try + with ADOQueryTmp do + begin + close; + sql.Clear; + sql.Add('select a.itemText from SY_Dict_Item a'); + sql.Add(' inner join SY_Dict b on b.dictId=a.dictId'); + sql.Add(' where b.dictcode=' + QuotedStr(mFlag)); + sql.Add('and a.valid=1 and b.valid=1'); + sql.Add('order by A.sortorder'); + Open; + + if IsEmpty then + begin + application.MessageBox(PWideChar('䶨Òå¶ÔÓ¦µÄ×Ö¶Î×ÖµäÊý¾Ý(' + mFlag + ')'), '', 0); + Exit; + end; + combobox.Properties.BeginUpdate; + combobox.Properties.Items.Clear; + first; + while not eof do + begin + combobox.Properties.Items.Add(trim(FieldByName('itemText').AsString)); + next; + end; + if selFlag and (combobox.Properties.Items.Count > 0) then + begin + combobox.ItemIndex := 0; + end; + + combobox.Properties.EndUpdate(); + end; + + except + + raise Exception.Create(PWideChar('»ñÈ¡×Ö¶Î×ÖµäÊý¾Ý(' + mFlag + ')ʱ£¬·¢Éú´íÎó!')); + + end; +end; + procedure TfrmMachRollMain.FormShow(Sender: TObject); var i: Integer; @@ -913,7 +972,7 @@ begin cxGridPopupMenu1.Grid := cxGrid3; end; TgridLiSet.Visible := gIsCanDesign; - InitDevCombobox(ADOQueryBaseTemp, grade, 'CPGRADE'); + InitDevComboboxG(ADOQueryBaseTemp, grade, 'CPGRADE'); ReadCxGrid(trim(Self.Caption) + 'Tv1', TV1, gDllFileCaption); ReadCxGrid(trim(Self.Caption) + 'Tv2', Tv2, gDllFileCaption); ReadCxGrid(trim(Self.Caption) + 'Tv3', Tv3, gDllFileCaption); @@ -1589,8 +1648,8 @@ begin SQL.Clear; SQL.Add('Update Trade_Cloth_Inspect Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName))); SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FCXPacketCIID) + ','','') X where Trade_Cloth_Inspect.CIID=X.RTValue ) '); - SQL.Add('Update Bs_Cloth_IO Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName))); - SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FCXPacketCIID) + ','','') X where Bs_Cloth_IO.STKID=X.RTValue ) '); + SQL.Add('Update Trade_Cloth_Stock Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName))); + SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FCXPacketCIID) + ','','') X where Trade_Cloth_Stock.CIID=X.RTValue ) '); // showmessage(SQL.text); ExecSQL; end; @@ -1637,8 +1696,8 @@ begin sql.Clear; SQL.Add('Update Trade_Cloth_Inspect Set PacketTime=null, PacketNo=null,PacketId=null,PacketCode=null,PacketName=null '); SQL.Add('WHERE CIID=' + QuotedStr(trim(cds_3.fieldbyName('CIID').AsString))); - SQL.Add('Update Bs_Cloth_IO Set PacketTime=null, PacketNo=null,PacketId=null,PacketCode=null,PacketName=null '); - SQL.Add('WHERE STKID=' + QuotedStr(trim(cds_3.fieldbyName('CIID').AsString))); + SQL.Add('Update Trade_Cloth_Stock Set PacketTime=null, PacketNo=null,PacketId=null,PacketCode=null,PacketName=null '); + SQL.Add('WHERE CIID=' + QuotedStr(trim(cds_3.fieldbyName('CIID').AsString))); SQL.Add('insert into Trade_Need_Up(UType,UOperation,UDataId,uoperator) values(''¼ìÑé'',''¼ìÑéɾ³ý'',' + QuotedStr(trim(cds_3.fieldbyName('CIID').AsString)) + ',' + QuotedStr(DName) + ') '); // showmessage(sql.text); @@ -2143,10 +2202,10 @@ begin begin Close; SQL.Clear; - SQL.Add('select isnull(count(*),0) as js from Trade_Cloth_Inspect where PacketNo=''' + trim(edtPacketNo.Text) + ''' and mainid='''+trim(Fmainid)+''' '); + SQL.Add('select isnull(count(*),0) as js from Trade_Cloth_Inspect where PacketNo=''' + trim(edtPacketNo.Text) + ''' and mainid=''' + trim(Fmainid) + ''' '); open; end; - if ADOQuery1.fieldbyName('JS').AsInteger =1 then + if ADOQuery1.fieldbyName('JS').AsInteger = 1 then begin Application.MessageBox('°üºÅÖظ´£¬ÇëÖØдò°ü!', 'Ìáʾ', 0); Exit; @@ -2168,8 +2227,8 @@ begin SQL.Clear; SQL.Add('Update Trade_Cloth_Inspect Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName))); SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FPacketCIID) + ','','') X where Trade_Cloth_Inspect.CIID=X.RTValue ) '); - SQL.Add('Update Bs_Cloth_IO Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName))); - SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FPacketCIID) + ','','') X where Bs_Cloth_IO.STKID=X.RTValue ) '); + SQL.Add('Update Trade_Cloth_Stock Set PacketTime=GETDATE() , PacketNo=' + trim(edtPacketNo.Text) + ',PacketId=' + QuotedStr(trim(MPacketId)) + ',PacketCode=' + QuotedStr(trim(DCode)) + ',PacketName=' + QuotedStr(trim(DName))); + SQL.Add('WHERE EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + QuotedStr(FPacketCIID) + ','','') X where Trade_Cloth_Stock.STKID=X.RTValue ) '); ExecSQL; end; if (cds_params.fieldbyName('packlabnumber').AsInteger > 0) then @@ -2287,19 +2346,19 @@ begin begin edtChen.Text := ''; end; - if not cds_params.IsEmpty then +// if not cds_params.IsEmpty then +// begin + cds_params.Edit; + with cds_params do begin - cds_params.Edit; - with cds_params do - begin - if Trim(edtChen.Text) = '¡Ì' then - cds_params.fieldByName('chen').Value := '1' - else - cds_params.fieldByName('chen').Value := '0'; + if Trim(edtChen.Text) = '¡Ì' then + cds_params.fieldByName('chen').Value := '1' + else + cds_params.fieldByName('chen').Value := '0'; - end; - cds_params.Post; end; + cds_params.Post; +// end; end; procedure TfrmMachRollMain.outPageClick(Sender: TObject); @@ -2313,16 +2372,16 @@ begin begin outPage.Text := ''; end; - if not cds_params.IsEmpty then +// if not cds_params.IsEmpty then +// begin + cds_params.Edit; + with cds_params do begin - cds_params.Edit; - with cds_params do - begin // ³öÖ½ - cds_params.fieldByName('outPage').Value := outPage.Text; - end; - cds_params.Post; + cds_params.fieldByName('outPage').Value := outPage.Text; end; + cds_params.Post; +// end; end; procedure TfrmMachRollMain.dxLayoutControl_packDblClick(Sender: TObject); @@ -2374,18 +2433,18 @@ begin begin edtMaBiao.Text := ''; end; - if not cds_params.IsEmpty then +// if not cds_params.IsEmpty then +// begin + cds_params.Edit; + with cds_params do begin - cds_params.Edit; - with cds_params do - begin - if Trim(edtMaBiao.Text) = '¡Ì' then - cds_params.fieldByName('mabiao').Value := '1' - else - cds_params.fieldByName('mabiao').Value := '0'; - end; - cds_params.Post; + if Trim(edtMaBiao.Text) = '¡Ì' then + cds_params.fieldByName('mabiao').Value := '1' + else + cds_params.fieldByName('mabiao').Value := '0'; end; + cds_params.Post; +// end; end; procedure TfrmMachRollMain.Edit_pieceOrderClick(Sender: TObject); @@ -3053,7 +3112,8 @@ begin frameBads1.lblCIFName.Caption := trim(TSpeedButton(Sender).Hint); frameBads1.CIFNumber.SetFocus; - + frameBads1.CIFNumber.text := '1'; + frameBads1.CIFBeg.text := trim(Self.InputLen.text); frameBads1cxCheckBox_readLenPropertiesChange(frameBads1.IsSubtract); end;