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

11.12

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-11-12 17:32:44 +08:00
parent e7affd1e17
commit f235a5ebd3
68 changed files with 4094 additions and 949 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
A00通用窗体/U_LabelPrint.dfm
View File

@ -108,7 +108,7 @@ inherited frmLabelPrint: TfrmLabelPrint
end end
object cbbLab: TcxMRUEdit object cbbLab: TcxMRUEdit
Left = 25 Left = 25
Top = 24 Top = 28
ParentFont = False ParentFont = False
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.ImmediatePost = True Properties.ImmediatePost = True

16
A00通用窗体/U_SalesContractCPSel.dfm
View File

@ -10,6 +10,7 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -689
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 633 ExplicitHeight = 633
PixelsPerInch = 96 PixelsPerInch = 96
@ -128,7 +129,6 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitHeight = 476
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -286,6 +286,20 @@ inherited frmSalesContractCPSel: TfrmSalesContractCPSel
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end end
object TV1C_FinishLatitudeDensity: TcxGridDBColumn
Caption = #32428#23494
DataBinding.FieldName = 'C_FinishLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV1C_FinishLongitudeDensity: TcxGridDBColumn
Caption = #32463#23494
DataBinding.FieldName = 'C_FinishLongitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'

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

@ -73,6 +73,8 @@ type
C_Name: TEdit; C_Name: TEdit;
Label3: TLabel; Label3: TLabel;
BuyName: TEdit; BuyName: TEdit;
TV1C_FinishLatitudeDensity: TcxGridDBColumn;
TV1C_FinishLongitudeDensity: 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);
@ -145,8 +147,9 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.*,B.* from CP_Contract_Main A inner join CP_Contract_SUB B on A.ConMId=B.ConMId '); sql.Add('select A.*,B.*,C.C_FinishLatitudeDensity,C.C_FinishLongitudeDensity from CP_Contract_Main A inner join CP_Contract_SUB B on A.ConMId=B.ConMId ');
sql.Add(' and isnull(A.status,''0'')=''9'''); sql.Add(' and isnull(A.status,''0'')=''9''');
sql.Add(' left join Bs_Cloth_Info C on B.C_Code=C.C_Code ');
Open; Open;
end; end;
// SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); // SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));

4
A00通用窗体/U_SalesContract_SXSel.dfm
View File

@ -221,8 +221,8 @@ inherited frmSalesContract_SXSel: TfrmSalesContract_SXSel
Width = 77 Width = 77
end end
object TV1Column2: TcxGridDBColumn object TV1Column2: TcxGridDBColumn
Caption = #20132#36135#26085#26399 Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'DlyDate' DataBinding.FieldName = 'ConDate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False

4
A00通用窗体/U_SalesContract_SXSel.pas
View File

@ -161,8 +161,8 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
SQL.add('select ConNo,BuyConNo,max(DlyDate) as DlyDate ,C_Code,C_Name,Y_Code,Y_Name,max(Y_Spec) as Y_Spec,max(Y_Composition) as Y_Composition,max(Y_Color) as Y_Color,TestDenier,Z_Number,FF,ND,sum(SXQty) as SXQty,sum(KCQty) as KCQty from V_HT_SX'); SQL.add('select ConNo,BuyConNo,max(ConDate) as ConDate,max(DlyDate) as DlyDate,C_Code,C_Name,Y_Code,Y_Name,max(Y_Spec) as Y_Spec,max(Y_Composition) as Y_Composition,max(Y_Color) as Y_Color,TestDenier,Z_Number,FF,ND,sum(SXQty) as SXQty,sum(KCQty) as KCQty ') ;
SQL.Add(' GROUP BY ConNo,BuyConNo,C_Code,C_Name,Y_Code,Y_Name,TestDenier,Z_Number,FF,ND'); SQL.Add('from V_HT_SX GROUP BY ConNo,BuyConNo,C_Code,C_Name,Y_Code,Y_Name,TestDenier,Z_Number,FF,ND');
// showmessage(sql.Text); // showmessage(sql.Text);
Open; Open;
end; end;

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

@ -10,6 +10,7 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -634
ExplicitWidth = 1501 ExplicitWidth = 1501
ExplicitHeight = 673 ExplicitHeight = 673
PixelsPerInch = 96 PixelsPerInch = 96
@ -253,6 +254,20 @@ inherited frmTatClothInfoSel: TfrmTatClothInfoSel
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1C_FinishLongitudeDensity: TcxGridDBColumn
Caption = #25104#21697#32463#23494
DataBinding.FieldName = 'C_FinishLongitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1C_FinishLatitudeDensity: TcxGridDBColumn
Caption = #25104#21697#32428#23494
DataBinding.FieldName = 'C_FinishLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

@ -81,6 +81,8 @@ type
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn;
Tv1C_FinishLatitudeDensity: TcxGridDBColumn;
Tv1C_FinishLongitudeDensity: 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);

17
A00通用窗体/U_WBSpecSel.dfm
View File

@ -127,6 +127,7 @@ inherited frmWBSpecSel: TfrmWBSpecSel
Height = 484 Height = 484
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 80
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -222,7 +223,7 @@ inherited frmWBSpecSel: TfrmWBSpecSel
end end
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #36793#31359#20837#27861 Caption = #36793#32433#24635#26681#25968
DataBinding.FieldName = 'WB_ReedNote' DataBinding.FieldName = 'WB_ReedNote'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -230,6 +231,20 @@ inherited frmWBSpecSel: TfrmWBSpecSel
Options.Editing = False Options.Editing = False
Width = 98 Width = 98
end end
object Tv1WB_YarnKCQty: TcxGridDBColumn
Caption = #36793#32433#21333#36793#31576#40831#25968
DataBinding.FieldName = 'WB_YarnKCQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 131
end
object Tv1BCRFQty: TcxGridDBColumn
Caption = #36793#31359#20837#27861
DataBinding.FieldName = 'BCRFQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

@ -68,6 +68,8 @@ type
TbAdd: TToolButton; TbAdd: TToolButton;
TbEdit: TToolButton; TbEdit: TToolButton;
TbDelete: TToolButton; TbDelete: TToolButton;
Tv1WB_YarnKCQty: TcxGridDBColumn;
Tv1BCRFQty: 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);

16
A02基础产品管理/ClothInfo.dproj.local
View File

@ -14,17 +14,17 @@
<Transaction>1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.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.630,=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.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.536,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.734,=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.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.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.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.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.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.816,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.003,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.034,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.346,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.441,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.337,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
@ -32,7 +32,7 @@
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.980,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\uFomat_JSON.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.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.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.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.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.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10RepoV1\项目代码\花蝴蝶\A02基础产品管理\U_TatClothInfoInput.pas</Transaction>
@ -57,11 +57,11 @@
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.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.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.629,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.518,=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.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.082,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.082,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=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.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.893,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.684,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction>

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

@ -427,38 +427,37 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False Options.Editing = False
Width = 99 Width = 99
end end
object Tv1MFDW: TcxGridDBColumn
Caption = #38376#24133#21333#20301
DataBinding.FieldName = 'MFDW'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #32463#23494 Caption = #32463#23494'('#26681'/'#33521#23544')'
DataBinding.FieldName = 'C_FinishLongitudeDensity' DataBinding.FieldName = 'C_FinishLongitudeDensity'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100 Width = 123
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #32428#23494 Caption = #32428#23494'('#26681'/'#33521#23544')'
DataBinding.FieldName = 'C_FinishLatitudeDensity' DataBinding.FieldName = 'C_FinishLatitudeDensity'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 99 Width = 135
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #29702#35770#24179#26041#20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 125 Width = 125
end 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 object Tv1Column17: TcxGridDBColumn
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'C_Spec' DataBinding.FieldName = 'C_Spec'
@ -507,14 +506,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv1Column19: TcxGridDBColumn
Caption = #29256#26412#32534#21495
DataBinding.FieldName = 'BBNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 96
end
object Tv1Column20: TcxGridDBColumn object Tv1Column20: TcxGridDBColumn
Caption = #32455#32553#29575 Caption = #32455#32553#29575
DataBinding.FieldName = 'ZS' DataBinding.FieldName = 'ZS'
@ -572,29 +563,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Options.Editing = False Options.Editing = False
Width = 99 Width = 99
end end
object Tv1Column4: TcxGridDBColumn
Caption = #32463#32433
DataBinding.FieldName = 'JinSha'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column10: TcxGridDBColumn
Caption = #32428#32433
DataBinding.FieldName = 'WeiSha'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column12: TcxGridDBColumn
Caption = #26377#26080#29983#25104#24037#33402#21333
DataBinding.FieldName = 'isgyd'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -767,7 +735,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Height = 337 Height = 337
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = 4
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -1146,6 +1113,10 @@ inherited frmTatClothInfo: TfrmTatClothInfo
end end
end end
end end
inherited loadProcess: TPanel
Top = 171
ExplicitTop = 171
end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Top = 222 Top = 222
ExplicitTop = 222 ExplicitTop = 222

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

@ -140,7 +140,6 @@ type
v2Column6: TcxGridDBColumn; v2Column6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
TV2Column1: TcxGridDBColumn; TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn; TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn; TV2Column3: TcxGridDBColumn;
@ -172,15 +171,11 @@ type
Label5: TLabel; Label5: TLabel;
C_TestGramWeight: TcxTextEdit; C_TestGramWeight: TcxTextEdit;
Tv4Column12: TcxGridDBColumn; Tv4Column12: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn; Tv1Column20: TcxGridDBColumn;
DBRichEdit1: TDBRichEdit; DBRichEdit1: TDBRichEdit;
ADOQueryFJ: TADOQuery; ADOQueryFJ: TADOQuery;
Tv1Column21: TcxGridDBColumn; Tv1Column21: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv4Z_Number: TcxGridDBColumn; Tv4Z_Number: TcxGridDBColumn;
TV2Z_Number: TcxGridDBColumn; TV2Z_Number: TcxGridDBColumn;
cxDBImage2: TcxDBImage; cxDBImage2: TcxDBImage;
@ -195,6 +190,7 @@ type
TV2YarnFactor: TcxGridDBColumn; TV2YarnFactor: TcxGridDBColumn;
TV2MeterQty: TcxGridDBColumn; TV2MeterQty: TcxGridDBColumn;
TV2NOTE: TcxGridDBColumn; TV2NOTE: TcxGridDBColumn;
Tv1MFDW: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject); procedure TBDelClick(Sender: TObject);
@ -978,8 +974,8 @@ end;
procedure TfrmTatClothInfo.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure TfrmTatClothInfo.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin begin
if (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('IsGYD').Index]) = 'ÒÑÉú³É' then // if (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('IsGYD').Index]) = '已生成' then
ACanvas.Brush.Color := $0080FF80; // ACanvas.Brush.Color := $0080FF80;
end; end;
procedure TfrmTatClothInfo.Tv1DblClick(Sender: TObject); procedure TfrmTatClothInfo.Tv1DblClick(Sender: TObject);

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

@ -9,6 +9,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16 Font.Height = -16
OldCreateOrder = True OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
ExplicitLeft = -273
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 776 ExplicitHeight = 776
PixelsPerInch = 96 PixelsPerInch = 96
@ -82,6 +83,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
ParentCtl3D = False ParentCtl3D = False
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
object Label1: TLabel object Label1: TLabel
Left = 10 Left = 10
Top = 26 Top = 26
@ -305,7 +307,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end end
object Label23: TLabel object Label23: TLabel
Left = 921 Left = 921
Top = 177 Top = 176
Width = 48 Width = 48
Height = 21 Height = 21
Caption = #31576#40831#25968 Caption = #31576#40831#25968
@ -333,9 +335,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object Label26: TLabel object Label26: TLabel
Left = 687 Left = 687
Top = 213 Top = 213
Width = 64 Width = 80
Height = 21 Height = 21
Caption = #36793#31359#20837#27861 Caption = #36793#32433#24635#26681#25968
end end
object Label27: TLabel object Label27: TLabel
Left = 10 Left = 10
@ -413,9 +415,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
object Label32: TLabel object Label32: TLabel
Left = 921 Left = 921
Top = 136 Top = 136
Width = 48 Width = 72
Height = 21 Height = 21
Caption = #32455#32553#29575 Caption = #32455#32553#29575'(%)'
end end
object Label33: TLabel object Label33: TLabel
Left = 1087 Left = 1087
@ -443,6 +445,98 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
end end
object Label35: TLabel
Left = 1153
Top = 215
Width = 112
Height = 21
Caption = #36793#32433#21333#36793#31576#40831#25968
end
object Label36: TLabel
Left = 1153
Top = 176
Width = 64
Height = 21
Caption = #36793#31359#20837#27861
end
object Label38: TLabel
Left = 600
Top = 176
Width = 64
Height = 21
Caption = #40831'/2'#33521#23544
Font.Charset = ANSI_CHARSET
Font.Color = clHighlight
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label39: TLabel
Left = 1375
Top = 176
Width = 32
Height = 21
Caption = #31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clHighlight
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label40: TLabel
Left = 272
Top = 213
Width = 16
Height = 21
Caption = #26681
Font.Charset = ANSI_CHARSET
Font.Color = clHighlight
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label41: TLabel
Left = 600
Top = 212
Width = 55
Height = 21
Caption = #26681'/'#31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clHighlight
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label42: TLabel
Left = 1375
Top = 215
Width = 55
Height = 21
Caption = #26681'/'#31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clHighlight
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label43: TLabel
Left = 1087
Top = 176
Width = 32
Height = 21
Caption = #31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clHighlight
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object BCIID: TEdit object BCIID: TEdit
Left = 193 Left = 193
Top = 417 Top = 417
@ -531,6 +625,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 986 Left = 986
Top = 97 Top = 97
ParentColor = True ParentColor = True
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
TabOrder = 8 TabOrder = 8
OnExit = C_ReedWidthExit OnExit = C_ReedWidthExit
Width = 95 Width = 95
@ -654,6 +749,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 765 Left = 765
Top = 172 Top = 172
ParentColor = True ParentColor = True
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
TabOrder = 21 TabOrder = 21
OnExit = C_ReedWidthExit OnExit = C_ReedWidthExit
Width = 76 Width = 76
@ -664,7 +760,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Top = 173 Top = 173
ParentColor = True ParentColor = True
TabOrder = 22 TabOrder = 22
Width = 150 Width = 95
end end
object BSQTY: TcxTextEdit object BSQTY: TcxTextEdit
Tag = 2 Tag = 2
@ -747,13 +843,30 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
end end
object ZS: TcxTextEdit object ZS: TcxTextEdit
Tag = 2 Tag = 2
Left = 986 Left = 1000
Top = 132 Top = 132
ParentColor = True ParentColor = True
Properties.OnEditValueChanged = TV1Column10PropertiesEditValueChanged Properties.OnEditValueChanged = TV1Column10PropertiesEditValueChanged
TabOrder = 32 TabOrder = 32
Width = 150 Width = 150
end end
object WB_YarnKCQty: TcxTextEdit
Tag = 2
Left = 1274
Top = 211
ParentColor = True
TabOrder = 33
Width = 95
end
object BCRFQty: TcxTextEdit
Tag = 2
Left = 1274
Top = 176
ParentColor = True
Properties.OnEditValueChanged = TV1Column10PropertiesEditValueChanged
TabOrder = 34
Width = 95
end
end end
object cxPageControl3: TcxPageControl [2] object cxPageControl3: TcxPageControl [2]
Left = 0 Left = 0
@ -833,6 +946,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 1 TabOrder = 1
ExplicitLeft = -2
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -969,6 +1083,12 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 100 Width = 100
end end
object TV1Column3: TcxGridDBColumn
Caption = #32433#32447#25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
Visible = False
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = TV1 GridView = TV1
@ -1158,7 +1278,6 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
DataBinding.FieldName = 'Y_Loss' DataBinding.FieldName = 'Y_Loss'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
@ -1176,6 +1295,12 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv2Column3: TcxGridDBColumn
Caption = #32433#32447#25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
Visible = False
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv2 GridView = Tv2

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

