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-26 14:10:41 +08:00
parent e500d3af26
commit 24c636a33f
28 changed files with 806 additions and 311 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -111,7 +111,6 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Height = 508 Height = 508
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 6
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>

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

@ -121,7 +121,7 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
SQL.Add('select * from BS_Cloth_Type where CTType=''ËóÖ¯'' '); SQL.Add('select * from BS_Cloth_Type where CTType=''ËóÖ¯'' order by CTNo,CTLevel');
Open; Open;
end; end;

29
A00通用窗体/U_YarnInfoSel.dfm
View File

@ -3,14 +3,14 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Top = 106 Top = 106
Caption = #32433#32447#21517#31216#36873#25321 Caption = #32433#32447#21517#31216#36873#25321
ClientHeight = 558 ClientHeight = 558
ClientWidth = 1151 ClientWidth = 1353
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 1167 ExplicitWidth = 1369
ExplicitHeight = 597 ExplicitHeight = 597
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -18,7 +18,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1151 Width = 1353
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -29,6 +29,7 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1151
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -73,12 +74,13 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1151 Width = 1353
Height = 44 Height = 44
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 1 TabOrder = 1
ExplicitWidth = 1151
object Label1: TLabel object Label1: TLabel
Left = 216 Left = 216
Top = 10 Top = 10
@ -113,11 +115,12 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 74 Top = 74
Width = 1151 Width = 1353
Height = 484 Height = 484
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 80
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -270,6 +273,14 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False Options.Editing = False
Width = 102 Width = 102
end end
object Tv1Column7: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #32442#27861 Caption = #32442#27861
DataBinding.FieldName = 'FF' DataBinding.FieldName = 'FF'
@ -303,6 +314,14 @@ inherited frmYarnInfoSel: TfrmYarnInfoSel
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column8: TcxGridDBColumn
Caption = #26631#26679#26085#26399
DataBinding.FieldName = 'BYDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

2
A00通用窗体/U_YarnInfoSel.pas
View File

@ -73,6 +73,8 @@ type
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
ToolButton3: TToolButton; ToolButton3: TToolButton;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

BIN
A01基础公司管理/Company.identcache
View File

Binary file not shown.

8
A01基础公司管理/U_BankList.dfm
View File

@ -151,7 +151,8 @@ inherited frmBankList: TfrmBankList
Properties.Items.Strings = ( Properties.Items.Strings = (
'CNY' 'CNY'
'USD' 'USD'
'EUR') 'EUR'
'VND')
Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged Properties.OnEditValueChanged = v2Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 85 Width = 85
@ -188,7 +189,7 @@ inherited frmBankList: TfrmBankList
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 4
object Label1: TLabel object Label1: TLabel
Left = 66 Left = 66
Top = 15 Top = 15
@ -206,6 +207,9 @@ inherited frmBankList: TfrmBankList
OnChange = CustomerChange OnChange = CustomerChange
end end
end end
inherited cxProgressBar2: TcxProgressBar
ExplicitHeight = 25
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink
Left = 233 Left = 233

3
A01基础公司管理/U_BankList.pas
View File

@ -15,7 +15,8 @@ uses
cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls, cxTextEdit, cxPC, cxCheckComboBox, cxDropDownEdit, Menus, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
cxContainer, dxScrollbarAnnotations, cxProgressBar; cxContainer, dxScrollbarAnnotations, cxProgressBar, dxSkinsCore,
dxSkinsDefaultPainters;
type type
TfrmBankList = class(TfrmBaseList) TfrmBankList = class(TfrmBaseList)

6
A01基础公司管理/U_CustInput.dfm
View File

@ -70,8 +70,6 @@ inherited frmCustInput: TfrmCustInput
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitLeft = -1
ExplicitTop = 26
object Label2: TLabel object Label2: TLabel
Left = 14 Left = 14
Top = 12 Top = 12
@ -336,8 +334,6 @@ inherited frmCustInput: TfrmCustInput
Align = alClient Align = alClient
Caption = 'Panel1' Caption = 'Panel1'
TabOrder = 2 TabOrder = 2
ExplicitTop = 380
ExplicitHeight = 263
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
@ -346,7 +342,6 @@ inherited frmCustInput: TfrmCustInput
Align = alClient Align = alClient
Caption = 'Panel1' Caption = 'Panel1'
TabOrder = 0 TabOrder = 0
ExplicitHeight = 261
object ToolBar3: TToolBar object ToolBar3: TToolBar
Tag = 1 Tag = 1
Left = 1 Left = 1
@ -397,7 +392,6 @@ inherited frmCustInput: TfrmCustInput
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 1 TabOrder = 1
ExplicitHeight = 229
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False

16
A01基础公司管理/U_CustInput.pas
View File

@ -261,17 +261,15 @@ begin
Exit; Exit;
end; end;
if trim(CoCode.Text) = '' then with ADOQueryTemp do
begin begin
with ADOQueryTemp do Close;
begin sql.Clear;
Close; sql.Add(' exec P_BS_Com_Get_No @Str=''K'' ');
sql.Clear; Open;
sql.Add(' exec P_BS_Com_Get_No @Str=''K'' ');
Open;
end;
CoCode.Text := trim(ADOQueryTemp.FieldByName('NewCoCode').asstring);
end; end;
CoCode.Text := trim(ADOQueryTemp.FieldByName('NewCoCode').asstring);
end end
else else
begin begin

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

