Group_99/D10djjuxie
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

3-10

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2026-03-10 16:24:08 +08:00
parent f5a1cf30cf
commit a51dc61490
5 changed files with 41 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
项目代码/djdPack/G01贸易生产计划/U_TradePlanInPut.dfm
View File

@ -1049,6 +1049,8 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Align = alBottom Align = alBottom
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
ExplicitLeft = 1
ExplicitTop = 405
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -1089,10 +1091,10 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object v1SerialNo: TcxGridDBColumn object v1SerialNo: TcxGridDBColumn
Tag = 1
Caption = #24207#21495 Caption = #24207#21495
DataBinding.FieldName = 'SerialNo' DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
FixedKind = fkLeftDynamic
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Filtering = False Options.Filtering = False
Width = 42 Width = 42
@ -1286,7 +1288,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.OnButtonClick = ButtonEdit Properties.OnButtonClick = Tv1C_CompositionPropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 74 Width = 74
end end

4
项目代码/djdPack/G01贸易生产计划/U_TradePlanInPut.pas
View File

@ -517,7 +517,7 @@ begin
procedure procedure
begin begin
// readCxGrid(trim(SELF.Caption) + '-¼Èë´°¿Ú', Tv1, gDllFileCaption); readCxGrid(trim(SELF.Caption) + '-¼Èë´°¿Ú', Tv1, gDllFileCaption);
getLabel(); getLabel();
end) end)
end); end);
@ -797,7 +797,7 @@ begin
begin begin
Edit; Edit;
fieldbyname('SSel').Value := false; fieldbyname('SSel').Value := false;
FieldByName('SerialNo').Value := CDS_1.RecordCount; // FieldByName('SerialNo').Value := CDS_1.RecordCount;
//FieldByName('c_Name').Value := ''; //FieldByName('c_Name').Value := '';
if trim(CDS_1.FieldByName('batchno').AsString)='' then if trim(CDS_1.FieldByName('batchno').AsString)='' then
begin begin

32
项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.dfm
View File

@ -7,7 +7,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitLeft = -148 ExplicitTop = -176
ExplicitWidth = 1306 ExplicitWidth = 1306
ExplicitHeight = 751 ExplicitHeight = 751
PixelsPerInch = 96 PixelsPerInch = 96
@ -413,7 +413,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
Width = 1113 Width = 1113
Height = 465 Height = 465
TabOrder = 2 TabOrder = 2
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.TabPosition = tpBottom Properties.TabPosition = tpBottom
OnClick = cxPageControl1Click OnClick = cxPageControl1Click
@ -424,8 +424,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
Caption = #27719#24635#35270#22270 Caption = #27719#24635#35270#22270
ImageIndex = 0 ImageIndex = 0
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 17 Left = 25
Top = 3 Top = 1
Width = 1040 Width = 1040
Height = 246 Height = 246
TabOrder = 0 TabOrder = 0
@ -813,7 +813,8 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
Align = alBottom Align = alBottom
TabOrder = 1 TabOrder = 1
LookAndFeel.ScrollbarMode = sbmDefault LookAndFeel.ScrollbarMode = sbmDefault
ExplicitTop = 284 ExplicitLeft = -8
ExplicitTop = 275
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -904,7 +905,6 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
OptionsData.Deleting = False OptionsData.Deleting = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.UseOddEvenStyles = bFalse Styles.UseOddEvenStyles = bFalse
object TV2SSel: TcxGridDBColumn object TV2SSel: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
@ -916,6 +916,14 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 56 Width = 56
end end
object TV2SerialNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
FixedKind = fkLeftDynamic
HeaderAlignmentHorz = taCenter
Width = 69
end
object V2BuyConNo: TcxGridDBColumn object V2BuyConNo: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
@ -1371,8 +1379,10 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = #26126#32454#35270#22270 Caption = #26126#32454#35270#22270
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 56
ExplicitTop = 32
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = -549 Left = -544
Top = 46 Top = 46
Width = 1654 Width = 1654
Height = 259 Height = 259
@ -1480,6 +1490,14 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object tv3SerialNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
FixedKind = fkLeftDynamic
HeaderAlignmentHorz = taCenter
Width = 60
end
object tv3ConNo: TcxGridDBColumn object tv3ConNo: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'

2
项目代码/djdPack/G01贸易生产计划/U_TradePlanMgeList.pas
View File

@ -218,6 +218,8 @@ type
TV2ReceiveFactory: TcxGridDBColumn; TV2ReceiveFactory: TcxGridDBColumn;
TV2ReceiveAddress: TcxGridDBColumn; TV2ReceiveAddress: TcxGridDBColumn;
TV2Coefficient: TcxGridDBColumn; TV2Coefficient: TcxGridDBColumn;
TV2SerialNo: TcxGridDBColumn;
tv3SerialNo: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);

16
项目代码/djdPack/G01贸易生产计划/djdPackPlan.dproj.local
View File

@ -69,13 +69,13 @@
<File Path="U_UptPlanDataToRoll.dfm"/> <File Path="U_UptPlanDataToRoll.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
</Transactions> </Transactions>
</BorlandProject> </BorlandProject>