@ -178,6 +178,18 @@ type
Tv2YarnFactor: TcxGridDBColumn; Tv2YarnFactor: TcxGridDBColumn;
Label33: TLabel; Label33: TLabel;
Label34: TLabel; Label34: TLabel;
TV1Column3: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
Label35: TLabel;
Label36: TLabel;
WB_YarnKCQty: TcxTextEdit;
BCRFQty: TcxTextEdit;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Label43: TLabel;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
@ -224,6 +236,7 @@ type
{ Private declarations } { Private declarations }
public public
FBCIID, FCTID, JSGG, WSGG, FC_Spec: string; FBCIID, FCTID, JSGG, WSGG, FC_Spec: string;
WSZS, JSZS: string;
CopyInt: Integer; CopyInt: Integer;
{ Public declarations } { Public declarations }
@ -487,11 +500,11 @@ begin
first; first;
while not eof do while not eof do
begin begin
if Trim(CDS_1.fieldbyname('Y_Name').AsString) <> '' then if Trim(CDS_1.fieldbyname('Z_Number').AsString) <> '' then
begin begin
if POS(Trim(CDS_1.fieldbyname('Y_Name').AsString), JSGG) = 0 then if POS(Trim(CDS_1.fieldbyname('Z_Number').AsString), JSGG) = 0 then
begin begin
JSGG := JSGG + Trim(CDS_1.fieldbyname('Y_Name').AsString) + '+'; JSGG := JSGG + Trim(CDS_1.fieldbyname('Z_Number').AsString) + '+';
end; end;
end; end;
next; next;
@ -572,11 +585,11 @@ begin
first; first;
while not eof do while not eof do
begin begin
if Trim(CDS_2.fieldbyname('Y_Name').AsString) <> '' then if Trim(CDS_2.fieldbyname('Z_Number').AsString) <> '' then
begin begin
if POS(Trim(CDS_2.fieldbyname('Y_Name').AsString), WSGG) = 0 then if POS(Trim(CDS_2.fieldbyname('Z_Number').AsString), WSGG) = 0 then
begin begin
WSGG := WSGG + Trim(CDS_2.fieldbyname('Y_Name').AsString) + '+'; WSGG := WSGG + Trim(CDS_2.fieldbyname('Z_Number').AsString) + '+';
end; end;
end; end;
next; next;
@ -694,10 +707,12 @@ begin
// C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2)); // C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2));
/////////////生成规格 ///////////// /////////////生成规格 /////////////
// FC_Spec := '';
// FC_Spec := C_Composition.text + ' (' + JSGG + ')*(' + WSGG + ') ' + C_FinishLongitudeDensity.text + '*' + C_FinishLatitudeDensity.text + ' ' + C_Width.text + MFDW.text;
// C_Spec.text := trim(FC_Spec);
FC_Spec := ''; FC_Spec := '';
FC_Spec := C_Composition.text + ' (' + JSGG + ')*(' + WSGG + ') ' + C_FinishLongitudeDensity.text + '*' + C_FinishLatitudeDensity.text + ' ' + C_Width.text + MFDW.text; FC_Spec := JSGG + 'S*' + WSGG + 'S';
C_Spec.text := trim(FC_Spec); C_Spec.text := trim(FC_Spec);
/////////////生成规格 ///////////// /////////////生成规格 /////////////
@ -710,6 +725,8 @@ begin
readCxGrid(self.Caption + 'TV22', Tv2, '样品管理'); readCxGrid(self.Caption + 'TV22', Tv2, '样品管理');
// readCxGrid(self.Caption + 'TV44', Tv4, '样品管理'); // readCxGrid(self.Caption + 'TV44', Tv4, '样品管理');
JSZS := '';
WSZS := '';
InitGrid(); InitGrid();
JSJS(); JSJS();
@ -1412,67 +1429,67 @@ var
mvalue, FFieldName: string; mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, fsh: double; GS, ZGS, MF, DS, WM, fsh: double;
begin begin
with CDS_2 do // with CDS_2 do
begin // begin
first; // first;
while not eof do // while not eof do
begin // begin
with CDS_2 do // with CDS_2 do
begin // begin
//
if FieldByName('YarnQty').Value = null then // if FieldByName('YarnQty').Value = null then
begin // begin
GS := 0; //根数 // GS := 0; //根数
end // end
else // else
begin // begin
GS := FieldByName('YarnQty').Value; //根数 // GS := FieldByName('YarnQty').Value; //根数
end; // end;
//
if FieldByName('Y_loss').Value = null then // if FieldByName('Y_loss').Value = null then
begin // begin
fsh := 0; //损耗 // fsh := 0; //损耗
end // end
else // else
begin // begin
fsh := FieldByName('Y_loss').Value; //损耗 // fsh := FieldByName('Y_loss').Value; //损耗
end; // end;
//
if FieldByName('CycleYarnQty').Value = null then // if FieldByName('CycleYarnQty').Value = null then
begin // begin
ZGS := 0; //循环根数 // ZGS := 0; //循环根数
end // end
else // else
begin // begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数 // ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end; // end;
//
MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅 // MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
//
if FieldByName('Z_Number').Value = null then // if FieldByName('Z_Number').Value = null then
begin // begin
DS := 0; //支 // DS := 0; //支
end // end
else // else
begin // begin
DS := FieldByName('Z_Number').Value; //支数 // DS := FieldByName('Z_Number').Value; //支数
end; // end;
//
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密 // WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
end; // end;
if (ZGS <> 0) and (DS <> 0) then // if (ZGS <> 0) and (DS <> 0) then
begin // begin
with CDS_2 do // with CDS_2 do
begin // begin
Edit; // Edit;
FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2); // FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
Post; // Post;
end; // end;
end; // end;
next; // next;
end; // end;
//
end; // end;
end; end;
procedure TfrmTatClothInfoInput.C_ReedWidthPropertiesEditValueChanged(Sender: TObject); procedure TfrmTatClothInfoInput.C_ReedWidthPropertiesEditValueChanged(Sender: TObject);
@ -1614,14 +1631,14 @@ begin
CDS_1.First; CDS_1.First;
while (CDS_1.FieldByName('Y_Code').asString <> '') and (CDS_1.FieldByName('Y_Code').asString <> null) do while (CDS_1.FieldByName('Y_Code').asString <> '') and (CDS_1.FieldByName('Y_Code').asString <> null) do
begin begin
mvalue := TcxTextEdit(Sender).EditingText; // mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); // FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do with CDS_1 do
begin begin
Edit; // Edit;
FieldByName(FFieldName).Value := mvalue; // FieldByName(FFieldName).Value := mvalue;
Post; // Post;
if FieldByName('QFYARNQTY').Value = null then if FieldByName('QFYARNQTY').Value = null then
begin begin
@ -1665,7 +1682,6 @@ begin
CDS_1.next; CDS_1.next;
end; end;
end; end;
end; end;
@ -1742,14 +1758,14 @@ var
mYarnFactor: double; mYarnFactor: double;
begin begin
mvalue := TcxTextEdit(Sender).EditingText; // mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); // FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_2 do with CDS_2 do
begin begin
Edit; // Edit;
FieldByName(FFieldName).Value := mvalue; // FieldByName(FFieldName).Value := mvalue;
Post; // Post;
if FieldByName('YarnQty').Value = null then if FieldByName('YarnQty').Value = null then
begin begin
@ -1872,6 +1888,9 @@ begin
BSQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BSQTY').AsString); BSQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BSQTY').AsString);
GKBH.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('GKBH').AsString); GKBH.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('GKBH').AsString);
BCRFQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BCRFQty').AsString);
WB_YarnKCQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnKCQty').AsString);
with ADOQuery1 do with ADOQuery1 do
begin begin
Close; Close;
@ -1903,6 +1922,8 @@ begin
FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value; FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value;
FieldByName('CycleYarnQty').Value := ADOQuery1.fieldbyname('CycleYarnQty').Value; FieldByName('CycleYarnQty').Value := ADOQuery1.fieldbyname('CycleYarnQty').Value;
FieldByName('YarnFactor').Value := ADOQuery1.fieldbyname('YarnFactor').Value;
FieldByName('TestDenier').Value := ADOQuery1.fieldbyname('Denier').Value; FieldByName('TestDenier').Value := ADOQuery1.fieldbyname('Denier').Value;
FieldByName('Z_Number').Value := ADOQuery1.fieldbyname('ZS').Value; FieldByName('Z_Number').Value := ADOQuery1.fieldbyname('ZS').Value;

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

@ -1,34 +1,34 @@
<?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.847,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.847,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.dfm</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.144,=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.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.185,D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_PositionInPut.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.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.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.446,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.657,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.872,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_LbaelMapList.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</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.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.471,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRtInPut.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.260,D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_KuWeiManage.pas=D:\Dp10Repo\项目代码\RTBasics\A05基础资料管理\U_PositionList.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.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.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.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A05基础资料管理\U_MachineInPut.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.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.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.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>1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKInput.pas</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.116,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKDRList.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>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.409,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</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.013,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.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.440,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_MachineManage.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.847,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.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.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.987,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.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.847,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E02梭织经轴仓库\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A05基础资料管理\U_GKInput.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.272,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.251,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_HLManage.dfm</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.369,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_Sel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A05基础资料管理\U_GKManage_CX.pas</Transaction>
</Transactions> </Transactions>
</BorlandProject> </BorlandProject>

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

Binary file not shown.

118
B01基础合同管理/Contract.dproj.local
View File

@ -1,87 +1,87 @@
<?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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.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.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas</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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.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.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.325,=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.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.569,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.441,=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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.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.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\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.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,=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.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.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.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</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.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj</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.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.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.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.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.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.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.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.284,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractCPSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.284,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_SalesContractCPSel.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.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.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.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.247,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\U_finishSalesConInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.067,=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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.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.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>

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

Binary file not shown.

62
B01基础合同管理/U_HTImport.dfm
View File

@ -3,12 +3,13 @@ inherited frmHTImport: TfrmHTImport
Top = 138 Top = 138
Caption = #26679#21697#23548#20837 Caption = #26679#21697#23548#20837
ClientHeight = 562 ClientHeight = 562
ClientWidth = 1484 ClientWidth = 1532
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter Position = poMainFormCenter
ExplicitWidth = 1500 ExplicitLeft = -664
ExplicitWidth = 1548
ExplicitHeight = 601 ExplicitHeight = 601
PixelsPerInch = 107 PixelsPerInch = 107
TextHeight = 21 TextHeight = 21
@ -16,7 +17,7 @@ inherited frmHTImport: TfrmHTImport
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1484 Width = 1532
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -79,7 +80,7 @@ inherited frmHTImport: TfrmHTImport
object cxGrid2: TcxGrid [1] object cxGrid2: TcxGrid [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1484 Width = 1532
Height = 532 Height = 532
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
@ -223,11 +224,11 @@ inherited frmHTImport: TfrmHTImport
Width = 71 Width = 71
end end
object TV1C_WidthUnit: TcxGridDBColumn object TV1C_WidthUnit: TcxGridDBColumn
Caption = #38376#24133#21333#20301 Caption = #26377#25928#38376#24133'('#33521#23544')'
DataBinding.FieldName = 'C_WidthUnit' DataBinding.FieldName = 'C_WidthUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 149
end end
object v1PRTOrderQty: TcxGridDBColumn object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
@ -252,6 +253,55 @@ inherited frmHTImport: TfrmHTImport
Options.Editing = False Options.Editing = False
Width = 58 Width = 58
end end
object TV1CShaZhi: TcxGridDBColumn
Caption = #32433#25903
DataBinding.FieldName = 'ShaZhi'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1SampleTime: TcxGridDBColumn
Caption = #26631#26679#26102#38388
DataBinding.FieldName = 'SampleTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object TV1ConPrice: TcxGridDBColumn
Caption = #21333#20215'('#26410#31246')'
DataBinding.FieldName = 'ConPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 125
end
object TV1Currency: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object TV1ConTotalAmount: TcxGridDBColumn
Caption = #37329#39069'('#19981#21547#31246')'
DataBinding.FieldName = 'ConTotalAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 125
end
object TV1C_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV1 GridView = TV1

7
B01基础合同管理/U_HTImport.pas
View File

@ -53,6 +53,13 @@ type
TV1Column2: TcxGridDBColumn; TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn; TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn; TV1Column4: TcxGridDBColumn;
TV1CShaZhi: TcxGridDBColumn;
TV1C_Color: TcxGridDBColumn;
TV1SampleTime: TcxGridDBColumn;
TV1ConPrice: TcxGridDBColumn;
TV1Currency: TcxGridDBColumn;
TV1ConTotalAmount: TcxGridDBColumn;
TV1C_GramWeight: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

85
B01基础合同管理/U_SalesConInPut.dfm
View File

@ -10,6 +10,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
OldCreateOrder = True OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
WindowState = wsMaximized WindowState = wsMaximized
ExplicitLeft = -589
ExplicitWidth = 1522 ExplicitWidth = 1522
ExplicitHeight = 787 ExplicitHeight = 787
PixelsPerInch = 96 PixelsPerInch = 96
@ -70,7 +71,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 330 Left = 330
Top = 118 Top = 118
@ -315,6 +315,20 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Height = 21 Height = 21
Caption = #38134#34892#20195#30721#65306 Caption = #38134#34892#20195#30721#65306
end end
object Label33: TLabel
Left = 940
Top = 157
Width = 112
Height = 21
Caption = #26816#39564#21512#26684#20998#25968#65306
end
object Label35: TLabel
Left = 940
Top = 121
Width = 80
Height = 21
Caption = #26816#39564#26631#20934#65306
end
object ConNo: TcxTextEdit object ConNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 114 Left = 114
@ -737,6 +751,29 @@ inherited frmSalesConInPut: TfrmSalesConInPut
OnKeyPress = ExchangeRateKeyPress OnKeyPress = ExchangeRateKeyPress
Width = 200 Width = 200
end end
object InspScore: TcxTextEdit
Tag = 2
Left = 1047
Top = 149
TabOrder = 36
Width = 200
end
object InspStandard: TcxButtonEdit
Tag = 2
Left = 1047
Top = 114
Hint = 'InspStandard/'#26816#39564#26631#20934
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = InspStandardPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 37
Width = 200
end
end end
object ToolBar2: TToolBar [2] object ToolBar2: TToolBar [2]
Tag = 1 Tag = 1
@ -863,9 +900,10 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'SerialNo' DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
SortIndex = 0 SortIndex = 0
SortOrder = soAscending SortOrder = soAscending
Width = 48 Width = 54
end end
object VC_SCSCode: TcxGridDBColumn object VC_SCSCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
@ -877,7 +915,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = False Properties.ReadOnly = True
Properties.OnButtonClick = v1Column10PropertiesButtonClick Properties.OnButtonClick = v1Column10PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
@ -887,6 +925,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89 Width = 89
end end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
@ -894,6 +933,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_Spec' DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60 Width = 60
end end
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
@ -901,6 +941,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_Composition' DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70 Width = 70
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
@ -908,6 +949,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70 Width = 70
end end
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
@ -915,6 +957,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 57 Width = 57
end end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
@ -931,22 +974,36 @@ inherited frmSalesConInPut: TfrmSalesConInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 77 Width = 77
end end
object Tv1C_FinishLongitudeDensity: TcxGridDBColumn
Caption = #32463#23494
DataBinding.FieldName = 'C_FinishLongitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1C_FinishLatitudeDensity: TcxGridDBColumn
Caption = #32428#23494
DataBinding.FieldName = 'C_FinishLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #38376#24133 Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 97
end end
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #20811#37325 Caption = #22383#24067#20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 89
end end
object v1PRTOrderQty: TcxGridDBColumn object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327 Caption = #22383#24067#25968#37327
DataBinding.FieldName = 'ConQty' DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
@ -954,7 +1011,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Properties.DecimalPlaces = 0 Properties.DecimalPlaces = 0
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 94
end end
object v1OrderUnit: TcxGridDBColumn object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301 Caption = #21333#20301
@ -1091,7 +1148,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Width = 70 Width = 70
end end
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #25237#22383#31995#25968'%' Caption = #25237#22383#31995#25968
DataBinding.FieldName = 'CP_TPXS' DataBinding.FieldName = 'CP_TPXS'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
@ -1099,7 +1156,7 @@ inherited frmSalesConInPut: TfrmSalesConInPut
Properties.DisplayFormat = '0.00' Properties.DisplayFormat = '0.00'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 106
end end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
@ -1122,9 +1179,9 @@ inherited frmSalesConInPut: TfrmSalesConInPut
end end
inherited cxImageList_bar: TcxImageList inherited cxImageList_bar: TcxImageList
FormatVersion = 1 FormatVersion = 1
Left = 1015 Left = 1231
Top = 170 Top = 18
DesignInfo = 11142135 DesignInfo = 1180879
end end
object ADOTemp: TADOQuery object ADOTemp: TADOQuery
Connection = DataLink_Contract.ADOLink Connection = DataLink_Contract.ADOLink

52
B01基础合同管理/U_SalesConInPut.pas
View File

@ -143,6 +143,12 @@ type
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn;
Tv1C_FinishLongitudeDensity: TcxGridDBColumn;
Tv1C_FinishLatitudeDensity: TcxGridDBColumn;
Label33: TLabel;
Label35: TLabel;
InspScore: TcxTextEdit;
InspStandard: TcxButtonEdit;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -175,6 +181,8 @@ type
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure CurrencyPropertiesChange(Sender: TObject); procedure CurrencyPropertiesChange(Sender: TObject);
procedure Tv1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure InspStandardPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private private
FLeft, FTop: Integer; FLeft, FTop: Integer;
fuserName, Fstatus: string; fuserName, Fstatus: string;
@ -286,6 +294,31 @@ begin
end; end;
end; end;
procedure TfrmSalesConInPut.InspStandardPropertiesButtonClick(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 := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
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;
procedure TfrmSalesConInPut.JSMoney(); procedure TfrmSalesConInPut.JSMoney();
var var
FConQty, FConPrice, FC_Money: Double; FConQty, FConPrice, FC_Money: Double;
@ -826,7 +859,7 @@ begin
if mCP_QTY <> 0 then if mCP_QTY <> 0 then
begin begin
FConQty := RoundFloat((mCP_TPXS + 1) * mCP_QTY, 0); FConQty := RoundFloat(mCP_TPXS * mCP_QTY, 0);
end; end;
FC_Money := RoundFloat(FConQty * FConPrice, 2); FC_Money := RoundFloat(FConQty * FConPrice, 2);
@ -1139,6 +1172,11 @@ begin
Order_Sub.fieldbyname('CP_Name').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Name').asstring; Order_Sub.fieldbyname('CP_Name').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Name').asstring;
Order_Sub.fieldbyname('FROMCPSID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONSID').asstring; Order_Sub.fieldbyname('FROMCPSID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONSID').asstring;
Order_Sub.fieldbyname('FROMCPMID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONMID').asstring; Order_Sub.fieldbyname('FROMCPMID').Value := frmSalesContractCPSel.CDS_1.fieldbyname('CONMID').asstring;
Order_Sub.fieldbyname('C_Width').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_Width').asstring;
Order_Sub.fieldbyname('C_GramWeight').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_GramWeight').asstring;
Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_FinishLongitudeDensity').asstring;
Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := frmSalesContractCPSel.CDS_1.fieldbyname('C_FinishLatitudeDensity').asstring;
Order_Sub.fieldbyname('ConUnit').Value := 'M'; Order_Sub.fieldbyname('ConUnit').Value := 'M';
FieldByName('SSEL').Value := FALSE; FieldByName('SSEL').Value := FALSE;
@ -1151,6 +1189,7 @@ begin
close; close;
SQL.Clear; SQL.Clear;
SQL.Add(' select top(1) * from BS_Contract_Sub where CP_Code = ' + QuotedStr(Trim(Order_Sub.fieldbyname('CP_Code').AsString))); SQL.Add(' select top(1) * from BS_Contract_Sub where CP_Code = ' + QuotedStr(Trim(Order_Sub.fieldbyname('CP_Code').AsString)));
// ShowMessage(sql.Text);
Open; Open;
end; end;
Order_Sub.fieldbyname('C_Code').Value := ADOQueryCmd.FieldByName('C_Code').Value; Order_Sub.fieldbyname('C_Code').Value := ADOQueryCmd.FieldByName('C_Code').Value;
@ -1161,6 +1200,10 @@ begin
Order_Sub.fieldbyname('C_ColorNo').Value := ADOQueryCmd.FieldByName('C_ColorNo').Value; Order_Sub.fieldbyname('C_ColorNo').Value := ADOQueryCmd.FieldByName('C_ColorNo').Value;
Order_Sub.fieldbyname('C_Pattern').Value := ADOQueryCmd.FieldByName('C_Pattern').Value; Order_Sub.fieldbyname('C_Pattern').Value := ADOQueryCmd.FieldByName('C_Pattern').Value;
Order_Sub.fieldbyname('C_StyleNo').Value := ADOQueryCmd.FieldByName('C_StyleNo').Value; Order_Sub.fieldbyname('C_StyleNo').Value := ADOQueryCmd.FieldByName('C_StyleNo').Value;
// Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLatitudeDensity').Value;
// Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := ADOQueryCmd.FieldByName('C_FinishLongitudeDensity').Value;
end; end;
Next; Next;
i := i + 1; i := i + 1;
@ -1448,10 +1491,15 @@ begin
Order_Sub.fieldbyname('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').asstring; Order_Sub.fieldbyname('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').asstring;
Order_Sub.fieldbyname('C_StyleNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_StyleNo').asstring; Order_Sub.fieldbyname('C_StyleNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_StyleNo').asstring;
Order_Sub.fieldbyname('C_Width').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ReedWidth').asstring; Order_Sub.fieldbyname('C_Width').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Width').asstring;
Order_Sub.fieldbyname('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').asstring; Order_Sub.fieldbyname('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').asstring;
Order_Sub.fieldbyname('AttName').Value := frmTatClothInfoSel.CDS_1.fieldbyname('AttName').asstring; Order_Sub.fieldbyname('AttName').Value := frmTatClothInfoSel.CDS_1.fieldbyname('AttName').asstring;
Order_Sub.fieldbyname('C_FinishLatitudeDensity').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_FinishLatitudeDensity').asstring;
Order_Sub.fieldbyname('C_FinishLongitudeDensity').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_FinishLongitudeDensity').asstring;
Order_Sub.Post; Order_Sub.Post;
end; end;
free; free;

47
B01基础合同管理/U_SalesContractList.dfm
View File

@ -7,6 +7,7 @@ inherited frmSalesContractList: TfrmSalesContractList
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitLeft = -689
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 810 ExplicitHeight = 810
PixelsPerInch = 96 PixelsPerInch = 96
@ -186,6 +187,7 @@ inherited frmSalesContractList: TfrmSalesContractList
Align = alClient Align = alClient
PopupMenu = pm1 PopupMenu = pm1
TabOrder = 3 TabOrder = 3
ExplicitTop = 159
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -325,7 +327,9 @@ inherited frmSalesContractList: TfrmSalesContractList
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
DataBinding.FieldName = 'status' DataBinding.FieldName = 'status'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70
end end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #21512#21516#38468#20214 Caption = #21512#21516#38468#20214
@ -351,6 +355,7 @@ inherited frmSalesContractList: TfrmSalesContractList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 88
end end
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #36215#36816#28207 Caption = #36215#36816#28207
@ -449,6 +454,20 @@ inherited frmSalesContractList: TfrmSalesContractList
Options.Editing = False Options.Editing = False
Width = 100 Width = 100
end end
object Tv1InspStandard: TcxGridDBColumn
Caption = #26816#39564#26631#20934
DataBinding.FieldName = 'InspStandard'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1InspScore: TcxGridDBColumn
Caption = #26816#39564#21512#26684#20998#25968
DataBinding.FieldName = 'InspScore'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 105
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -567,7 +586,7 @@ inherited frmSalesContractList: TfrmSalesContractList
TabOrder = 2 TabOrder = 2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 11 Properties.Style = 11
Properties.TabIndex = 4 Properties.TabIndex = 2
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26410#25552#20132 #26410#25552#20132
#24050#25552#20132 #24050#25552#20132
@ -737,8 +756,22 @@ inherited frmSalesContractList: TfrmSalesContractList
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end end
object TV2C_FinishLongitudeDensity: TcxGridDBColumn
Caption = #32463#23494
DataBinding.FieldName = 'C_FinishLongitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2C_FinishLatitudeDensity: TcxGridDBColumn
Caption = #32428#23494
DataBinding.FieldName = 'C_FinishLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #38376#24133 Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
@ -749,10 +782,10 @@ inherited frmSalesContractList: TfrmSalesContractList
end> end>
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 71 Width = 95
end end
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #20811#37325 Caption = #22383#24067#20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
@ -763,16 +796,16 @@ inherited frmSalesContractList: TfrmSalesContractList
end> end>
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 91
end end
object v1PRTOrderQty: TcxGridDBColumn object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327 Caption = #22383#24067#25968#37327
DataBinding.FieldName = 'ConQty' DataBinding.FieldName = 'ConQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 87
end end
object v1OrderUnit: TcxGridDBColumn object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301 Caption = #21333#20301