@ -28,7 +28,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1442
object ToolButton1: TToolButton object ToolButton1: TToolButton
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -461,16 +460,12 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
ExplicitTop = 381
ExplicitHeight = 356
ClientRectBottom = 462 ClientRectBottom = 462
ClientRectRight = 1546 ClientRectRight = 1546
ClientRectTop = 28 ClientRectTop = 28
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512 Caption = #32463#19997#32452#21512
ImageIndex = 0 ImageIndex = 0
ExplicitWidth = 1442
ExplicitHeight = 316
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 931 Left = 931
Top = 0 Top = 0
@ -485,8 +480,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitWidth = 511
ExplicitHeight = 316
object Y_Note_PLJ: TMemo object Y_Note_PLJ: TMemo
Tag = 2 Tag = 2
Left = 2 Left = 2
@ -495,8 +488,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 401 Height = 401
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitWidth = 507
ExplicitHeight = 283
end end
end end
object Panel1: TPanel object Panel1: TPanel
@ -506,7 +497,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 434 Height = 434
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
ExplicitHeight = 316
object cxPageControl2: TcxPageControl object cxPageControl2: TcxPageControl
Left = 1 Left = 1
Top = 1 Top = 1
@ -526,7 +516,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
ExplicitHeight = 314
ClientRectBottom = 432 ClientRectBottom = 432
ClientRectRight = 929 ClientRectRight = 929
ClientRectTop = 0 ClientRectTop = 0
@ -539,9 +528,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 1 TabOrder = 1
ExplicitLeft = 142
ExplicitTop = -9
ExplicitHeight = 375
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -712,8 +698,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512 Caption = #32428#19997#32452#21512
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 1442
ExplicitHeight = 316
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
Left = 961 Left = 961
Top = 0 Top = 0
@ -728,8 +712,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitWidth = 481
ExplicitHeight = 316
object Y_Note_PLW: TMemo object Y_Note_PLW: TMemo
Tag = 2 Tag = 2
Left = 2 Left = 2
@ -738,8 +720,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 401 Height = 401
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitWidth = 477
ExplicitHeight = 283
end end
end end
object Panel2: TPanel object Panel2: TPanel
@ -749,7 +729,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 434 Height = 434
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
ExplicitHeight = 316
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 1 Left = 1
Top = 1 Top = 1
@ -769,7 +748,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
ExplicitHeight = 314
ClientRectBottom = 432 ClientRectBottom = 432
ClientRectRight = 959 ClientRectRight = 959
ClientRectTop = 0 ClientRectTop = 0
@ -782,7 +760,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Align = alClient Align = alClient
PopupMenu = PM_2 PopupMenu = PM_2
TabOrder = 1 TabOrder = 1
ExplicitHeight = 314
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -953,8 +930,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object cxTabSheet3: TcxTabSheet object cxTabSheet3: TcxTabSheet
Caption = #36215#32508#27861 Caption = #36215#32508#27861
ImageIndex = 3 ImageIndex = 3
ExplicitWidth = 1442
ExplicitHeight = 316
object Panel8: TPanel object Panel8: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -963,7 +938,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Align = alTop Align = alTop
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
ExplicitWidth = 1442
object ToolBar4: TToolBar object ToolBar4: TToolBar
Tag = 1 Tag = 1
Left = 555 Left = 555
@ -1034,15 +1008,11 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Align = alClient Align = alClient
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 1 TabOrder = 1
ExplicitWidth = 1442
ExplicitHeight = 284
end end
end end
object cxTabSheet4: TcxTabSheet object cxTabSheet4: TcxTabSheet
Caption = #31359#32508#27861 Caption = #31359#32508#27861
ImageIndex = 3 ImageIndex = 3
ExplicitWidth = 1442
ExplicitHeight = 316
object CZF: TMemo object CZF: TMemo
Tag = 2 Tag = 2
Left = 0 Left = 0
@ -1052,15 +1022,11 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Align = alClient Align = alClient
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1442
ExplicitHeight = 316
end end
end end
object cxTabSheet5: TcxTabSheet object cxTabSheet5: TcxTabSheet
Caption = #31359#31576#27861 Caption = #31359#31576#27861
ImageIndex = 3 ImageIndex = 3
ExplicitWidth = 1442
ExplicitHeight = 316
object CKF: TMemo object CKF: TMemo
Tag = 2 Tag = 2
Left = 0 Left = 0
@ -1070,8 +1036,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Align = alClient Align = alClient
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1442
ExplicitHeight = 316
end end
end end
end end

95
A02基础产品管理/U_TatClothInfoInput.pas
View File

