Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-03-12 16:13:21 +08:00
parent ed8c265ddd
commit bb97dac207
24 changed files with 6311 additions and 724 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
A00通用窗体/U_TatClothInfoSel.dfm
View File

@ -111,6 +111,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Height = 508
Align = alClient
TabOrder = 0
ExplicitLeft = 6
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
@ -159,38 +160,14 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Options.Editing = False
Width = 96
end
object Tv1Column8: TcxGridDBColumn
Caption = #26426#22411
DataBinding.FieldName = 'LoomType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column5: TcxGridDBColumn
Caption = #24635#22836#32441
DataBinding.FieldName = 'C_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column3: TcxGridDBColumn
Caption = #31576#24133
Caption = #38376#24133
DataBinding.FieldName = 'C_ReedWidth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Caption = #31576#21495
DataBinding.FieldName = 'C_ReedNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column11: TcxGridDBColumn
Caption = #32428#23494
DataBinding.FieldName = 'C_FinishLatitudeDensity'
@ -215,29 +192,21 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Options.Editing = False
Width = 105
end
object Tv1Column1: TcxGridDBColumn
Caption = #31359#32508#39034#24207
DataBinding.FieldName = 'ThroughHealdOrder'
object Tv1Column13: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
Width = 80
end
object Tv1Column3: TcxGridDBColumn
Caption = #25972#32463#24037#33402#21517#31216
DataBinding.FieldName = 'WB_Name'
object Tv1Column14: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 115
end
object Tv1Column4: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495
DataBinding.FieldName = 'WB_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 98
Width = 80
end
object Tv1Column6: TcxGridDBColumn
Caption = #39068#33394
@ -269,22 +238,6 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Options.Editing = False
Width = 80
end
object Tv1Column13: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column14: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column15: TcxGridDBColumn
Caption = #29256#26412#32534#21495
DataBinding.FieldName = 'BBNO'
@ -293,6 +246,14 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Options.Editing = False
Width = 100
end
object Tv1Column8: TcxGridDBColumn
Caption = #32455#32553
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

5
A00通用窗体/U_TatClothInfoSel.pas
View File

@ -44,7 +44,6 @@ type
v1Column3: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Panel7: TPanel;
Panel4: TPanel;
@ -73,13 +72,9 @@ type
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;

258
A02基础产品管理/U_TatClothInfo.dfm
View File

@ -181,6 +181,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Color = clWhite
ParentBackground = False
TabOrder = 6
ExplicitTop = 34
object Label11: TLabel
Left = 1072
Top = 107
@ -220,30 +221,30 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Caption = #20135#21697#21517#31216
end
object Label1: TLabel
Left = 460
Left = 459
Top = 11
Width = 64
Width = 32
Height = 21
Caption = #32463#19997#21517#31216
Caption = #38376#24133
end
object Label2: TLabel
Left = 674
Top = 11
Width = 64
Width = 96
Height = 21
Caption = #32428#19997#21517#31216
Caption = #29702#35770#24179#26041#20811#37325
end
object Label5: TLabel
Left = 889
Left = 923
Top = 11
Width = 32
Width = 96
Height = 21
Caption = #22836#32441
Caption = #23454#27979#24179#26041#20811#37325
end
object C_Name: TcxTextEdit
Tag = 2
Left = 315
Top = 6
Top = 7
TabOrder = 0
OnKeyPress = C_CodeKeyPress
Width = 121
@ -251,31 +252,31 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object C_Code: TcxTextEdit
Tag = 2
Left = 101
Top = 6
Top = 7
TabOrder = 1
OnKeyPress = C_CodeKeyPress
Width = 121
end
object HZJSName: TcxTextEdit
object C_ReedWidth: TcxTextEdit
Tag = 2
Left = 529
Top = 5
Top = 7
TabOrder = 2
OnKeyPress = C_CodeKeyPress
Width = 121
end
object HZWSName: TcxTextEdit
object C_GramWeight: TcxTextEdit
Tag = 2
Left = 743
Top = 5
Left = 777
Top = 7
TabOrder = 3
OnKeyPress = C_CodeKeyPress
Width = 121
end
object C_YarnQty: TcxTextEdit
object C_TestGramWeight: TcxTextEdit
Tag = 2
Left = 958
Top = 5
Left = 1025
Top = 7
TabOrder = 4
OnKeyPress = C_CodeKeyPress
Width = 121
@ -410,38 +411,14 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False
Width = 99
end
object v1Column3: TcxGridDBColumn
Caption = #26426#22411
DataBinding.FieldName = 'LoomType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object v1Column1: TcxGridDBColumn
Caption = #24635#22836#32441
DataBinding.FieldName = 'C_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object Tv1Column11: TcxGridDBColumn
Caption = #31576#24133
Caption = #38376#24133
DataBinding.FieldName = 'C_ReedWidth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object Tv1Column3: TcxGridDBColumn
Caption = #31576#21495
DataBinding.FieldName = 'C_ReedNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object Tv1Column1: TcxGridDBColumn
Caption = #32428#23494
DataBinding.FieldName = 'C_FinishLatitudeDensity'
@ -450,6 +427,86 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False
Width = 99
end
object Tv1Column2: TcxGridDBColumn
Caption = #29702#35770#24179#26041#20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 125
end
object Tv1Column8: TcxGridDBColumn
Caption = #23454#27979#24179#26041#20811#37325
DataBinding.FieldName = 'C_TestGramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 132
end
object Tv1Column17: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column18: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column13: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column14: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column15: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column16: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column19: TcxGridDBColumn
Caption = #29256#26412#32534#21495
DataBinding.FieldName = 'BBNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column20: TcxGridDBColumn
Caption = #32455#32553
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column11: TcxGridDBColumn
Caption = #22270#29255
DataBinding.FieldName = 'IsImg'
@ -499,108 +556,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False
Width = 99
end
object Tv1Column2: TcxGridDBColumn
Caption = #29702#35770#24179#26041#20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 125
end
object Tv1Column8: TcxGridDBColumn
Caption = #23454#27979#24179#26041#20811#37325
DataBinding.FieldName = 'C_TestGramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 132
end
object Tv1Column10: TcxGridDBColumn
Caption = #31359#32508#39034#24207
DataBinding.FieldName = 'ThroughHealdOrder'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object Tv1Column4: TcxGridDBColumn
Caption = #25972#32463#24037#33402#21517#31216
DataBinding.FieldName = 'WB_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 123
end
object Tv1Column12: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495
DataBinding.FieldName = 'WB_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 116
end
object Tv1Column13: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column14: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column15: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column16: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column17: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column18: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column19: TcxGridDBColumn
Caption = #29256#26412#32534#21495
DataBinding.FieldName = 'BBNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column20: TcxGridDBColumn
Caption = #32455#32553
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -724,7 +679,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Height = 367
Align = alBottom
TabOrder = 2
Visible = False
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
@ -775,7 +729,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Align = alClient
TabOrder = 1
ExplicitLeft = 4
ExplicitTop = 0
ExplicitTop = 2
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -1212,10 +1166,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo
end
end
inherited cxProgressBar2: TcxProgressBar
Left = 327
Top = 193
ExplicitLeft = 327
ExplicitTop = 193
Top = 222
ExplicitTop = 222
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
@ -1392,8 +1344,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 366
Top = 350
Left = 353
Top = 315
end
object CDS_Label: TClientDataSet
Aggregates = <>

24
A02基础产品管理/U_TatClothInfo.pas
View File

@ -66,7 +66,6 @@ type
Panel1: TPanel;
TBFilter: TToolButton;
v1CYNo: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
DS_1: TDataSource;
ADOQueryMain: TADOQuery;
CDS_1: TClientDataSet;
@ -90,7 +89,6 @@ type
Label12: TLabel;
Panel3: TPanel;
adoqueryPicture: TADOQuery;
v1Column1: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
TBAdd: TToolButton;
TBEdit: TToolButton;
@ -124,7 +122,6 @@ type
CDS_Label: TClientDataSet;
Tv1Column1: TcxGridDBColumn;
ToolButton3: TToolButton;
Tv1Column3: TcxGridDBColumn;
cxPageControl3: TcxPageControl;
cxTabSheet1: TcxTabSheet;
Panel6: TPanel;
@ -160,7 +157,6 @@ type
cxGridLevel1: TcxGridLevel;
Tv1Column2: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
@ -181,8 +177,6 @@ type
Tv4Column8: TcxGridDBColumn;
Tv4Column9: TcxGridDBColumn;
Tv4Column10: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
btn1: TToolButton;
ToolButton4: TToolButton;
cxTabSheet4: TcxTabSheet;
@ -200,11 +194,11 @@ type
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Label1: TLabel;
HZJSName: TcxTextEdit;
C_ReedWidth: TcxTextEdit;
Label2: TLabel;
HZWSName: TcxTextEdit;
C_GramWeight: TcxTextEdit;
Label5: TLabel;
C_YarnQty: TcxTextEdit;
C_TestGramWeight: TcxTextEdit;
TV2Column12: TcxGridDBColumn;
TV2Column13: TcxGridDBColumn;
Tv4Column12: TcxGridDBColumn;
@ -463,9 +457,9 @@ end;
procedure TfrmTatClothInfo.FormShow(Sender: TObject);
begin
inherited;
readCxGrid(self.Caption + 'TV1', Tv1, '样品管理');
readCxGrid(self.Caption + 'TV2', Tv2, '样品管理');
readCxGrid(self.Caption + 'TV4', Tv4, '样品管理');
readCxGrid(self.Caption + 'TV11', Tv1, '样品管理');
readCxGrid(self.Caption + 'TV22', Tv2, '样品管理');
readCxGrid(self.Caption + 'TV44', Tv4, '样品管理');
application.ProcessMessages;
RecordsNumber := 500;
CurrentPage := 1;
@ -886,9 +880,9 @@ end;
procedure TfrmTatClothInfo.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(self.Caption + 'TV1', Tv1, '样品管理');
WriteCxGrid(self.Caption + 'TV2', Tv2, '样品管理');
WriteCxGrid(self.Caption + 'TV4', Tv4, '样品管理');
WriteCxGrid(self.Caption + 'TV11', Tv1, '样品管理');
WriteCxGrid(self.Caption + 'TV22', Tv2, '样品管理');
WriteCxGrid(self.Caption + 'TV44', Tv4, '样品管理');
end;
procedure TfrmTatClothInfo.ToolButton3Click(Sender: TObject);