6
B01基础合同管理/U_SalesContractList.pas
View File

@ -129,6 +129,10 @@ type
Tv1Column15: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn; Tv1Column16: TcxGridDBColumn;
Order_Sub: TClientDataSet; Order_Sub: TClientDataSet;
TV2C_FinishLatitudeDensity: TcxGridDBColumn;
TV2C_FinishLongitudeDensity: TcxGridDBColumn;
Tv1InspStandard: TcxGridDBColumn;
Tv1InspScore: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -457,7 +461,7 @@ begin
frmLabelPrint := TfrmLabelPrint.Create(Application); frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do with frmLabelPrint do
begin begin
FLMType := 'SalesConPrint'; FLMType := 'PBSalesConPrint';
FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString)); FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString));
if ShowModal = 1 then if ShowModal = 1 then
begin begin

431
B01基础合同管理/U_TatSCTLLIST.dfm
View File

@ -2,12 +2,12 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Left = 154 Left = 154
Top = 76 Top = 76
Caption = #29983#20135#25237#26009#35745#31639#34920 Caption = #29983#20135#25237#26009#35745#31639#34920
ClientHeight = 637 ClientHeight = 649
ClientWidth = 1540 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
Position = poScreenCenter Position = poScreenCenter
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 676 ExplicitHeight = 688
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -150,14 +150,14 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Left = 0 Left = 0
Top = 121 Top = 121
Width = 1540 Width = 1540
Height = 516 Height = 317
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 4 TabOrder = 4
ExplicitTop = 127
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -274,6 +274,418 @@ inherited frmSCTLLIST: TfrmSCTLLIST
GridView = Tv1 GridView = Tv1
end end
end end
object cxPageControl3: TcxPageControl [5]
Left = 0
Top = 438
Width = 1540
Height = 211
Align = alBottom
TabOrder = 5
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
ClientRectBottom = 211
ClientRectRight = 1540
ClientRectTop = 28
object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512
ImageIndex = 0
object GroupBox1: TGroupBox
Left = 931
Top = 0
Width = 609
Height = 183
Align = alRight
Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Visible = False
object Y_Note_PLJ: TMemo
Tag = 2
Left = 2
Top = 31
Width = 605
Height = 150
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 931
Height = 183
Align = alClient
TabOrder = 1
object cxPageControl2: TcxPageControl
Left = 1
Top = 1
Width = 929
Height = 181
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 0
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 181
ClientRectRight = 929
ClientRectTop = 0
end
object cxGrid2: TcxGrid
Left = 1
Top = 1
Width = 929
Height = 181
Align = alClient
TabOrder = 1
object cxGridDBTableView1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = TV1Column8
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object TV1Column7: TcxGridDBColumn
Caption = #34892#21495
DataBinding.FieldName = 'RowNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 100
end
object TV1Column13: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object TV1Column6: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 96
end
object TV1Column14: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'Z_Number'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 71
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #26681#25968
DataBinding.FieldName = 'YarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column2: TcxGridDBColumn
Caption = #24490#29615#26681#25968
DataBinding.FieldName = 'CycleYarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20840#24133#26681#25968
DataBinding.FieldName = 'QFYARNQTY'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column8: TcxGridDBColumn
Caption = #30334#31859#32463#38271#37325#37327'KG'
DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 163
end
object TV1Column11: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'NOTE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
end
object cxGridLevel1: TcxGridLevel
GridView = cxGridDBTableView1
end
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512
ImageIndex = 1
object GroupBox2: TGroupBox
Left = 863
Top = 0
Width = 677
Height = 183
Align = alRight
Caption = #32428#25490#21015
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Visible = False
object Y_Note_PLW: TMemo
Tag = 2
Left = 2
Top = 31
Width = 673
Height = 150
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 863
Height = 183
Align = alClient
TabOrder = 1
object cxPageControl1: TcxPageControl
Left = 1
Top = 1
Width = 861
Height = 181
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 0
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 181
ClientRectRight = 861
ClientRectTop = 0
end
object cxGrid3: TcxGrid
Left = 1
Top = 1
Width = 861
Height = 181
Align = alClient
TabOrder = 1
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv2Column8
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv2Column7: TcxGridDBColumn
Caption = #34892#21495
DataBinding.FieldName = 'RowNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v2Column10: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 100
end
object Tv2Column13: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v2Column6: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv2Column6: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv2Column14: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'Z_Number'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 88
end
object Tv2Column1: TcxGridDBColumn
Caption = #26681#25968
DataBinding.FieldName = 'YarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column2: TcxGridDBColumn
Caption = #24490#29615#26681#25968
DataBinding.FieldName = 'CycleYarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column11: TcxGridDBColumn
Caption = #25439#32791
DataBinding.FieldName = 'Y_Loss'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column8: TcxGridDBColumn
Caption = #32433#32447#24635#29992#37327'KG'
DataBinding.FieldName = 'allYarn'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 151
end
object Tv2Column12: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel3: TcxGridLevel
GridView = Tv2
end
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Contract.ADOLink Connection = DataLink_Contract.ADOLink
Left = 81 Left = 81
@ -355,4 +767,15 @@ inherited frmSCTLLIST: TfrmSCTLLIST
Left = 296 Left = 296
Top = 448 Top = 448
end end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 632
Top = 376
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 712
Top = 384
end
end end

93
B01基础合同管理/U_TatSCTLLIST.pas
View File