@ -208,7 +208,7 @@ type
function SaveData(): Boolean; function SaveData(): Boolean;
{ Private declarations } { Private declarations }
public public
FBCIID, FCTID: string; FBCIID, FCTID, JSGG, WSGG, FC_Spec: string;
CopyInt: Integer; CopyInt: Integer;
{ Public declarations } { Public declarations }
@ -230,22 +230,6 @@ var
myStream: TMemoryStream; myStream: TMemoryStream;
begin begin
myStream := TMemoryStream.Create(); myStream := TMemoryStream.Create();
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCSHData(ADOQueryTemp, ScrollBox1, 2);
SCSHData(ADOQueryTemp, ScrollBox1, 0);
QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString);
CZF.Text := Trim(ADOQueryTemp.FieldByName('CZF').AsString);
CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString);
Y_Note_PLJ.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLJ').AsString);
Y_Note_PLW.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLW').AsString);
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -269,6 +253,23 @@ begin
SCreateCDS(ADOQueryTemp, CDS_2); SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2); SInitCDSData(ADOQueryTemp, CDS_2);
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCSHData(ADOQueryTemp, ScrollBox1, 2);
SCSHData(ADOQueryTemp, ScrollBox1, 0);
QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString);
CZF.Text := Trim(ADOQueryTemp.FieldByName('CZF').AsString);
CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString);
Y_Note_PLJ.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLJ').AsString);
Y_Note_PLW.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLW').AsString);
////////////////////////// 保存起综 ////////////////////////// ////////////////////////// 保存起综 //////////////////////////
// with ADOQueryTemp do // with ADOQueryTemp do
@ -432,6 +433,27 @@ begin
// First; // First;
// EnableControls; // EnableControls;
// end; // end;
JSGG := '';
with CDS_1 do
begin
first;
while not eof do
begin
if Trim(CDS_1.fieldbyname('Y_Name').AsString) <> '' then
begin
if POS(Trim(CDS_1.fieldbyname('Y_Name').AsString), JSGG) = 0 then
begin
JSGG := JSGG + Trim(CDS_1.fieldbyname('Y_Name').AsString) + '+';
end;
end;
next;
end;
First;
end;
JSGG := Copy(JSGG, 1, Length(JSGG) - 1);
end; end;
procedure TfrmTatClothInfoInput.JSWS(); procedure TfrmTatClothInfoInput.JSWS();
@ -495,6 +517,27 @@ begin
// First; // First;
// EnableControls; // EnableControls;
// end; // end;
WSGG := '';
with CDS_2 do
begin
first;
while not eof do
begin
if Trim(CDS_2.fieldbyname('Y_Name').AsString) <> '' then
begin
if POS(Trim(CDS_2.fieldbyname('Y_Name').AsString), WSGG) = 0 then
begin
WSGG := WSGG + Trim(CDS_2.fieldbyname('Y_Name').AsString) + '+';
end;
end;
next;
end;
First;
end;
WSGG := Copy(WSGG, 1, Length(WSGG) - 1);
end; end;
procedure TfrmTatClothInfoInput.MenuItem1Click(Sender: TObject); procedure TfrmTatClothInfoInput.MenuItem1Click(Sender: TObject);
@ -572,6 +615,15 @@ begin
// end; // end;
// //
// C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2)); // C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2));
/////////////Éú³É¹æ¸ñ /////////////
FC_Spec := '';
FC_Spec := '(' + JSGG + ')*(' + WSGG + ')';
C_Spec.text := trim(FC_Spec);
/////////////Éú³É¹æ¸ñ /////////////
end; end;
procedure TfrmTatClothInfoInput.FormShow(Sender: TObject); procedure TfrmTatClothInfoInput.FormShow(Sender: TObject);
@ -582,6 +634,9 @@ begin
// readCxGrid(self.Caption + 'TV44', Tv4, '样品管理'); // readCxGrid(self.Caption + 'TV44', Tv4, '样品管理');
InitGrid(); InitGrid();
JSJS();
JSWS();
JSKZ(); JSKZ();
if CopyInt = 1 then if CopyInt = 1 then
@ -829,8 +884,6 @@ begin
end; end;
////////////////////////// 保存纬丝配比表 ////////////////////////// ////////////////////////// 保存纬丝配比表 //////////////////////////
////////////////////////// 保存起综 ////////////////////////// ////////////////////////// 保存起综 //////////////////////////
// with CDS_4 do // with CDS_4 do
// begin // begin
@ -879,8 +932,6 @@ begin
// end; // end;
////////////////////////// 保存起综 ////////////////////////// ////////////////////////// 保存起综 //////////////////////////
// dxSpreadSheet1.SaveToFile('D:\FilesExcel.xlsx'); // dxSpreadSheet1.SaveToFile('D:\FilesExcel.xlsx');
// with ADOQueryCmd do // with ADOQueryCmd do
// begin // begin
@ -912,8 +963,6 @@ begin
// Post; // Post;
// end; // end;
// if pos('接口异常', JsonStr) > 0 then // if pos('接口异常', JsonStr) > 0 then
// begin // begin
// raise Exception.Create(pchar(JsonStr)); // raise Exception.Create(pchar(JsonStr));

48
A05基础资料管理/BaseInfo.dproj.local
View File

@ -1,32 +1,32 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.888,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.888,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.824,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRtInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.116,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.293,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.293,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>2025-03-04 23:03:41.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.872,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm</Transaction>
<Transaction>2025-03-04 23:03:41.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>2025-03-04 23:12:55.116,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>2025-03-04 23:15:05.471,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRtInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas</Transaction>
<Transaction>2025-03-04 23:30:55.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm</Transaction>
<Transaction>2025-03-04 23:30:55.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</Transaction>
</Transactions> </Transactions>
</BorlandProject> </BorlandProject>

BIN
A05基础资料管理/BaseInfo.identcache
View File

Binary file not shown.

2
A05基础资料管理/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10szYueXiang\A05基础资料管理\BaseInfo.dproj"/> <Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\BaseInfo.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

BIN
A05基础资料管理/testDll.identcache
View File

Binary file not shown.

BIN
B01基础合同管理/Contract.identcache
View File

Binary file not shown.

2
B02基础纱线仓库/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\YarnStk.dproj"/> <Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\YarnStk.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

421
B02基础纱线仓库/U_YarnInfoInPut.dfm
View File