304
A02基础产品管理/U_TatClothInfoInput.dfm
View File

@ -4,19 +4,19 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Anchors = []
Caption = #26797#32455#20135#21697#20449#24687#24405#20837
ClientHeight = 737
ClientWidth = 1442
ClientWidth = 1546
Color = clWhite
Font.Height = -16
OldCreateOrder = True
Position = poScreenCenter
ExplicitWidth = 1458
ExplicitWidth = 1562
ExplicitHeight = 776
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Left = 0
Top = 0
Width = 1442
Width = 1546
Height = 30
AutoSize = True
ButtonHeight = 30
@ -28,6 +28,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 1442
object ToolButton1: TToolButton
Tag = 1
Left = 0
@ -66,8 +67,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object ScrollBox1: TScrollBox [1]
Left = 0
Top = 30
Width = 1442
Height = 363
Width = 1546
Height = 245
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@ -77,22 +78,22 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
ParentCtl3D = False
TabOrder = 1
object Label1: TLabel
Left = 28
Top = 27
Left = 38
Top = 26
Width = 64
Height = 21
Caption = #20135#21697#32534#21495
end
object Label5: TLabel
Left = 385
Top = 27
Top = 26
Width = 64
Height = 21
Caption = #20135#21697#21517#31216
end
object Label3: TLabel
Left = 36
Top = 425
Left = 50
Top = 355
Width = 51
Height = 16
Caption = #26465#30721#65306
@ -105,142 +106,147 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Visible = False
end
object Label16: TLabel
Left = 28
Top = 291
Left = 38
Top = 189
Width = 32
Height = 21
Caption = #22791#27880
end
object Label55: TLabel
Left = 481
Top = 395
Left = 34
Top = 451
Width = 64
Height = 21
Caption = #31359#32508#39034#24207
Visible = False
end
object Label2: TLabel
Left = 385
Top = 115
Left = 1114
Top = 439
Width = 32
Height = 21
Caption = #31576#21495
Visible = False
end
object Label4: TLabel
Left = 28
Top = 235
Left = 385
Top = 62
Width = 96
Height = 21
Caption = #23454#27979#24179#26041#20811#37325
end
object Label6: TLabel
Left = 1077
Top = 115
Left = 1114
Top = 26
Width = 32
Height = 21
Caption = #32428#23494
end
object Label7: TLabel
Left = 28
Top = 115
Left = 736
Top = 483
Width = 48
Height = 21
Caption = #24635#22836#32441
Visible = False
end
object Label8: TLabel
Left = 28
Top = 192
Left = 38
Top = 62
Width = 96
Height = 21
Caption = #29702#35770#24179#26041#20811#37325
end
object Label9: TLabel
Left = 743
Top = 115
Left = 757
Top = 26
Width = 32
Height = 21
Caption = #31576#24133
Caption = #38376#24133
end
object Label10: TLabel
Left = 743
Top = 74
Left = 1132
Top = 485
Width = 32
Height = 21
Caption = #26426#22411
Visible = False
end
object lbl1: TLabel
Left = 28
Top = 74
Left = 762
Top = 404
Width = 96
Height = 21
Caption = #25972#32463#24037#33402#32534#21495
Visible = False
end
object lbl2: TLabel
Left = 385
Top = 74
Left = 1114
Top = 398
Width = 96
Height = 21
Caption = #25972#32463#24037#33402#21517#31216
Visible = False
end
object Label11: TLabel
Left = 385
Top = 154
Top = 98
Width = 32
Height = 21
Caption = #33394#21495
end
object Label12: TLabel
Left = 28
Top = 154
Left = 38
Top = 98
Width = 32
Height = 21
Caption = #39068#33394
end
object Label13: TLabel
Left = 743
Top = 154
Left = 757
Top = 98
Width = 32
Height = 21
Caption = #33457#22411
end
object Label14: TLabel
Left = 1077
Top = 154
Left = 1114
Top = 98
Width = 32
Height = 21
Caption = #27454#21495
end
object Label15: TLabel
Left = 385
Top = 192
Left = 757
Top = 62
Width = 32
Height = 21
Caption = #35268#26684
end
object Label17: TLabel
Left = 1077
Top = 74
Left = 1114
Top = 62
Width = 32
Height = 21
Caption = #25104#20998
end
object Label18: TLabel
Left = 743
Top = 27
Left = 38
Top = 134
Width = 64
Height = 21
Caption = #29256#26412#32534#21495
end
object Label19: TLabel
Left = 1077
Top = 27
Left = 385
Top = 135
Width = 32
Height = 21
Caption = #32455#32553
end
object BCIID: TEdit
Left = 93
Top = 423
Left = 107
Top = 353
Width = 218
Height = 22
Enabled = False
@ -256,16 +262,16 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object CINote: TcxMemo
Tag = 2
Left = 141
Top = 273
Top = 172
ParentColor = True
TabOrder = 1
Height = 57
Width = 589
Width = 567
end
object ThroughHealdOrder: TcxMemo
Tag = 2
Left = 554
Top = 377
Left = 107
Top = 433
ParentColor = True
ParentFont = False
TabOrder = 2
@ -276,7 +282,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object C_Code: TcxTextEdit
Tag = 2
Left = 141
Top = 21
Top = 22
ParentColor = True
TabOrder = 3
OnKeyPress = CYColorKeyPress
@ -284,16 +290,17 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
object LoomType: TcxTextEdit
Tag = 2
Left = 826
Top = 68
Left = 1230
Top = 479
ParentColor = True
TabOrder = 4
Visible = False
Width = 220
end
object C_Name: TcxTextEdit
Tag = 2
Left = 488
Top = 21
Top = 22
ParentColor = True
TabOrder = 5
OnKeyPress = CYColorKeyPress
@ -301,17 +308,18 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
object C_YarnQty: TcxTextEdit
Tag = 2
Left = 141
Top = 109
Left = 834
Top = 479
ParentColor = True
Properties.OnEditValueChanged = C_ReedWidthPropertiesEditValueChanged
TabOrder = 6
Visible = False
Width = 220
end
object C_ReedWidth: TcxTextEdit
Tag = 2
Left = 826
Top = 109
Left = 870
Top = 23
ParentColor = True
Properties.OnEditValueChanged = C_ReedWidthPropertiesEditValueChanged
TabOrder = 7
@ -319,32 +327,33 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
object C_ReedNo: TcxTextEdit
Tag = 2
Left = 488
Top = 109
Left = 1217
Top = 435
ParentColor = True
TabOrder = 8
Visible = False
Width = 220
end
object C_GramWeight: TcxTextEdit
Tag = 2
Left = 141
Top = 186
Top = 58
ParentColor = True
TabOrder = 9
Width = 220
end
object C_TestGramWeight: TcxTextEdit
Tag = 2
Left = 141
Top = 229
Left = 488
Top = 58
ParentColor = True
TabOrder = 10
Width = 220
end
object C_FinishLatitudeDensity: TcxTextEdit
Tag = 2
Left = 1123
Top = 109
Left = 1217
Top = 22
ParentColor = True
Properties.OnEditValueChanged = C_ReedWidthPropertiesEditValueChanged
TabOrder = 11
@ -352,8 +361,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
object WB_Code: TcxButtonEdit
Tag = 2
Left = 141
Top = 68
Left = 860
Top = 398
ParentColor = True
Properties.Buttons = <
item
@ -364,21 +373,23 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Properties.OnButtonClick = WB_CodePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 12
Visible = False
Width = 220
end
object WB_Name: TcxTextEdit
Tag = 2
Left = 488
Top = 68
Left = 1217
Top = 392
Enabled = False
ParentColor = True
TabOrder = 13
Visible = False
Width = 220
end
object C_Color: TcxTextEdit
Tag = 2
Left = 141
Top = 148
Top = 94
ParentColor = True
TabOrder = 14
Width = 220
@ -386,55 +397,55 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object C_ColorNo: TcxTextEdit
Tag = 2
Left = 488
Top = 148
Top = 94
ParentColor = True
TabOrder = 15
Width = 220
end
object C_Pattern: TcxTextEdit
Tag = 2
Left = 826
Top = 148
Left = 870
Top = 94
ParentColor = True
TabOrder = 16
Width = 220
end
object C_StyleNo: TcxTextEdit
Tag = 2
Left = 1123
Top = 148
Left = 1217
Top = 94
ParentColor = True
TabOrder = 17
Width = 220
end
object C_Spec: TcxTextEdit
Tag = 2
Left = 488
Top = 186
Left = 870
Top = 58
ParentColor = True
TabOrder = 18
Width = 220
end
object C_Composition: TcxTextEdit
Tag = 2
Left = 1123
Top = 68
Left = 1217
Top = 58
ParentColor = True
TabOrder = 19
Width = 220
end
object BBNo: TcxTextEdit
Tag = 2
Left = 826
Top = 21
Left = 141
Top = 131
ParentColor = True
TabOrder = 20
Width = 220
end
object ZS: TcxTextEdit
Tag = 2
Left = 1123
Top = 21
Left = 488
Top = 131
ParentColor = True
TabOrder = 21
Width = 220
@ -442,30 +453,29 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
object cxPageControl3: TcxPageControl [2]
Left = 0
Top = 393
Width = 1442
Height = 344
Top = 275
Width = 1546
Height = 462
Align = alClient
TabOrder = 2
Visible = False
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
ExplicitHeight = 2
ClientRectBottom = 344
ClientRectRight = 1442
ExplicitTop = 381
ExplicitHeight = 356
ClientRectBottom = 462
ClientRectRight = 1546
ClientRectTop = 28
object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512
ImageIndex = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
ExplicitWidth = 1442
ExplicitHeight = 316
object GroupBox1: TGroupBox
Left = 931
Top = 0
Width = 511
Height = 316
Width = 615
Height = 434
Align = alClient
Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET
@ -475,31 +485,33 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
ExplicitHeight = 0
ExplicitWidth = 511
ExplicitHeight = 316
object Y_Note_PLJ: TMemo
Tag = 2
Left = 2
Top = 31
Width = 507
Height = 283
Width = 611
Height = 401
Align = alClient
TabOrder = 0
ExplicitHeight = 19
ExplicitWidth = 507
ExplicitHeight = 283
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 931
Height = 316
Height = 434
Align = alLeft
TabOrder = 1
ExplicitHeight = 0
ExplicitHeight = 316
object cxPageControl2: TcxPageControl
Left = 1
Top = 1
Width = 929
Height = 314
Height = 432
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -514,8 +526,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ExplicitHeight = 6
ClientRectBottom = 314
ExplicitHeight = 314
ClientRectBottom = 432
ClientRectRight = 929
ClientRectTop = 0
end
@ -523,11 +535,13 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 1
Top = 1
Width = 929
Height = 314
Height = 432
Align = alClient
PopupMenu = PM_1
TabOrder = 1
ExplicitHeight = 6
ExplicitLeft = 142
ExplicitTop = -9
ExplicitHeight = 375
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -698,11 +712,13 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512
ImageIndex = 1
ExplicitWidth = 1442
ExplicitHeight = 316
object GroupBox2: TGroupBox
Left = 961
Top = 0
Width = 481
Height = 316
Width = 585
Height = 434
Align = alClient
Caption = #32428#25490#21015
Font.Charset = GB2312_CHARSET
@ -712,28 +728,33 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
ExplicitWidth = 481
ExplicitHeight = 316
object Y_Note_PLW: TMemo
Tag = 2
Left = 2
Top = 31
Width = 477
Height = 283
Width = 581
Height = 401
Align = alClient
TabOrder = 0
ExplicitWidth = 477
ExplicitHeight = 283
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 961
Height = 316
Height = 434
Align = alLeft
TabOrder = 1
ExplicitHeight = 316
object cxPageControl1: TcxPageControl
Left = 1
Top = 1
Width = 959
Height = 314
Height = 432
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -748,7 +769,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 314
ExplicitHeight = 314
ClientRectBottom = 432
ClientRectRight = 959
ClientRectTop = 0
end
@ -756,10 +778,11 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 1
Top = 1
Width = 959
Height = 314
Height = 432
Align = alClient
PopupMenu = PM_2
TabOrder = 1
ExplicitHeight = 314
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -930,14 +953,17 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object cxTabSheet3: TcxTabSheet
Caption = #36215#32508#27861
ImageIndex = 3
ExplicitWidth = 1442
ExplicitHeight = 316
object Panel8: TPanel
Left = 0
Top = 0
Width = 1442
Width = 1546
Height = 32
Align = alTop
TabOrder = 0
Visible = False
ExplicitWidth = 1442
object ToolBar4: TToolBar
Tag = 1
Left = 555
@ -1003,39 +1029,49 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Tag = 2
Left = 0
Top = 32
Width = 1442
Height = 284
Width = 1546
Height = 402
Align = alClient
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 1
ExplicitWidth = 1442
ExplicitHeight = 284
end
end
object cxTabSheet4: TcxTabSheet
Caption = #31359#32508#27861
ImageIndex = 3
ExplicitWidth = 1442
ExplicitHeight = 316
object CZF: TMemo
Tag = 2
Left = 0
Top = 0
Width = 1442
Height = 316
Width = 1546
Height = 434
Align = alClient
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 0
ExplicitWidth = 1442
ExplicitHeight = 316
end
end
object cxTabSheet5: TcxTabSheet
Caption = #31359#31576#27861
ImageIndex = 3
ExplicitWidth = 1442
ExplicitHeight = 316
object CKF: TMemo
Tag = 2
Left = 0
Top = 0
Width = 1442
Height = 316
Width = 1546
Height = 434
Align = alClient
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 0
ExplicitWidth = 1442
ExplicitHeight = 316
end
end
end
@ -1055,9 +1091,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 841
Top = 260
DesignInfo = 17040201
Left = 842
Top = 262
DesignInfo = 17171274
end
object ADOQueryCmd: TADOQuery
Connection = ADOConnection1
@ -4812,13 +4848,13 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object CDS_4: TClientDataSet
Aggregates = <>
Params = <>
Left = 740
Top = 490
Left = 1144
Top = 276
end
object DS_4: TDataSource
DataSet = CDS_4
Left = 708
Top = 546
Left = 1193
Top = 281
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
@ -4834,8 +4870,8 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end
object GPM_4: TcxGridPopupMenu
PopupMenus = <>
Left = 668
Top = 486
Left = 1092
Top = 270
end
object ADOQuery1: TADOQuery
Connection = ADOConnection1

