From eb75179c2c12a582881899f8d75c2e5415e341cf Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 26 Sep 2025 15:34:50 +0800 Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E6=94=B9=E4=B8=80=E7=A0=81=E9=80=9A?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 云翔一码通/U_KuWeiList.dfm | 4 +- 云翔一码通/U_KuWeiList.pas | 78 ----------------------------------- 云翔一码通/U_YMTJGWCList.dfm | 10 ++++- 云翔一码通/U_YMTJGWCList.pas | 13 +++--- 云翔一码通/U_YMTRKInPut.dfm | 28 +++++++++++-- 云翔一码通/U_YMTRKInPut.pas | 47 +++++++-------------- 云翔一码通/U_YMTRKList.dfm | 12 ++++-- 云翔一码通/U_YMTRKList.pas | 17 ++++---- 云翔一码通/U_ZdyAttachGYS.dfm | 41 ++++-------------- 云翔一码通/U_ZdyAttachGYS.pas | 10 ++--- 10 files changed, 82 insertions(+), 178 deletions(-) diff --git a/云翔一码通/U_KuWeiList.dfm b/云翔一码通/U_KuWeiList.dfm index 7985259..7f7d467 100644 --- a/云翔一码通/U_KuWeiList.dfm +++ b/云翔一码通/U_KuWeiList.dfm @@ -1,6 +1,6 @@ object frmKuWeiList: TfrmKuWeiList - Left = 954 - Top = 178 + Left = 756 + Top = 669 Width = 1215 Height = 637 Caption = #24211#20301#31649#29702 diff --git a/云翔一码通/U_KuWeiList.pas b/云翔一码通/U_KuWeiList.pas index 1138ff6..5ccfdbd 100644 --- a/云翔一码通/U_KuWeiList.pas +++ b/云翔一码通/U_KuWeiList.pas @@ -80,7 +80,6 @@ type procedure N1Click(Sender: TObject); procedure cxTabControl1Change(Sender: TObject); procedure ZJStatusChange(Sender: TObject); - procedure ToolButton4Click(Sender: TObject); procedure TbSelectClick(Sender: TObject); procedure Tv1DblClick(Sender: TObject); private @@ -88,7 +87,6 @@ type DQdate:TDateTime; procedure InitGrid(); procedure InitForm(); - procedure PrtData(KWID:String); { Private declarations } public FFInt,FCloth:Integer; @@ -212,82 +210,6 @@ begin TBFind.Click; end; -procedure TfrmKuWeiList.ToolButton4Click(Sender: TObject); -begin - if Order_Main.IsEmpty then Exit; - if Trim(ComboBox1.Text)='' then - begin - Application.MessageBox('Ϊգ','ʾ',0); - Exit; - end; - if Order_Main.Locate('SSel',True,[])=False then - begin - Application.MessageBox('ûѡ!','ʾ',0); - Exit; - end; - Order_Main.DisableControls; - with Order_Main do - begin - First; - while Locate('SSel',True,[]) do - begin - PrtData(Trim(Order_Main.fieldbyname('KWID').AsString)); - Edit; - FieldByName('SSel').Value:=False; - end; - end; - Order_Main.EnableControls; -end; -procedure TfrmKuWeiList.PrtData(KWID:String); -var - fPrintFile,Txt,fImagePath:string; - i,j:Integer; - Moudle: THandle; - Makebar:TMakebar; - Mixtext:TMixtext; -begin - fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\λǩ.rmf'; - if FileExists(fPrintFile)=False then - begin - Application.MessageBox(PChar('û'+ExtractFilePath(Application.ExeName)+'Report\λǩ.rmf'),'ʾ',0); - exit; - end; - with ADOQueryTemp do - begin - Close; - SQL.Clear; - sql.Add('select * from KuWei where KWID='''+Trim(KWID)+''''); - Open; - end; - SCreateCDS20(ADOQueryTemp,CDS_PRT); - SInitCDSData20(ADOQueryTemp,CDS_PRT); - try - Moudle:=LoadLibrary('MakeQRBarcode.dll'); - @Makebar:=GetProcAddress(Moudle,'Make'); - @Mixtext:=GetProcAddress(Moudle,'MixText'); - Txt:=Trim(KWID); - 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; - RMVariables['QRBARCODE']:=fImagePath; - if Trim(ComboBox1.Text)='' then - begin - RMVariables['FangXiang']:=''; - end else - if Trim(ComboBox1.Text)='' then - begin - RMVariables['FangXiang']:=''; - end; - RM1.LoadFromFile(fPrintFile); - //RM1.ShowReport; - RM1.PrintReport; -end; procedure TfrmKuWeiList.TbSelectClick(Sender: TObject); begin diff --git a/云翔一码通/U_YMTJGWCList.dfm b/云翔一码通/U_YMTJGWCList.dfm index d047b58..5c9fd45 100644 --- a/云翔一码通/U_YMTJGWCList.dfm +++ b/云翔一码通/U_YMTJGWCList.dfm @@ -1,6 +1,6 @@ object frmYMTJGWCList: TfrmYMTJGWCList - Left = 433 - Top = 674 + Left = 470 + Top = 318 Width = 1370 Height = 750 Caption = #21152#24037#23436#25104#22238#20179#25968#25454 @@ -346,6 +346,12 @@ object frmYMTJGWCList: TfrmYMTJGWCList Options.Editing = False Width = 69 end + object Tv1ColorNo: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'ColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + end object TV1SPHX: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'SPHX' diff --git a/云翔一码通/U_YMTJGWCList.pas b/云翔一码通/U_YMTJGWCList.pas index 11a8248..e289395 100644 --- a/云翔一码通/U_YMTJGWCList.pas +++ b/云翔一码通/U_YMTJGWCList.pas @@ -87,6 +87,7 @@ type btn1: TButton; KuWei: TcxButtonEdit; Tv1KuWei: TcxGridDBColumn; + Tv1ColorNo: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -125,7 +126,7 @@ implementation uses U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun, - U_ZDYHelp; + U_ZDYHelp, U_KuWeiList; {$R *.dfm} @@ -369,22 +370,20 @@ end; procedure TfrmYMTJGWCList.KuWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp := TfrmZDYHelp.Create(Application); - with frmZDYHelp do + frmKuWeiList := TfrmKuWeiList.Create(Application); + with frmKuWeiList do begin - flag := 'KuWei'; - flagname := 'λ'; if ShowModal = 1 then begin with Self.CDS_Main do begin Edit; - KuWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('KuWei').Value := Trim(frmKuWeiList.Order_Main.fieldbyname('KWName').AsString); end; end; end; finally - frmZDYHelp.Free; + frmKuWeiList.Free; end; end; diff --git a/云翔一码通/U_YMTRKInPut.dfm b/云翔一码通/U_YMTRKInPut.dfm index 0f1ba2a..c906f18 100644 --- a/云翔一码通/U_YMTRKInPut.dfm +++ b/云翔一码通/U_YMTRKInPut.dfm @@ -1,6 +1,6 @@ object frmYMTRKInPut: TfrmYMTRKInPut - Left = 599 - Top = 321 + Left = 319 + Top = 435 Width = 1829 Height = 623 Align = alClient @@ -76,7 +76,7 @@ object frmYMTRKInPut: TfrmYMTRKInPut HeaderAlignmentHorz = taCenter Width = 100 end - object v1Column4: TcxGridDBColumn + object Tv1CRType: TcxGridDBColumn Tag = 2 Caption = #20837#24211#31867#22411 DataBinding.FieldName = 'CRType' @@ -93,6 +93,20 @@ object frmYMTRKInPut: TfrmYMTRKInPut HeaderAlignmentHorz = taCenter Width = 83 end + object Tv1SPType: TcxGridDBColumn + Tag = 2 + Caption = #24067#21305#31867#22411 + DataBinding.FieldName = 'SPType' + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + '' + #38754#24067 + #24213#24067 + #26825) + HeaderAlignmentHorz = taCenter + Width = 70 + end object v1Column21: TcxGridDBColumn Tag = 2 Caption = #23458#25143 @@ -113,6 +127,12 @@ object frmYMTRKInPut: TfrmYMTRKInPut HeaderAlignmentHorz = taCenter Width = 69 end + object Tv1ColorNo: TcxGridDBColumn + Tag = 2 + Caption = #33394#21495 + DataBinding.FieldName = 'ColorNo' + HeaderAlignmentHorz = taCenter + end object v1Column17: TcxGridDBColumn Tag = 2 Caption = #33457#22411 @@ -120,7 +140,7 @@ object frmYMTRKInPut: TfrmYMTRKInPut HeaderAlignmentHorz = taCenter Width = 70 end - object v1Column14: TcxGridDBColumn + object Tv1FactoryName: TcxGridDBColumn Tag = 2 Caption = #21152#24037#21378 DataBinding.FieldName = 'FactoryName' diff --git a/云翔一码通/U_YMTRKInPut.pas b/云翔一码通/U_YMTRKInPut.pas index 8a39030..204e6af 100644 --- a/云翔一码通/U_YMTRKInPut.pas +++ b/云翔一码通/U_YMTRKInPut.pas @@ -38,7 +38,7 @@ type TBDel: TToolButton; TBSave: TToolButton; TBClose: TToolButton; - v1Column4: TcxGridDBColumn; + Tv1CRType: TcxGridDBColumn; DataSource3: TDataSource; CDS_Sub: TClientDataSet; ADOQueryCmd: TADOQuery; @@ -46,7 +46,7 @@ type ADOQueryTemp: TADOQuery; cxGridPopupMenu2: TcxGridPopupMenu; v1Column12: TcxGridDBColumn; - v1Column14: TcxGridDBColumn; + Tv1FactoryName: TcxGridDBColumn; v1Column6: TcxGridDBColumn; v1Column7: TcxGridDBColumn; v1Column8: TcxGridDBColumn; @@ -86,6 +86,8 @@ type TvMXMXID: TcxGridDBColumn; TvMXMXQty: TcxGridDBColumn; cxGridLevel2: TcxGridLevel; + Tv1ColorNo: TcxGridDBColumn; + Tv1SPType: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -95,7 +97,6 @@ type procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); - procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); @@ -127,7 +128,7 @@ var implementation uses - U_DataLink, U_RTFun, U_ZDYHelp, U_ZdyAttachGYS; + U_DataLink, U_RTFun, U_ZDYHelp, U_ZdyAttachGYS, U_KuWeiList; {$R *.dfm} procedure TfrmYMTRKInPut.InitMXGrid(SPID: string); @@ -200,6 +201,7 @@ begin Exit; InitMXGrid(CDS_Sub.fieldbyname('SPID').AsString); + with ADOQueryTemp do begin Close; @@ -208,10 +210,11 @@ begin sql.Add(' and CRQtyFlag=-1'); Open; end; + if not ADOQueryTemp.IsEmpty then begin - v1Column4.Options.Focusing := False; - v1Column14.Options.Focusing := False; + Tv1CRType.Options.Focusing := False; + Tv1FactoryName.Options.Focusing := False; v2Column1.Options.Focusing := False; v1Column8.Options.Focusing := False; v1Column7.Options.Focusing := False; @@ -222,8 +225,8 @@ begin end else begin - v1Column4.Options.Focusing := True; - v1Column14.Options.Focusing := True; + Tv1CRType.Options.Focusing := True; + Tv1FactoryName.Options.Focusing := True; v2Column1.Options.Focusing := True; v1Column8.Options.Focusing := True; v1Column7.Options.Focusing := True; @@ -318,7 +321,6 @@ begin end; FieldByName('SPID').Value := Trim(Maxno); - FieldByName('FZSPID').Value := Trim(Maxno); FieldByName('CKName').Value := '첼'; FieldByName('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); @@ -570,13 +572,14 @@ begin frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag := 'WJGName'; - flagname := 'ӹ'; + flag := 'SPName'; + flagname := 'Ʒ'; if ShowModal = 1 then begin with Self.CDS_Sub do begin Edit; + FieldByName('SPCode').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyCode').AsString); FieldByName('SPName').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); end; end; @@ -586,28 +589,6 @@ begin end; end; -procedure TfrmYMTRKInPut.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); -begin - try - frmZDYHelp := TfrmZDYHelp.Create(Application); - with frmZDYHelp do - begin - flag := 'KuWei'; - flagname := 'λ'; - if ShowModal = 1 then - begin - with Self.CDS_Sub do - begin - Edit; - FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); - end; - end; - end; - finally - frmZDYHelp.Free; - end; -end; - procedure TfrmYMTRKInPut.v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try diff --git a/云翔一码通/U_YMTRKList.dfm b/云翔一码通/U_YMTRKList.dfm index 88d6313..b486074 100644 --- a/云翔一码通/U_YMTRKList.dfm +++ b/云翔一码通/U_YMTRKList.dfm @@ -414,7 +414,7 @@ object frmYMTRKList: TfrmYMTRKList HeaderAlignmentHorz = taCenter Width = 40 end - object v1Column6: TcxGridDBColumn + object TV1SPID: TcxGridDBColumn Caption = #20837#24211#21333#21495 DataBinding.FieldName = 'SPID' HeaderAlignmentHorz = taCenter @@ -526,8 +526,14 @@ object frmYMTRKList: TfrmYMTRKList Options.Editing = False Width = 69 end - object v1Column17: TcxGridDBColumn - Caption = #33457#22411#33457#21495 + object Tv1ColorNo: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'ColorNo' + HeaderAlignmentHorz = taCenter + Options.Editing = False + end + object Tv1SPHX: TcxGridDBColumn + Caption = #33457#22411 DataBinding.FieldName = 'SPHX' HeaderAlignmentHorz = taCenter Options.Editing = False diff --git a/云翔一码通/U_YMTRKList.pas b/云翔一码通/U_YMTRKList.pas index 99f12b7..8aba7e1 100644 --- a/云翔一码通/U_YMTRKList.pas +++ b/云翔一码通/U_YMTRKList.pas @@ -71,12 +71,12 @@ type OrderNo: TEdit; cxGrid2: TcxGrid; Tv1: TcxGridDBTableView; - v1Column6: TcxGridDBColumn; + TV1SPID: TcxGridDBColumn; v1Column2: TcxGridDBColumn; v1Column4: TcxGridDBColumn; v1Column13: TcxGridDBColumn; v1Column15: TcxGridDBColumn; - v1Column17: TcxGridDBColumn; + Tv1SPHX: TcxGridDBColumn; v1Column14: TcxGridDBColumn; v2Column1: TcxGridDBColumn; v1Column8: TcxGridDBColumn; @@ -130,6 +130,7 @@ type btnChk: TButton; btn1: TButton; KuWei: TcxButtonEdit; + Tv1ColorNo: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -175,7 +176,7 @@ implementation uses U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun, - U_ZDYHelp; + U_ZDYHelp, U_KuWeiList; {$R *.dfm} procedure TfrmYMTRKList.InitMXGrid(SPID: string); @@ -614,22 +615,20 @@ end; procedure TfrmYMTRKList.KuWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp := TfrmZDYHelp.Create(Application); - with frmZDYHelp do + frmKuWeiList := TfrmKuWeiList.Create(Application); + with frmKuWeiList do begin - flag := 'KuWei'; - flagname := 'λ'; if ShowModal = 1 then begin with Self.CDS_Main do begin Edit; - KuWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('KuWei').Value := Trim(frmKuWeiList.Order_Main.fieldbyname('KWName').AsString); end; end; end; finally - frmZDYHelp.Free; + frmKuWeiList.Free; end; end; diff --git a/云翔一码通/U_ZdyAttachGYS.dfm b/云翔一码通/U_ZdyAttachGYS.dfm index 24ab286..62664a0 100644 --- a/云翔一码通/U_ZdyAttachGYS.dfm +++ b/云翔一码通/U_ZdyAttachGYS.dfm @@ -1,6 +1,6 @@ object frmZdyAttachGYS: TfrmZdyAttachGYS - Left = 189 - Top = 129 + Left = 703 + Top = 516 Width = 1038 Height = 618 Caption = #20379#24212#21830#36164#26009#31649#29702 @@ -81,52 +81,25 @@ object frmZdyAttachGYS: TfrmZdyAttachGYS Height = 12 Caption = #20379#24212#21830#32534#21495 end - object Label2: TLabel - Left = 395 - Top = 13 - Width = 24 - Height = 12 - Caption = #31867#22411 - Visible = False - end - object CoName: TEdit + object ZdyName: TEdit Tag = 2 Left = 267 Top = 9 Width = 90 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 - TabOrder = 2 - OnChange = CoNameChange + TabOrder = 1 + OnChange = ZdyNameChange end - object CoCode: TEdit + object ZdyCode: TEdit Tag = 2 Left = 83 Top = 9 Width = 90 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 - TabOrder = 1 - OnChange = CoNameChange - end - object FactType: TComboBox - Tag = 2 - Left = 424 - Top = 8 - Width = 90 - Height = 20 - Style = csDropDownList - ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 - ItemHeight = 12 TabOrder = 0 - Visible = False - OnChange = CoNameChange - Items.Strings = ( - '' - #21152#24037#21378 - #22383#24067#21378 - #29289#27969#20844#21496 - #32433#32447#21378) + OnChange = ZdyNameChange end end object cxGrid2: TcxGrid diff --git a/云翔一码通/U_ZdyAttachGYS.pas b/云翔一码通/U_ZdyAttachGYS.pas index 18c3005..0e132fd 100644 --- a/云翔一码通/U_ZdyAttachGYS.pas +++ b/云翔一码通/U_ZdyAttachGYS.pas @@ -42,14 +42,12 @@ type RM1: TRMGridReport; RMDB_Main: TRMDBDataSet; Label3: TLabel; - CoName: TEdit; + ZdyName: TEdit; cxGridPopupMenu2: TcxGridPopupMenu; DS_HZ: TDataSource; CDS_HZ: TClientDataSet; Label1: TLabel; - CoCode: TEdit; - Label2: TLabel; - FactType: TComboBox; + ZdyCode: TEdit; cxGrid2: TcxGrid; Tv2: TcxGridDBTableView; v2Column2: TcxGridDBColumn; @@ -63,7 +61,7 @@ type procedure FormShow(Sender: TObject); procedure TBRafreshClick(Sender: TObject); procedure ToolButton2Click(Sender: TObject); - procedure CoNameChange(Sender: TObject); + procedure ZdyNameChange(Sender: TObject); procedure Tv2DblClick(Sender: TObject); private { Private declarations } @@ -140,7 +138,7 @@ begin end; end; -procedure TfrmZdyAttachGYS.CoNameChange(Sender: TObject); +procedure TfrmZdyAttachGYS.ZdyNameChange(Sender: TObject); begin ToolButton2.Click; end;