@ -2,13 +2,13 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
Left = 88 Left = 88
Top = 141 Top = 141
Caption = #32433#32447#20449#24687#24405#20837 Caption = #32433#32447#20449#24687#24405#20837
ClientHeight = 397 ClientHeight = 490
ClientWidth = 1268 ClientWidth = 1268
Color = clWhite Color = clWhite
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
ExplicitWidth = 1284 ExplicitWidth = 1284
ExplicitHeight = 436 ExplicitHeight = 529
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -61,7 +61,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1268 Width = 1268
Height = 367 Height = 460
Align = alClient Align = alClient
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -80,169 +80,412 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ExplicitTop = 29 ExplicitTop = 29
object Label2: TLabel object Label2: TLabel
Left = 16 Left = 16
Top = 155 Top = 156
Width = 28 Width = 32
Height = 14 Height = 21
Caption = #31867#22411 Caption = #31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 390 Left = 16
Top = 114 Top = 239
Width = 28 Width = 32
Height = 14 Height = 21
Caption = #21697#29260 Caption = #21697#29260
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end end
object Label7: TLabel object Label7: TLabel
Left = 16 Left = 16
Top = 239 Top = 285
Width = 28 Width = 32
Height = 14 Height = 21
Caption = #22791#27880 Caption = #22791#27880
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end end
object Label1: TLabel object Label1: TLabel
Left = 16 Left = 16
Top = 31 Top = 32
Width = 28 Width = 32
Height = 14 Height = 21
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end end
object Label3: TLabel object Label3: TLabel
Left = 390 Left = 387
Top = 31 Top = 32
Width = 28 Width = 32
Height = 14 Height = 21
Caption = #32534#21495 Caption = #32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 16 Left = 16
Top = 71 Top = 72
Width = 28 Width = 32
Height = 14 Height = 21
Caption = #35268#26684 Caption = #35268#26684
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end end
object Label8: TLabel object Label8: TLabel
Left = 369 Left = 387
Top = 71 Top = 72
Width = 49 Width = 60
Height = 14 Height = 21
Caption = #29702#35770'D'#25968 Caption = #29702#35770'D'#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end end
object Label9: TLabel object Label9: TLabel
Left = 390 Left = 387
Top = 200 Top = 196
Width = 28 Width = 32
Height = 14 Height = 21
Caption = #39068#33394 Caption = #39068#33394
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 16 Left = 16
Top = 114 Top = 115
Width = 28 Width = 32
Height = 14 Height = 21
Caption = #25104#20998 Caption = #25104#20998
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 390 Left = 387
Top = 155 Top = 156
Width = 28 Width = 32
Height = 14 Height = 21
Caption = #32442#27861 Caption = #32442#27861
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end end
object Label11: TLabel object Label11: TLabel
Left = 16 Left = 16
Top = 200 Top = 196
Width = 28 Width = 32
Height = 14 Height = 21
Caption = #25467#24230 Caption = #25467#24230
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 387
Top = 115
Width = 32
Height = 21
Caption = #25903#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 374
Top = 238
Width = 64
Height = 21
Caption = #26631#26679#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end end
object Brand: TcxTextEdit object Brand: TcxTextEdit
Tag = 2 Tag = 2
Left = 424 Left = 68
Top = 110 Top = 235
ParentColor = True ParentColor = True
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 0 TabOrder = 0
Width = 300 Width = 300
end end
object Y_Name: TcxTextEdit object Y_Name: TcxTextEdit
Tag = 2 Tag = 2
Left = 48 Left = 68
Top = 27 Top = 28
ParentColor = True ParentColor = True
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 1 TabOrder = 1
OnClick = Y_NameClick
OnExit = Y_NameExit
Width = 300 Width = 300
end end
object Y_Code: TcxTextEdit object Y_Code: TcxTextEdit
Tag = 2 Tag = 2
Left = 424 Left = 458
Top = 27 Top = 28
Enabled = False Enabled = False
ParentColor = True ParentColor = True
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 2 TabOrder = 2
Width = 300 Width = 300
end end
object Denier: TcxTextEdit object Denier: TcxTextEdit
Tag = 2 Tag = 2
Left = 424 Left = 458
Top = 67 Top = 68
ParentColor = True ParentColor = True
ParentFont = False
Properties.OnEditValueChanged = DenierPropertiesEditValueChanged
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 3 TabOrder = 3
Width = 300 OnClick = DenierClick
end OnExit = DenierExit
object Y_Spec: TcxTextEdit
Tag = 2
Left = 48
Top = 67
ParentColor = True
TabOrder = 4
Width = 300
end
object Y_Color: TcxTextEdit
Tag = 2
Left = 424
Top = 196
TabOrder = 5
Width = 300 Width = 300
end end
object Note: TcxMemo object Note: TcxMemo
Tag = 2 Tag = 2
Left = 48 Left = 68
Top = 239 Top = 285
ParentColor = True ParentColor = True
TabOrder = 6 ParentFont = False
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 4
Height = 89 Height = 89
Width = 691 Width = 691
end end
object Y_Type: TcxComboBox
Tag = 2
Left = 48
Top = 151
ParentColor = True
Properties.DropDownListStyle = lsFixedList
TabOrder = 7
Width = 300
end
object Y_Composition: TcxTextEdit
Tag = 2
Left = 48
Top = 110
ParentColor = True
TabOrder = 8
Width = 300
end
object FF: TcxTextEdit object FF: TcxTextEdit
Tag = 2 Tag = 2
Left = 424 Left = 458
Top = 151 Top = 152
ParentColor = True ParentColor = True
TabOrder = 9 ParentFont = False
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 5
Width = 300 Width = 300
end end
object ND: TcxTextEdit object ND: TcxTextEdit
Tag = 2 Tag = 2
Left = 48 Left = 68
Top = 196 Top = 192
ParentColor = True ParentColor = True
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 6
Width = 300
end
object ZS: TcxTextEdit
Tag = 2
Left = 458
Top = 111
ParentColor = True
ParentFont = False
Properties.OnEditValueChanged = ZSPropertiesEditValueChanged
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 7
OnClick = ZSClick
OnExit = ZSExit
Width = 300
end
object BYDate: TcxDateEdit
Tag = 2
Left = 458
Top = 235
ParentFont = False
Properties.ShowTime = False
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 8
Width = 300
end
object Y_Color: TcxButtonEdit
Tag = 2
Left = 458
Top = 192
Hint = 'Y_Color/'#39068#33394
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.ButtonStyle = btsDefault
Style.IsFontAssigned = True
TabOrder = 9
OnDblClick = Y_ColorDblClick
Width = 300
end
object Y_Type: TcxButtonEdit
Tag = 2
Left = 68
Top = 157
Hint = 'Y_Type/'#31867#22411
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.ButtonStyle = btsDefault
Style.IsFontAssigned = True
TabOrder = 10 TabOrder = 10
OnDblClick = Y_ColorDblClick
Width = 300
end
object Y_Composition: TcxButtonEdit
Tag = 2
Left = 68
Top = 111
Hint = 'Y_Composition/'#25104#20998
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.ButtonStyle = btsDefault
Style.IsFontAssigned = True
TabOrder = 11
OnDblClick = Y_ColorDblClick
Width = 300
end
object Y_Spec: TcxButtonEdit
Tag = 2
Left = 68
Top = 68
Hint = 'Y_Spec/'#35268#26684
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.ButtonStyle = btsDefault
Style.IsFontAssigned = True
TabOrder = 12
OnDblClick = Y_ColorDblClick
Width = 300 Width = 300
end end
end end