@ -57,6 +57,49 @@ type
C_CODE: TcxTextEdit; C_CODE: TcxTextEdit;
Label4: TLabel; Label4: TLabel;
Tv1GKBH: TcxGridDBColumn; Tv1GKBH: TcxGridDBColumn;
cxPageControl3: TcxPageControl;
cxTabSheet1: TcxTabSheet;
GroupBox1: TGroupBox;
Y_Note_PLJ: TMemo;
Panel2: TPanel;
cxPageControl2: TcxPageControl;
cxGrid2: TcxGrid;
cxGridDBTableView1: TcxGridDBTableView;
TV1Column7: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
TV1Column14: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
TV1Column8: TcxGridDBColumn;
TV1Column11: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxTabSheet2: TcxTabSheet;
GroupBox2: TGroupBox;
Y_Note_PLW: TMemo;
Panel3: TPanel;
cxPageControl1: TcxPageControl;
cxGrid3: TcxGrid;
Tv2: TcxGridDBTableView;
Tv2Column7: TcxGridDBColumn;
v2Column10: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
Tv2Column13: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column14: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column11: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
CDS_3: TClientDataSet;
DS_3: TDataSource;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -73,10 +116,12 @@ type
procedure ConNoPropertiesChange(Sender: TObject); procedure ConNoPropertiesChange(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject); procedure cxPageControl1Change(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
private private
FInt, PFInt: Integer; FInt, PFInt: Integer;
FFMainID, BPFlag: string; FFMainID, BPFlag: string;
procedure InitGrid(); procedure InitGrid();
procedure InitClothYarn(MC_Code: string);
{ Private declarations } { Private declarations }
public public
canshu1: string; canshu1: string;
@ -122,7 +167,7 @@ begin
sql.Add('SELECT * FROM V_CON_TL '); sql.Add('SELECT * FROM V_CON_TL ');
SQL.Add('WHERE ConDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date))); SQL.Add('WHERE ConDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date)));
SQL.Add('and ConDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1))); SQL.Add('and ConDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1)));
// ShowMessage(SQL.Text);
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_1); SCreateCDS(ADOQueryMain, CDS_1);
@ -133,6 +178,43 @@ begin
end; end;
procedure TfrmSCTLLIST.InitClothYarn(MC_Code: string);
var
zsqtyValue: string;
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
sql.Add(' where A.YRType=''¾­Ë¿'' and B.C_Code=''' + Trim(MC_Code) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
ClearCDSColumn(CDS_2, ['YRId', 'SubId', 'MainId']);
zsqtyValue := CDS_1.FieldByName('zsqty').AsString;
if zsqtyValue = '' then
zsqtyValue := '0';
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30))');
SQL.Add(' ,allYarn=A.MeterQty*ISNULL(' + zsqtyValue + ',0)/100');
sql.Add(' from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + '''');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_3);
SInitCDSData(ADOQueryTemp, CDS_3);
ClearCDSColumn(CDS_3, ['YRId', 'SubId', 'MainId']);
end;
procedure TfrmSCTLLIST.N1Click(Sender: TObject); procedure TfrmSCTLLIST.N1Click(Sender: TObject);
begin begin
SelOKNo(cds_1, true) SelOKNo(cds_1, true)
@ -272,6 +354,15 @@ begin
SInitCDSData(ADOQueryMain, CDS_1); SInitCDSData(ADOQueryMain, CDS_1);
end; end;
procedure TfrmSCTLLIST.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
if CDS_1.IsEmpty then
begin
Exit;
end;
InitClothYarn(CDS_1.FieldByName('C_Code').AsString);
end;
procedure TfrmSCTLLIST.ConNoChange(Sender: TObject); procedure TfrmSCTLLIST.ConNoChange(Sender: TObject);
begin begin
if ADOQueryMain.Active = False then if ADOQueryMain.Active = False then

129
B01基础合同管理/U_finishSalesConInput.dfm
View File

@ -3,14 +3,15 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Top = 76 Top = 76
Caption = #38144#21806#21512#21516#24405#20837 Caption = #38144#21806#21512#21516#24405#20837
ClientHeight = 748 ClientHeight = 748
ClientWidth = 1518 ClientWidth = 1530
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
OldCreateOrder = True OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
WindowState = wsMaximized WindowState = wsMaximized
ExplicitWidth = 1534 ExplicitLeft = -679
ExplicitWidth = 1546
ExplicitHeight = 787 ExplicitHeight = 787
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -18,7 +19,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1518 Width = 1530
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -58,7 +59,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
object ScrollBox1: TScrollBox [1] object ScrollBox1: TScrollBox [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1518 Width = 1530
Height = 99 Height = 99
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -69,8 +70,9 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
object Label3: TLabel object Label3: TLabel
Left = 339 Left = 362
Top = 65 Top = 65
Width = 80 Width = 80
Height = 21 Height = 21
@ -84,7 +86,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Caption = #21512#21516#21495#65306 Caption = #21512#21516#21495#65306
end end
object Label14: TLabel object Label14: TLabel
Left = 339 Left = 362
Top = 10 Top = 10
Width = 48 Width = 48
Height = 21 Height = 21
@ -145,6 +147,20 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Height = 21 Height = 21
Caption = #20132#26399#65306 Caption = #20132#26399#65306
end end
object Label2: TLabel
Left = 730
Top = 62
Width = 112
Height = 21
Caption = #26816#39564#21512#26684#20998#25968#65306
end
object Label4: TLabel
Left = 730
Top = 10
Width = 80
Height = 21
Caption = #26816#39564#26631#20934#65306
end
object ConNo: TcxTextEdit object ConNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 114 Left = 114
@ -191,7 +207,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
end end
object BuyName: TcxButtonEdit object BuyName: TcxButtonEdit
Tag = 2 Tag = 2
Left = 412 Left = 435
Top = 7 Top = 7
Properties.Buttons = < Properties.Buttons = <
item item
@ -199,9 +215,10 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnButtonClick = BuyNamePropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 5 TabOrder = 5
Width = 200 Width = 237
end end
object QtyNote: TcxButtonEdit object QtyNote: TcxButtonEdit
Tag = 2 Tag = 2
@ -221,11 +238,11 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
end end
object ConDate: TcxDateEdit object ConDate: TcxDateEdit
Tag = 2 Tag = 2
Left = 412 Left = 435
Top = 59 Top = 59
Properties.ShowTime = False Properties.ShowTime = False
TabOrder = 7 TabOrder = 7
Width = 200 Width = 237
end end
object DlyDate: TcxDateEdit object DlyDate: TcxDateEdit
Tag = 2 Tag = 2
@ -235,12 +252,35 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
TabOrder = 8 TabOrder = 8
Width = 200 Width = 200
end end
object InspScore: TcxTextEdit
Tag = 2
Left = 835
Top = 59
TabOrder = 9
Width = 237
end
object InspStandard: TcxButtonEdit
Tag = 2
Left = 835
Top = 7
Hint = 'InspStandard/'#26816#39564#26631#20934
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = InspStandardPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 10
Width = 237
end
end end
object ToolBar2: TToolBar [2] object ToolBar2: TToolBar [2]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 129 Top = 129
Width = 1518 Width = 1530
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -289,13 +329,12 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
object cxGrid1: TcxGrid [3] object cxGrid1: TcxGrid [3]
Left = 0 Left = 0
Top = 159 Top = 159
Width = 1518 Width = 1530
Height = 589 Height = 589
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = pm_sub PopupMenu = pm_sub
TabOrder = 3 TabOrder = 3
ExplicitTop = 165
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -344,7 +383,6 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 41 Width = 41
end end
@ -407,7 +445,7 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Width = 114 Width = 114
end end
object Tv1C_WidthUnit: TcxGridDBColumn object Tv1C_WidthUnit: TcxGridDBColumn
Caption = #38376#24133#21333#20301 Caption = #26377#25928#38376#24133'('#33521#23544')'
DataBinding.FieldName = 'C_WidthUnit' DataBinding.FieldName = 'C_WidthUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -431,9 +469,66 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 151 Width = 151
end end
object Tv1ShaZhi: TcxGridDBColumn
Caption = #32433#25903
DataBinding.FieldName = 'ShaZhi'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1SampleTime: TcxGridDBColumn
Caption = #26631#26679#26102#38388
DataBinding.FieldName = 'SampleTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv1ConPrice: TcxGridDBColumn
Caption = #21333#20215'('#26410#31246')'
DataBinding.FieldName = 'ConPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 123
end
object Tv1Currency: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'CNY'
'USD'
'EUR'
'VND')
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1ConTotalAmount: TcxGridDBColumn
Caption = #37329#39069'('#19981#21547#31246')'
DataBinding.FieldName = 'ConTotalAmount'
DataBinding.IsNullValueType = True
GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter
Width = 120
end
object Tv1C_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -456,8 +551,8 @@ inherited frmfinishSalesConInput: TfrmfinishSalesConInput
inherited cxImageList_bar: TcxImageList inherited cxImageList_bar: TcxImageList
FormatVersion = 1 FormatVersion = 1
Left = 1015 Left = 1015
Top = 170 Top = 218
DesignInfo = 11142135 DesignInfo = 14287863
end end
object ADOTemp: TADOQuery object ADOTemp: TADOQuery
Connection = DataLink_Contract.ADOLink Connection = DataLink_Contract.ADOLink

86
B01基础合同管理/U_finishSalesConInput.pas
View File

@ -75,6 +75,17 @@ type
DlyDate: TcxDateEdit; DlyDate: TcxDateEdit;
Tv1density: TcxGridDBColumn; Tv1density: TcxGridDBColumn;
Tv1C_WidthUnit: TcxGridDBColumn; Tv1C_WidthUnit: TcxGridDBColumn;
Tv1ShaZhi: TcxGridDBColumn;
Tv1C_Color: TcxGridDBColumn;
Tv1SampleTime: TcxGridDBColumn;
Tv1ConPrice: TcxGridDBColumn;
Tv1Currency: TcxGridDBColumn;
Tv1ConTotalAmount: TcxGridDBColumn;
Tv1C_GramWeight: TcxGridDBColumn;
InspScore: TcxTextEdit;
InspStandard: TcxButtonEdit;
Label2: TLabel;
Label4: TLabel;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -86,6 +97,11 @@ type
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
procedure BuyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
procedure InspStandardPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private private
FLeft, FTop: Integer; FLeft, FTop: Integer;
fuserName, Fstatus: string; fuserName, Fstatus: string;
@ -159,7 +175,6 @@ begin
end; end;
procedure TfrmfinishSalesConInput.JSMoney(); procedure TfrmfinishSalesConInput.JSMoney();
var var
FConQty, FConPrice, FC_Money: Double; FConQty, FConPrice, FC_Money: Double;
@ -200,7 +215,6 @@ begin
// raise Exception.Create('颜色不能为空！'); // raise Exception.Create('颜色不能为空！');
// if Order_Sub.Locate('C_MF', null, []) then // if Order_Sub.Locate('C_MF', null, []) then
// raise Exception.Create('门幅不能为空！'); // raise Exception.Create('门幅不能为空！');
// if Order_Sub.Locate('C_MF', '', []) then // if Order_Sub.Locate('C_MF', '', []) then
@ -364,6 +378,25 @@ begin
SetXH(); SetXH();
end; end;
procedure TfrmfinishSalesConInput.v1OrderUnitPropertiesButtonClick(
Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := 'ConUnit';
if ShowModal = 1 then
begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmfinishSalesConInput.TBCloseClick(Sender: TObject); procedure TfrmfinishSalesConInput.TBCloseClick(Sender: TObject);
begin begin
@ -450,6 +483,31 @@ begin
end; end;
procedure TfrmfinishSalesConInput.InspStandardPropertiesButtonClick(
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 := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
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;
procedure TfrmfinishSalesConInput.N1Click(Sender: TObject); procedure TfrmfinishSalesConInput.N1Click(Sender: TObject);
var var
FValue, FFValue, FColumn, FFColumn, MHXSID: string; FValue, FFValue, FColumn, FFColumn, MHXSID: string;
@ -600,6 +658,30 @@ begin
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL); ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
end; end;
procedure TfrmfinishSalesConInput.BuyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '¿Í»§';
if Self.FAuthority = '¼Èë' then
FAuthority := 'Àíµ¥ÒµÎñ';
if ShowModal = 1 then
begin
self.BuyName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.BuyName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
// self.SalesId.Text := Trim(frmCompanySel.CDS_1.fieldbyname('SalesId').AsString);
// self.Saleser.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Saleser').AsString);
self.TallyId.Text := Trim(frmCompanySel.CDS_1.fieldbyname('TallyId').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmfinishSalesConInput.FormShow(Sender: TObject); procedure TfrmfinishSalesConInput.FormShow(Sender: TObject);
begin begin
inherited; inherited;

71
B01基础合同管理/U_finishSalesContractList.dfm
View File

@ -7,8 +7,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitLeft = -689
ExplicitTop = -185
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 810 ExplicitHeight = 810
PixelsPerInch = 96 PixelsPerInch = 96
@ -196,8 +194,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Align = alClient Align = alClient
PopupMenu = pm1 PopupMenu = pm1
TabOrder = 3 TabOrder = 3
ExplicitLeft = 1 ExplicitTop = 163
ExplicitTop = 152
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -272,6 +269,20 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Visible = False Visible = False
Width = 70 Width = 70
end end
object Tv1InspStandard: TcxGridDBColumn
Caption = #26816#39564#26631#20934
DataBinding.FieldName = 'InspStandard'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1InspScore: TcxGridDBColumn
Caption = #26816#39564#21512#26684#20998#25968
DataBinding.FieldName = 'InspScore'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 134
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -288,6 +299,7 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 6 TabOrder = 6
ExplicitTop = 36
object Label4: TLabel object Label4: TLabel
Left = 268 Left = 268
Top = 50 Top = 50
@ -412,7 +424,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
ExplicitTop = 493
end end
object Panel2: TPanel [5] object Panel2: TPanel [5]
Left = 0 Left = 0
@ -430,8 +441,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Align = alLeft Align = alLeft
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 0 TabOrder = 0
ExplicitLeft = 0
ExplicitTop = -4
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -544,11 +553,11 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Width = 71 Width = 71
end end
object TV2C_WidthUnit: TcxGridDBColumn object TV2C_WidthUnit: TcxGridDBColumn
Caption = #38376#24133#21333#20301 Caption = #26377#25928#38376#24133'('#33521#23544')'
DataBinding.FieldName = 'C_WidthUnit' DataBinding.FieldName = 'C_WidthUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 125
end end
object v1PRTOrderQty: TcxGridDBColumn object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
@ -573,6 +582,48 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Options.Editing = False Options.Editing = False
Width = 58 Width = 58
end end
object TV2ShaZhi: TcxGridDBColumn
Caption = #32433#25903
DataBinding.FieldName = 'ShaZhi'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV2SampleTime: TcxGridDBColumn
Caption = #26631#26679#26102#38388
DataBinding.FieldName = 'SampleTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object TV2ConPrice: TcxGridDBColumn
Caption = #21333#20215'('#26410#31246')'
DataBinding.FieldName = 'ConPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object TV2Currency: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2ConTotalAmount: TcxGridDBColumn
Caption = #37329#39069'('#19981#21547#31246')'
DataBinding.FieldName = 'ConTotalAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV2 GridView = TV2
@ -585,8 +636,6 @@ inherited frmfinishSalesContractList: TfrmfinishSalesContractList
Height = 268 Height = 268
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = 906
ExplicitTop = -4
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

19
B01基础合同管理/U_finishSalesContractList.pas
View File

@ -106,6 +106,14 @@ type
CDS_3: TClientDataSet; CDS_3: TClientDataSet;
DS_3: TDataSource; DS_3: TDataSource;
GPM_3: TcxGridPopupMenu; GPM_3: TcxGridPopupMenu;
TV2ShaZhi: TcxGridDBColumn;
TV2C_Color: TcxGridDBColumn;
TV2SampleTime: TcxGridDBColumn;
TV2ConPrice: TcxGridDBColumn;
TV2Currency: TcxGridDBColumn;
TV2ConTotalAmount: TcxGridDBColumn;
Tv1InspStandard: TcxGridDBColumn;
Tv1InspScore: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -193,10 +201,13 @@ begin
sql.Clear; sql.Clear;
sql.Add('select * from CP_Contract_sub A '); sql.Add('select * from CP_Contract_sub A ');
sql.Add('where ConMID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString))); sql.Add('where ConMID =' + quotedstr((CDS_1.fieldbyname('ConMID').AsString)));
// ShowMessage(SQL.Text);
open; open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_2); SCreateCDS(ADOQueryTemp, CDS_2);
// showMessage(intTostr(CDS_2.RecordCount));
SInitCDSData(ADOQueryTemp, CDS_2); SInitCDSData(ADOQueryTemp, CDS_2);
// showMessage(intTostr(CDS_2.RecordCount));
TV2.DataController.Filter.Clear; TV2.DataController.Filter.Clear;
end; end;
@ -436,7 +447,7 @@ begin
frmLabelPrint := TfrmLabelPrint.Create(Application); frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do with frmLabelPrint do
begin begin
FLMType := 'SalesConPrint'; FLMType := 'CPSalesConPrint';
FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString)); FFiltration1 := QuotedStr(Trim(Self.CDS_1.fieldbyname('ConMID').AsString));
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -822,7 +833,7 @@ begin
if CDS_2.IsEmpty then if CDS_2.IsEmpty then
exit; exit;
with ADOQueryTemp do with ADOQueryCMD do
begin begin
close; close;
sql.Clear; sql.Clear;
@ -830,8 +841,8 @@ begin
sql.Add('where CP_code =' + quotedstr((CDS_2.fieldbyname('C_Code').AsString))); sql.Add('where CP_code =' + quotedstr((CDS_2.fieldbyname('C_Code').AsString)));
open; open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_3); SCreateCDS(ADOQueryCMD, CDS_3);
SInitCDSData(ADOQueryTemp, CDS_3); SInitCDSData(ADOQueryCMD, CDS_3);
end; end;

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

@ -77,7 +77,6 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentCtl3D = False ParentCtl3D = False
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
object Label2: TLabel object Label2: TLabel
Left = 16 Left = 16
Top = 159 Top = 159

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

@ -339,6 +339,12 @@ begin
Exit; Exit;
end; end;
if Trim(YarnFactor.Text) = '' then
begin
Application.MessageBox('纱线系数不能为空!', '提示', 0);
Exit;
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

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

@ -325,6 +325,7 @@ begin
with frmYarnInfoInPut do with frmYarnInfoInPut do
begin begin
FBYIID := ''; FBYIID := '';
YarnFactor.Text := '0.059';
FSTKName := self.FSTKName; FSTKName := self.FSTKName;
if ShowModal = 1 then if ShowModal = 1 then
begin begin

BIN
B03基础物料仓库/ProductStk.identcache
View File

Binary file not shown.

90
B04采购计划管理/PurchasePlan.dproj.local
View File

@ -1,61 +1,61 @@
<?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.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm</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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.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.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.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.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.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.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.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.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.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.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.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.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.931,=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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.106,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.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.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.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.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,=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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.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.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.263,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanList_ZZD.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj</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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>

8
B04采购计划管理/U_YarnPurchasePlanList.dfm
View File

@ -7,6 +7,7 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitLeft = -513
ExplicitWidth = 1380 ExplicitWidth = 1380
ExplicitHeight = 774 ExplicitHeight = 774
PixelsPerInch = 96 PixelsPerInch = 96
@ -711,6 +712,13 @@ inherited frmYarnPurchasePlanList: TfrmYarnPurchasePlanList
Options.Sorting = False Options.Sorting = False
Width = 90 Width = 90
end end
object Tv2TaxRate: TcxGridDBColumn
Caption = #31246#29575
DataBinding.FieldName = 'TaxRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn6: TcxGridDBColumn object cxGridDBColumn6: TcxGridDBColumn
Caption = #37329#39069 Caption = #37329#39069
DataBinding.FieldName = 'Amount' DataBinding.FieldName = 'Amount'

1
B04采购计划管理/U_YarnPurchasePlanList.pas
View File

@ -116,6 +116,7 @@ type
d: TcxGridDBColumn; d: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn; Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn; Tv2Column2: TcxGridDBColumn;
Tv2TaxRate: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

15
B04采购计划管理/U_YarnPurchasePlanPut.dfm
View File

@ -483,13 +483,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Caption = #23384#25918#21333#20301#65306 Caption = #23384#25918#21333#20301#65306
Visible = False Visible = False
end end
object Label2: TLabel
Left = 34
Top = 95
Width = 78
Height = 21
Caption = #31246' '#29575#65306
end
object Label3: TLabel object Label3: TLabel
Left = 1223 Left = 1223
Top = 56 Top = 56
@ -634,14 +627,6 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
OnDblClick = BuyNameDblClick OnDblClick = BuyNameDblClick
Width = 200 Width = 200
end end
object ShuiLv: TcxTextEdit
Tag = 2
Left = 119
Top = 91
Properties.OnEditValueChanged = ShuiLvPropertiesEditValueChanged
TabOrder = 8
Width = 200
end
end end
object cxGrid2: TcxGrid [4] object cxGrid2: TcxGrid [4]
Left = 1479 Left = 1479

111
B04采购计划管理/U_YarnPurchasePlanPut.pas
View File

@ -84,8 +84,6 @@ type
Tv1Column15: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn; Tv1Column16: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn;
Label2: TLabel;
ShuiLv: TcxTextEdit;
ToolButton4: TToolButton; ToolButton4: TToolButton;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
ToolButton5: TToolButton; ToolButton5: TToolButton;
@ -122,7 +120,7 @@ type
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure StkNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure StkNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ShuiLvPropertiesEditValueChanged(Sender: TObject); // procedure ShuiLvPropertiesEditValueChanged(Sender: TObject);
procedure IsTaxPropertiesChange(Sender: TObject); procedure IsTaxPropertiesChange(Sender: TObject);
procedure Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column12PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
@ -136,7 +134,7 @@ type
FLeft, FTop: Integer; FLeft, FTop: Integer;
fuserName, Fstatus: string; fuserName, Fstatus: string;
procedure JSMoney(); procedure JSMoney();
procedure JSMoney2(); // procedure JSMoney2();
procedure InitData(); procedure InitData();
function TestData(): Boolean; function TestData(): Boolean;
function SaveData(): Boolean; function SaveData(): Boolean;
@ -165,51 +163,51 @@ uses
{$R *.dfm} {$R *.dfm}
procedure TfrmYarnPurchasePlanPut.JSMoney2(); //procedure TfrmYarnPurchasePlanPut.JSMoney2();
var //var
FPieceKG, FPiece, FQty, FPrice, FAmount, FPrice2, FAmount2, FSL: Double; //个数，单价， // FPieceKG, FPiece, FQty, FPrice, FAmount, FPrice2, FAmount2, FSL: Double; //个数，单价，
begin //begin
if Order_Sub.IsEmpty then // if Order_Sub.IsEmpty then
exit; // exit;
with Order_Sub do // with Order_Sub do
begin // begin
DisableControls; // DisableControls;
first; // first;
while not eof do // while not eof do
begin // begin
FPiece := Fieldbyname('Piece').AsFloat; // FPiece := Fieldbyname('Piece').AsFloat;
// FPieceKG := Fieldbyname('PieceKG').AsFloat; //// FPieceKG := Fieldbyname('PieceKG').AsFloat;
FPrice := Fieldbyname('Price').AsFloat; //含税单价 // FPrice := Fieldbyname('Price').AsFloat; //含税单价
FSL := StrToFloatdef(ShuiLv.text, 0); // FSL := StrToFloatdef(ShuiLv.text, 0);
with Order_Sub do // with Order_Sub do
begin // begin
FQty := Fieldbyname('Qty').AsFloat; // FQty := Fieldbyname('Qty').AsFloat;
//
FAmount := RoundFloat(FQty * FPrice, 2); //含税金额 // FAmount := RoundFloat(FQty * FPrice, 2); //含税金额
FAmount2 := RoundFloat(FQty * FPrice2 * FSL, 2); //不含税金额 // FAmount2 := RoundFloat(FQty * FPrice2 * FSL, 2); //不含税金额
//
//
with Order_Sub do // with Order_Sub do
begin // begin
Edit; // Edit;
FieldByName('PieceKG').Value := FPieceKG; // FieldByName('PieceKG').Value := FPieceKG;
FieldByName('Piece').Value := FPiece; // FieldByName('Piece').Value := FPiece;
FieldByName('Qty').Value := FQty; // FieldByName('Qty').Value := FQty;
//
FieldByName('Price').Value := FPrice; // FieldByName('Price').Value := FPrice;
//
FieldByName('Amount').Value := FAmount; // FieldByName('Amount').Value := FAmount;
FieldByName('Amount2').Value := FAmount2; // FieldByName('Amount2').Value := FAmount2;
Post; // Post;
end; // end;
end; // end;
//
next; // next;
end; // end;
First; // First;
EnableControls; // EnableControls;
end; // end;
end; //end;
procedure TfrmYarnPurchasePlanPut.SellnameClick(Sender: TObject); procedure TfrmYarnPurchasePlanPut.SellnameClick(Sender: TObject);
begin begin
@ -230,7 +228,7 @@ begin
if Trim(frmCompanySel.CDS_1.fieldbyname('Shuilv').AsString) <> '' then if Trim(frmCompanySel.CDS_1.fieldbyname('Shuilv').AsString) <> '' then
begin begin
self.Shuilv.text := Trim(frmCompanySel.CDS_1.fieldbyname('Shuilv').AsString); // self.Shuilv.text := Trim(frmCompanySel.CDS_1.fieldbyname('Shuilv').AsString);
end; end;
end; end;
@ -322,10 +320,10 @@ begin
end; end;
end; end;
procedure TfrmYarnPurchasePlanPut.ShuiLvPropertiesEditValueChanged(Sender: TObject); //procedure TfrmYarnPurchasePlanPut.ShuiLvPropertiesEditValueChanged(Sender: TObject);
begin //begin
JSMoney2(); // JSMoney2();
end; //end;
procedure TfrmYarnPurchasePlanPut.StkNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmYarnPurchasePlanPut.StkNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
@ -444,7 +442,7 @@ begin
PurDate.Date := SGetServerDateTime(ADOTemp); PurDate.Date := SGetServerDateTime(ADOTemp);
// DlyDate.Date := PurDate.Date; // DlyDate.Date := PurDate.Date;
PurNo.Text := '×Ô¶¯Éú³É'; PurNo.Text := '×Ô¶¯Éú³É';
Shuilv.text := '0.96'; // Shuilv.text := '0.96';
end; end;
if PState = '¸´ÖÆ' then if PState = '¸´ÖÆ' then
@ -479,7 +477,8 @@ begin
// if IsTax.text = 'ÊÇ' then // if IsTax.text = 'ÊÇ' then
// begin // begin
ShuiLv.text := FloatToStr(FShuilv); // ShuiLv.text := FloatToStr(FShuilv);
Order_Sub.FieldByName('TaxRate').AsString := FloatToStr(FShuilv);
// end // end
// else // else
// begin // begin

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

@ -46,7 +46,8 @@ uses
U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel}, U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel},
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload}, U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
U_GKManageSel in '..\A02基础产品管理\U_GKManageSel.pas' {frmGKManageSel}, U_GKManageSel in '..\A02基础产品管理\U_GKManageSel.pas' {frmGKManageSel},
U_GKInput in 'U_GKInput.pas' {frmGKInput}; U_GKInput in 'U_GKInput.pas' {frmGKInput},
U_YarnStkSel in 'U_YarnStkSel.pas' {frmYarnStkSel};
{$R *.res} {$R *.res}

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

@ -218,6 +218,10 @@
<Form>frmGKInput</Form> <Form>frmGKInput</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_YarnStkSel.pas">
<Form>frmYarnStkSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

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

@ -1,83 +1,84 @@
<?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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.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.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</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.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm</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.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.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.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.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.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm</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.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.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.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.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.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.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.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.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.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.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.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.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.709,=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.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.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</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.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm</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.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.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.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.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.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.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.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.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.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.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.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.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.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.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.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.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.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.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.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.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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</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.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.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.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.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.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.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.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.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.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.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.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</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.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm</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.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.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.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.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/10/13 10:49:44.000.724,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_YarnStkSel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>
@ -163,5 +164,7 @@
<File Path="U_GKInput.dfm"/> <File Path="U_GKInput.dfm"/>
<File Path="U_WBSpecInPut.pas"/> <File Path="U_WBSpecInPut.pas"/>
<File Path="U_WBSpecInPut.dfm"/> <File Path="U_WBSpecInPut.dfm"/>
<File Path="U_YarnStkSel.pas"/>
<File Path="U_YarnStkSel.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

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

Binary file not shown.

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

@ -140,7 +140,7 @@ begin
end; end;
end; end;
111: //坯布生产计划单 111: //툰꼈<EFBFBD>끓셕뺍데 （廉芚데）
begin begin
with TfrmTatPlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // with TfrmTatPlanList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin begin

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

@ -6,14 +6,14 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
ClientWidth = 1540 ClientWidth = 1540
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -13
Position = poScreenCenter Position = poScreenCenter
WindowState = wsMaximized WindowState = wsMaximized
ExplicitLeft = -689 ExplicitLeft = -674
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 884 ExplicitHeight = 884
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 19
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -73,60 +73,61 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Ctl3D = False Ctl3D = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 24
object Label2: TLabel object Label2: TLabel
Left = 922 Left = 922
Top = 5 Top = 5
Width = 64 Width = 52
Height = 21 Height = 19
Caption = #19979#21333#26085#26399 Caption = #19979#21333#26085#26399
end end
object Label5: TLabel object Label5: TLabel
Left = 689 Left = 689
Top = 11 Top = 11
Width = 64 Width = 52
Height = 21 Height = 19
Caption = #20132#36135#26085#26399 Caption = #20132#36135#26085#26399
end end
object Label8: TLabel object Label8: TLabel
Left = 689 Left = 689
Top = 45 Top = 45
Width = 32 Width = 26
Height = 21 Height = 19
Caption = #21305#25968 Caption = #21305#25968
end end
object Label13: TLabel object Label13: TLabel
Left = 922 Left = 922
Top = 42 Top = 42
Width = 58 Width = 47
Height = 21 Height = 19
Caption = #24635' '#25968' '#37327 Caption = #24635' '#25968' '#37327
end end
object Label47: TLabel object Label47: TLabel
Left = 336 Left = 336
Top = 45 Top = 45
Width = 32 Width = 26
Height = 21 Height = 19
Caption = #23458#25143 Caption = #23458#25143
end end
object lbl2: TLabel object lbl2: TLabel
Left = 336 Left = 336
Top = 9 Top = 9
Width = 64 Width = 52
Height = 21 Height = 19
Caption = #29983#20135#31867#22411 Caption = #29983#20135#31867#22411
end end
object Label7: TLabel object Label7: TLabel
Left = 9 Left = 9
Top = 9 Top = 9
Width = 80 Width = 65
Height = 21 Height = 19
Caption = #32455#36896#21333#21495#65306 Caption = #32455#36896#21333#21495#65306
end end
object Label35: TLabel object Label35: TLabel
Left = 9 Left = 9
Top = 44 Top = 44
Width = 64 Width = 52
Height = 21 Height = 19
Caption = #21512#21516#21495#65306 Caption = #21512#21516#21495#65306
end end
object Label3: TLabel object Label3: TLabel
@ -158,8 +159,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label55: TLabel object Label55: TLabel
Left = 11 Left = 11
Top = 364 Top = 364
Width = 48 Width = 39
Height = 21 Height = 19
Caption = #31359#32508#27861 Caption = #31359#32508#27861
end end
object Label9: TLabel object Label9: TLabel
@ -204,8 +205,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label15: TLabel object Label15: TLabel
Left = 336 Left = 336
Top = 157 Top = 157
Width = 32 Width = 26
Height = 21 Height = 19
Caption = #20811#37325 Caption = #20811#37325
end end
object Label16: TLabel object Label16: TLabel
@ -250,43 +251,43 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label18: TLabel object Label18: TLabel
Left = 922 Left = 922
Top = 119 Top = 119
Width = 32 Width = 26
Height = 21 Height = 19
Caption = #33394#21495 Caption = #33394#21495
end end
object Label20: TLabel object Label20: TLabel
Left = 689 Left = 689
Top = 119 Top = 119
Width = 32 Width = 26
Height = 21 Height = 19
Caption = #39068#33394 Caption = #39068#33394
end end
object Label21: TLabel object Label21: TLabel
Left = 11 Left = 11
Top = 119 Top = 119
Width = 32 Width = 26
Height = 21 Height = 19
Caption = #33457#22411 Caption = #33457#22411
end end
object Label22: TLabel object Label22: TLabel
Left = 336 Left = 336
Top = 119 Top = 119
Width = 32 Width = 26
Height = 21 Height = 19
Caption = #27454#21495 Caption = #27454#21495
end end
object Label23: TLabel object Label23: TLabel
Left = 922 Left = 922
Top = 81 Top = 81
Width = 32 Width = 26
Height = 21 Height = 19
Caption = #35268#26684 Caption = #35268#26684
end end
object Label24: TLabel object Label24: TLabel
Left = 689 Left = 689
Top = 82 Top = 82
Width = 32 Width = 26
Height = 21 Height = 19
Caption = #25104#20998 Caption = #25104#20998
end end
object Label25: TLabel object Label25: TLabel
@ -331,15 +332,15 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label30: TLabel object Label30: TLabel
Left = 922 Left = 922
Top = 233 Top = 233
Width = 48 Width = 39
Height = 21 Height = 19
Caption = #31576#40831#25968 Caption = #31576#40831#25968
end end
object Label31: TLabel object Label31: TLabel
Left = 11 Left = 11
Top = 269 Top = 269
Width = 48 Width = 39
Height = 21 Height = 19
Caption = #36793#32433#25968 Caption = #36793#32433#25968
end end
object Label32: TLabel object Label32: TLabel
@ -358,22 +359,22 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label33: TLabel object Label33: TLabel
Left = 689 Left = 689
Top = 269 Top = 269
Width = 64 Width = 65
Height = 21 Height = 19
Caption = #36793#31359#20837#27861 Caption = #36793#32433#24635#26681#25968
end end
object Label34: TLabel object Label34: TLabel
Left = 11 Left = 11
Top = 307 Top = 307
Width = 48 Width = 39
Height = 21 Height = 19
Caption = #32508#39029#25968 Caption = #32508#39029#25968
end end
object Label36: TLabel object Label36: TLabel
Left = 336 Left = 336
Top = 307 Top = 307
Width = 48 Width = 39
Height = 21 Height = 19
Caption = #32428#29273#23494 Caption = #32428#29273#23494
end end
object Label37: TLabel object Label37: TLabel
@ -392,50 +393,168 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object Label38: TLabel object Label38: TLabel
Left = 922 Left = 922
Top = 306 Top = 306
Width = 64 Width = 52
Height = 21 Height = 19
Caption = #33853#24067#23450#38271 Caption = #33853#24067#23450#38271
end end
object Label39: TLabel object Label39: TLabel
Left = 1146 Left = 1146
Top = 121 Top = 121
Width = 32 Width = 26
Height = 21 Height = 19
Caption = #26426#22411 Caption = #26426#22411
end end
object Label1: TLabel
Left = 11
Top = 457
Width = 615
Height = 21
Caption = #27880' '#32428#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#32428#23494'*'#65288#31576#24133'+'#25439#32791#65289'*0.059 / '#25903#25968' *'#26681#25968'/'#24490#29615#26681#25968'* 1.08'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label29: TLabel
Left = 11
Top = 430
Width = 392
Height = 21
Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#20840#24133#26681#25968'*0.059/'#25903#25968'*1.08'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label10: TLabel object Label10: TLabel
Left = 1146 Left = 1146
Top = 7 Top = 7
Width = 48 Width = 39
Height = 21 Height = 19
Caption = #32455#32553#29575 Caption = #32455#32553#29575
end end
object Label14: TLabel
Left = 23
Top = 430
Width = 560
Height = 21
Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#65288'1+'#32455#32553'%'#65289'*'#20840#24133#26681#25968' * '#32433#32447#31995#25968' / '#25903#25968#65288'S'#65289
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 23
Top = 457
Width = 730
Height = 21
Caption = #27880' '#32428#32433#65306#30334#31859#32463#38271#29992#37327'KG = '#32428#23494' *'#65288#31576#24133' "+ 4.2'#24223#36793#25439#32791' "'#65289'* '#32433#32447#31995#25968' / '#25903#25968#65288'S'#65289' *'#26681#25968'/'#24490#29615#26681#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 1144
Top = 269
Width = 91
Height = 19
Caption = #36793#32433#21333#36793#31576#40831#25968
end
object Label29: TLabel
Left = 1144
Top = 230
Width = 52
Height = 19
Caption = #36793#31359#20837#27861
end
object Label40: TLabel
Left = 1366
Top = 230
Width = 26
Height = 19
Caption = #31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clBtnShadow
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label42: TLabel
Left = 1366
Top = 269
Width = 45
Height = 19
Caption = #26681'/'#31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label41: TLabel
Left = 1093
Top = 229
Width = 26
Height = 19
Caption = #31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label43: TLabel
Left = 268
Top = 267
Width = 13
Height = 19
Caption = #26681
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label44: TLabel
Left = 601
Top = 267
Width = 45
Height = 19
Caption = #26681'/'#31576#40831
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label45: TLabel
Left = 600
Top = 229
Width = 53
Height = 19
Caption = #40831'/2'#33521#23544
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label46: TLabel
Left = 1074
Top = 158
Width = 45
Height = 19
Caption = #26681'/'#33521#23544
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label48: TLabel
Left = 867
Top = 156
Width = 45
Height = 19
Caption = #26681'/'#33521#23544
Font.Charset = ANSI_CHARSET
Font.Color = clAppWorkSpace
Font.Height = -13
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object OrdPiece: TcxTextEdit object OrdPiece: TcxTextEdit
Tag = 2 Tag = 2
Left = 766 Left = 766
@ -463,8 +582,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end end
object ConMId: TcxTextEdit object ConMId: TcxTextEdit
Tag = 2 Tag = 2
Left = 1257 Left = 1431
Top = 252 Top = 346
Enabled = False Enabled = False
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
@ -473,8 +592,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
end end
object ConSId: TcxTextEdit object ConSId: TcxTextEdit
Tag = 2 Tag = 2
Left = 1329 Left = 1465
Top = 193 Top = 300
Enabled = False Enabled = False
TabOrder = 4 TabOrder = 4
Visible = False Visible = False
@ -581,7 +700,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 228 Top = 228
ParentColor = True ParentColor = True
TabOrder = 14 TabOrder = 14
Width = 150 Width = 149
end end
object C_GramWeight: TcxTextEdit object C_GramWeight: TcxTextEdit
Tag = 2 Tag = 2
@ -596,9 +715,10 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 986 Left = 986
Top = 153 Top = 153
ParentColor = True ParentColor = True
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
TabOrder = 16 TabOrder = 16
OnExit = C_ReedWidthExit OnExit = C_ReedWidthExit
Width = 150 Width = 87
end end
object WB_Code: TcxButtonEdit object WB_Code: TcxButtonEdit
Tag = 2 Tag = 2
@ -690,7 +810,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 153 Top = 153
ParentColor = True ParentColor = True
TabOrder = 26 TabOrder = 26
Width = 150 Width = 95
end end
object LPDW: TcxComboBox object LPDW: TcxComboBox
Tag = 2 Tag = 2
@ -715,6 +835,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 766 Left = 766
Top = 228 Top = 228
ParentColor = True ParentColor = True
Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
TabOrder = 29 TabOrder = 29
OnExit = C_ReedWidthExit OnExit = C_ReedWidthExit
Width = 76 Width = 76
@ -725,7 +846,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Top = 229 Top = 229
ParentColor = True ParentColor = True
TabOrder = 30 TabOrder = 30
Width = 150 Width = 103
end end
object BSQTY: TcxTextEdit object BSQTY: TcxTextEdit
Tag = 2 Tag = 2
@ -823,11 +944,28 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object ZS: TcxTextEdit object ZS: TcxTextEdit
Left = 1210 Left = 1210
Top = 5 Top = 5
Properties.OnChange = OrdQtyPropertiesChange Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
TabOrder = 41 TabOrder = 41
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
Width = 150 Width = 150
end end
object WB_YarnKCQty: TcxTextEdit
Tag = 2
Left = 1265
Top = 263
ParentColor = True
TabOrder = 42
Text = 'WB_YarnKCQty'
Width = 95
end
object BCRFQty: TcxTextEdit
Tag = 2
Left = 1265
Top = 230
ParentColor = True
TabOrder = 43
Width = 95
end
end end
object cxPageControl3: TcxPageControl [2] object cxPageControl3: TcxPageControl [2]
Left = 0 Left = 0
@ -836,12 +974,12 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Height = 316 Height = 316
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
ClientRectBottom = 316 ClientRectBottom = 316
ClientRectRight = 1540 ClientRectRight = 1540
ClientRectTop = 28 ClientRectTop = 26
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512 Caption = #32463#19997#32452#21512
ImageIndex = 0 ImageIndex = 0
@ -849,7 +987,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 931 Left = 931
Top = 0 Top = 0
Width = 609 Width = 609
Height = 288 Height = 290
Align = alClient Align = alClient
Caption = #32463#25490#21015 Caption = #32463#25490#21015
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -864,7 +1002,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 2 Left = 2
Top = 31 Top = 31
Width = 605 Width = 605
Height = 255 Height = 257
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -879,14 +1017,14 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 0 Left = 0
Top = 0 Top = 0
Width = 931 Width = 931
Height = 288 Height = 290
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
object cxPageControl2: TcxPageControl object cxPageControl2: TcxPageControl
Left = 1 Left = 1
Top = 1 Top = 1
Width = 929 Width = 929
Height = 286 Height = 288
Align = alClient Align = alClient
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -901,7 +1039,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
ClientRectBottom = 286 ClientRectBottom = 288
ClientRectRight = 929 ClientRectRight = 929
ClientRectTop = 0 ClientRectTop = 0
end end
@ -909,7 +1047,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 1 Left = 1
Top = 1 Top = 1
Width = 929 Width = 929
Height = 286 Height = 288
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
@ -1003,7 +1141,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'YarnQty' DataBinding.FieldName = 'YarnQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
@ -1012,7 +1150,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'CycleYarnQty' DataBinding.FieldName = 'CycleYarnQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
@ -1025,6 +1163,15 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object TV1YarnFactor: TcxGridDBColumn
Caption = #32433#32447#31995#25968
DataBinding.FieldName = 'YarnFactor'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV1Column8: TcxGridDBColumn object TV1Column8: TcxGridDBColumn
Caption = #30334#31859#32463#38271#37325#37327'KG' Caption = #30334#31859#32463#38271#37325#37327'KG'
DataBinding.FieldName = 'MeterQty' DataBinding.FieldName = 'MeterQty'
@ -1032,6 +1179,20 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 163 Width = 163
end end
object TV1BatchNO: TcxGridDBColumn
Caption = #32433#32447#25209#21495
DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = TV1BatchNOPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV1Column11: TcxGridDBColumn object TV1Column11: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'NOTE' DataBinding.FieldName = 'NOTE'
@ -1049,14 +1210,11 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = #32428#19997#32452#21512 Caption = #32428#19997#32452#21512
ImageIndex = 1 ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
Left = 863 Left = 863
Top = 0 Top = 0
Width = 677 Width = 677
Height = 288 Height = 290
Align = alClient Align = alClient
Caption = #32428#25490#21015 Caption = #32428#25490#21015
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1071,7 +1229,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 2 Left = 2
Top = 31 Top = 31
Width = 673 Width = 673
Height = 255 Height = 257
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1086,14 +1244,14 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 0 Left = 0
Top = 0 Top = 0
Width = 863 Width = 863
Height = 288 Height = 290
Align = alLeft Align = alLeft
TabOrder = 1 TabOrder = 1
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 1 Left = 1
Top = 1 Top = 1
Width = 861 Width = 861
Height = 286 Height = 288
Align = alClient Align = alClient
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -1108,7 +1266,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
ClientRectBottom = 286 ClientRectBottom = 288
ClientRectRight = 861 ClientRectRight = 861
ClientRectTop = 0 ClientRectTop = 0
end end
@ -1116,7 +1274,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Left = 1 Left = 1
Top = 1 Top = 1
Width = 861 Width = 861
Height = 286 Height = 288
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -1209,6 +1367,7 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
DataBinding.FieldName = 'YarnQty' DataBinding.FieldName = 'YarnQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = False
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
@ -1222,12 +1381,34 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv2YarnFactor: TcxGridDBColumn
Caption = #32433#32447#31995#25968
DataBinding.FieldName = 'YarnFactor'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv2Column11: TcxGridDBColumn object Tv2Column11: TcxGridDBColumn
Caption = #25439#32791 Caption = #25439#32791
DataBinding.FieldName = 'Y_Loss' DataBinding.FieldName = 'Y_Loss'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2BatchNO: TcxGridDBColumn
Caption = #32433#32447#25209#21495
DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv2BatchNOPropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
@ -1255,9 +1436,6 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
object cxTabSheet3: TcxTabSheet object cxTabSheet3: TcxTabSheet
Caption = #36215#32508#27861 Caption = #36215#32508#27861
ImageIndex = 3 ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel5: TPanel object Panel5: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -1308,16 +1486,13 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.ShowFocusRect = False Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle Style.BorderStyle = ebsSingle
TabOrder = 1 TabOrder = 1
Height = 247 Height = 249
Width = 1540 Width = 1540
end end
end end
object cxTabSheet4: TcxTabSheet object cxTabSheet4: TcxTabSheet
Caption = #31359#32508#27861 Caption = #31359#32508#27861
ImageIndex = 3 ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel4: TPanel object Panel4: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -1368,22 +1543,19 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Properties.ShowFocusRect = False Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle Style.BorderStyle = ebsSingle
TabOrder = 1 TabOrder = 1
Height = 247 Height = 249
Width = 1540 Width = 1540
end end
end end
object cxTabSheet5: TcxTabSheet object cxTabSheet5: TcxTabSheet
Caption = #31359#31576#27861 Caption = #31359#31576#27861
ImageIndex = 3 ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object CKF: TMemo object CKF: TMemo
Tag = 2 Tag = 2
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1540 Width = 1540
Height = 288 Height = 290
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText

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

@ -163,8 +163,6 @@ type
Tv2Column8: TcxGridDBColumn; Tv2Column8: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn; Tv2Column12: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
Label1: TLabel;
Label29: TLabel;
Panel5: TPanel; Panel5: TPanel;
Label28: TLabel; Label28: TLabel;
attname2: TcxButtonEdit; attname2: TcxButtonEdit;
@ -180,6 +178,24 @@ type
C_CODE: TcxButtonEdit; C_CODE: TcxButtonEdit;
Label10: TLabel; Label10: TLabel;
ZS: TcxTextEdit; ZS: TcxTextEdit;
TV1BatchNO: TcxGridDBColumn;
Tv2BatchNO: TcxGridDBColumn;
Label14: TLabel;
Label19: TLabel;
TV1YarnFactor: TcxGridDBColumn;
Tv2YarnFactor: TcxGridDBColumn;
Label1: TLabel;
Label29: TLabel;
Label40: TLabel;
Label42: TLabel;
BCRFQty: TcxTextEdit;
Label41: TLabel;
Label43: TLabel;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label48: TLabel;
WB_YarnKCQty: TcxTextEdit;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -219,6 +235,8 @@ type
procedure ATTNAME1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure ATTNAME1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure C_CODEDblClick(Sender: TObject); procedure C_CODEDblClick(Sender: TObject);
procedure TV1BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv2BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private private
FXS, FGridFlag: Integer; FXS, FGridFlag: Integer;
@ -249,7 +267,8 @@ implementation
uses uses
U_DataLink, U_ZDYHelp, U_RTFun, U_TatClothInfoSel, U_CompanySel, U_YarnInfoSel, U_DataLink, U_ZDYHelp, U_RTFun, U_TatClothInfoSel, U_CompanySel, U_YarnInfoSel,
U_TradeSalesContractSel, U_WBSpecSel, U_TatGYSel, U_PictureUpload; U_TradeSalesContractSel, U_WBSpecSel, U_TatGYSel, U_PictureUpload,
U_YarnStkSel;
{$R *.dfm} {$R *.dfm}
procedure TfrmTatPlanInPut.InitImage(); procedure TfrmTatPlanInPut.InitImage();
@ -459,30 +478,6 @@ var
PBNO, PBFlag: string; PBNO, PBFlag: string;
begin begin
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Plan_Main A where A.MainId=''' + Trim(FMainId) + '''');
Open;
end;
SCSHData(ADOQueryMain, ScrollBox1, 0);
attname1.Text := Trim(ADOQueryMain.FieldByName('attname1').AsString);
attname2.Text := Trim(ADOQueryMain.FieldByName('attname2').AsString);
CKF.Text := Trim(ADOQueryMain.FieldByName('CKF').AsString);
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Plan_Sub A where A.MainId=''' + Trim(FMainId) + '''');
Open;
end;
SCSHData(ADOQueryMain, ScrollBox1, 2);
Y_Note_PLJ.Text := ADOQueryMain.FieldByName('Y_Note_PLJ').AsString;
Y_Note_PLW.Text := ADOQueryMain.FieldByName('Y_Note_PLW').AsString;
with ADOQueryMain do with ADOQueryMain do
begin begin
Close; Close;
@ -504,6 +499,33 @@ begin
SCreateCDS(ADOQueryMain, CDS_2); SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2); SInitCDSData(ADOQueryMain, CDS_2);
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Plan_Main A where A.MainId=''' + Trim(FMainId) + '''');
Open;
end;
SCSHData(ADOQueryMain, ScrollBox1, 0);
attname1.Text := Trim(ADOQueryMain.FieldByName('attname1').AsString);
attname2.Text := Trim(ADOQueryMain.FieldByName('attname2').AsString);
CKF.Text := Trim(ADOQueryMain.FieldByName('CKF').AsString);
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Plan_Sub A where A.MainId=''' + Trim(FMainId) + '''');
Open;
// ShowMessage(sql.Text) ;
end;
SCSHData(ADOQueryMain, ScrollBox1, 2);
Y_Note_PLJ.Text := ADOQueryMain.FieldByName('Y_Note_PLJ').AsString;
Y_Note_PLW.Text := ADOQueryMain.FieldByName('Y_Note_PLW').AsString;
/////////////////刷新起综工艺单信息///////////////////////// /////////////////刷新起综工艺单信息/////////////////////////
with ADOQueryMain do with ADOQueryMain do
begin begin
@ -1073,6 +1095,32 @@ begin
CDS_QZ.EnableControls; CDS_QZ.EnableControls;
end; end;
procedure TfrmTatPlanInPut.TV1BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmYarnStkSel := TfrmYarnStkSel.Create(Application);
with frmYarnStkSel do
begin
FstkName := '纱线';
if ShowModal = 1 then
begin
frmYarnStkSel.CDS_Main.DisableControls;
with Self.CDS_1 do
begin
edit;
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
end;
frmYarnStkSel.CDS_Main.EnableControls;
end;
end;
finally
frmYarnStkSel.Free;
end;
end;
procedure TfrmTatPlanInPut.TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TfrmTatPlanInPut.TV1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var var
AColumn: TcxGridColumn; AColumn: TcxGridColumn;
@ -1104,17 +1152,22 @@ end;
procedure TfrmTatPlanInPut.TV1Column14PropertiesEditValueChanged(Sender: TObject); procedure TfrmTatPlanInPut.TV1Column14PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
ZS, ZGS: double; mZ_Number, ZGS: double;
mYarnFactor, mZS: double;
begin begin
if not CDS_1.IsEmpty then
mvalue := TcxTextEdit(Sender).EditingText; begin
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); CDS_1.First;
while (CDS_1.FieldByName('Y_Code').asString <> '') and (CDS_1.FieldByName('Y_Code').asString <> null) do
begin
// mvalue := TcxTextEdit(Sender).EditingText;
// FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do with CDS_1 do
begin begin
Edit; // Edit;
FieldByName(FFieldName).Value := mvalue; // FieldByName(FFieldName).Value := mvalue;
Post; // Post;
if FieldByName('QFYARNQTY').Value = null then if FieldByName('QFYARNQTY').Value = null then
begin begin
@ -1127,23 +1180,39 @@ begin
if FieldByName('Z_Number').Value = null then if FieldByName('Z_Number').Value = null then
begin begin
ZS := 0; //循环根数 mZ_Number := 0; //支数
end end
else else
begin begin
ZS := FieldByName('Z_Number').Value; //循环根数 mZ_Number := FieldByName('Z_Number').Value; //支数
end; end;
if FieldByName('YarnFactor').Value = null then
begin
mYarnFactor := 0; //纱线系数
end
else
begin
mYarnFactor := FieldByName('YarnFactor').Value; //纱线系数
end; end;
if ZS <> 0 then
mZS := strtofloatdef(ZS.Text, 0);
end;
if mZ_Number <> 0 then
begin begin
with CDS_1 do with CDS_1 do
begin begin
Edit; Edit;
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2); FieldByName('MeterQty').Value := roundfloat((1 + mZS / 100) * ZGS * mYarnFactor / mZ_Number, 2);
Post; Post;
end; end;
end; end;
CDS_1.next;
end;
end;
end; end;
procedure TfrmTatPlanInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject); procedure TfrmTatPlanInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject);
@ -1152,67 +1221,93 @@ var
GS, ZGS, MF, DS, WM, TW, SUNHAO: double; GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
begin begin
mvalue := TcxTextEdit(Sender).EditingText; // mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); // FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
//
with CDS_1 do // with CDS_1 do
begin // begin
Edit; // Edit;
FieldByName(FFieldName).Value := mvalue; // FieldByName(FFieldName).Value := mvalue;
Post; // Post;
//
if FieldByName('YarnQty').Value = null then // if FieldByName('YarnQty').Value = null then
begin // begin
GS := 0; //根数 // GS := 0; //根数
end // end
else // else
begin // begin
GS := FieldByName('YarnQty').Value; //根数 // GS := FieldByName('YarnQty').Value; //根数
// end;
//
// if FieldByName('CycleYarnQty').Value = null then
// begin
// ZGS := 0; //循环根数
// end
// else
// begin
// ZGS := FieldByName('CycleYarnQty').Value; //循环根数
// end;
//
// if FieldByName('SH').Value = null then
// begin
// SUNHAO := 0; //损耗
// end
// else
// begin
// SUNHAO := FieldByName('SH').Value; //损耗
// end;
//
// MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
//
// if FieldByName('TestDenier').Value = null then
// begin
// DS := 0; //D数
// end
// else
// begin
// DS := FieldByName('TestDenier').Value; //D数
// end;
//
// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
//
// TW := strtofloatdef(C_YarnQty.text, 0); //头纹
// end;
// if ZGS <> 0 then
// begin
// with CDS_1 do
// begin
// Edit;
// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS * (1 + SUNHAO / 100) / 9000, 2);
// Post;
// end;
// end;
// JSKZ();
end; end;
if FieldByName('CycleYarnQty').Value = null then procedure TfrmTatPlanInPut.Tv2BatchNOPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
ZGS := 0; //循环根数 try
end frmYarnStkSel := TfrmYarnStkSel.Create(Application);
else with frmYarnStkSel do
begin begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数 FstkName := '纱线';
if ShowModal = 1 then
begin
frmYarnStkSel.CDS_Main.DisableControls;
with Self.CDS_1 do
begin
edit;
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
end; end;
if FieldByName('SH').Value = null then frmYarnStkSel.CDS_Main.EnableControls;
begin end;
SUNHAO := 0; //损耗 end;
end finally
else frmYarnStkSel.Free;
begin
SUNHAO := FieldByName('SH').Value; //损耗
end; end;
MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
if FieldByName('TestDenier').Value = null then
begin
DS := 0; //D数
end
else
begin
DS := FieldByName('TestDenier').Value; //D数
end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
TW := strtofloatdef(C_YarnQty.text, 0); //头纹
end;
if ZGS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS * (1 + SUNHAO / 100) / 9000, 2);
Post;
end;
end;
JSKZ();
end; end;
procedure TfrmTatPlanInPut.Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TfrmTatPlanInPut.Tv2CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
@ -1249,16 +1344,17 @@ procedure TfrmTatPlanInPut.Tv2Column1PropertiesEditValueChanged(Sender: TObject)
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, fsh: double; GS, ZGS, MF, DS, WM, fsh: double;
mYarnFactor: double;
begin begin
mvalue := TcxTextEdit(Sender).EditingText; // mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName); // FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_2 do with CDS_2 do
begin begin
Edit; // Edit;
FieldByName(FFieldName).Value := mvalue; // FieldByName(FFieldName).Value := mvalue;
Post; // Post;
if FieldByName('YarnQty').Value = null then if FieldByName('YarnQty').Value = null then
begin begin
@ -1299,13 +1395,22 @@ begin
end; end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密 WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
if FieldByName('YarnFactor').Value = null then
begin
mYarnFactor := 0; //纱线系数
end
else
begin
mYarnFactor := FieldByName('YarnFactor').Value; //纱线系数
end;
end; end;
if (ZGS <> 0) and (DS <> 0) then if (ZGS <> 0) and (DS <> 0) then
begin begin
with CDS_2 do with CDS_2 do
begin begin
Edit; Edit;
FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2); FieldByName('MeterQty').Value := roundfloat(WM * (MF + 4.2) * mYarnFactor / DS * GS / ZGS, 2);
Post; Post;
end; end;
end; end;
@ -1472,6 +1577,7 @@ begin
FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value; FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value;
FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
FieldByName('YarnFactor').Value := frmYarnInfoSel.CDS_1.fieldbyname('YarnFactor').Value;
Post; Post;
end; end;
@ -1747,6 +1853,8 @@ begin
FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value; FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value; FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').Value;
FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value; FieldByName('TestDenier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').Value;
FieldByName('YarnFactor').Value := frmYarnInfoSel.CDS_1.fieldbyname('YarnFactor').Value;
Post; Post;
end; end;
@ -1836,6 +1944,8 @@ begin
FieldByName('FF').Value := ADOQuery1.fieldbyname('FF').Value; FieldByName('FF').Value := ADOQuery1.fieldbyname('FF').Value;
FieldByName('ND').Value := ADOQuery1.fieldbyname('ND').Value; FieldByName('ND').Value := ADOQuery1.fieldbyname('ND').Value;
FieldByName('YarnFactor').Value := ADOQuery1.fieldbyname('YarnFactor').Value;
Post; Post;
end; end;
@ -1925,67 +2035,67 @@ var
mvalue, FFieldName: string; mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, fsh: double; GS, ZGS, MF, DS, WM, fsh: double;
begin begin
with CDS_2 do // with CDS_2 do
begin // begin
first; // first;
while not eof do // while not eof do
begin // begin
with CDS_2 do // with CDS_2 do
begin // begin
//
if FieldByName('YarnQty').Value = null then // if FieldByName('YarnQty').Value = null then
begin // begin
GS := 0; //根数 // GS := 0; //根数
end // end
else // else
begin // begin
GS := FieldByName('YarnQty').Value; //根数 // GS := FieldByName('YarnQty').Value; //根数
end; // end;
//
if FieldByName('Y_loss').Value = null then // if FieldByName('Y_loss').Value = null then
begin // begin
fsh := 0; //损耗 // fsh := 0; //损耗
end // end
else // else
begin // begin
fsh := FieldByName('Y_loss').Value; //损耗 // fsh := FieldByName('Y_loss').Value; //损耗
end; // end;
//
if FieldByName('CycleYarnQty').Value = null then // if FieldByName('CycleYarnQty').Value = null then
begin // begin
ZGS := 0; //循环根数 // ZGS := 0; //循环根数
end // end
else // else
begin // begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数 // ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end; // end;
//
MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅 // MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
//
if FieldByName('Z_Number').Value = null then // if FieldByName('Z_Number').Value = null then
begin // begin
DS := 0; //支 // DS := 0; //支
end // end
else // else
begin // begin
DS := FieldByName('Z_Number').Value; //支数 // DS := FieldByName('Z_Number').Value; //支数
end; // end;
//
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密 // WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
end; // end;
if (ZGS <> 0) and (DS <> 0) then // if (ZGS <> 0) and (DS <> 0) then
begin // begin
with CDS_2 do // with CDS_2 do
begin // begin
Edit; // Edit;
FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2); // FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
Post; // Post;
end; // end;
end; // end;
next; // next;
end; // end;
//
end; // end;
end; end;
procedure TfrmTatPlanInPut.C_YarnQtyPropertiesEditValueChanged(Sender: TObject); procedure TfrmTatPlanInPut.C_YarnQtyPropertiesEditValueChanged(Sender: TObject);

3
E01梭织生产计划/U_TatPlanJTSCLIST.dfm
View File

@ -77,6 +77,8 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 3 TabOrder = 3
ExplicitLeft = 1
ExplicitTop = 24
object Label5: TLabel object Label5: TLabel
Left = 20 Left = 20
Top = 21 Top = 21
@ -116,6 +118,7 @@ inherited frmTatPlanJTSCLIST: TfrmTatPlanJTSCLIST
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ExplicitTop = 127
ClientRectBottom = 515 ClientRectBottom = 515
ClientRectLeft = 1 ClientRectLeft = 1
ClientRectRight = 1539 ClientRectRight = 1539

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

@ -658,8 +658,8 @@ inherited frmTatPlanList: TfrmTatPlanList
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink Connection = DataLink_TatPlan.ADOLink
Left = 89 Left = 641
Top = 217 Top = 65505
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1

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

@ -13,22 +13,7 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
cxPC, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, cxMaskEdit, cxPC, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, cxMaskEdit,
cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI, cxImage, cxDBEdit, IdFTP,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, cxImage, cxDBEdit, IdFTP,
ShellAPI; ShellAPI;
type type
@ -227,7 +212,6 @@ begin
end; end;
procedure TfrmTatPlanList.TBCloseClick(Sender: TObject); procedure TfrmTatPlanList.TBCloseClick(Sender: TObject);
begin begin
Close; Close;
@ -415,6 +399,15 @@ begin
sql.Add('delete Tat_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + ''''); sql.Add('delete Tat_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Tat_Plan_Sub where SubId=''' + Trim(CDS_1.fieldbyname('SubId').AsString) + '''');
ExecSQL;
end;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;

201
E01梭织生产计划/U_TatPlanMachInput.dfm
View File

@ -3,8 +3,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Top = 150 Top = 150
Anchors = [] Anchors = []
Caption = #20219#21153#26032#22686 Caption = #20219#21153#26032#22686
ClientHeight = 483 ClientHeight = 653
ClientWidth = 1011 ClientWidth = 1022
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -19,7 +19,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1011 Width = 1022
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -32,6 +32,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1011
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -60,8 +61,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1011 Width = 1022
Height = 453 Height = 623
Align = alClient Align = alClient
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -78,8 +79,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Caption = #22383#24067#32534#21495#65306 Caption = #22383#24067#32534#21495#65306
end end
object Label3: TLabel object Label3: TLabel
Left = 100 Left = 812
Top = 470 Top = 67
Width = 48 Width = 48
Height = 21 Height = 21
Caption = #26465#30721#65306 Caption = #26465#30721#65306
@ -107,16 +108,16 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Caption = #32455#36896#21333#21495#65306 Caption = #32455#36896#21333#21495#65306
end end
object Label9: TLabel object Label9: TLabel
Left = 80 Left = 792
Top = 502 Top = 99
Width = 72 Width = 72
Height = 21 Height = 21
Caption = 'MainID'#65306 Caption = 'MainID'#65306
Visible = False Visible = False
end end
object Label10: TLabel object Label10: TLabel
Left = 89 Left = 802
Top = 537 Top = 134
Width = 62 Width = 62
Height = 21 Height = 21
Caption = 'SubID'#65306 Caption = 'SubID'#65306
@ -186,8 +187,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Caption = #25972#32463#24037#33402#21517#31216':' Caption = #25972#32463#24037#33402#21517#31216':'
end end
object PMID: TcxTextEdit object PMID: TcxTextEdit
Left = 153 Left = 865
Top = 467 Top = 64
Enabled = False Enabled = False
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
@ -220,8 +221,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
end end
object MainID: TcxTextEdit object MainID: TcxTextEdit
Tag = 2 Tag = 2
Left = 152 Left = 864
Top = 499 Top = 96
Enabled = False Enabled = False
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
@ -230,8 +231,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
end end
object SubID: TcxTextEdit object SubID: TcxTextEdit
Tag = 2 Tag = 2
Left = 152 Left = 865
Top = 534 Top = 131
Enabled = False Enabled = False
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
@ -257,8 +258,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Width = 218 Width = 218
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 460 Left = 455
Top = 273 Top = 270
Width = 291 Width = 291
Height = 141 Height = 141
TabOrder = 7 TabOrder = 7
@ -317,7 +318,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 35 Left = 35
Top = 273 Top = 270
Width = 386 Width = 386
Height = 142 Height = 142
TabOrder = 8 TabOrder = 8
@ -449,6 +450,155 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
TabOrder = 15 TabOrder = 15
Width = 223 Width = 223
end end
object cxGrid3: TcxGrid
Left = 0
Top = 412
Width = 1003
Height = 253
Align = alBottom
TabOrder = 16
ExplicitTop = 368
ExplicitWidth = 1020
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv2Column8
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv2Column7: TcxGridDBColumn
Caption = #34892#21495
DataBinding.FieldName = 'RowNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v2Column10: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
Width = 100
end
object Tv2Column13: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v2Column6: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object Tv2Column6: TcxGridDBColumn
Caption = #20998#29305'(Dtex)'
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv2Column14: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'Z_Number'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 88
end
object Tv2Column1: TcxGridDBColumn
Caption = #26681#25968
DataBinding.FieldName = 'YarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv2Column2: TcxGridDBColumn
Caption = #24490#29615#26681#25968
DataBinding.FieldName = 'CycleYarnQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv2Column11: TcxGridDBColumn
Caption = #25439#32791
DataBinding.FieldName = 'Y_Loss'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv3BatchNO: TcxGridDBColumn
Caption = #32433#32447#25209#21495
DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv3BatchNOPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv2Column8: TcxGridDBColumn
Caption = #30334#31859#32463#38271#29992#37327'KG'
DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 151
end
object Tv2Column12: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel3: TcxGridLevel
GridView = Tv3
end
end
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_TatPlan.ADOLink Connection = DataLink_TatPlan.ADOLink
@ -499,4 +649,15 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
Left = 776 Left = 776
Top = 389 Top = 389
end end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 320
Top = 550
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 416
Top = 544
end
end end

69
E01梭织生产计划/U_TatPlanMachInput.pas
View File

@ -69,6 +69,24 @@ type
PMType: TcxComboBox; PMType: TcxComboBox;
WB_Code: TcxButtonEdit; WB_Code: TcxButtonEdit;
ToolButton2: TToolButton; ToolButton2: TToolButton;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
Tv2Column7: TcxGridDBColumn;
v2Column10: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
Tv2Column13: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column14: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column11: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
Tv3BatchNO: TcxGridDBColumn;
CDS_3: TClientDataSet;
DS_3: TDataSource;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
@ -77,12 +95,15 @@ type
procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure PMTypePropertiesChange(Sender: TObject); procedure PMTypePropertiesChange(Sender: TObject);
procedure Tv3BatchNOPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private private
canshu1, YCP, XCP: string; canshu1, YCP, XCP: string;
Fint, CXS: Integer; Fint, CXS: Integer;
procedure InitData(); procedure InitData();
function SaveData(): Boolean; function SaveData(): Boolean;
function CheckData(): Boolean; function CheckData(): Boolean;
procedure InitClothYarn(MC_Code: string);
{ Private declarations } { Private declarations }
public public
FPMID, FCYCode, FCPID, FCPNO, FCPName, FMCNo, FMCType: string; FPMID, FCYCode, FCPID, FCPNO, FCPName, FMCNo, FMCType: string;
@ -97,7 +118,7 @@ var
implementation implementation
uses uses
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_TatPlanSel, U_WBSpecSel; U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_TatPlanSel, U_WBSpecSel,U_YarnStkSel;
{$R *.dfm} {$R *.dfm}
@ -157,11 +178,29 @@ begin
end; end;
procedure TfrmTatPlanMachInput.InitClothYarn(MC_Code: string);
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.*,MainId=cast('''' as varchar(30)),SubId=cast('''' as varchar(30)) from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID');
sql.Add(' where A.YRType=''γ˿'' and B.C_Code=''' + Trim(MC_Code) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_3);
SInitCDSData(ADOQueryTemp, CDS_3);
ClearCDSColumn(CDS_3, ['YRId', 'SubId', 'MainId']);
//
end;
procedure TfrmTatPlanMachInput.FormShow(Sender: TObject); procedure TfrmTatPlanMachInput.FormShow(Sender: TObject);
begin begin
readCxGrid(trim(self.Caption) + 'Tv1', Tv1, '任务新增'); readCxGrid(trim(self.Caption) + 'Tv1', Tv1, '任务新增');
readCxGrid(trim(self.Caption) + 'Tv2', Tv2, '任务新增'); readCxGrid(trim(self.Caption) + 'Tv2', Tv2, '任务新增');
InitData(); InitData();
InitClothYarn(C_Code.Text);
end; end;
procedure TfrmTatPlanMachInput.TBCloseClick(Sender: TObject); procedure TfrmTatPlanMachInput.TBCloseClick(Sender: TObject);
@ -310,6 +349,34 @@ begin
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '任务新增'); WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '任务新增');
end; end;
procedure TfrmTatPlanMachInput.Tv3BatchNOPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmYarnStkSel := TfrmYarnStkSel.Create(Application);
with frmYarnStkSel do
begin
FstkName := 'É´Ïß';
if ShowModal = 1 then
begin
frmYarnStkSel.CDS_Main.DisableControls;
with Self.CDS_3 do
begin
edit;
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
end;
frmYarnStkSel.CDS_Main.EnableControls;
end;
end;
finally
frmYarnStkSel.Free;
end;
end;
procedure TfrmTatPlanMachInput.WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmTatPlanMachInput.WB_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try