4885
E00梭织通用窗体/U_TatGYSel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

200
E00梭织通用窗体/U_TatGYSel.pas Normal file
View File

@ -0,0 +1,200 @@
unit U_TatGYSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxCheckBox, cxCalendar, dxScrollbarAnnotations,
dxSkinsCore, dxSkinsDefaultPainters;
type
TfrmTatGYSel = class(TfrmBaseHelp)
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
TBSave: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
ADOConnection1: TADOConnection;
Panel1: TPanel;
GPM_1: TcxGridPopupMenu;
ImageList1: TImageList;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
Label3: TLabel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label1: TLabel;
OrderNo: TEdit;
C_Name: TEdit;
C_Color: TEdit;
C_ColorNo: TEdit;
C_Pattern: TEdit;
C_Code: TEdit;
ConNo: TEdit;
CustName: TEdit;
Label9: TLabel;
XH: TEdit;
Label10: TLabel;
OrdNote: TEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1OrderNo: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
v1Column31: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
v1PRTKZ: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1PRTMF: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Tv1Column7: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FCoType, FAuthority: string;
{ Public declarations }
end;
var
frmTatGYSel: TfrmTatGYSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmTatGYSel.FormCreate(Sender: TObject);
begin
inherited;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmTatGYSel.FormDestroy(Sender: TObject);
begin
inherited;
frmTatGYSel := nil;
end;
procedure TfrmTatGYSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cahide;
end;
procedure TfrmTatGYSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add(' select *,PZQty=(select count(*) from Tat_WB_Card X where X.OrderNo =A.OrderNo)');
sql.Add(',ZS=(select ZS from Bs_Cloth_Info X where X.C_Code =B.C_Code) ');
sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.MainId=B.MainId');
sql.Add(' where isnull(A.status,''0'')=''22'' ');
// ShowMessage(sql.Text);
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmTatGYSel.OrderNoChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end;
procedure TfrmTatGYSel.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid('单位名称1' + Trim(FCoType), TV1, '自定义数据');
InitGrid();
end;
procedure TfrmTatGYSel.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmTatGYSel.TBSaveClick(Sender: TObject);
begin
WriteCxGrid('单位名称1' + Trim(FCoType), TV1, '自定义数据');
end;
procedure TfrmTatGYSel.ToolButton1Click(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmTatGYSel.Tv1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
end.

21
E00梭织通用窗体/U_TatPlanSel.dfm
View File

@ -1,7 +1,7 @@
inherited frmTatPlanSel: TfrmTatPlanSel
Left = 372
Top = 106
Caption = #35745#21010#21333#36873#25321
Caption = #32455#36896#21333#36873#25321
ClientHeight = 643
ClientWidth = 1637
Color = clWhite
@ -298,9 +298,6 @@ inherited frmTatPlanSel: TfrmTatPlanSel
Height = 546
Align = alClient
TabOrder = 2
ExplicitTop = 140
ExplicitWidth = 1285
ExplicitHeight = 444
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -436,6 +433,22 @@ inherited frmTatPlanSel: TfrmTatPlanSel
HeaderAlignmentHorz = taCenter
Width = 87
end
object Tv1Column9: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495
DataBinding.FieldName = 'WB_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object Tv1Column7: TcxGridDBColumn
Caption = #25972#32463#24037#33402#21517#31216
DataBinding.FieldName = 'WB_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object Tv1Column4: TcxGridDBColumn
Caption = #26426#22411
DataBinding.FieldName = 'LoomType'

2
E00梭织通用窗体/U_TatPlanSel.pas
View File

@ -78,6 +78,8 @@ type
Tv1Column16: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Tv1Column7: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);

6
E01梭织生产计划/ProjectGroup1.groupproj.local
View File

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\testDll.dproj"/>
</Default.Personality>
<Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\testDll.dproj"/>
</Default.Personality>
</BorlandProject>

5
E01梭织生产计划/TatPlan.dpr
View File

@ -27,7 +27,6 @@ uses
U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel},
U_JHDTJ in 'U_JHDTJ.pas' {frmJHDTJ},
U_WBSpecSel in '..\A00通用窗体\U_WBSpecSel.pas' {frmWBSpecSel},
U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
U_TatPlanMachList in 'U_TatPlanMachList.pas' {frmTatPlanMachList},
@ -42,7 +41,9 @@ uses
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_TatGYList in 'U_TatGYList.pas' {frmTatGYList},
U_TatGYInPut in 'U_TatGYInPut.pas' {frmTatGYInPut};
U_TatGYInPut in 'U_TatGYInPut.pas' {frmTatGYInPut},
U_TatGYSel in '..\E00梭织通用窗体\U_TatGYSel.pas' {frmTatGYSel},
U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel};
{$R *.res}

12
E01梭织生产计划/TatPlan.dproj
View File

@ -198,10 +198,6 @@
<Form>frmWBSpecSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\E00梭织通用窗体\U_TatPlanSel.pas">
<Form>frmTatPlanSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
<Form>BaseDataLink</Form>
<FormType>dfm</FormType>
@ -246,6 +242,14 @@
<Form>frmTatGYInPut</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\E00梭织通用窗体\U_TatGYSel.pas">
<Form>frmTatGYSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\E00梭织通用窗体\U_TatPlanSel.pas">
<Form>frmTatPlanSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