125
B02基础纱线仓库/U_YarnInfoInPut.pas
View File

@ -12,7 +12,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList, dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList,
cxContainer, cxMaskEdit, cxMemo, cxImageList, dxSkinsCore, cxContainer, cxMaskEdit, cxMemo, cxImageList, dxSkinsCore,
dxSkinsDefaultPainters; dxSkinsDefaultPainters, dxCore, cxDateUtils;
type type
TfrmYarnInfoInPut = class(TfrmBaseInput) TfrmYarnInfoInPut = class(TfrmBaseInput)
@ -35,23 +35,38 @@ type
Label4: TLabel; Label4: TLabel;
Label8: TLabel; Label8: TLabel;
Denier: TcxTextEdit; Denier: TcxTextEdit;
Y_Spec: TcxTextEdit;
Label9: TLabel; Label9: TLabel;
Y_Color: TcxTextEdit;
Note: TcxMemo; Note: TcxMemo;
Y_Type: TcxComboBox;
Y_Composition: TcxTextEdit;
Label5: TLabel; Label5: TLabel;
ADOConnection1: TADOConnection; ADOConnection1: TADOConnection;
Label10: TLabel; Label10: TLabel;
FF: TcxTextEdit; FF: TcxTextEdit;
Label11: TLabel; Label11: TLabel;
ND: TcxTextEdit; ND: TcxTextEdit;
Label12: TLabel;
ZS: TcxTextEdit;
Label13: TLabel;
BYDate: TcxDateEdit;
Y_Color: TcxButtonEdit;
Y_Type: TcxButtonEdit;
Y_Composition: TcxButtonEdit;
Y_Spec: TcxButtonEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure Y_NameClick(Sender: TObject);
procedure Y_NameExit(Sender: TObject);
procedure Y_SpecPropertiesChange(Sender: TObject);
procedure DenierClick(Sender: TObject);
procedure DenierExit(Sender: TObject);
procedure ZSClick(Sender: TObject);
procedure ZSExit(Sender: TObject);
procedure DenierPropertiesEditValueChanged(Sender: TObject);
procedure ZSPropertiesEditValueChanged(Sender: TObject);
procedure ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Y_ColorDblClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
function SaveData(): Boolean; function SaveData(): Boolean;
@ -70,6 +85,21 @@ uses
{$R *.dfm} {$R *.dfm}
procedure TfrmYarnInfoInPut.DenierClick(Sender: TObject);
begin
ZS.Style.Color := clMoneyGreen;
end;
procedure TfrmYarnInfoInPut.DenierExit(Sender: TObject);
begin
ZS.Style.Color := clWhite;
end;
procedure TfrmYarnInfoInPut.DenierPropertiesEditValueChanged(Sender: TObject);
begin
ZS.text := floattostr(roundfloat(9000 / strtofloatdef(Denier.text, 0), 2));
end;
procedure TfrmYarnInfoInPut.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmYarnInfoInPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
inherited; inherited;
@ -178,8 +208,17 @@ var
begin begin
inherited; inherited;
fsj := ' select Code=ZDYNo,Name=ZDYName from KH_ZDY where Type=''YType'' and MainType=''<27>窟도갭'' '; // fsj := ' select Code=ZDYNo,Name=ZDYName from KH_ZDY where Type=''YType'' and MainType=''<27>窟도갭'' ';
SInitTcxComBoxBySql(ADOQueryTemp, Y_Type, TRUE, fsj); // SInitTcxComBoxBySql(ADOQueryTemp, Y_Type, false, fsj);
//
// fsj := ' select Code=ZDYNo,Name=ZDYName from KH_ZDY where Type=''Y_Spec'' and MainType=''<27>窟도갭'' ';
// SInitTcxComBoxBySql(ADOQueryTemp, Y_Spec, false, fsj);
//
// fsj := ' select Code=ZDYNo,Name=ZDYName from KH_ZDY where Type=''Y_Composition'' and MainType=''<27>窟도갭'' ';
// SInitTcxComBoxBySql(ADOQueryTemp, Y_Composition, false, fsj);
//
// fsj := ' select Code=ZDYNo,Name=ZDYName from KH_ZDY where Type=''Y_Color'' and MainType=''<27>窟도갭'' ';
// SInitTcxComBoxBySql(ADOQueryTemp, Y_Color, false, fsj);
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -187,11 +226,45 @@ begin
SQL.Clear; SQL.Clear;
sql.Add(' select * from BS_Yarn_Info '); sql.Add(' select * from BS_Yarn_Info ');
sql.Add(' where BYIID=''' + Trim(FBYIID) + ''''); sql.Add(' where BYIID=''' + Trim(FBYIID) + '''');
Open; Open;
end; end;
SCSHData(ADOQueryTemp, ScrollBox1, 2); SCSHData(ADOQueryTemp, ScrollBox1, 2);
if FBYIID = '' then
begin
ByDate.Date := SGetServerDateTime(ADOQueryTemp);
end;
end;
procedure TfrmYarnInfoInPut.Y_ColorDblClick(Sender: TObject);
begin
TcxButtonEdit(Sender).Text := '';
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
end;
procedure TfrmYarnInfoInPut.ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := 'Cust';
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end; end;
procedure TfrmYarnInfoInPut.TBSaveClick(Sender: TObject); procedure TfrmYarnInfoInPut.TBSaveClick(Sender: TObject);
@ -201,11 +274,13 @@ begin
// Application.MessageBox('编号不能为空!', '提示', 0); // Application.MessageBox('编号不能为空!', '提示', 0);
// Exit; // Exit;
// end; // end;
Y_Name.SetFocus;
if Trim(Y_Name.Text) = '' then if Trim(Y_Name.Text) = '' then
begin begin
Application.MessageBox('名称不能为空!', '提示', 0); Application.MessageBox('名称不能为空!', '提示', 0);
Exit; Exit;
end; end;
if Trim(Denier.Text) <> '' then if Trim(Denier.Text) <> '' then
begin begin
if StrToFloatdef(Denier.Text, 0) = 0 then if StrToFloatdef(Denier.Text, 0) = 0 then
@ -222,5 +297,39 @@ begin
end; end;
end; end;
procedure TfrmYarnInfoInPut.Y_NameClick(Sender: TObject);
begin
Y_Spec.Style.Color := clMoneyGreen;
Y_Composition.Style.Color := clMoneyGreen;
Y_Color.Style.Color := clMoneyGreen;
end;
procedure TfrmYarnInfoInPut.Y_NameExit(Sender: TObject);
begin
Y_Spec.Style.Color := clWhite;
Y_Composition.Style.Color := clWhite;
Y_Color.Style.Color := clWhite;
end;
procedure TfrmYarnInfoInPut.Y_SpecPropertiesChange(Sender: TObject);
begin
Y_Name.text := Trim(Y_Spec.text) + Trim(Y_Composition.text) + Trim(Y_Color.text);
end;
procedure TfrmYarnInfoInPut.ZSClick(Sender: TObject);
begin
Denier.Style.Color := clMoneyGreen;
end;
procedure TfrmYarnInfoInPut.ZSExit(Sender: TObject);
begin
Denier.Style.Color := clWhite;
end;
procedure TfrmYarnInfoInPut.ZSPropertiesEditValueChanged(Sender: TObject);
begin
Denier.text := floattostr(roundfloat(9000 / strtofloatdef(ZS.text, 0), 2));
end;
end. end.

85
B02基础纱线仓库/U_YarnInfoList.dfm
View File

@ -78,18 +78,46 @@ inherited frmYarnInfoList: TfrmYarnInfoList
AutoSize = True AutoSize = True
Caption = #31867#22411#23450#20041 Caption = #31867#22411#23450#20041
ImageIndex = 15 ImageIndex = 15
Visible = False
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBExport: TToolButton object ToolButton3: TToolButton
Left = 402 Left = 402
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #35268#26684#23450#20041
ImageIndex = 15
Visible = False
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 489
Top = 0
AutoSize = True
Caption = #25104#20998#23450#20041
ImageIndex = 15
Visible = False
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 576
Top = 0
AutoSize = True
Caption = #39068#33394#23450#20041
ImageIndex = 15
Visible = False
OnClick = ToolButton5Click
end
object TBExport: TToolButton
Left = 663
Top = 0
AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 20 ImageIndex = 20
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 465 Left = 726
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -97,7 +125,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 552 Left = 813
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -124,54 +152,57 @@ inherited frmYarnInfoList: TfrmYarnInfoList
Caption = #21697#21517 Caption = #21697#21517
end end
object Label4: TLabel object Label4: TLabel
Left = 416 Left = 414
Top = 10 Top = 10
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #35268#26684 Caption = #35268#26684
end end
object Label5: TLabel object Label5: TLabel
Left = 36 Left = 34
Top = 10 Top = 10
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #21697#29260 Caption = #32534#21495
end end
object lbl1: TLabel object lbl1: TLabel
Left = 606 Left = 606
Top = 11 Top = 10
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #31867#22411 Caption = #31867#22411
end end
object Y_Name: TcxTextEdit object Y_Name: TcxTextEdit
Tag = 2 Tag = 2
Left = 262 Left = 264
Top = 4 Top = 6
Properties.OnChange = BrandPropertiesChange Properties.OnChange = BrandPropertiesChange
TabOrder = 0 TabOrder = 0
Width = 150 Width = 150
end end
object Y_Spec: TcxTextEdit object Y_Code: TcxTextEdit
Tag = 2 Tag = 2
Left = 452 Left = 72
Top = 4 Top = 6
Properties.OnChange = BrandPropertiesChange Properties.OnChange = BrandPropertiesChange
TabOrder = 1 TabOrder = 1
Width = 150 Width = 150
end end
object Brand: TcxTextEdit object Y_Type: TcxComboBox
Tag = 2 Tag = 2
Left = 72 Left = 644
Top = 4 Top = 6
Properties.DropDownListStyle = lsFixedList
Properties.OnChange = BrandPropertiesChange Properties.OnChange = BrandPropertiesChange
TabOrder = 2 TabOrder = 2
Width = 150 Width = 150
end end
object Y_Type: TcxComboBox object Y_Spec: TcxComboBox
Left = 642 Tag = 2
Top = 4 Left = 450
Top = 6
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.OnChange = BrandPropertiesChange
TabOrder = 3 TabOrder = 3
Width = 150 Width = 150
end end
@ -339,6 +370,14 @@ inherited frmYarnInfoList: TfrmYarnInfoList
VisibleForCustomization = False VisibleForCustomization = False
Width = 66 Width = 66
end end
object Tv1Column7: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'ZS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #32442#27861 Caption = #32442#27861
DataBinding.FieldName = 'FF' DataBinding.FieldName = 'FF'
@ -363,6 +402,14 @@ inherited frmYarnInfoList: TfrmYarnInfoList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column8: TcxGridDBColumn
Caption = #26631#26679#26085#26399
DataBinding.FieldName = 'BYDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
@ -388,7 +435,7 @@ inherited frmYarnInfoList: TfrmYarnInfoList
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_YarnStk.ADOLink Connection = DataLink_YarnStk.ADOLink
Left = 113 Left = 113
Top = 193 Top = 192
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_YarnStk.ADOLink Connection = DataLink_YarnStk.ADOLink

72
B02基础纱线仓库/U_YarnInfoList.pas
View File

@ -52,8 +52,7 @@ type
Label4: TLabel; Label4: TLabel;
Label5: TLabel; Label5: TLabel;
Y_Name: TcxTextEdit; Y_Name: TcxTextEdit;
Y_Spec: TcxTextEdit; Y_Code: TcxTextEdit;
Brand: TcxTextEdit;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
@ -63,6 +62,12 @@ type
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
Y_Spec: TcxComboBox;
Tv1Column8: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -78,6 +83,9 @@ type
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure BrandPropertiesChange(Sender: TObject); procedure BrandPropertiesChange(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
private private
canshu1, FSTKName, canshu3: string; canshu1, FSTKName, canshu3: string;
procedure InitGrid(); procedure InitGrid();
@ -163,6 +171,63 @@ begin
end; end;
end; end;
procedure TfrmYarnInfoList.ToolButton3Click(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'Y_Spec';
flagname := '방목';
MainType := '<27>窟도갭';
if ShowModal = 1 then
begin
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmYarnInfoList.ToolButton4Click(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'Y_Composition';
flagname := '냥롸';
MainType := '<27>窟도갭';
if ShowModal = 1 then
begin
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmYarnInfoList.ToolButton5Click(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'Y_Color';
flagname := '奈<>';
MainType := '<27>窟도갭';
if ShowModal = 1 then
begin
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmYarnInfoList.TBCloseClick(Sender: TObject); procedure TfrmYarnInfoList.TBCloseClick(Sender: TObject);
begin begin
Close; Close;
@ -178,6 +243,9 @@ begin
fsj := ' select Code=ZDYNo,Name=ZDYName from KH_ZDY where Type=''YType'' and MainType=''É´Ïßµµ°¸'' '; fsj := ' select Code=ZDYNo,Name=ZDYName from KH_ZDY where Type=''YType'' and MainType=''É´Ïßµµ°¸'' ';
SInitTcxComBoxBySql(ADOQueryTemp, Y_Type, false, fsj); SInitTcxComBoxBySql(ADOQueryTemp, Y_Type, false, fsj);
fsj := ' select Code=ZDYNo,Name=ZDYName from KH_ZDY where Type=''Y_SPec'' and MainType=''<27>窟도갭'' ';
SInitTcxComBoxBySql(ADOQueryTemp, Y_SPec, false, fsj);
InitGrid(); InitGrid();
end; end;

51
B02基础纱线仓库/YarnStk.dproj.local
View File

@ -14,7 +14,7 @@
<Transaction>1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</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.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction>
@ -30,11 +30,11 @@
<Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm</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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
@ -43,7 +43,7 @@
<Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.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.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
@ -71,7 +71,7 @@
<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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.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.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
@ -80,8 +80,8 @@
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</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.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
@ -129,7 +129,6 @@
<File Path="..\A00通用窗体\U_CompanySel.dfm"/> <File Path="..\A00通用窗体\U_CompanySel.dfm"/>
<File Path="..\A00通用窗体\U_EmployeeSel.pas"/> <File Path="..\A00通用窗体\U_EmployeeSel.pas"/>
<File Path="..\A00通用窗体\U_EmployeeSel.dfm"/> <File Path="..\A00通用窗体\U_EmployeeSel.dfm"/>
<File Path="..\A00通用窗体\U_FactoryInput2.pas"/>
<File Path="..\A00通用窗体\U_InputBoxSingleNumber.pas"/> <File Path="..\A00通用窗体\U_InputBoxSingleNumber.pas"/>
<File Path="..\A00通用窗体\U_InputBoxSingleNumber.dfm"/> <File Path="..\A00通用窗体\U_InputBoxSingleNumber.dfm"/>
<File Path="..\A00通用窗体\U_LabelMapSet.pas"/> <File Path="..\A00通用窗体\U_LabelMapSet.pas"/>
@ -150,8 +149,6 @@
<File Path="..\A02基础产品管理"/> <File Path="..\A02基础产品管理"/>
<File Path="..\A02基础产品管理\U_YarnInList_Sel.pas"/> <File Path="..\A02基础产品管理\U_YarnInList_Sel.pas"/>
<File Path="..\A02基础产品管理\U_YarnInList_Sel.dfm"/> <File Path="..\A02基础产品管理\U_YarnInList_Sel.dfm"/>
<File Path="..\B03基础物料仓库"/>
<File Path="..\B03基础物料仓库\U_JWLPurchasePlanSel.pas"/>
<File Path="..\T00贸易通用窗体"/> <File Path="..\T00贸易通用窗体"/>
<File Path="..\T00贸易通用窗体\U_PurchaseContractSel.pas"/> <File Path="..\T00贸易通用窗体\U_PurchaseContractSel.pas"/>
<File Path="..\T00贸易通用窗体\U_PurchaseContractSel.dfm"/> <File Path="..\T00贸易通用窗体\U_PurchaseContractSel.dfm"/>
@ -179,33 +176,33 @@
<File Path="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/> <File Path="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/> <File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/> <File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<File Path="U_CPSelBig.pas"/>
<File Path="U_CPSelBig.dfm"/>
<File Path="U_DataLink.pas"/> <File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/> <File Path="U_DataLink.dfm"/>
<File Path="U_GetDllForm.pas"/> <File Path="U_GetDllForm.pas"/>
<File Path="U_iniParam.pas"/> <File Path="U_iniParam.pas"/>
<File Path="U_YarnInfoList.pas"/>
<File Path="U_YarnInfoList.dfm"/>
<File Path="U_YarnInEdit.pas"/>
<File Path="U_YarnInEdit.dfm"/>
<File Path="U_YarnStkList.pas"/>
<File Path="U_YarnStkList.dfm"/>
<File Path="U_testdll.pas"/> <File Path="U_testdll.pas"/>
<File Path="U_testdll.dfm"/> <File Path="U_testdll.dfm"/>
<File Path="U_YarnWeighing.pas"/> <File Path="U_YarnInEdit.pas"/>
<File Path="U_YarnWeighing.dfm"/> <File Path="U_YarnInEdit.dfm"/>
<File Path="U_CPSelBig.pas"/>
<File Path="U_CPSelBig.dfm"/>
<File Path="U_YarnStkSel.pas"/>
<File Path="U_YarnStkSel.dfm"/>
<File Path="U_YarnInfoInPut.pas"/> <File Path="U_YarnInfoInPut.pas"/>
<File Path="U_YarnInfoInPut.dfm"/> <File Path="U_YarnInfoInPut.dfm"/>
<File Path="U_YarnOutReturnList1.pas"/> <File Path="U_YarnInfoList.pas"/>
<File Path="U_YarnOutReturnList1.dfm"/> <File Path="U_YarnInfoList.dfm"/>
<File Path="U_YarnPurOutReturn1.pas"/>
<File Path="U_YarnPurOutReturn1.dfm"/>
<File Path="U_YarnOutWBList.pas"/>
<File Path="U_YarnOutWBList.dfm"/>
<File Path="U_YarnInList_RC.pas"/> <File Path="U_YarnInList_RC.pas"/>
<File Path="U_YarnInList_RC.dfm"/> <File Path="U_YarnInList_RC.dfm"/>
<File Path="U_YarnOutReturnList1.pas"/>
<File Path="U_YarnOutReturnList1.dfm"/>
<File Path="U_YarnOutWBList.pas"/>
<File Path="U_YarnOutWBList.dfm"/>
<File Path="U_YarnPurOutReturn1.pas"/>
<File Path="U_YarnPurOutReturn1.dfm"/>
<File Path="U_YarnStkList.pas"/>
<File Path="U_YarnStkList.dfm"/>
<File Path="U_YarnStkSel.pas"/>
<File Path="U_YarnStkSel.dfm"/>
<File Path="U_YarnWeighing.pas"/>
<File Path="U_YarnWeighing.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

BIN
B02基础纱线仓库/YarnStk.identcache
View File

Binary file not shown.

BIN
B02基础纱线仓库/testDll.identcache
View File

Binary file not shown.

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

@ -1,76 +1,76 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<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.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.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.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm</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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.630,=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.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.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.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.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.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</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.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.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.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.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.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm</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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\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.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.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.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.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm</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.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.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</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.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.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.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.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</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.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</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.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.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.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.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>

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

Binary file not shown.

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

@ -165,7 +165,6 @@ inherited frmTatPlanList: TfrmTatPlanList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 6 TabOrder = 6
ExplicitTop = 36
object Label1: TLabel object Label1: TLabel
Left = 18 Left = 18
Top = 14 Top = 14
@ -315,7 +314,6 @@ inherited frmTatPlanList: TfrmTatPlanList
Height = 444 Height = 444
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitLeft = -6
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

7
E02梭织经轴仓库/U_TatWBCardInPut.dfm
View File

@ -837,8 +837,8 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Left = 379 Left = 379
Top = 12 Top = 12
Properties.Items.Strings = ( Properties.Items.Strings = (
#22823#36135 #27974#36724
#35797#26679) #32463#36724)
TabOrder = 1 TabOrder = 1
Width = 150 Width = 150
end end
@ -1180,6 +1180,9 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
inherited cxImageList_bar: TcxImageList inherited cxImageList_bar: TcxImageList
FormatVersion = 1 FormatVersion = 1
Left = 628
Top = 330
DesignInfo = 21627508
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink Connection = DataLink_WarpBeamStk.ADOLink