3
E01梭织生产计划/U_TatPlanPSYLLIST.dfm
View File

@ -131,8 +131,6 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitLeft = -1
ExplicitHeight = 385
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -242,7 +240,6 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitLeft = -1
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

522
E01梭织生产计划/U_YarnStkSel.dfm Normal file
View File

@ -0,0 +1,522 @@
inherited frmYarnStkSel: TfrmYarnStkSel
Left = 105
Top = 131
Caption = #32433#32447#24211#23384#36873#25321#21015#34920
ClientHeight = 488
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter
OnClose = FormClose
ExplicitWidth = 1556
ExplicitHeight = 527
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
Images = DataLink_TatPlan.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
Visible = False
OnClick = TBFindClick
end
object ToolButton1: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #30830#23450
ImageIndex = 12
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 276
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1540
Height = 44
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 27
object Label3: TLabel
Left = 257
Top = 10
Width = 32
Height = 21
Caption = #21697#21517
end
object Label4: TLabel
Left = 35
Top = 10
Width = 64
Height = 21
Caption = #26469#33258#21333#20301
end
object Label8: TLabel
Left = 447
Top = 10
Width = 32
Height = 21
Caption = #35268#26684
end
object Label2: TLabel
Left = 637
Top = 10
Width = 42
Height = 21
Caption = #25209' '#21495
end
object Label1: TLabel
Left = 837
Top = 10
Width = 32
Height = 21
Caption = #32534#21495
end
object Label5: TLabel
Left = 1027
Top = 10
Width = 48
Height = 21
Caption = #28504#36890#21495
end
object Y_Name: TEdit
Tag = 2
Left = 293
Top = 6
Width = 150
Height = 29
TabOrder = 0
OnChange = TBFindClick
end
object FromCoName: TEdit
Tag = 2
Left = 103
Top = 6
Width = 150
Height = 29
TabOrder = 1
OnChange = FromCoNameChange
end
object Y_Spec: TEdit
Tag = 2
Left = 483
Top = 6
Width = 150
Height = 29
TabOrder = 2
OnChange = TBFindClick
end
object BatchNo: TEdit
Tag = 2
Left = 683
Top = 6
Width = 150
Height = 29
TabOrder = 3
OnChange = FromCoNameChange
end
object Y_Code: TEdit
Tag = 2
Left = 873
Top = 6
Width = 150
Height = 29
TabOrder = 4
OnChange = FromCoNameChange
end
object Y_ColorNo: TEdit
Tag = 2
Left = 1081
Top = 4
Width = 150
Height = 29
TabOrder = 5
OnChange = FromCoNameChange
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 74
Width = 1540
Height = 414
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 68
ExplicitHeight = 417
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
Column = v2Column6
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v1Column17: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 42
end
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
object Tv1Column12: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column3: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Column2: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object Tv1Column13: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Y_Type'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column4: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'Brand'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 106
end
object Tv1Column4: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'Y_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 86
end
object Tv1Column6: TcxGridDBColumn
Caption = #29702#35770'D'#25968
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object Tv1Column14: TcxGridDBColumn
Caption = #23454#27979'D'#25968
DataBinding.FieldName = 'TestDenier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column9: TcxGridDBColumn
Caption = #28504#36890#21495
DataBinding.FieldName = 'Y_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column10: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column11: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column1: TcxGridDBColumn
Caption = #31665'/'#20214
DataBinding.FieldName = 'StkPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'stkqty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object Tv1Column8: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Left = 297
Top = 170
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Left = 225
Top = 211
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TatPlan.ADOLink
Parameters = <>
Left = 544
Top = 136
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 672
Top = 154
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TatPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 464
Top = 146
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 576
Top = 304
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 512
Top = 304
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 632
Top = 240
end
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 392
Top = 312
end
object PopupMenu1: TPopupMenu
Left = 328
Top = 272
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
end