99
E01梭织生产计划/TatPlan.dproj.local
View File

@ -1,73 +1,76 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>2025-03-04 20:53:30.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</Transaction>
<Transaction>2025-03-04 20:53:30.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>2025-03-04 20:56:26.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm</Transaction>
<Transaction>2025-03-04 20:56:26.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>2025-03-12 14:13:28.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>2025-03-12 14:13:28.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>2025-03-12 14:13:59.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -128,6 +131,8 @@
<File Path="..\B02基础纱线仓库\U_YarnInfoInPut.pas"/>
<File Path="..\B02基础纱线仓库\U_YarnInfoInPut.dfm"/>
<File Path="..\E00梭织通用窗体"/>
<File Path="..\E00梭织通用窗体\U_TatGYSel.pas"/>
<File Path="..\E00梭织通用窗体\U_TatGYSel.dfm"/>
<File Path="..\E00梭织通用窗体\U_TatPlanSel.pas"/>
<File Path="..\E00梭织通用窗体\U_TatPlanSel.dfm"/>
<File Path="..\T00贸易通用窗体"/>

345
E01梭织生产计划/U_TatGYInPut.dfm
View File

@ -65,7 +65,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Left = 0
Top = 30
Width = 1595
Height = 291
Height = 263
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@ -73,51 +73,51 @@ inherited frmTatGYInPut: TfrmTatGYInPut
ParentCtl3D = False
TabOrder = 1
object Label2: TLabel
Left = 787
Left = 848
Top = 9
Width = 80
Height = 21
Caption = #19979#21333#26085#26399#65306
end
object Label3: TLabel
Left = 260
Left = 286
Top = 81
Width = 80
Height = 21
Caption = #22383#24067#21517#31216#65306
end
object Label14: TLabel
Left = 787
Left = 848
Top = 44
Width = 80
Height = 21
Caption = #20844#21496#25260#22836#65306
end
object Label5: TLabel
Left = 512
Left = 573
Top = 9
Width = 80
Height = 21
Caption = #20132#36135#26085#26399#65306
end
object Label8: TLabel
Left = 1065
Top = 249
Left = 1180
Top = 309
Width = 48
Height = 21
Caption = #21305#25968#65306
Visible = False
end
object Label12: TLabel
Left = 260
Left = 848
Top = 116
Width = 48
Height = 21
Caption = #21305#38271#65306
end
object Label13: TLabel
Left = 1298
Top = 249
Left = 1172
Top = 353
Width = 74
Height = 21
Caption = #24635' '#25968' '#37327#65306
@ -131,28 +131,28 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Caption = #22383#24067#32534#21495#65306
end
object Label31: TLabel
Left = 787
Top = 189
Left = 848
Top = 207
Width = 68
Height = 21
Caption = #35268' '#26684#65306
end
object Label47: TLabel
Left = 512
Left = 573
Top = 44
Width = 48
Height = 21
Caption = #23458#25143#65306
end
object Label43: TLabel
Left = 260
Left = 286
Top = 44
Width = 64
Height = 21
Caption = #19994#21153#21592#65306
end
object lbl2: TLabel
Left = 260
Left = 286
Top = 9
Width = 80
Height = 21
@ -166,7 +166,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Caption = #24037#33402#21333#21495#65306
end
object Label4: TLabel
Left = 1047
Left = 1108
Top = 44
Width = 80
Height = 21
@ -180,7 +180,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Caption = #21512#21516#21495#65306
end
object Label10: TLabel
Left = 1047
Left = 1108
Top = 9
Width = 78
Height = 21
@ -194,35 +194,35 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Caption = #31576#24133#65306
end
object Label6: TLabel
Left = 512
Left = 573
Top = 81
Width = 112
Height = 21
Caption = #29702#35770#24179#26041#20811#37325#65306
end
object Label11: TLabel
Left = 512
Left = 573
Top = 152
Width = 64
Height = 21
Caption = #24635#22836#32441#65306
end
object Label15: TLabel
Left = 9
Left = 573
Top = 116
Width = 48
Height = 21
Caption = #32428#23494#65306
end
object Label16: TLabel
Left = 787
Left = 848
Top = 81
Width = 112
Height = 21
Caption = #23454#27979#24179#26041#20811#37325#65306
end
object Label17: TLabel
Left = 260
Left = 286
Top = 152
Width = 48
Height = 21
@ -238,58 +238,72 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object Label18: TLabel
Left = 9
Top = 200
Top = 207
Width = 48
Height = 21
Caption = #22791#27880#65306
end
object Label1: TLabel
Left = 1327
Top = 11
Left = 894
Top = 368
Width = 96
Height = 21
Caption = #19979#25512#22383#24067#25968#65306
Visible = False
end
object Label19: TLabel
Left = 1327
Top = 46
Left = 894
Top = 403
Width = 80
Height = 21
Caption = #35746#21333#25968#37327#65306
Visible = False
end
object Label20: TLabel
Left = 787
Left = 848
Top = 152
Width = 80
Height = 21
Caption = #19978#26426#38376#24133#65306
end
object Label21: TLabel
Left = 1047
Left = 1108
Top = 152
Width = 80
Height = 21
Caption = #25104#21697#38376#24133#65306
end
object Label22: TLabel
Left = 1047
Left = 1108
Top = 81
Width = 80
Height = 21
Caption = #29256#26412#32534#21495#65306
end
object Label23: TLabel
Left = 1047
Top = 189
Left = 1108
Top = 116
Width = 78
Height = 21
Caption = #39068' '#33394#65306
end
object Label24: TLabel
Left = 286
Top = 117
Width = 112
Height = 21
Caption = #25972#32463#24037#33402#21517#31216#65306
end
object Label25: TLabel
Left = 9
Top = 117
Width = 112
Height = 21
Caption = #25972#32463#24037#33402#32534#21495#65306
end
object OrdPieceLen: TcxTextEdit
Tag = 2
Left = 337
Left = 952
Top = 112
Properties.OnEditValueChanged = OrdPiecePropertiesEditValueChanged
TabOrder = 2
@ -298,8 +312,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object OrdPiece: TcxTextEdit
Tag = 2
Left = 1139
Top = 245
Left = 1254
Top = 305
Properties.OnEditValueChanged = OrdPiecePropertiesEditValueChanged
TabOrder = 3
Visible = False
@ -308,8 +322,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object OrdQty: TcxTextEdit
Tag = 2
Left = 1404
Top = 245
Left = 1278
Top = 349
TabOrder = 1
Visible = False
OnKeyPress = ConNoKeyPress
@ -317,22 +331,22 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object C_Name: TcxTextEdit
Tag = 2
Left = 337
Top = 75
Left = 398
Top = 77
TabOrder = 0
OnKeyPress = ConNoKeyPress
Width = 150
end
object Saleser: TcxTextEdit
Left = 337
Top = 38
Left = 398
Top = 40
TabOrder = 4
OnKeyPress = ConNoKeyPress
Width = 150
end
object OrderNo: TcxTextEdit
Left = 83
Top = 3
Left = 114
Top = 5
Enabled = False
TabOrder = 5
OnKeyPress = ConNoKeyPress
@ -340,8 +354,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object ConMId: TcxTextEdit
Tag = 2
Left = 749
Top = 235
Left = 909
Top = 270
Enabled = False
TabOrder = 6
Visible = False
@ -350,8 +364,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object ConSId: TcxTextEdit
Tag = 2
Left = 893
Top = 234
Left = 909
Top = 305
Enabled = False
TabOrder = 7
Visible = False
@ -371,7 +385,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object C_FinishLatitudeDensity: TcxTextEdit
Tag = 2
Left = 83
Left = 680
Top = 112
ParentColor = True
Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged
@ -380,23 +394,23 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object C_TestGramWeight: TcxTextEdit
Tag = 2
Left = 893
Top = 75
Left = 952
Top = 77
ParentColor = True
TabOrder = 10
Width = 150
end
object C_GramWeight: TcxTextEdit
Tag = 2
Left = 618
Top = 75
Left = 679
Top = 77
ParentColor = True
TabOrder = 11
Width = 150
end
object C_ReedNo: TcxTextEdit
Tag = 2
Left = 337
Left = 398
Top = 148
ParentColor = True
TabOrder = 12
@ -404,7 +418,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object C_ReedWidth: TcxTextEdit
Tag = 2
Left = 83
Left = 114
Top = 148
ParentColor = True
Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged
@ -413,7 +427,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object C_YarnQty: TcxTextEdit
Tag = 2
Left = 618
Left = 679
Top = 148
ParentColor = True
Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged
@ -422,23 +436,23 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object LoomType: TcxTextEdit
Tag = 2
Left = 1139
Top = 3
Left = 1200
Top = 5
ParentColor = True
TabOrder = 15
Width = 150
end
object OrdNote: TcxMemo
Left = 83
Left = 114
Top = 189
ParentColor = True
TabOrder = 16
Height = 57
Width = 589
Width = 685
end
object OurCoName: TcxButtonEdit
Left = 893
Top = 38
Left = 952
Top = 40
Properties.Buttons = <
item
Default = True
@ -452,8 +466,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Width = 150
end
object FtyCoName: TcxButtonEdit
Left = 1139
Top = 38
Left = 1200
Top = 40
Properties.Buttons = <
item
Default = True
@ -467,8 +481,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Width = 150
end
object OrdType: TcxComboBox
Left = 337
Top = 3
Left = 398
Top = 5
Properties.Items.Strings = (
#22823#36135#21333
#35797#26679#21333)
@ -476,23 +490,23 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Width = 150
end
object DlyDate: TcxDateEdit
Left = 618
Top = 3
Left = 679
Top = 5
Properties.ShowTime = False
TabOrder = 20
Width = 150
end
object OrdDate: TcxDateEdit
Left = 893
Top = 3
Left = 952
Top = 5
Properties.ShowTime = False
TabOrder = 21
Width = 150
end
object ConNo: TcxButtonEdit
Tag = 2
Left = 83
Top = 38
Left = 114
Top = 40
Properties.Buttons = <
item
Default = True
@ -506,8 +520,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Width = 150
end
object CustName: TcxButtonEdit
Left = 618
Top = 38
Left = 679
Top = 40
Properties.Buttons = <
item
Default = True
@ -522,16 +536,16 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object C_Spec: TcxMemo
Tag = 2
Left = 893
Top = 189
Left = 952
Top = 202
TabOrder = 24
Height = 32
Width = 150
Width = 398
end
object C_Code: TcxButtonEdit
Tag = 2
Left = 83
Top = 75
Left = 114
Top = 77
Properties.Buttons = <
item
Default = True
@ -546,8 +560,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object PBQty: TcxTextEdit
Tag = 2
Left = 1419
Top = 5
Left = 986
Top = 364
Properties.ReadOnly = True
TabOrder = 26
Visible = False
@ -556,8 +570,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object DDQty: TcxTextEdit
Tag = 2
Left = 1419
Top = 40
Left = 986
Top = 399
Properties.ReadOnly = True
TabOrder = 27
Visible = False
@ -566,7 +580,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object C_Width: TcxTextEdit
Tag = 2
Left = 893
Left = 952
Top = 148
ParentColor = True
TabOrder = 28
@ -574,7 +588,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object C_FinishWidth: TcxTextEdit
Tag = 2
Left = 1139
Left = 1200
Top = 148
ParentColor = True
TabOrder = 29
@ -582,32 +596,56 @@ inherited frmTatGYInPut: TfrmTatGYInPut
end
object BBNo: TcxTextEdit
Tag = 2
Left = 1139
Top = 75
Left = 1200
Top = 77
ParentColor = True
TabOrder = 30
Width = 150
end
object C_Color: TcxTextEdit
Tag = 2
Left = 1139
Top = 189
Left = 1200
Top = 112
ParentColor = True
TabOrder = 31
Width = 150
end
object WB_Name: TcxTextEdit
Tag = 2
Left = 398
Top = 113
Properties.ReadOnly = True
TabOrder = 32
Width = 150
end
object WB_Code: TcxButtonEdit
Tag = 2
Left = 114
Top = 113
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = WB_CodePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 33
OnDblClick = OurCoNameDblClick
Width = 150
end
end
object cxPageControl3: TcxPageControl [2]
Left = 0
Top = 321
Top = 293
Width = 1595
Height = 445
Height = 473
Align = alClient
TabOrder = 2
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
ClientRectBottom = 445
ClientRectBottom = 473
ClientRectRight = 1595
ClientRectTop = 28
object cxTabSheet1: TcxTabSheet
@ -617,7 +655,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Left = 931
Top = 0
Width = 664
Height = 417
Height = 445
Align = alClient
Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET
@ -632,7 +670,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Left = 2
Top = 31
Width = 660
Height = 384
Height = 412
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -647,14 +685,14 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Left = 0
Top = 0
Width = 931
Height = 417
Height = 445
Align = alLeft
TabOrder = 1
object cxPageControl2: TcxPageControl
Left = 1
Top = 1
Width = 929
Height = 415
Height = 443
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -669,7 +707,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 415
ClientRectBottom = 443
ClientRectRight = 929
ClientRectTop = 0
end
@ -677,7 +715,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Left = 1
Top = 1
Width = 929
Height = 415
Height = 443
Align = alClient
TabOrder = 1
object TV1: TcxGridDBTableView
@ -858,11 +896,14 @@ inherited frmTatGYInPut: TfrmTatGYInPut
object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512
ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 417
object GroupBox2: TGroupBox
Left = 863
Top = 0
Width = 732
Height = 417
Height = 445
Align = alClient
Caption = #32428#25490#21015
Font.Charset = GB2312_CHARSET
@ -872,12 +913,13 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
ExplicitHeight = 417
object Y_Note_PLW: TMemo
Tag = 2
Left = 2
Top = 31
Width = 728
Height = 384
Height = 412
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -886,20 +928,22 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
ExplicitHeight = 384
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 863
Height = 417
Height = 445
Align = alLeft
TabOrder = 1
ExplicitHeight = 417
object cxPageControl1: TcxPageControl
Left = 1
Top = 1
Width = 861
Height = 415
Height = 443
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -914,7 +958,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 415
ExplicitHeight = 415
ClientRectBottom = 443
ClientRectRight = 861
ClientRectTop = 0
end
@ -922,9 +967,10 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Left = 1
Top = 1
Width = 861
Height = 415
Height = 443
Align = alClient
TabOrder = 1
ExplicitHeight = 415
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -1103,14 +1149,18 @@ inherited frmTatGYInPut: TfrmTatGYInPut
object cxTabSheet3: TcxTabSheet
Caption = #36215#32508#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 417
object cxGrid4: TcxGrid
Left = 0
Top = 375
Top = 403
Width = 1595
Height = 42
Align = alBottom
TabOrder = 0
Visible = False
ExplicitTop = 375
object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -1194,7 +1244,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Left = 0
Top = 0
Width = 1595
Height = 375
Height = 403
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -1204,17 +1254,21 @@ inherited frmTatGYInPut: TfrmTatGYInPut
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 1
ExplicitHeight = 375
end
end
object cxTabSheet4: TcxTabSheet
Caption = #31359#32508#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 417
object CZF: TMemo
Tag = 2
Left = 0
Top = 0
Width = 1595
Height = 417
Height = 445
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -1224,17 +1278,21 @@ inherited frmTatGYInPut: TfrmTatGYInPut
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 0
ExplicitHeight = 417
end
end
object cxTabSheet5: TcxTabSheet
Caption = #31359#31576#27861
ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 417
object CKF: TMemo
Tag = 2
Left = 0
Top = 0
Width = 1595
Height = 417
Height = 445
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -1244,83 +1302,90 @@ inherited frmTatGYInPut: TfrmTatGYInPut
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 0
ExplicitHeight = 417
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Left = 631
Top = 313
Left = 1518
Top = 51
end
inherited ADOQueryBaseTemp: TADOQuery
Left = 663
Top = 313
Left = 1454
Top = 54
end
inherited ImageList_new32: TImageList
Left = 703
Top = 385
Left = 1397
Top = 225
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 701
Top = 266
DesignInfo = 17433277
Left = 1401
Top = 168
DesignInfo = 11011449
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 727
Top = 313
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Parameters = <>
Left = 695
Top = 313
Left = 1525
Top = 114
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 791
Top = 313
Left = 1454
Top = 214
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 860
Top = 450
Left = 1529
Top = 283
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 759
Top = 313
Left = 1533
Top = 167
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 554
Top = 405
Left = 1392
Top = 278
end
object DS_QZ: TDataSource
DataSet = CDS_QZ
Left = 608
Top = 421
Left = 1464
Top = 280
end
object CDS_QZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 823
Top = 313
Left = 1527
Top = 221
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 855
Top = 313
Left = 1395
Top = 53
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 887
Top = 313
Left = 1395
Top = 108
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Parameters = <>
Left = 1454
Top = 106
end
object ADOQuery1: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Parameters = <>
Left = 1458
Top = 167
end
end

109
E01梭织生产计划/U_TatGYInPut.pas
View File

@ -48,7 +48,6 @@ type
Label3: TLabel;
Label14: TLabel;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Label5: TLabel;
Label8: TLabel;
Label12: TLabel;
@ -180,6 +179,12 @@ type
Tv2Column13: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
Label24: TLabel;
Label25: TLabel;
WB_Name: TcxTextEdit;
WB_Code: TcxButtonEdit;
ADOQueryCmd: TADOQuery;
ADOQuery1: TADOQuery;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -208,6 +213,7 @@ type
procedure TV1Column1PropertiesEditValueChanged(Sender: TObject);
procedure Tv2Column1PropertiesEditValueChanged(Sender: TObject);
procedure C_YarnQtyPropertiesEditValueChanged(Sender: TObject);
procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
FXS, FGridFlag: Integer;
procedure InitData();
@ -234,7 +240,7 @@ implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_TatClothInfoSel, U_CompanySel, U_YarnInfoSel,
U_TradeSalesContractSel;
U_TradeSalesContractSel, U_WBSpecSel;
{$R *.dfm}
procedure TfrmTatGYInPut.InitClothYarn(MC_Code: string);
@ -464,6 +470,41 @@ begin
end;
end;
if FCopyInt = 1 then
begin
FMainId := '';
OrderNo.text := '';
with CDS_1 do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainID').Value := '';
FieldByName('SubID').Value := '';
FieldByName('YRId').Value := '';
Post;
Next;
end;
end;
with CDS_2 do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainID').Value := '';
FieldByName('SubID').Value := '';
FieldByName('YRId').Value := '';
Post;
Next;
end;
end;
end;
end;
procedure TfrmTatGYInPut.Initexcel();
@ -1353,6 +1394,70 @@ begin
end;
end;
procedure TfrmTatGYInPut.WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmWBSpecSel := TfrmWBSpecSel.Create(Application);
with frmWBSpecSel do
begin
if ShowModal = 1 then
begin
Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString);
Self.C_YarnQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').AsString);
Self.C_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString);
Self.C_ReedWidth.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
Self.Y_Note_PLJ.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add(' select * from Tat_WB_Formula ');
sql.Add(' where WBSID=''' + Trim(frmWBSpecSel.CDS_1.fieldbyname('WBSID').AsString) + '''');
sql.Add(' Order by RowNo ');
Open;
end;
self.CDS_1.EmptyDataSet;
self.ADOQuery1.First;
while not ADOQuery1.eof do
begin
with self.CDS_1 do
begin
APpend;
FieldByName('RowNo').Value := ADOQuery1.fieldbyname('RowNo').Value;
FieldByName('Y_Code').Value := ADOQuery1.fieldbyname('Y_Code').Value;
FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value;
FieldByName('Y_Color').Value := ADOQuery1.fieldbyname('Y_Color').Value;
FieldByName('Y_Spec').Value := ADOQuery1.fieldbyname('Y_Spec').Value;
FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value;
FieldByName('CycleYarnQty').Value := ADOQuery1.fieldbyname('CycleYarnQty').Value;
FieldByName('TestDenier').Value := ADOQuery1.fieldbyname('Denier').Value;
FieldByName('FF').Value := ADOQuery1.fieldbyname('FF').Value;
FieldByName('ND').Value := ADOQuery1.fieldbyname('ND').Value;
Post;
end;
ADOQuery1.next;
end;
JSJS();
JSWS();
JSKZ();
end;
end;
finally
frmWBSpecSel.Free;
end;
end;
procedure TfrmTatGYInPut.OrdPieceLenChange(Sender: TObject);
var
FOrdQty, FOrdPieceLen: Double;

20
E01梭织生产计划/U_TatGYList.dfm
View File

@ -300,7 +300,8 @@ inherited frmTatGYList: TfrmTatGYList
Height = 439
Align = alClient
TabOrder = 2
ExplicitHeight = 444
ExplicitLeft = -6
ExplicitTop = 146
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -433,6 +434,22 @@ inherited frmTatGYList: TfrmTatGYList
HeaderAlignmentHorz = taCenter
Width = 87
end
object Tv1Column7: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495
DataBinding.FieldName = 'WB_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object Tv1Column9: TcxGridDBColumn
Caption = #25972#32463#24037#33402#21517#31216
DataBinding.FieldName = 'WB_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object Tv1Column4: TcxGridDBColumn
Caption = #26426#22411
DataBinding.FieldName = 'LoomType'
@ -595,7 +612,6 @@ inherited frmTatGYList: TfrmTatGYList
TabOrder = 4
Visible = False
OnDblClick = Picture4DblClick
ExplicitHeight = 444
Height = 439
Width = 255
end

2
E01梭织生产计划/U_TatGYList.pas
View File

@ -102,6 +102,8 @@ type
Picture4: TcxDBImage;
Tv1Column16: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);

363
E01梭织生产计划/U_TatPlanInPut.dfm
View File

@ -65,7 +65,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 0
Top = 30
Width = 1595
Height = 291
Height = 305
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@ -73,50 +73,50 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ParentCtl3D = False
TabOrder = 1
object Label2: TLabel
Left = 787
Left = 857
Top = 9
Width = 80
Height = 21
Caption = #19979#21333#26085#26399#65306
end
object Label3: TLabel
Left = 260
Left = 294
Top = 81
Width = 80
Height = 21
Caption = #22383#24067#21517#31216#65306
end
object Label14: TLabel
Left = 787
Left = 857
Top = 44
Width = 80
Height = 21
Caption = #20844#21496#25260#22836#65306
end
object Label5: TLabel
Left = 512
Left = 582
Top = 9
Width = 80
Height = 21
Caption = #20132#36135#26085#26399#65306
end
object Label8: TLabel
Left = 260
Top = 116
Left = 294
Top = 152
Width = 48
Height = 21
Caption = #21305#25968#65306
end
object Label12: TLabel
Left = 512
Top = 116
Width = 48
Left = 857
Top = 152
Width = 73
Height = 21
Caption = #21305#38271#65306
Caption = #21305' '#38271#65306
end
object Label13: TLabel
Left = 787
Top = 116
Left = 582
Top = 152
Width = 74
Height = 21
Caption = #24635' '#25968' '#37327#65306
@ -129,28 +129,28 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Caption = #22383#24067#32534#21495#65306
end
object Label31: TLabel
Left = 787
Top = 189
Width = 68
Left = 857
Top = 242
Width = 73
Height = 21
Caption = #35268' '#26684#65306
Caption = #35268' '#26684#65306
end
object Label47: TLabel
Left = 512
Left = 582
Top = 44
Width = 48
Height = 21
Caption = #23458#25143#65306
end
object Label43: TLabel
Left = 260
Left = 294
Top = 44
Width = 64
Height = 21
Caption = #19994#21153#21592#65306
end
object lbl2: TLabel
Left = 260
Left = 294
Top = 9
Width = 80
Height = 21
@ -164,7 +164,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Caption = #32455#36896#21333#21495#65306
end
object Label4: TLabel
Left = 1047
Left = 1126
Top = 44
Width = 80
Height = 21
@ -178,7 +178,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Caption = #21512#21516#21495#65306
end
object Label10: TLabel
Left = 1047
Left = 1126
Top = 9
Width = 78
Height = 21
@ -186,42 +186,42 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object Label9: TLabel
Left = 9
Top = 152
Top = 188
Width = 48
Height = 21
Caption = #31576#24133#65306
end
object Label6: TLabel
Left = 512
Left = 582
Top = 81
Width = 112
Height = 21
Caption = #29702#35770#24179#26041#20811#37325#65306
end
object Label11: TLabel
Left = 512
Top = 152
Left = 582
Top = 188
Width = 64
Height = 21
Caption = #24635#22836#32441#65306
end
object Label15: TLabel
Left = 9
Top = 116
Left = 582
Top = 117
Width = 48
Height = 21
Caption = #32428#23494#65306
end
object Label16: TLabel
Left = 787
Left = 857
Top = 81
Width = 112
Height = 21
Caption = #23454#27979#24179#26041#20811#37325#65306
end
object Label17: TLabel
Left = 260
Top = 152
Left = 294
Top = 188
Width = 48
Height = 21
Caption = #31576#21495#65306
@ -236,59 +236,80 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object Label18: TLabel
Left = 9
Top = 200
Top = 242
Width = 48
Height = 21
Caption = #22791#27880#65306
end
object Label1: TLabel
Left = 1327
Top = 11
Left = 1314
Top = 347
Width = 96
Height = 21
Caption = #19979#25512#22383#24067#25968#65306
Visible = False
end
object Label19: TLabel
Left = 1327
Top = 46
Left = 1314
Top = 382
Width = 80
Height = 21
Caption = #35746#21333#25968#37327#65306
Visible = False
end
object Label20: TLabel
Left = 787
Top = 152
Left = 857
Top = 188
Width = 80
Height = 21
Caption = #19978#26426#38376#24133#65306
end
object Label21: TLabel
Left = 1047
Top = 152
Left = 1126
Top = 188
Width = 80
Height = 21
Caption = #25104#21697#38376#24133#65306
end
object Label22: TLabel
Left = 1047
Left = 1126
Top = 81
Width = 80
Height = 21
Caption = #29256#26412#32534#21495#65306
end
object Label23: TLabel
Left = 1047
Top = 189
Left = 857
Top = 117
Width = 78
Height = 21
Caption = #39068' '#33394#65306
end
object Label24: TLabel
Left = 294
Top = 117
Width = 112
Height = 21
Caption = #25972#32463#24037#33402#21517#31216#65306
end
object Label25: TLabel
Left = 9
Top = 117
Width = 112
Height = 21
Caption = #25972#32463#24037#33402#32534#21495#65306
end
object Label27: TLabel
Left = 9
Top = 155
Width = 112
Height = 21
Caption = #32455#36896#24037#33402#21333#21495#65306
end
object OrdPieceLen: TcxTextEdit
Tag = 2
Left = 618
Top = 112
Left = 963
Top = 148
Properties.OnEditValueChanged = OrdPiecePropertiesEditValueChanged
TabOrder = 2
OnKeyPress = ConNoKeyPress
@ -296,8 +317,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object OrdPiece: TcxTextEdit
Tag = 2
Left = 334
Top = 112
Left = 409
Top = 148
Properties.OnEditValueChanged = OrdPiecePropertiesEditValueChanged
TabOrder = 3
OnKeyPress = ConNoKeyPress
@ -305,30 +326,30 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object OrdQty: TcxTextEdit
Tag = 2
Left = 893
Top = 112
Left = 688
Top = 149
TabOrder = 1
OnKeyPress = ConNoKeyPress
Width = 150
end
object C_Name: TcxTextEdit
Tag = 2
Left = 334
Top = 75
Left = 409
Top = 77
TabOrder = 0
OnKeyPress = ConNoKeyPress
Width = 150
end
object Saleser: TcxTextEdit
Left = 334
Top = 38
Left = 409
Top = 40
TabOrder = 4
OnKeyPress = ConNoKeyPress
Width = 150
end
object OrderNo: TcxTextEdit
Left = 83
Top = 3
Left = 117
Top = 5
Enabled = False
TabOrder = 5
OnKeyPress = ConNoKeyPress
@ -336,8 +357,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object ConMId: TcxTextEdit
Tag = 2
Left = 749
Top = 235
Left = 1025
Top = 356
Enabled = False
TabOrder = 6
Visible = False
@ -346,8 +367,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object ConSId: TcxTextEdit
Tag = 2
Left = 893
Top = 234
Left = 1169
Top = 355
Enabled = False
TabOrder = 7
Visible = False
@ -367,8 +388,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object C_FinishLatitudeDensity: TcxTextEdit
Tag = 2
Left = 83
Top = 112
Left = 688
Top = 113
ParentColor = True
Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged
TabOrder = 9
@ -376,32 +397,32 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object C_TestGramWeight: TcxTextEdit
Tag = 2
Left = 893
Top = 75
Left = 963
Top = 77
ParentColor = True
TabOrder = 10
Width = 150
end
object C_GramWeight: TcxTextEdit
Tag = 2
Left = 618
Top = 75
Left = 688
Top = 77
ParentColor = True
TabOrder = 11
Width = 150
end
object C_ReedNo: TcxTextEdit
Tag = 2
Left = 334
Top = 148
Left = 409
Top = 184
ParentColor = True
TabOrder = 12
Width = 150
end
object C_ReedWidth: TcxTextEdit
Tag = 2
Left = 83
Top = 148
Left = 117
Top = 184
ParentColor = True
Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged
TabOrder = 13
@ -409,8 +430,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object C_YarnQty: TcxTextEdit
Tag = 2
Left = 618
Top = 148
Left = 688
Top = 184
ParentColor = True
Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged
TabOrder = 14
@ -418,23 +439,23 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object LoomType: TcxTextEdit
Tag = 2
Left = 1139
Top = 3
Left = 1208
Top = 5
ParentColor = True
TabOrder = 15
Width = 150
end
object OrdNote: TcxMemo
Left = 83
Top = 189
Left = 117
Top = 224
ParentColor = True
TabOrder = 16
Height = 57
Width = 589
Width = 721
end
object OurCoName: TcxButtonEdit
Left = 893
Top = 38
Left = 963
Top = 40
Properties.Buttons = <
item
Default = True
@ -448,8 +469,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Width = 150
end
object FtyCoName: TcxButtonEdit
Left = 1139
Top = 38
Left = 1208
Top = 40
Properties.Buttons = <
item
Default = True
@ -463,8 +484,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Width = 150
end
object OrdType: TcxComboBox
Left = 334
Top = 3
Left = 409
Top = 5
Properties.Items.Strings = (
#22823#36135#21333
#35797#26679#21333)
@ -472,23 +493,23 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Width = 150
end
object DlyDate: TcxDateEdit
Left = 618
Top = 3
Left = 688
Top = 5
Properties.ShowTime = False
TabOrder = 20
Width = 150
end
object OrdDate: TcxDateEdit
Left = 893
Top = 3
Left = 963
Top = 5
Properties.ShowTime = False
TabOrder = 21
Width = 150
end
object ConNo: TcxButtonEdit
Tag = 2
Left = 83
Top = 38
Left = 117
Top = 40
Properties.Buttons = <
item
Default = True
@ -502,8 +523,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Width = 150
end
object CustName: TcxButtonEdit
Left = 618
Top = 38
Left = 688
Top = 40
Properties.Buttons = <
item
Default = True
@ -518,16 +539,16 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object C_Spec: TcxMemo
Tag = 2
Left = 893
Top = 189
Left = 963
Top = 237
TabOrder = 24
Height = 32
Width = 150
Width = 396
end
object C_Code: TcxButtonEdit
Tag = 2
Left = 83
Top = 75
Left = 117
Top = 77
Properties.Buttons = <
item
Default = True
@ -542,8 +563,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object PBQty: TcxTextEdit
Tag = 2
Left = 1419
Top = 5
Left = 1406
Top = 341
Properties.ReadOnly = True
TabOrder = 26
Visible = False
@ -552,8 +573,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object DDQty: TcxTextEdit
Tag = 2
Left = 1419
Top = 40
Left = 1406
Top = 376
Properties.ReadOnly = True
TabOrder = 27
Visible = False
@ -562,58 +583,101 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
object C_Width: TcxTextEdit
Tag = 2
Left = 893
Top = 148
Left = 963
Top = 184
ParentColor = True
TabOrder = 28
Width = 150
end
object C_FinishWidth: TcxTextEdit
Tag = 2
Left = 1139
Top = 148
Left = 1208
Top = 184
ParentColor = True
TabOrder = 29
Width = 150
end
object BBNo: TcxTextEdit
Tag = 2
Left = 1139
Top = 75
Left = 1208
Top = 77
ParentColor = True
TabOrder = 30
Width = 150
end
object C_Color: TcxTextEdit
Tag = 2
Left = 1139
Top = 189
Left = 963
Top = 113
ParentColor = True
TabOrder = 31
Width = 150
end
object WB_Name: TcxTextEdit
Tag = 2
Left = 409
Top = 113
Properties.ReadOnly = True
TabOrder = 32
Width = 150
end
object WB_Code: TcxButtonEdit
Tag = 2
Left = 117
Top = 113
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = WB_CodePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 33
OnDblClick = OurCoNameDblClick
Width = 150
end
object GYNo: TcxButtonEdit
Tag = 2
Left = 117
Top = 148
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 34
OnDblClick = OurCoNameDblClick
Width = 150
end
end
object cxPageControl3: TcxPageControl [2]
Left = 0
Top = 321
Top = 335
Width = 1595
Height = 445
Height = 431
Align = alClient
TabOrder = 2
Properties.ActivePage = cxTabSheet2
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
ClientRectBottom = 445
ExplicitTop = 489
ExplicitHeight = 277
ClientRectBottom = 431
ClientRectRight = 1595
ClientRectTop = 28
object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512
ImageIndex = 0
ExplicitHeight = 249
object GroupBox1: TGroupBox
Left = 931
Top = 0
Width = 664
Height = 417
Height = 403
Align = alClient
Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET
@ -623,12 +687,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
ExplicitHeight = 249
object Y_Note_PLJ: TMemo
Tag = 2
Left = 2
Top = 31
Width = 660
Height = 384
Height = 370
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -637,20 +702,22 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
ExplicitHeight = 216
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 931
Height = 417
Height = 403
Align = alLeft
TabOrder = 1
ExplicitHeight = 249
object cxPageControl2: TcxPageControl
Left = 1
Top = 1
Width = 929
Height = 415
Height = 401
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -665,7 +732,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 415
ExplicitHeight = 247
ClientRectBottom = 401
ClientRectRight = 929
ClientRectTop = 0
end
@ -673,11 +741,10 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 1
Top = 1
Width = 929
Height = 415
Height = 401
Align = alClient
TabOrder = 1
ExplicitLeft = 2
ExplicitTop = 0
ExplicitHeight = 247
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -856,11 +923,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512
ImageIndex = 1
ExplicitHeight = 249
object GroupBox2: TGroupBox
Left = 863
Top = 0
Width = 732
Height = 417
Height = 403
Align = alClient
Caption = #32428#25490#21015
Font.Charset = GB2312_CHARSET
@ -870,12 +938,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
ExplicitHeight = 249
object Y_Note_PLW: TMemo
Tag = 2
Left = 2
Top = 31
Width = 728
Height = 384
Height = 370
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -884,20 +953,22 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
ExplicitHeight = 216
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 863
Height = 417
Height = 403
Align = alLeft
TabOrder = 1
ExplicitHeight = 249
object cxPageControl1: TcxPageControl
Left = 1
Top = 1
Width = 861
Height = 415
Height = 401
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -912,7 +983,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 415
ExplicitHeight = 247
ClientRectBottom = 401
ClientRectRight = 861
ClientRectTop = 0
end
@ -920,11 +992,10 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 1
Top = 1
Width = 861
Height = 415
Height = 401
Align = alClient
TabOrder = 1
ExplicitLeft = -408
ExplicitTop = -28
ExplicitHeight = 247
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -1103,14 +1174,16 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet3: TcxTabSheet
Caption = #36215#32508#27861
ImageIndex = 3
ExplicitHeight = 249
object cxGrid4: TcxGrid
Left = 0
Top = 375
Top = 361
Width = 1595
Height = 42
Align = alBottom
TabOrder = 0
Visible = False
ExplicitTop = 207
object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -1194,7 +1267,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 0
Top = 0
Width = 1595
Height = 375
Height = 361
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -1204,17 +1277,19 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 1
ExplicitHeight = 207
end
end
object cxTabSheet4: TcxTabSheet
Caption = #31359#32508#27861
ImageIndex = 3
ExplicitHeight = 249
object CZF: TMemo
Tag = 2
Left = 0
Top = 0
Width = 1595
Height = 417
Height = 403
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -1224,17 +1299,19 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 0
ExplicitHeight = 249
end
end
object cxTabSheet5: TcxTabSheet
Caption = #31359#31576#27861
ImageIndex = 3
ExplicitHeight = 249
object CKF: TMemo
Tag = 2
Left = 0
Top = 0
Width = 1595
Height = 417
Height = 403
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -1244,12 +1321,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 0
ExplicitHeight = 249
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Left = 631
Top = 313
Left = 606
Top = 315
end
inherited ADOQueryBaseTemp: TADOQuery
Left = 663
@ -1257,20 +1335,20 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end
inherited ImageList_new32: TImageList
Left = 703
Top = 385
Top = 384
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 701
Top = 266
DesignInfo = 17433277
Left = 968
Top = 319
DesignInfo = 20906952
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 727
Top = 313
Left = 921
Top = 314
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
@ -1323,4 +1401,11 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 887
Top = 313
end
object ADOQuery1: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1019
Top = 320
end
end

210
E01梭织生产计划/U_TatPlanInPut.pas
View File

@ -180,6 +180,13 @@ type
Tv2Column13: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
Label24: TLabel;
Label25: TLabel;
WB_Name: TcxTextEdit;
WB_Code: TcxButtonEdit;
ADOQuery1: TADOQuery;
Label27: TLabel;
GYNo: TcxButtonEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -208,6 +215,8 @@ type
procedure TV1Column1PropertiesEditValueChanged(Sender: TObject);
procedure Tv2Column1PropertiesEditValueChanged(Sender: TObject);
procedure C_YarnQtyPropertiesEditValueChanged(Sender: TObject);
procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
FXS, FGridFlag: Integer;
procedure InitData();
@ -234,7 +243,7 @@ implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_TatClothInfoSel, U_CompanySel, U_YarnInfoSel,
U_TradeSalesContractSel;
U_TradeSalesContractSel, U_WBSpecSel, U_TatGYSel;
{$R *.dfm}
procedure TfrmTatPlanInPut.InitClothYarn(MC_Code: string);
@ -365,7 +374,7 @@ begin
end;
SCSHData(ADOQueryTemp, ScrollBox1, 0);
// QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString);
QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString);
CZF.Text := Trim(ADOQueryTemp.FieldByName('CZF').AsString);
CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString);
@ -411,6 +420,7 @@ begin
end;
SCreateCDS(ADOQueryTemp, CDS_QZ);
SInitCDSData(ADOQueryTemp, CDS_QZ);
/////////////////Ë¢ÐÂÆð×Û¹¤ÒÕµ¥ÐÅÏ¢/////////////////////////
if FMainId = '' then
begin
@ -464,6 +474,41 @@ begin
end;
end;
if FCopyInt = 1 then
begin
FMainId := '';
OrderNo.text := '';
with CDS_1 do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainID').Value := '';
FieldByName('SubID').Value := '';
FieldByName('YRId').Value := '';
Post;
Next;
end;
end;
with CDS_2 do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainID').Value := '';
FieldByName('SubID').Value := '';
FieldByName('YRId').Value := '';
Post;
Next;
end;
end;
end;
end;
procedure TfrmTatPlanInPut.Initexcel();
@ -1048,6 +1093,103 @@ begin
JSKZ();
end;
procedure TfrmTatPlanInPut.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmTatGYSel := TfrmTatGYSel.Create(Application);
with frmTatGYSel do
begin
if ShowModal = 1 then
begin
Self.GYNo.text := Trim(CDS_1.FieldByName('MainID').AsString);
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Plan_Main A where A.MainId=''' + Trim(Self.GYNo.text) + '''');
Open;
end;
SCSHData(ADOQueryTemp, ScrollBox1, 0);
Self.QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString);
Self.CZF.Text := Trim(ADOQueryTemp.FieldByName('CZF').AsString);
Self.CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString);
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Plan_Sub A where A.MainId=''' + Trim(Self.GYNo.text) + '''');
Open;
end;
SCSHData(ADOQueryTemp, ScrollBox1, 2);
Self.Y_Note_PLJ.Text := ADOQueryTemp.FieldByName('Y_Note_PLJ').AsString;
Self.Y_Note_PLW.Text := ADOQueryTemp.FieldByName('Y_Note_PLW').AsString;
Self.GYNo.text := Trim(CDS_1.FieldByName('MainID').AsString);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* from Tat_Plan_Yarn A ');
sql.Add(' where YRType=''¾­Ë¿'' and A.MainId=''' + Trim(Self.GYNo.text) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, self.CDS_1);
SInitCDSData(ADOQueryTemp, self.CDS_1);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* from Tat_Plan_Yarn A ');
sql.Add(' where YRType=''γ˿'' and A.MainId=''' + Trim(Self.GYNo.text) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, self.CDS_2);
SInitCDSData(ADOQueryTemp, self.CDS_2);
Self.OrderNo.text := '';
with self.CDS_1 do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainID').Value := '';
FieldByName('SubID').Value := '';
FieldByName('YRId').Value := '';
Post;
Next;
end;
end;
with self.CDS_2 do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainID').Value := '';
FieldByName('SubID').Value := '';
FieldByName('YRId').Value := '';
Post;
Next;
end;
end;
end;
end;
finally
frmTatGYSel.Free;
end;
end;
procedure TfrmTatPlanInPut.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
@ -1351,6 +1493,70 @@ begin
end;
end;
procedure TfrmTatPlanInPut.WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmWBSpecSel := TfrmWBSpecSel.Create(Application);
with frmWBSpecSel do
begin
if ShowModal = 1 then
begin
Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString);
Self.C_YarnQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').AsString);
Self.C_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString);
Self.C_ReedWidth.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
Self.Y_Note_PLJ.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add(' select * from Tat_WB_Formula ');
sql.Add(' where WBSID=''' + Trim(frmWBSpecSel.CDS_1.fieldbyname('WBSID').AsString) + '''');
sql.Add(' Order by RowNo ');
Open;
end;
self.CDS_1.EmptyDataSet;
self.ADOQuery1.First;
while not ADOQuery1.eof do
begin
with self.CDS_1 do
begin
APpend;
FieldByName('RowNo').Value := ADOQuery1.fieldbyname('RowNo').Value;
FieldByName('Y_Code').Value := ADOQuery1.fieldbyname('Y_Code').Value;
FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value;
FieldByName('Y_Color').Value := ADOQuery1.fieldbyname('Y_Color').Value;
FieldByName('Y_Spec').Value := ADOQuery1.fieldbyname('Y_Spec').Value;
FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value;
FieldByName('CycleYarnQty').Value := ADOQuery1.fieldbyname('CycleYarnQty').Value;
FieldByName('TestDenier').Value := ADOQuery1.fieldbyname('Denier').Value;
FieldByName('FF').Value := ADOQuery1.fieldbyname('FF').Value;
FieldByName('ND').Value := ADOQuery1.fieldbyname('ND').Value;
Post;
end;
ADOQuery1.next;
end;
JSJS();
JSWS();
JSKZ();
end;
end;
finally
frmWBSpecSel.Free;
end;
end;
procedure TfrmTatPlanInPut.OrdPieceLenChange(Sender: TObject);
var
FOrdQty, FOrdPieceLen: Double;

34
E01梭织生产计划/U_TatPlanList.dfm
View File

@ -165,6 +165,7 @@ inherited frmTatPlanList: TfrmTatPlanList
Color = clWhite
ParentBackground = False
TabOrder = 6
ExplicitTop = 36
object Label1: TLabel
Left = 18
Top = 14
@ -221,10 +222,17 @@ inherited frmTatPlanList: TfrmTatPlanList
Height = 21
Caption = #32455#36896#21333#21495
end
object Label6: TLabel
Left = 835
Top = 14
Width = 64
Height = 21
Caption = #24037#33402#21333#21495
end
object ConNo: TcxTextEdit
Tag = 2
Left = 300
Top = 6
Top = 10
Properties.OnChange = ConNoPropertiesChange
TabOrder = 0
OnKeyPress = conPress
@ -242,7 +250,7 @@ inherited frmTatPlanList: TfrmTatPlanList
object C_Code: TcxTextEdit
Tag = 2
Left = 687
Top = 7
Top = 10
Properties.OnChange = ConNoPropertiesChange
TabOrder = 2
OnKeyPress = C_CodeKeyPress
@ -251,7 +259,7 @@ inherited frmTatPlanList: TfrmTatPlanList
object CustName: TcxTextEdit
Tag = 2
Left = 486
Top = 8
Top = 10
Properties.OnChange = ConNoPropertiesChange
TabOrder = 3
OnKeyPress = CustNameKeyPress
@ -268,7 +276,7 @@ inherited frmTatPlanList: TfrmTatPlanList
end
object BegDate: TcxDateEdit
Left = 89
Top = 8
Top = 10
Properties.ShowTime = False
TabOrder = 5
Width = 120
@ -290,6 +298,15 @@ inherited frmTatPlanList: TfrmTatPlanList
TabOrder = 7
Width = 120
end
object GYNo: TcxTextEdit
Tag = 2
Left = 907
Top = 10
Properties.OnChange = ConNoPropertiesChange
TabOrder = 8
OnKeyPress = C_CodeKeyPress
Width = 120
end
end
object cxGrid1: TcxGrid [2]
Left = 0
@ -298,6 +315,7 @@ inherited frmTatPlanList: TfrmTatPlanList
Height = 444
Align = alClient
TabOrder = 2
ExplicitLeft = -6
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -389,6 +407,14 @@ inherited frmTatPlanList: TfrmTatPlanList
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv1Column7: TcxGridDBColumn
Caption = #24037#33402#21333#21495
DataBinding.FieldName = 'GYNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v1Column31: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'

3
E01梭织生产计划/U_TatPlanList.pas
View File

@ -104,6 +104,9 @@ type
Picture4: TcxDBImage;
Tv1Column16: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Label6: TLabel;
GYNo: TcxTextEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);

BIN
E01梭织生产计划/testDll.identcache
View File

Binary file not shown.

28
E02梭织经轴仓库/U_WBSpecList.dfm
View File

@ -17,7 +17,7 @@ inherited frmWBSpecList: TfrmWBSpecList
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
ButtonWidth = 83
Caption = 'ToolBar1'
DisabledImages = DataLink_WarpBeamStk.cxImageList_bar
Images = DataLink_WarpBeamStk.cxImageList_bar
@ -33,7 +33,7 @@ inherited frmWBSpecList: TfrmWBSpecList
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 71
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
@ -42,7 +42,7 @@ inherited frmWBSpecList: TfrmWBSpecList
OnClick = TBFindClick
end
object TBAdd: TToolButton
Left = 142
Left = 126
Top = 0
AutoSize = True
Caption = #26032#22686
@ -50,7 +50,7 @@ inherited frmWBSpecList: TfrmWBSpecList
OnClick = TBAddClick
end
object TBEdit: TToolButton
Left = 213
Left = 189
Top = 0
AutoSize = True
Caption = #20462#25913
@ -58,15 +58,23 @@ inherited frmWBSpecList: TfrmWBSpecList
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 284
Left = 252
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDelClick
end
object ToolButton2: TToolButton
Left = 315
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = ToolButton2Click
end
object TBExport: TToolButton
Left = 355
Left = 378
Top = 0
AutoSize = True
Caption = #23548#20986
@ -74,7 +82,7 @@ inherited frmWBSpecList: TfrmWBSpecList
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 426
Left = 441
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -82,7 +90,7 @@ inherited frmWBSpecList: TfrmWBSpecList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 529
Left = 528
Top = 0
AutoSize = True
Caption = #20851#38381
@ -100,7 +108,7 @@ inherited frmWBSpecList: TfrmWBSpecList
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
TabOrder = 5
object Label2: TLabel
Left = 34
Top = 12
@ -522,7 +530,7 @@ inherited frmWBSpecList: TfrmWBSpecList
end
end
inherited cxProgressBar2: TcxProgressBar
ExplicitHeight = 28
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink

25
E02梭织经轴仓库/U_WBSpecList.pas
View File

@ -81,6 +81,7 @@ type
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
ToolButton2: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -98,6 +99,7 @@ type
procedure Y_NamePropertiesEditValueChanged(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure WB_CodePropertiesChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
private
canshu1, FSTKName, canshu3: string;
procedure InitGrid();
@ -110,7 +112,7 @@ type
implementation
uses
U_DataLink, U_RTFun, U_WBSpecInPut, U_ZDYHelp;
U_DataLink, U_RTFun, U_WBSpecInPut, U_ZDYHelp, U_LabelPrint;
{$R *.dfm}
@ -159,6 +161,27 @@ begin
WriteCxGrid(Self.Caption + 'Tv2', Tv2, '¾­Öá²Ö¿â');
end;
procedure TfrmWBSpecList.ToolButton2Click(Sender: TObject);
begin
if CDS_Main.IsEmpty then
Exit;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'WBGYPrint';
FFiltration1 := Trim(CDS_Main.fieldbyname('WB_Code').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmWBSpecList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
WB_YarnArrNote.Text := Trim(CDS_Main.fieldbyname('WB_YarnArrNote').AsString);