This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-12-09 13:33:53 +08:00
parent 8e2bae078b
commit 8ef5408710
3 changed files with 34 additions and 3 deletions

View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\¿ÂÁú\Å÷²¼»ã×ֿܲâ(ClothWarehouse.dll)\testDll.exe HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7fhkelong\Å÷²¼»ã×ֿܲâ(ClothWarehouse.dll)\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

View File

@ -208,7 +208,7 @@ object frmPBRklist: TfrmPBRklist
ParentFont = False ParentFont = False
end end
object Label15: TLabel object Label15: TLabel
Left = 841 Left = 1039
Top = 24 Top = 24
Width = 52 Width = 52
Height = 12 Height = 12
@ -286,6 +286,19 @@ object frmPBRklist: TfrmPBRklist
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label12: TLabel
Left = 801
Top = 14
Width = 54
Height = 12
Caption = #25209' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 76 Left = 76
Top = 11 Top = 11
@ -369,7 +382,7 @@ object frmPBRklist: TfrmPBRklist
end end
object Code: TEdit object Code: TEdit
Tag = 2 Tag = 2
Left = 897 Left = 1095
Top = 20 Top = 20
Width = 80 Width = 80
Height = 20 Height = 20
@ -428,6 +441,15 @@ object frmPBRklist: TfrmPBRklist
TabOrder = 12 TabOrder = 12
OnChange = CodeNameChange OnChange = CodeNameChange
end end
object CRID: TEdit
Tag = 2
Left = 857
Top = 10
Width = 80
Height = 20
TabOrder = 13
OnChange = CodeNameChange
end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
@ -622,6 +644,12 @@ object frmPBRklist: TfrmPBRklist
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 67 Width = 67
end end
object Tv1Column8: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'CRID'
HeaderAlignmentHorz = taCenter
Width = 78
end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #25240#31639#31859#25968 Caption = #25240#31639#31859#25968
DataBinding.FieldName = 'zsqty' DataBinding.FieldName = 'zsqty'

View File

@ -113,6 +113,9 @@ type
ToolButton2: TToolButton; ToolButton2: TToolButton;
CDS_Print: TClientDataSet; CDS_Print: TClientDataSet;
DataSource2: TDataSource; DataSource2: TDataSource;
Label12: TLabel;
CRID: TEdit;
Tv1Column8: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);