226
E01梭织生产计划/U_YarnStkSel.pas Normal file
View File

@ -0,0 +1,226 @@
unit U_YarnStkSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseHelp, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, cxContainer, dxSkinsCore, dxSkinsDefaultPainters;
type
TfrmYarnStkSel = class(TfrmBaseHelp)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
CDS_Main: TClientDataSet;
CDS_HZ: TClientDataSet;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ToolButton1: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column17: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label3: TLabel;
Label4: TLabel;
Label8: TLabel;
Label2: TLabel;
Y_Name: TEdit;
FromCoName: TEdit;
Y_Spec: TEdit;
BatchNo: TEdit;
v1Column6: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Y_Code: TEdit;
Label1: TLabel;
Tv1Column9: TcxGridDBColumn;
Label5: TLabel;
Y_ColorNo: TEdit;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure MPRTCodeNameChange(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure SXBatchNOChange(Sender: TObject);
procedure FromCoNameChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton2Click(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FstkName, FFY_Code: string;
{ Public declarations }
end;
var
frmYarnStkSel: TfrmYarnStkSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmYarnStkSel.FormDestroy(Sender: TObject);
begin
inherited;
frmYarnStkSel := nil;
end;
procedure TfrmYarnStkSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmYarnStkSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from BS_Yarn_IO A where A.IOFlag=''入库'' and isnull(STkQty,0)>0 ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
if trim(FFY_Code) <> '' then
sql.Add(' and isnull(Y_Code,'''')=''' + Trim(FFY_Code) + '''');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmYarnStkSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmYarnStkSel.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmYarnStkSel.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmYarnStkSel.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption), Tv1, '机物料仓库');
InitGrid();
end;
procedure TfrmYarnStkSel.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
end;
end;
procedure TfrmYarnStkSel.MPRTCodeNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmYarnStkSel.N1Click(Sender: TObject);
begin
SelOKNo(CDS_Main, True);
end;
procedure TfrmYarnStkSel.N2Click(Sender: TObject);
begin
SelOKNo(CDS_Main, False);
end;
procedure TfrmYarnStkSel.SXBatchNOChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmYarnStkSel.FromCoNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmYarnStkSel.ToolButton1Click(Sender: TObject);
begin
if CDS_Main.IsEmpty then
Exit;
if CDS_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
ModalResult := 1;
end;
procedure TfrmYarnStkSel.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption), Tv1, '机物料仓库');
end;
procedure TfrmYarnStkSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
ModalResult := 1;
end;
end.

15
E02梭织经轴仓库/U_GKInput.dfm
View File

@ -25,7 +25,7 @@ inherited frmGKInput: TfrmGKInput
ButtonWidth = 59 ButtonWidth = 59
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clWhite Color = clWhite
Images = DataLink_BaseInfo.cxImageList_bar Images = BaseDataLink.cxImageList_bar
List = True List = True
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
@ -61,7 +61,8 @@ inherited frmGKInput: TfrmGKInput
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 36 ExplicitTop = 27
ExplicitHeight = 522
object Label2: TLabel object Label2: TLabel
Left = 48 Left = 48
Top = 73 Top = 73
@ -194,12 +195,12 @@ inherited frmGKInput: TfrmGKInput
end end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink Connection = DataLink_WarpBeamStk.ADOLink
Left = 704 Left = 704
Top = 219 Top = 219
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_BaseInfo.ADOLink Connection = DataLink_WarpBeamStk.ADOLink
Left = 706 Left = 706
Top = 264 Top = 264
end end
@ -214,20 +215,20 @@ inherited frmGKInput: TfrmGKInput
DesignInfo = 5767938 DesignInfo = 5767938
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_BaseInfo.ADOLink Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 747 Left = 747
Top = 173 Top = 173
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink Connection = DataLink_WarpBeamStk.ADOLink
Parameters = <> Parameters = <>
Left = 684 Left = 684
Top = 101 Top = 101
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_BaseInfo.ADOLink Connection = DataLink_WarpBeamStk.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 692 Left = 692

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

@ -795,9 +795,9 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
object Label41: TLabel object Label41: TLabel
Left = 12 Left = 12
Top = 426 Top = 426
Width = 64 Width = 80
Height = 21 Height = 21
Caption = #36793#31359#20837#27861 Caption = #36793#32433#24635#26681#25968
end end
object Label12: TLabel object Label12: TLabel
Left = 12 Left = 12
@ -873,12 +873,117 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Caption = #25490#21333#26085#26399 Caption = #25490#21333#26085#26399
end end
object Label40: TLabel object Label40: TLabel
Left = 12 Left = 9
Top = 461 Top = 499
Width = 96 Width = 96
Height = 21 Height = 21
Caption = #35746#21333#32463#32433#38271#24230 Caption = #35746#21333#32463#32433#38271#24230
end end
object Label42: TLabel
Left = 236
Top = 461
Width = 112
Height = 21
Caption = #36793#32433#21333#36793#31576#40831#25968
end
object Label43: TLabel
Left = 12
Top = 464
Width = 64
Height = 21
Caption = #36793#31359#20837#27861
end
object Label44: TLabel
Left = 191
Top = 347
Width = 12
Height = 13
Caption = #26681
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label45: TLabel
Left = 191
Top = 467
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label46: TLabel
Left = 427
Top = 467
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label48: TLabel
Left = 191
Top = 387
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label49: TLabel
Left = 427
Top = 347
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label50: TLabel
Left = 427
Top = 307
Width = 46
Height = 13
Caption = #40831'/2'#33521#23544
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label51: TLabel
Left = 427
Top = 387
Width = 6
Height = 16
Caption = #8216#8217
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object WBCNO: TcxTextEdit object WBCNO: TcxTextEdit
Tag = 1 Tag = 1
Left = 106 Left = 106
@ -927,6 +1032,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Height = 240 Height = 240
Align = alBottom Align = alBottom
TabOrder = 4 TabOrder = 4
ExplicitLeft = -1
object TV3: TcxGridDBTableView object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -1110,6 +1216,20 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 90 Width = 90
end end
object TV3Supplier: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object TV3IOTime: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn6: TcxGridDBColumn object cxGridDBColumn6: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
@ -1169,7 +1289,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 378 Top = 378
ParentColor = True ParentColor = True
TabOrder = 8 TabOrder = 8
Width = 120 Width = 83
end end
object WB_ReedNo: TcxTextEdit object WB_ReedNo: TcxTextEdit
Tag = 1 Tag = 1
@ -1178,7 +1298,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
ParentColor = True ParentColor = True
Properties.ReadOnly = True Properties.ReadOnly = True
TabOrder = 9 TabOrder = 9
Width = 120 Width = 83
end end
object GKBH: TcxButtonEdit object GKBH: TcxButtonEdit
Tag = 1 Tag = 1
@ -1199,7 +1319,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 338 Top = 338
ParentColor = True ParentColor = True
TabOrder = 11 TabOrder = 11
Width = 120 Width = 79
end end
object DCRQTY: TcxTextEdit object DCRQTY: TcxTextEdit
Tag = 1 Tag = 1
@ -1207,7 +1327,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 338 Top = 338
ParentColor = True ParentColor = True
TabOrder = 12 TabOrder = 12
Width = 120 Width = 83
end end
object C_KCQTY: TcxTextEdit object C_KCQTY: TcxTextEdit
Tag = 1 Tag = 1
@ -1215,7 +1335,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 379 Top = 379
ParentColor = True ParentColor = True
TabOrder = 13 TabOrder = 13
Width = 120 Width = 79
end end
object WB_ReedNote: TcxTextEdit object WB_ReedNote: TcxTextEdit
Tag = 1 Tag = 1
@ -1223,7 +1343,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Top = 420 Top = 420
ParentColor = True ParentColor = True
TabOrder = 14 TabOrder = 14
Width = 352 Width = 315
end end
object F_MAXKESHU: TcxTextEdit object F_MAXKESHU: TcxTextEdit
Tag = 2 Tag = 2
@ -1291,12 +1411,28 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object ordqty: TcxTextEdit object ordqty: TcxTextEdit
Tag = 1 Tag = 1
Left = 106 Left = 111
Top = 455 Top = 493
ParentColor = True ParentColor = True
TabOrder = 22 TabOrder = 22
Width = 120 Width = 120
end end
object WB_YarnKCQty: TcxTextEdit
Tag = 1
Left = 354
Top = 458
ParentColor = True
TabOrder = 23
Width = 67
end
object BCRFQty: TcxTextEdit
Tag = 1
Left = 106
Top = 458
ParentColor = True
TabOrder = 24
Width = 79
end
end end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

18
E02梭织经轴仓库/U_TatWBCardInPut.pas
View File

@ -166,6 +166,19 @@ type
TV3BatchNO: TcxGridDBColumn; TV3BatchNO: TcxGridDBColumn;
TV3dbNumber: TcxGridDBColumn; TV3dbNumber: TcxGridDBColumn;
TV3Column2: TcxGridDBColumn; TV3Column2: TcxGridDBColumn;
Label42: TLabel;
WB_YarnKCQty: TcxTextEdit;
Label43: TLabel;
BCRFQty: TcxTextEdit;
Label44: TLabel;
Label45: TLabel;
Label46: TLabel;
Label48: TLabel;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
TV3Supplier: TcxGridDBColumn;
TV3IOTime: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
@ -412,6 +425,9 @@ begin
Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value; Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value;
Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString); Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString);
Self.WB_YarnKCQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnKCQty').AsString);
Self.BCRFQty.Text := frmWBSpecSel.CDS_1.fieldbyname('BCRFQty').value;
Self.InitCard3(); Self.InitCard3();
end; end;
end; end;
@ -1015,6 +1031,8 @@ begin
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value; FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
FieldByName('singleWeight').Value := frmYarnStkSel.CDS_Main.fieldbyname('singleWeight').Value; FieldByName('singleWeight').Value := frmYarnStkSel.CDS_Main.fieldbyname('singleWeight').Value;
FieldByName('dbNumber').Value := frmYarnStkSel.CDS_Main.fieldbyname('dbNumber').Value; FieldByName('dbNumber').Value := frmYarnStkSel.CDS_Main.fieldbyname('dbNumber').Value;
FieldByName('Supplier').Value := frmYarnStkSel.CDS_Main.fieldbyname('Supplier').Value;
FieldByName('IOTime').Value := frmYarnStkSel.CDS_Main.fieldbyname('IOTime').Value;
Post; Post;
end; end;
end; end;

146
E02梭织经轴仓库/U_TatWBCardInPut2.dfm
View File

@ -9,7 +9,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -631 ExplicitTop = -236
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 811 ExplicitHeight = 811
PixelsPerInch = 96 PixelsPerInch = 96
@ -715,6 +715,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitLeft = -4
object Label15: TLabel object Label15: TLabel
Left = 237 Left = 237
Top = 18 Top = 18
@ -865,9 +866,9 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
object Label41: TLabel object Label41: TLabel
Left = 7 Left = 7
Top = 482 Top = 482
Width = 64 Width = 80
Height = 21 Height = 21
Caption = #36793#31359#20837#27861 Caption = #36793#32433#24635#26681#25968
end end
object Label42: TLabel object Label42: TLabel
Left = 237 Left = 237
@ -878,7 +879,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
end end
object Label43: TLabel object Label43: TLabel
Left = 237 Left = 237
Top = 529 Top = 572
Width = 96 Width = 96
Height = 21 Height = 21
Caption = #35745#21010#31232#36724#20010#25968 Caption = #35745#21010#31232#36724#20010#25968
@ -891,7 +892,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
end end
object Label44: TLabel object Label44: TLabel
Left = 7 Left = 7
Top = 528 Top = 571
Width = 96 Width = 96
Height = 21 Height = 21
Caption = #35745#21010#31232#36724#32463#38271 Caption = #35745#21010#31232#36724#32463#38271
@ -902,6 +903,111 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
end end
object Label45: TLabel
Left = 12
Top = 526
Width = 64
Height = 21
Caption = #36793#31359#20837#27861
end
object Label46: TLabel
Left = 191
Top = 529
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label48: TLabel
Left = 236
Top = 523
Width = 112
Height = 21
Caption = #36793#32433#21333#36793#31576#40831#25968
end
object Label49: TLabel
Left = 427
Top = 529
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label50: TLabel
Left = 427
Top = 401
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label51: TLabel
Left = 191
Top = 443
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label52: TLabel
Left = 191
Top = 401
Width = 12
Height = 13
Caption = #26681
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label53: TLabel
Left = 427
Top = 361
Width = 46
Height = 13
Caption = #40831'/2'#33521#23544
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label54: TLabel
Left = 427
Top = 443
Width = 6
Height = 19
Caption = #8216#8217
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object TWPId: TcxTextEdit object TWPId: TcxTextEdit
Tag = 1 Tag = 1
Left = 106 Left = 106
@ -957,7 +1063,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Top = 434 Top = 434
ParentColor = True ParentColor = True
TabOrder = 5 TabOrder = 5
Width = 120 Width = 76
end end
object Z_FENJIAO: TcxTextEdit object Z_FENJIAO: TcxTextEdit
Tag = 1 Tag = 1
@ -1013,7 +1119,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
ParentColor = True ParentColor = True
Properties.ReadOnly = True Properties.ReadOnly = True
TabOrder = 10 TabOrder = 10
Width = 120 Width = 76
end end
object GKBH: TcxButtonEdit object GKBH: TcxButtonEdit
Tag = 1 Tag = 1
@ -1083,7 +1189,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Top = 392 Top = 392
ParentColor = True ParentColor = True
TabOrder = 18 TabOrder = 18
Width = 120 Width = 79
end end
object DCRQTY: TcxTextEdit object DCRQTY: TcxTextEdit
Tag = 1 Tag = 1
@ -1091,7 +1197,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Top = 392 Top = 392
ParentColor = True ParentColor = True
TabOrder = 19 TabOrder = 19
Width = 120 Width = 76
end end
object C_KCQTY: TcxTextEdit object C_KCQTY: TcxTextEdit
Tag = 1 Tag = 1
@ -1099,7 +1205,7 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
Top = 434 Top = 434
ParentColor = True ParentColor = True
TabOrder = 20 TabOrder = 20
Width = 120 Width = 79
end end
object WB_ReedNote: TcxTextEdit object WB_ReedNote: TcxTextEdit
Tag = 1 Tag = 1
@ -1119,18 +1225,34 @@ inherited frmTatWBCardInPut2: TfrmTatWBCardInPut2
end end
object XZ_GS: TcxTextEdit object XZ_GS: TcxTextEdit
Left = 345 Left = 345
Top = 522 Top = 565
ParentColor = True ParentColor = True
TabOrder = 23 TabOrder = 23
Width = 120 Width = 120
end end
object XZ_YarnQty: TcxTextEdit object XZ_YarnQty: TcxTextEdit
Left = 106 Left = 106
Top = 522 Top = 565
ParentColor = True ParentColor = True
TabOrder = 24 TabOrder = 24
Width = 120 Width = 120
end end
object BCRFQty: TcxTextEdit
Tag = 1
Left = 106
Top = 520
ParentColor = True
TabOrder = 25
Width = 79
end
object WB_YarnKCQty: TcxTextEdit
Tag = 1
Left = 354
Top = 520
ParentColor = True
TabOrder = 26
Width = 67
end
end end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

15
E02梭织经轴仓库/U_TatWBCardInPut2.pas
View File

@ -152,6 +152,17 @@ type
XZ_GS: TcxTextEdit; XZ_GS: TcxTextEdit;
Label44: TLabel; Label44: TLabel;
XZ_YarnQty: TcxTextEdit; XZ_YarnQty: TcxTextEdit;
Label45: TLabel;
BCRFQty: TcxTextEdit;
Label46: TLabel;
Label48: TLabel;
WB_YarnKCQty: TcxTextEdit;
Label49: TLabel;
Label50: TLabel;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
@ -848,7 +859,9 @@ begin
sql.Add(' set PRTer=' + quotedstr(DName)); sql.Add(' set PRTer=' + quotedstr(DName));
sql.Add(', PRTCount=PRTCount+1'); sql.Add(', PRTCount=PRTCount+1');
sql.Add(', PRTDate=getdate()'); sql.Add(', PRTDate=getdate()');
sql.Add(' where WBCID in (' + WSql + ')'); sql.Add(' where WBCID in (' + quotedstr(WSql) + ')');
// showMessage(sql.Text);
ExecSQL; ExecSQL;
end; end;
end; end;

193
E02梭织经轴仓库/U_TatWBPlanInPut.dfm
View File

@ -8,6 +8,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
ExplicitLeft = -102
ExplicitWidth = 1445 ExplicitWidth = 1445
ExplicitHeight = 802 ExplicitHeight = 802
PixelsPerInch = 96 PixelsPerInch = 96
@ -61,16 +62,16 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
end end
object Panel2: TPanel [1] object Panel2: TPanel [1]
Left = 0 Left = 0
Top = 433 Top = 441
Width = 1429 Width = 1429
Height = 330 Height = 322
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 1 Left = 1
Top = 42 Top = 42
Width = 1427 Width = 1427
Height = 287 Height = 279
Align = alClient Align = alClient
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -85,7 +86,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
ClientRectBottom = 287 ClientRectBottom = 279
ClientRectRight = 1427 ClientRectRight = 1427
ClientRectTop = 0 ClientRectTop = 0
end end
@ -166,10 +167,10 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Left = 1 Left = 1
Top = 42 Top = 42
Width = 1427 Width = 1427
Height = 287 Height = 279
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitLeft = 17 ExplicitLeft = 2
ExplicitTop = 47 ExplicitTop = 47
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -349,6 +350,20 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 95 Width = 95
end end
object Tv1Supplier: TcxGridDBColumn
Caption = #20379#24212#21830
DataBinding.FieldName = 'Supplier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1IOTime: TcxGridDBColumn
Caption = #32433#32447#20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 120
end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
@ -366,7 +381,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1429 Width = 1429
Height = 395 Height = 403
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -380,6 +395,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
OnDblClick = gynoDblClick OnDblClick = gynoDblClick
ExplicitTop = 34
object Label3: TLabel object Label3: TLabel
Left = 756 Left = 756
Top = 14 Top = 14
@ -593,7 +609,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Top = 226 Top = 226
Width = 112 Width = 112
Height = 21 Height = 21
Caption = #32433#39550#25346#32433#39063#25968#65306 Caption = #32433#26550#25346#32433#39063#25968#65306
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -16 Font.Height = -16
@ -619,7 +635,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Top = 262 Top = 262
Width = 112 Width = 112
Height = 21 Height = 21
Caption = #32433#39550#25346#32433#39063#25968#65306 Caption = #32433#26550#25346#32433#39063#25968#65306
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
Font.Height = -16 Font.Height = -16
@ -689,9 +705,9 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
object Label30: TLabel object Label30: TLabel
Left = 521 Left = 521
Top = 329 Top = 329
Width = 80 Width = 96
Height = 21 Height = 21
Caption = #36793#31359#20837#27861#65306 Caption = #36793#32433#24635#26681#25968#65306
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -790,6 +806,123 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
end end
object Label33: TLabel
Left = -2
Top = 368
Width = 80
Height = 21
Caption = #36793#31359#20837#27861#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label34: TLabel
Left = 277
Top = 362
Width = 128
Height = 21
Caption = #36793#32433#21333#36793#31576#40831#25968#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label35: TLabel
Left = 171
Top = 370
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label37: TLabel
Left = 469
Top = 298
Width = 46
Height = 13
Caption = #40831'/2'#33521#23544
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label38: TLabel
Left = 887
Top = 298
Width = 6
Height = 16
Caption = #8216#8217
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label39: TLabel
Left = 467
Top = 333
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label40: TLabel
Left = 171
Top = 333
Width = 12
Height = 13
Caption = #26681
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label41: TLabel
Left = 711
Top = 299
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label42: TLabel
Left = 487
Top = 374
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object C_NAME: TEdit object C_NAME: TEdit
Left = 807 Left = 807
Top = 8 Top = 8
@ -946,7 +1079,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
object WB_ReedNo: TEdit object WB_ReedNo: TEdit
Left = 387 Left = 387
Top = 291 Top = 291
Width = 120 Width = 78
Height = 27 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1000,7 +1133,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Style.Font.Style = [] Style.Font.Style = []
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 13 TabOrder = 13
Width = 120 Width = 78
end end
object WB_Width: TcxTextEdit object WB_Width: TcxTextEdit
Left = 807 Left = 807
@ -1014,7 +1147,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Style.Font.Style = [] Style.Font.Style = []
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 14 TabOrder = 14
Width = 120 Width = 74
end end
object WB_ReedNote: TcxTextEdit object WB_ReedNote: TcxTextEdit
Left = 627 Left = 627
@ -1042,7 +1175,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Style.Font.Style = [] Style.Font.Style = []
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 16 TabOrder = 16
Width = 120 Width = 61
end end
object DCRQTY: TcxTextEdit object DCRQTY: TcxTextEdit
Left = 387 Left = 387
@ -1056,7 +1189,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
Style.Font.Style = [] Style.Font.Style = []
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 17 TabOrder = 17
Width = 120 Width = 78
end end
object Z_ZHOUSHU1: TEdit object Z_ZHOUSHU1: TEdit
Left = 387 Left = 387
@ -1220,6 +1353,34 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut
OnDblClick = gynoDblClick OnDblClick = gynoDblClick
OnKeyPress = ConNoKeyPress OnKeyPress = ConNoKeyPress
end end
object BCRFQty: TcxTextEdit
Left = 104
Top = 364
ParentColor = True
ParentFont = False
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 28
Width = 61
end
object WB_YarnKCQty: TcxTextEdit
Left = 411
Top = 362
ParentColor = True
ParentFont = False
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 29
Width = 70
end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Left = 969 Left = 969

17
E02梭织经轴仓库/U_TatWBPlanInPut.pas
View File

@ -114,6 +114,19 @@ type
Label23: TLabel; Label23: TLabel;
Label24: TLabel; Label24: TLabel;
Tv1dbNumber: TcxGridDBColumn; Tv1dbNumber: TcxGridDBColumn;
Label33: TLabel;
Label34: TLabel;
BCRFQty: TcxTextEdit;
WB_YarnKCQty: TcxTextEdit;
Label35: TLabel;
Label37: TLabel;
Label38: TLabel;
Label39: TLabel;
Label40: TLabel;
Label41: TLabel;
Label42: TLabel;
Tv1Supplier: TcxGridDBColumn;
Tv1IOTime: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -639,6 +652,8 @@ begin
FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value; FieldByName('BatchNo').Value := frmYarnStkSel.CDS_Main.fieldbyname('BatchNo').Value;
FieldByName('TZQTY').Value := frmYarnStkSel.CDS_Main.fieldbyname('singleWeight').Value; FieldByName('TZQTY').Value := frmYarnStkSel.CDS_Main.fieldbyname('singleWeight').Value;
FieldByName('dbNumber').Value := frmYarnStkSel.CDS_Main.fieldbyname('dbNumber').Value; FieldByName('dbNumber').Value := frmYarnStkSel.CDS_Main.fieldbyname('dbNumber').Value;
FieldByName('IoTime').Value := frmYarnStkSel.CDS_Main.fieldbyname('IoTime').Value;
FieldByName('Supplier').Value := frmYarnStkSel.CDS_Main.fieldbyname('Supplier').Value;
Post; Post;
end; end;
end; end;
@ -681,6 +696,8 @@ begin
Self.BSQTY.Text := Trim(CDS_1.fieldbyname('BSQTY').AsString); Self.BSQTY.Text := Trim(CDS_1.fieldbyname('BSQTY').AsString);
Self.DCRQTY.Text := Trim(CDS_1.fieldbyname('DCRQTY').AsString); Self.DCRQTY.Text := Trim(CDS_1.fieldbyname('DCRQTY').AsString);
Self.WB_YarnKCQty.Text := Trim(CDS_1.fieldbyname('WB_YarnKCQty').AsString);
Self.BCRFQty.Text := Trim(CDS_1.fieldbyname('BCRFQty').AsString);
end; end;
end; end;
finally finally

228
E02梭织经轴仓库/U_WBSpecInPut.dfm
View File

@ -15,9 +15,9 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
TextHeight = 13 TextHeight = 13
object cxGrid1: TcxGrid [0] object cxGrid1: TcxGrid [0]
Left = 0 Left = 0
Top = 439 Top = 471
Width = 1174 Width = 1174
Height = 406 Height = 374
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
@ -275,7 +275,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1174 Width = 1174
Height = 379 Height = 411
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -283,7 +283,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Ctl3D = False Ctl3D = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 2 TabOrder = 2
ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 11 Left = 11
Top = 11 Top = 11
@ -326,9 +325,9 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object Label2: TLabel object Label2: TLabel
Left = 560 Left = 560
Top = 312 Top = 312
Width = 64 Width = 80
Height = 21 Height = 21
Caption = #36793#31359#20837#27861 Caption = #36793#32433#24635#26681#25968
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -16 Font.Height = -16
@ -337,20 +336,20 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 6 Left = 11
Top = 315 Top = 309
Width = 48 Width = 48
Height = 21 Height = 21
Caption = #36793#32433#25968 Caption = #36793#32433#25968
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clRed
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
end end
object Label10: TLabel object Label10: TLabel
Left = 803 Left = 804
Top = 274 Top = 274
Width = 32 Width = 32
Height = 21 Height = 21
@ -369,7 +368,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21 Height = 21
Caption = #31576#40831#25968 Caption = #31576#40831#25968
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clRed
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
@ -416,7 +415,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Height = 21 Height = 21
Caption = #31576#24133 Caption = #31576#24133
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clRed
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Font.Style = [] Font.Style = []
@ -436,8 +435,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
ParentFont = False ParentFont = False
end end
object Label29: TLabel object Label29: TLabel
Left = 20 Left = 3
Top = 347 Top = 383
Width = 454 Width = 454
Height = 21 Height = 21
Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#20840#24133#26681#25968' * '#32433#32447#31995#25968' / '#25903#25968#65288'S'#65289 Caption = #27880' '#32463#32433#65306#30334#31859#32463#38271#29992#37327'KG ='#20840#24133#26681#25968' * '#32433#32447#31995#25968' / '#25903#25968#65288'S'#65289
@ -448,6 +447,123 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
end end
object Label25: TLabel
Left = 287
Top = 348
Width = 112
Height = 21
Caption = #36793#32433#21333#36793#31576#40831#25968
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label26: TLabel
Left = 6
Top = 348
Width = 64
Height = 21
Caption = #36793#31359#20837#27861
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 228
Top = 354
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object label28: TLabel
Left = 506
Top = 354
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label30: TLabel
Left = 228
Top = 315
Width = 12
Height = 13
Caption = #26681
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label31: TLabel
Left = 511
Top = 277
Width = 24
Height = 13
Caption = #31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label32: TLabel
Left = 761
Top = 278
Width = 6
Height = 16
Caption = #8216#8217
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label33: TLabel
Left = 966
Top = 277
Width = 46
Height = 13
Caption = #40831'/2'#33521#23544
Font.Charset = DEFAULT_CHARSET
Font.Color = clGrayText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object Label34: TLabel
Left = 509
Top = 316
Width = 40
Height = 13
Caption = #26681'/'#31576#40831
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object WB_Code: TcxTextEdit object WB_Code: TcxTextEdit
Tag = 2 Tag = 2
Left = 113 Left = 113
@ -498,7 +614,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end end
object WB_ReedNote: TcxTextEdit object WB_ReedNote: TcxTextEdit
Tag = 2 Tag = 2
Left = 630 Left = 648
Top = 309 Top = 309
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
@ -517,21 +633,6 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Top = 309 Top = 309
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 4
Width = 150
end
object WB_ReedNo: TcxTextEdit
Tag = 2
Left = 873
Top = 270
ParentColor = True
ParentFont = False
Properties.ReadOnly = True Properties.ReadOnly = True
Style.Font.Charset = ANSI_CHARSET Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
@ -539,8 +640,25 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Style.Font.Name = #24494#36719#38597#40657 Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = [] Style.Font.Style = []
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 4
Width = 112
end
object WB_ReedNo: TcxTextEdit
Tag = 2
Left = 874
Top = 274
ParentColor = True
ParentFont = False
Properties.ReadOnly = True
Properties.OnEditValueChanged = WB_ReedNoPropertiesEditValueChanged
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 5 TabOrder = 5
Width = 130 Width = 86
end end
object C_KCQTY: TcxTextEdit object C_KCQTY: TcxTextEdit
Tag = 2 Tag = 2
@ -548,6 +666,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Top = 270 Top = 270
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Properties.ReadOnly = True
Properties.OnEditValueChanged = WB_ReedNoPropertiesEditValueChanged
Style.Font.Charset = ANSI_CHARSET Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -16 Style.Font.Height = -16
@ -555,7 +675,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Style.Font.Style = [] Style.Font.Style = []
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 6 TabOrder = 6
Width = 150 Width = 108
end end
object ISSizing: TcxComboBox object ISSizing: TcxComboBox
Tag = 2 Tag = 2
@ -611,10 +731,11 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
end end
object WB_Width: TcxTextEdit object WB_Width: TcxTextEdit
Tag = 2 Tag = 2
Left = 630 Left = 648
Top = 270 Top = 270
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Properties.ReadOnly = True
Style.Font.Charset = ANSI_CHARSET Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -16 Style.Font.Height = -16
@ -622,7 +743,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Style.Font.Style = [] Style.Font.Style = []
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 10 TabOrder = 10
Width = 150 Width = 105
end end
object cxGroupBox1: TcxGroupBox object cxGroupBox1: TcxGroupBox
Left = 3 Left = 3
@ -915,9 +1036,10 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
object DCRQTY: TcxTextEdit object DCRQTY: TcxTextEdit
Tag = 2 Tag = 2
Left = 397 Left = 397
Top = 305 Top = 309
ParentColor = True ParentColor = True
ParentFont = False ParentFont = False
Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged
Style.Font.Charset = ANSI_CHARSET Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText Style.Font.Color = clWindowText
Style.Font.Height = -16 Style.Font.Height = -16
@ -925,13 +1047,45 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut
Style.Font.Style = [] Style.Font.Style = []
Style.IsFontAssigned = True Style.IsFontAssigned = True
TabOrder = 13 TabOrder = 13
Width = 150 Width = 108
end
object WB_YarnKCQty: TcxTextEdit
Tag = 2
Left = 403
Top = 348
ParentColor = True
ParentFont = False
Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 14
Width = 102
end
object BCRFQty: TcxTextEdit
Tag = 2
Left = 110
Top = 348
ParentColor = True
ParentFont = False
Properties.OnEditValueChanged = BCRFQtyPropertiesEditValueChanged
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -16
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 15
Width = 112
end end
end end
object ToolBar2: TToolBar [3] object ToolBar2: TToolBar [3]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 409 Top = 441
Width = 1174 Width = 1174
Height = 30 Height = 30
AutoSize = True AutoSize = True

147
E02梭织经轴仓库/U_WBSpecInPut.pas
View File

@ -106,6 +106,17 @@ type
DCRQTY: TcxTextEdit; DCRQTY: TcxTextEdit;
Label29: TLabel; Label29: TLabel;
Tv1YarnFactor: TcxGridDBColumn; Tv1YarnFactor: TcxGridDBColumn;
Label25: TLabel;
Label26: TLabel;
WB_YarnKCQty: TcxTextEdit;
BCRFQty: TcxTextEdit;
Label27: TLabel;
label28: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -125,6 +136,9 @@ type
procedure WB_TYPEPropertiesChange(Sender: TObject); procedure WB_TYPEPropertiesChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure BCRFQtyPropertiesEditValueChanged(Sender: TObject);
procedure WB_ReedNoPropertiesEditValueChanged(Sender: TObject);
private private
{ Private declarations } { Private declarations }
function SaveData(): Boolean; function SaveData(): Boolean;
@ -295,6 +309,56 @@ begin
end; end;
end; end;
procedure TfrmWBSpecInPut.BCRFQtyPropertiesEditValueChanged(Sender: TObject);
var
mBCRFQty, mWB_YarnKCQty, mBSQTY: Double; // 改为Double类型
//边穿入法 边纱单边筘齿数
mWB_YarnQty, mDCRQTY, mC_KCQTY: Double;
//总经根数 地穿入法 筘齿数
begin
if BCRFQty.Text <> '' then
begin
mBCRFQty := StrToFloatDef(BCRFQty.Text, 0); // 使用StrToFloatDef更安全
end
else
begin
mBCRFQty := 0;
end;
if WB_YarnKCQty.Text <> '' then // 修正了变量名，应该是WB_YarnKCQty而不是BSQTY
begin
mWB_YarnKCQty := StrToFloatDef(WB_YarnKCQty.Text, 0);
end
else
begin
mWB_YarnKCQty := 0;
end;
// 边纱数
mBSQTY := Round(mBCRFQty * mWB_YarnKCQty * 2);
BSQTY.Text := FloatToStr(mBSQTY);
if WB_YarnQty.Text <> '' then
begin
mWB_YarnQty := StrToFloatDef(WB_YarnQty.Text, 0);
end
else
begin
mWB_YarnQty := 0;
end;
if DCRQTY.Text <> '' then
begin
mDCRQTY := StrToFloatDef(DCRQTY.Text, 0);
end
else
begin
mDCRQTY := 0;
end;
if mDCRQTY <> 0 then
begin
mC_KCQTY := RoundFloat(mWB_YarnKCQty * 2 + (mWB_YarnQty - mBSQTY) / mDCRQTY, 2);
C_KCQTY.Text := FloatToStr(mC_KCQTY);
end;
end;
procedure TfrmWBSpecInPut.btn1Click(Sender: TObject); procedure TfrmWBSpecInPut.btn1Click(Sender: TObject);
begin begin
try try
@ -341,6 +405,8 @@ begin
end; end;
end; end;
procedure TfrmWBSpecInPut.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmWBSpecInPut.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
inherited; inherited;
@ -612,8 +678,6 @@ begin
begin begin
SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString; SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString;
SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString; SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString;
SELF.C_KCQTY.Text := CDS_HZ.FieldByName('GKCS').AsString;
SELF.WB_Width.Text := CDS_HZ.FieldByName('GKwidth').AsString;
end; end;
end; end;
finally finally
@ -873,6 +937,35 @@ begin
// end; // end;
end; end;
procedure TfrmWBSpecInPut.WB_ReedNoPropertiesEditValueChanged(Sender: TObject);
var
mWB_ReedNo,mC_KCQTY, mWB_Width: Double;
// 筘号 筘齿数 筘幅
begin
if WB_ReedNo.Text <> '' then
begin
mWB_ReedNo := StrToFloatDef(WB_ReedNo.Text, 0); // 使用StrToFloatDef更安全
end
else
begin
mWB_ReedNo := 0;
end;
if C_KCQTY.Text <> '' then
begin
mC_KCQTY := StrToFloatDef(C_KCQTY.Text, 0); // 使用StrToFloatDef更安全
end
else
begin
mC_KCQTY := 0;
end;
if mWB_ReedNo <> 0 then
begin
mWB_Width := RoundFloat( mC_KCQTY*2/mWB_ReedNo,1 );
WB_Width.Text := FloatToStr(mWB_Width) ;
end;
end;
procedure TfrmWBSpecInPut.WB_TYPEPropertiesChange(Sender: TObject); procedure TfrmWBSpecInPut.WB_TYPEPropertiesChange(Sender: TObject);
begin begin
if WB_TYPE.Text = 'Õû½¬²¢' then if WB_TYPE.Text = 'Õû½¬²¢' then
@ -894,8 +987,58 @@ begin
end; end;
procedure TfrmWBSpecInPut.WB_YarnQtyPropertiesEditValueChanged(Sender: TObject); procedure TfrmWBSpecInPut.WB_YarnQtyPropertiesEditValueChanged(Sender: TObject);
var
mBCRFQty, mWB_YarnKCQty, mBSQTY: Double; // 改为Double类型
//边穿入法 边纱单边筘齿数
mWB_YarnQty, mDCRQTY, mC_KCQTY: Double;
begin begin
JSJS(); JSJS();
//总经根数 地穿入法
if BCRFQty.Text <> '' then
begin
mBCRFQty := StrToFloatDef(BCRFQty.Text, 0); // 使用StrToFloatDef更安全
end
else
begin
mBCRFQty := 0;
end;
if WB_YarnKCQty.Text <> '' then // 修正了变量名，应该是WB_YarnKCQty而不是BSQTY
begin
mWB_YarnKCQty := StrToFloatDef(WB_YarnKCQty.Text, 0);
end
else
begin
mWB_YarnKCQty := 0;
end;
// 边纱数
mBSQTY := Round(mBCRFQty * mWB_YarnKCQty * 2);
BSQTY.Text := FloatToStr(mBSQTY);
if WB_YarnQty.Text <> '' then
begin
mWB_YarnQty := StrToFloatDef(WB_YarnQty.Text, 0);
end
else
begin
mWB_YarnQty := 0;
end;
if DCRQTY.Text <> '' then
begin
mDCRQTY := StrToFloatDef(DCRQTY.Text, 0);
end
else
begin
mDCRQTY := 0;
end;
if mDCRQTY <> 0 then
begin
mC_KCQTY := RoundFloat(mWB_YarnKCQty * 2 + (mWB_YarnQty - mBSQTY) / mDCRQTY, 2);
C_KCQTY.Text := FloatToStr(mC_KCQTY);
end;
end; end;
end. end.

15
E02梭织经轴仓库/U_YarnStkSel.dfm
View File

@ -10,6 +10,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -672
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 527 ExplicitHeight = 527
PixelsPerInch = 96 PixelsPerInch = 96
@ -83,7 +84,6 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 27
object Label3: TLabel object Label3: TLabel
Left = 257 Left = 257
Top = 10 Top = 10
@ -189,8 +189,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 79 ExplicitTop = 71
ExplicitHeight = 406
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -353,7 +352,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 70
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
@ -385,6 +384,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #32442#27861 Caption = #32442#27861
@ -415,6 +415,7 @@ inherited frmYarnStkSel: TfrmYarnStkSel
DataBinding.FieldName = 'StkPiece' DataBinding.FieldName = 'StkPiece'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70
end end
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Tag = 2 Tag = 2
@ -441,6 +442,12 @@ inherited frmYarnStkSel: TfrmYarnStkSel
Options.Editing = False Options.Editing = False
Width = 71 Width = 71
end end
object Tv1IOTime: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
Width = 80
end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'

1
E02梭织经轴仓库/U_YarnStkSel.pas
View File

@ -73,6 +73,7 @@ type
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
cxImageList_bar: TcxImageList; cxImageList_bar: TcxImageList;
Tv1IOTime: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);

72
E03梭织坯布检验/TatInsp.dproj.local
View File

@ -1,56 +1,56 @@
<?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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm</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.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.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.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.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj</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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.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.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.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.935,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.935,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.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.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm</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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.099,=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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.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.734,=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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>

BIN
E03梭织坯布检验/TatInsp.identcache
View File

Binary file not shown.

4
E03梭织坯布检验/TatInspLogin.dproj.local
View File

@ -21,7 +21,7 @@
<File Path="JDAESExtend.pas"/> <File Path="JDAESExtend.pas"/>
</ProjectSortOrder> </ProjectSortOrder>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj</Transaction>
</Transactions> </Transactions>
</BorlandProject> </BorlandProject>