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

0

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-08-12 13:37:49 +08:00
parent b0ee797f6b
commit b03d300175
90 changed files with 8736 additions and 4281 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
A00通用窗体/U_PictureUpload.dfm
View File

@ -34,18 +34,20 @@ object frmPictureUpload: TfrmPictureUpload
end end
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 30 Top = 76
Width = 496 Width = 496
Height = 419 Height = 373
HorzScrollBar.Visible = False HorzScrollBar.Visible = False
VertScrollBar.Visible = False VertScrollBar.Visible = False
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitTop = 38
ExplicitHeight = 411
object Image1: TImage object Image1: TImage
Left = 0 Left = 0
Top = 0 Top = 0
Width = 492 Width = 492
Height = 415 Height = 369
Cursor = crSizeAll Cursor = crSizeAll
Align = alClient Align = alClient
Center = True Center = True
@ -64,13 +66,13 @@ object frmPictureUpload: TfrmPictureUpload
Left = 0 Left = 0
Top = 0 Top = 0
Width = 496 Width = 496
Height = 30 Height = 76
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 38
ButtonWidth = 95 ButtonWidth = 123
Caption = 'ToolBar1' Caption = 'ToolBar1'
DisabledImages = BaseDataLink.cxImageList_bar DisabledImages = ImageList1
Images = BaseDataLink.cxImageList_bar Images = ImageList1
List = True List = True
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
@ -83,7 +85,7 @@ object frmPictureUpload: TfrmPictureUpload
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBSave: TToolButton object TBSave: TToolButton
Left = 87 Left = 111
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384 Caption = #20445#23384
@ -92,32 +94,33 @@ object frmPictureUpload: TfrmPictureUpload
OnClick = TBSaveClick OnClick = TBSaveClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 150 Left = 190
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22270#29255#21478#23384#20026 Caption = #22270#29255#21478#23384#20026
ImageIndex = 13 ImageIndex = 13
Wrap = True
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 249 Left = 0
Top = 0 Top = 38
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
ImageIndex = 14 ImageIndex = 14
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 312 Left = 79
Top = 0 Top = 38
AutoSize = True AutoSize = True
Caption = #25918#24323 Caption = #25918#24323
ImageIndex = 10 ImageIndex = 10
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 375 Left = 158
Top = 0 Top = 38
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 7 ImageIndex = 7

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

@ -12,22 +12,7 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox, System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations,
Clipbrd, Clipbrd, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
type type
TfrmSalesContract_SXSel = class(TfrmBaseHelp) TfrmSalesContract_SXSel = class(TfrmBaseHelp)
@ -179,7 +164,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
SQL.add('select * from V_HT_SX'); SQL.add('select * from V_HT_SX');
Open; Open;
end; end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1); SCreateCDS(ADOQueryMain, CDS_1);

17
A00通用窗体/U_SalesContract_ZZDSXSel.pas
View File

@ -12,22 +12,7 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox, System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox,
Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, Vcl.Menus, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations,
Clipbrd, Clipbrd, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
type type
TfrmSalesContract_ZZDSXSel = class(TfrmBaseHelp) TfrmSalesContract_ZZDSXSel = class(TfrmBaseHelp)

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

@ -103,7 +103,6 @@ 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 = <>
@ -112,7 +111,6 @@ inherited frmWBSpecSel: TfrmWBSpecSel
item item
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = v1Column17
end end
item item
Kind = skSum Kind = skSum
@ -151,119 +149,62 @@ inherited frmWBSpecSel: TfrmWBSpecSel
Width = 99 Width = 99
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #19978#25490#39063#25968 Caption = #38050#31576#32534#21495
DataBinding.FieldName = 'WB_YarnArr' DataBinding.FieldName = 'GKBH'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 144 Width = 144
end end
object Tv1Column4: TcxGridDBColumn
Caption = #21514#25968
DataBinding.FieldName = 'WB_YarnStripQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 102
end
object Tv1Column2: TcxGridDBColumn
Caption = #38646#22836
DataBinding.FieldName = 'WB_YarnStripRemainder'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 98
end
object Tv1Column9: TcxGridDBColumn
Caption = #32463#36724#38376#24133
DataBinding.FieldName = 'WB_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #29301#32463#31576#21495 Caption = #29301#32463#31576#21495
DataBinding.FieldName = 'WB_ReedNo' DataBinding.FieldName = 'WB_ReedNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 91
end
object Tv1Column4: TcxGridDBColumn
Caption = #31576#24133
DataBinding.FieldName = 'WB_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 102
end
object Tv1Column2: TcxGridDBColumn
Caption = #31576#40831#25968
DataBinding.FieldName = 'C_KCQTY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 98
end
object Tv1Column9: TcxGridDBColumn
Caption = #36793#32433#25968
DataBinding.FieldName = 'BSQTY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object Tv1Column6: TcxGridDBColumn
Caption = #22320#31359#20837#27861
DataBinding.FieldName = 'DCRQTY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end end
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #31576#31359#20837#27861 Caption = #36793#31359#20837#27861
DataBinding.FieldName = 'WB_ReedNote' DataBinding.FieldName = 'WB_ReedNote'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 98
end
object Tv1Column6: TcxGridDBColumn
Caption = #32463#36724#31859#25968
DataBinding.FieldName = 'WB_YarnLen'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column10: TcxGridDBColumn
Caption = #22987#21514#20301#32622
DataBinding.FieldName = 'WB_Arg_SDWZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column17: TcxGridDBColumn
Caption = #22369#26012#24230#25968
DataBinding.FieldName = 'WB_Arg_PXDS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column5: TcxGridDBColumn
Caption = #20301#31227#37327
DataBinding.FieldName = 'WB_Move'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #29301#32463#24352#21147#21442#25968
DataBinding.FieldName = 'WB_Arg_QJZL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column8: TcxGridDBColumn
Caption = #29301#32463#25490#21015
DataBinding.FieldName = 'WB_YarnArrNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column7: TcxGridDBColumn
Caption = #32463#23494#24230
DataBinding.FieldName = 'WB_YarnDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 118
end end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel

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

@ -61,15 +61,8 @@ type
Tv1Column12: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn;
v1Column8: TcxGridDBColumn; v1Column8: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
cxImageList_bar: TcxImageList; cxImageList_bar: TcxImageList;
Tv1Column7: TcxGridDBColumn;
Label2: TLabel; Label2: TLabel;
WB_Name: TEdit; WB_Name: TEdit;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

3
A02基础产品管理/ClothInfo.dpr
View File

@ -53,7 +53,8 @@ uses
JDAESExtend in '..\A00通用方法\AES\JDAESExtend.pas', JDAESExtend in '..\A00通用方法\AES\JDAESExtend.pas',
untAES in '..\A00通用方法\AES\untAES.pas', untAES in '..\A00通用方法\AES\untAES.pas',
U_TatClothInfoInput in 'U_TatClothInfoInput.pas' {frmTatClothInfoInput}, U_TatClothInfoInput in 'U_TatClothInfoInput.pas' {frmTatClothInfoInput},
U_WBSpecInPut2 in 'U_WBSpecInPut2.pas' {frmWBSpecInPut2}; U_WBSpecInPut2 in 'U_WBSpecInPut2.pas' {frmWBSpecInPut2},
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload};
{$R *.res} {$R *.res}

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

@ -208,6 +208,10 @@
<Form>frmWBSpecInPut2</Form> <Form>frmWBSpecInPut2</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\A00通用窗体\U_PictureUpload.pas">
<Form>frmPictureUpload</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>

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

@ -12,31 +12,32 @@
<Transaction>1899-12-30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_ReceivableEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.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.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.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.096,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo_CB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_TatClothInfo.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.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.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.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.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.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>
<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.418,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A02基础产品管理\U_ClothInfoInput.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.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.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.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.155,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\ElAES.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>
<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.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.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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>
@ -46,33 +47,33 @@
<Transaction>1899-12-30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.944,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\U_HttpFun.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.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.272,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.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.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.833,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateTimeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.217,=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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut2.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.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.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.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</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.243,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用方法\AES\untAES.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.187,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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>
@ -109,6 +110,8 @@
<File Path="..\A00通用窗体\U_WBSpecSel.dfm"/> <File Path="..\A00通用窗体\U_WBSpecSel.dfm"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.pas"/> <File Path="..\A00通用窗体\U_YarnInfoSel.pas"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/> <File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_PictureUpload.pas"/>
<File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
<File Path="..\A00通用组件"/> <File Path="..\A00通用组件"/>
<File Path="..\A00通用组件\FrameDateSel.pas"/> <File Path="..\A00通用组件\FrameDateSel.pas"/>
<File Path="..\A00通用组件\FrameDateSel.dfm"/> <File Path="..\A00通用组件\FrameDateSel.dfm"/>

BIN
A02基础产品管理/ClothInfo.identcache
View File

Binary file not shown.

6
A02基础产品管理/SYSTEMSET.ini
View File

@ -1,8 +1,8 @@
[SERVER] [SERVER]
服务器地址=101.132.143.144 服务器地址=150.109.121.232
服务器地址类型=541 服务器地址类型=903
是否自动更新=1 是否自动更新=1
软件名称=星瑞贸易管理软件 软件名称=凯喜雅
登陆标题=sss 登陆标题=sss
[窗口设置] [窗口设置]
字体大小=9 字体大小=9

21
A02基础产品管理/U_ClothType.pas
View File

@ -7,24 +7,9 @@ uses
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
ExtCtrls, DBClient, U_BaseList, cxLookAndFeels, cxLookAndFeelPainters, ExtCtrls, DBClient, U_BaseList, cxLookAndFeels, cxLookAndFeelPainters,
cxTLdxBarBuiltInMenu, dxSkinsDefaultPainters, cxContainer, cxEdit, cxTLdxBarBuiltInMenu, dxSkinsDefaultPainters, cxContainer, cxEdit, dxSkinsCore,
dxSkinsCore, cxFilter, dxScrollbarAnnotations, cxProgressBar, cxFilter, dxScrollbarAnnotations, cxProgressBar, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
type type
TfrmClothType = class(TfrmBaseList) TfrmClothType = class(TfrmBaseList)

37
A02基础产品管理/U_DataLink.pas
View File

@ -5,40 +5,9 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink, System.ImageList, U_BaseDataLink, cxImageList, cxGraphics, cxEdit, cxContainer,
cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm, cxLocalization, dxSkinsForm, cxLocalization, dxCore, dxLayoutLookAndFeels, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxCore, dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
type type
TMyThread = class(TThread) TMyThread = class(TThread)

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

@ -8,7 +8,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -310
ExplicitWidth = 1507 ExplicitWidth = 1507
ExplicitHeight = 786 ExplicitHeight = 786
PixelsPerInch = 96 PixelsPerInch = 96
@ -108,7 +107,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
AutoSize = True AutoSize = True
Caption = #26631#31614#25171#21360 Caption = #26631#31614#25171#21360
ImageIndex = 21 ImageIndex = 21
Visible = False
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object btn1: TToolButton object btn1: TToolButton
@ -170,7 +168,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Height = 672 Height = 672
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
Control = Panel5 Control = Panel5
ExplicitHeight = 673
end end
object Panel1: TPanel [2] object Panel1: TPanel [2]
Left = 0 Left = 0
@ -310,7 +307,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
TabOrder = 7 TabOrder = 7
ExplicitHeight = 673
object cxDBTreeList1: TcxDBTreeList object cxDBTreeList1: TcxDBTreeList
Left = 2 Left = 2
Top = 2 Top = 2
@ -333,7 +329,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
TabOrder = 0 TabOrder = 0
OnDblClick = cxDBTreeList1DblClick OnDblClick = cxDBTreeList1DblClick
ExplicitHeight = 669
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'CTName' DataBinding.FieldName = 'CTName'
Width = 210 Width = 210
@ -355,7 +350,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
BevelOuter = bvLowered BevelOuter = bvLowered
Caption = 'Panel3' Caption = 'Panel3'
TabOrder = 4 TabOrder = 4
ExplicitHeight = 673
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 2 Left = 2
Top = 42 Top = 42
@ -364,7 +358,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitHeight = 262
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -716,22 +709,18 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Height = 367 Height = 367
Align = alBottom Align = alBottom
TabOrder = 2 TabOrder = 2
Properties.ActivePage = cxTabSheet2 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
LookAndFeel.ScrollbarMode = sbmHybrid LookAndFeel.ScrollbarMode = sbmHybrid
LookAndFeel.SkinName = '' LookAndFeel.SkinName = ''
ExplicitTop = 304
ClientRectBottom = 367 ClientRectBottom = 367
ClientRectRight = 1259 ClientRectRight = 1259
ClientRectTop = 28 ClientRectTop = 28
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512 Caption = #32463#19997#32452#21512
ImageIndex = 0 ImageIndex = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -769,7 +758,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 = <>
@ -1134,9 +1122,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object cxTabSheet3: TcxTabSheet object cxTabSheet3: TcxTabSheet
Caption = #26679#21697#22270#29255 Caption = #26679#21697#22270#29255
ImageIndex = 2 ImageIndex = 2
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 0 Left = 0
Top = 0 Top = 0
@ -1160,33 +1145,27 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object cxTabSheet4: TcxTabSheet object cxTabSheet4: TcxTabSheet
Caption = #36215#32508#27861 Caption = #36215#32508#27861
ImageIndex = 3 ImageIndex = 3
ExplicitTop = 0 object cxDBImage2: TcxDBImage
ExplicitWidth = 0
ExplicitHeight = 0
object QZF: TMemo
Tag = 2
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1259 Hint = 'FileName'
Height = 339
Align = alClient Align = alClient
Enabled = False DataBinding.DataField = 'FilesOther'
Font.Charset = GB2312_CHARSET DataBinding.DataSource = DS_ImgHX2
Font.Color = clWindowText Properties.GraphicClassName = 'TdxSmartImage'
Font.Height = -16 Properties.GraphicTransparency = gtTransparent
Font.Name = #23435#20307 Properties.ReadOnly = True
Font.Style = [fsBold] Properties.ShowFocusRect = False
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 Style.BorderStyle = ebsSingle
ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitLeft = -4
Height = 339
Width = 1259
end end
end end
object cxTabSheet5: TcxTabSheet object cxTabSheet5: TcxTabSheet
Caption = #31359#32508#27861 Caption = #31359#32508#27861
ImageIndex = 3 ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object CZF: TMemo object CZF: TMemo
Tag = 2 Tag = 2
Left = 0 Left = 0
@ -1203,14 +1182,29 @@ inherited frmTatClothInfo: TfrmTatClothInfo
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitLeft = 4
end
object cxDBImage1: TcxDBImage
Left = 0
Top = 0
Hint = 'FileName'
Align = alClient
DataBinding.DataField = 'FilesOther'
DataBinding.DataSource = DS_ImgHX
Properties.GraphicClassName = 'TdxSmartImage'
Properties.GraphicTransparency = gtTransparent
Properties.ReadOnly = True
Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle
TabOrder = 1
ExplicitTop = 42
Height = 339
Width = 1259
end end
end end
object cxTabSheet6: TcxTabSheet object cxTabSheet6: 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
@ -1468,4 +1462,26 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Left = 945 Left = 945
Top = 214 Top = 214
end end
object Qry_ImgHX2: TADOQuery
Connection = DataLink_ClothInfo.ADOLink
Parameters = <>
Left = 458
Top = 392
end
object DS_ImgHX2: TDataSource
DataSet = Qry_ImgHX2
Left = 383
Top = 456
end
object Qry_ImgHX: TADOQuery
Connection = DataLink_ClothInfo.ADOLink
Parameters = <>
Left = 1066
Top = 288
end
object DS_ImgHX: TDataSource
DataSet = Qry_ImgHX
Left = 975
Top = 392
end
end end

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

@ -24,23 +24,8 @@ uses
dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles, dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles,
dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes, dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes,
dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, cxCheckBox, dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, cxCheckBox,
dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI, cxImage, cxDBEdit;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
FdDy = record FdDy = record
@ -180,7 +165,6 @@ type
btn1: TToolButton; btn1: TToolButton;
ToolButton4: TToolButton; ToolButton4: TToolButton;
cxTabSheet4: TcxTabSheet; cxTabSheet4: TcxTabSheet;
QZF: TMemo;
cxTabSheet5: TcxTabSheet; cxTabSheet5: TcxTabSheet;
CZF: TMemo; CZF: TMemo;
cxTabSheet6: TcxTabSheet; cxTabSheet6: TcxTabSheet;
@ -214,6 +198,12 @@ type
Tv1Column12: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn;
Tv4Z_Number: TcxGridDBColumn; Tv4Z_Number: TcxGridDBColumn;
TV2Z_Number: TcxGridDBColumn; TV2Z_Number: TcxGridDBColumn;
cxDBImage2: TcxDBImage;
Qry_ImgHX2: TADOQuery;
DS_ImgHX2: TDataSource;
cxDBImage1: TcxDBImage;
Qry_ImgHX: TADOQuery;
DS_ImgHX: TDataSource;
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);
@ -608,6 +598,7 @@ begin
jpg.free; jpg.free;
application.ProcessMessages; application.ProcessMessages;
end; end;
end; end;
procedure TfrmTatClothInfo.TBCopyClick(Sender: TObject); procedure TfrmTatClothInfo.TBCopyClick(Sender: TObject);
@ -1097,7 +1088,35 @@ begin
CZF.Text := Trim(CDS_1.fieldbyname('CZF').AsString); CZF.Text := Trim(CDS_1.fieldbyname('CZF').AsString);
CKF.Text := Trim(CDS_1.fieldbyname('CKF').AsString); CKF.Text := Trim(CDS_1.fieldbyname('CKF').AsString);
QZF.Text := Trim(CDS_1.fieldbyname('QZF').AsString);
if CDS_1.fieldbyname('attname1').AsString <> '' then
begin
with Qry_ImgHX do
begin
close;
sql.Clear;
sql.Add('select * from TP_File A');
sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(CDS_1.fieldbyname('attname1').AsString)));
SQL.Add('AND TFTYPE=''ZC'' ');
// ShowMessage(SQL.Text);
open;
end;
end;
if CDS_1.fieldbyname('attname2').AsString <> '' then
begin
with Qry_ImgHX2 do
begin
close;
sql.Clear;
sql.Add('select * from TP_File A');
sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(CDS_1.fieldbyname('attname2').AsString)));
SQL.Add('AND TFTYPE=''qC'' ');
// ShowMessage(SQL.Text);
open;
end;
end;
// myStream.Free; // myStream.Free;
end; end;

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

File diff suppressed because it is too large Load Diff

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

@ -19,23 +19,8 @@ uses
dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles, dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles,
dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes, dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes,
dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, cxCheckBox, dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, cxCheckBox,
dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI, Vcl.Menus, cxDropDownEdit, cxImage, cxDBEdit;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
Vcl.Menus, cxDropDownEdit;
type type
TfrmTatClothInfoInput = class(TfrmBaseInput) TfrmTatClothInfoInput = class(TfrmBaseInput)
@ -56,7 +41,6 @@ type
DS_2: TDataSource; DS_2: TDataSource;
ADOConnection1: TADOConnection; ADOConnection1: TADOConnection;
ImageList1: TImageList; ImageList1: TImageList;
Label16: TLabel;
Label55: TLabel; Label55: TLabel;
cxPageControl3: TcxPageControl; cxPageControl3: TcxPageControl;
cxTabSheet1: TcxTabSheet; cxTabSheet1: TcxTabSheet;
@ -68,7 +52,6 @@ type
TV1: TcxGridDBTableView; TV1: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel; cxGridLevel2: TcxGridLevel;
cxTabSheet2: TcxTabSheet; cxTabSheet2: TcxTabSheet;
@ -80,67 +63,45 @@ type
Tv2: TcxGridDBTableView; Tv2: TcxGridDBTableView;
v2Column10: TcxGridDBColumn; v2Column10: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn1: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2Column6: TcxGridDBColumn; v2Column6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
cxTabSheet3: TcxTabSheet; cxTabSheet3: TcxTabSheet;
Panel8: TPanel;
ToolBar4: TToolBar;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
Panel7: TPanel;
Label49: TLabel;
Edit1: TEdit;
CDS_4: TClientDataSet; CDS_4: TClientDataSet;
DS_4: TDataSource; DS_4: TDataSource;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
GPM_2: TcxGridPopupMenu; GPM_2: TcxGridPopupMenu;
GPM_4: TcxGridPopupMenu; GPM_4: TcxGridPopupMenu;
ToolButton11: TToolButton; ToolButton11: TToolButton;
CINote: TcxMemo;
ThroughHealdOrder: TcxMemo; ThroughHealdOrder: TcxMemo;
C_Code: TcxTextEdit; C_Code: TcxTextEdit;
Label2: TLabel; Label2: TLabel;
Label4: TLabel;
Label6: TLabel; Label6: TLabel;
Label7: TLabel; Label7: TLabel;
Label8: TLabel; Label8: TLabel;
Label9: TLabel; Label9: TLabel;
Label10: TLabel; Label10: TLabel;
LoomType: TcxTextEdit;
C_Name: TcxTextEdit; C_Name: TcxTextEdit;
C_YarnQty: TcxTextEdit; C_YarnQty: TcxTextEdit;
C_ReedWidth: TcxTextEdit; C_Width: TcxTextEdit;
C_ReedNo: TcxTextEdit; C_ReedNo: TcxTextEdit;
C_GramWeight: TcxTextEdit; C_GramWeight: TcxTextEdit;
C_TestGramWeight: TcxTextEdit;
C_FinishLatitudeDensity: TcxTextEdit; C_FinishLatitudeDensity: TcxTextEdit;
TV1Column7: TcxGridDBColumn; TV1Column7: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn; Tv2Column7: TcxGridDBColumn;
TV1Column1: TcxGridDBColumn; TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn; TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn; TV1Column6: TcxGridDBColumn;
TV1Column8: TcxGridDBColumn; TV1Column8: TcxGridDBColumn;
TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn; TV1Column10: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn; Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn; Tv2Column2: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
Tv2Column4: TcxGridDBColumn;
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn; Tv2Column6: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn; Tv2Column8: TcxGridDBColumn;
Tv2Column9: TcxGridDBColumn;
Tv2Column10: TcxGridDBColumn;
lbl1: TLabel; lbl1: TLabel;
lbl2: TLabel; lbl2: TLabel;
WB_Code: TcxButtonEdit; WB_Code: TcxButtonEdit;
WB_Name: TcxTextEdit; WB_Name: TcxTextEdit;
cxTabSheet4: TcxTabSheet; cxTabSheet4: TcxTabSheet;
CZF: TMemo;
cxTabSheet5: TcxTabSheet; cxTabSheet5: TcxTabSheet;
CKF: TMemo; CKF: TMemo;
TV1Column11: TcxGridDBColumn; TV1Column11: TcxGridDBColumn;
@ -157,31 +118,60 @@ type
C_Spec: TcxTextEdit; C_Spec: TcxTextEdit;
Label17: TLabel; Label17: TLabel;
C_Composition: TcxTextEdit; C_Composition: TcxTextEdit;
TV1Column12: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn; Tv2Column12: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn; TV1Column13: TcxGridDBColumn;
Tv2Column13: TcxGridDBColumn; Tv2Column13: TcxGridDBColumn;
ADOQuery1: TADOQuery; ADOQuery1: TADOQuery;
Label18: TLabel;
Label19: TLabel;
BBNo: TcxTextEdit;
ZS: TcxTextEdit;
ADOQueryTemp2: TADOQuery; ADOQueryTemp2: TADOQuery;
PM_1: TPopupMenu; PM_1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
PM_2: TPopupMenu; PM_2: TPopupMenu;
MenuItem1: TMenuItem; MenuItem1: TMenuItem;
QZF: TMemo;
MFDW: TcxComboBox; MFDW: TcxComboBox;
Label20: TLabel; Label20: TLabel;
C_FinishLongitudeDensity: TcxTextEdit; C_FinishLongitudeDensity: TcxTextEdit;
Label21: TLabel;
JinSha: TcxTextEdit;
Label22: TLabel;
WeiSha: TcxTextEdit;
LPDW: TcxComboBox; LPDW: TcxComboBox;
TV1Column14: TcxGridDBColumn; TV1Column14: TcxGridDBColumn;
Tv2Column14: TcxGridDBColumn; Tv2Column14: TcxGridDBColumn;
Label19: TLabel;
GKBH: TcxTextEdit;
Label22: TLabel;
C_ReedWidth: TcxTextEdit;
Label23: TLabel;
C_KCQTY: TcxTextEdit;
Label24: TLabel;
BSQTY: TcxTextEdit;
Label25: TLabel;
DCRQTY: TcxTextEdit;
Label26: TLabel;
WB_ReedNote: TcxTextEdit;
Label27: TLabel;
ZYQTY: TcxTextEdit;
Label4: TLabel;
WYAMI: TcxTextEdit;
Label16: TLabel;
DAYQTY: TcxTextEdit;
Label18: TLabel;
LBQTY: TcxTextEdit;
Panel3: TPanel;
cxDBImage1: TcxDBImage;
Panel4: TPanel;
Label21: TLabel;
ATTNAME1: TcxButtonEdit;
DS_ImgHX: TDataSource;
Qry_ImgHX: TADOQuery;
Panel5: TPanel;
Label28: TLabel;
attname2: TcxButtonEdit;
cxDBImage2: TcxDBImage;
Qry_ImgHX2: TADOQuery;
DataSource1: TDataSource;
DS_ImgHX2: TDataSource;
GKDW: TcxComboBox;
LoomType: TcxComboBox;
Label31: TLabel;
Label29: TLabel;
Label30: 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);
@ -195,7 +185,7 @@ type
procedure ToolButton7Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject); procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject); procedure ToolButton10Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure ToolButton11Click(Sender: TObject); procedure ToolButton11Click(Sender: TObject);
procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -211,10 +201,16 @@ type
procedure MFDWPropertiesEditValueChanged(Sender: TObject); procedure MFDWPropertiesEditValueChanged(Sender: TObject);
procedure C_FinishLongitudeDensityPropertiesEditValueChanged(Sender: TObject); procedure C_FinishLongitudeDensityPropertiesEditValueChanged(Sender: TObject);
procedure C_CompositionPropertiesEditValueChanged(Sender: TObject); procedure C_CompositionPropertiesEditValueChanged(Sender: TObject);
procedure Panel4Click(Sender: TObject);
procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TV1Column10PropertiesEditValueChanged(Sender: TObject);
procedure C_ReedWidthExit(Sender: TObject);
private private
canshu1: string; canshu1: string;
Fint: Integer; Fint: Integer;
procedure InitGrid(); procedure InitGrid();
procedure InitImage();
procedure JSJS(); //计算经丝 procedure JSJS(); //计算经丝
procedure JSWS(); //计算纬丝 procedure JSWS(); //计算纬丝
procedure JSKZ(); //计算克重 procedure JSKZ(); //计算克重
@ -234,14 +230,49 @@ implementation
uses uses
U_DataLink, U_HttpFun, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_DataLink, U_HttpFun, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload,
U_YarnInfoSel, U_WBSpecSel; U_YarnInfoSel, U_WBSpecSel, U_PictureUpload;
{$R *.dfm} {$R *.dfm}
procedure TfrmTatClothInfoInput.InitImage();
begin
if attname1.Text <> '' then
begin
with Qry_ImgHX do
begin
close;
sql.Clear;
sql.Add('select * from TP_File A');
sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(attname1.Text)));
SQL.Add('AND TFTYPE=''ZC'' ');
// ShowMessage(SQL.Text);
open;
end;
end;
if attname2.Text <> '' then
begin
with Qry_ImgHX2 do
begin
close;
sql.Clear;
sql.Add('select * from TP_File A');
sql.Add('where isnull(WBID,'''')<>'''' and wbid=' + quotedstr(Trim(attname2.Text)));
SQL.Add('AND TFTYPE=''qC'' ');
// ShowMessage(SQL.Text);
open;
end;
end;
end;
procedure TfrmTatClothInfoInput.InitGrid(); procedure TfrmTatClothInfoInput.InitGrid();
var var
myStream: TMemoryStream; myStream: TMemoryStream;
mSql: string;
begin begin
mSql := 'select distinct name=A.mctype from Bs_Machine A ';
SInitTcxComBoxBySql(ADOQueryTemp, LoomType, false, mSql);
myStream := TMemoryStream.Create(); myStream := TMemoryStream.Create();
with ADOQueryTemp do with ADOQueryTemp do
@ -276,13 +307,12 @@ begin
SCSHData(ADOQueryTemp, ScrollBox1, 2); SCSHData(ADOQueryTemp, ScrollBox1, 2);
SCSHData(ADOQueryTemp, ScrollBox1, 0); SCSHData(ADOQueryTemp, ScrollBox1, 0);
QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString);
CZF.Text := Trim(ADOQueryTemp.FieldByName('CZF').AsString);
CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString); CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString);
Y_Note_PLJ.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLJ').AsString); Y_Note_PLJ.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLJ').AsString);
Y_Note_PLW.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLW').AsString); Y_Note_PLW.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLW').AsString);
ATTNAME1.Text := Trim(ADOQueryTemp.FieldByName('ATTNAME1').AsString);
ATTNAME2.Text := Trim(ADOQueryTemp.FieldByName('ATTNAME2').AsString);
////////////////////////// 保存起综 ////////////////////////// ////////////////////////// 保存起综 //////////////////////////
// with ADOQueryTemp do // with ADOQueryTemp do
@ -379,6 +409,8 @@ begin
end; end;
SCreateCDS(ADOQueryTemp, CDS_4); SCreateCDS(ADOQueryTemp, CDS_4);
SInitCDSData(ADOQueryTemp, CDS_4); SInitCDSData(ADOQueryTemp, CDS_4);
/////////////////刷新起综工艺单信息///////////////////////// /////////////////刷新起综工艺单信息/////////////////////////
/// ///
end; end;
@ -608,6 +640,30 @@ begin
end; end;
end; end;
procedure TfrmTatClothInfoInput.Panel4Click(Sender: TObject);
begin
try
frmPictureUpload := TfrmPictureUpload.create(self);
with frmPictureUpload do
begin
fFlileFlag := UserDataFlag + 'HX';
FDataId := ATTNAME1.Text;
FPictureName := ATTNAME1.Text;
FWidth := 450;
FHeight := 600;
FTFType := 'ZC';
if showmodal = 1 then
begin
ATTNAME1.Text := frmPictureUpload.FPictureName;
end;
end;
finally
frmPictureUpload.free;
end;
initimage();
end;
procedure TfrmTatClothInfoInput.JSKZ(); procedure TfrmTatClothInfoInput.JSKZ();
var var
SumJS, SumWS: double; SumJS, SumWS: double;
@ -635,8 +691,7 @@ begin
// //
// C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2)); // C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2));
/////////////生成规格 ///////////// /////////////生成规格 /////////////
JinSha.text := JSGG;
WeiSha.text := WSGG;
FC_Spec := ''; FC_Spec := '';
FC_Spec := C_Composition.text + ' (' + JSGG + ')*(' + WSGG + ') ' + C_FinishLongitudeDensity.text + '*' + C_FinishLatitudeDensity.text + ' ' + C_ReedWidth.text + MFDW.text; FC_Spec := C_Composition.text + ' (' + JSGG + ')*(' + WSGG + ') ' + C_FinishLongitudeDensity.text + '*' + C_FinishLatitudeDensity.text + ' ' + C_ReedWidth.text + MFDW.text;
@ -664,7 +719,8 @@ begin
FBCIID := ''; FBCIID := '';
BCIID.text := ''; BCIID.text := '';
C_Code.text := ''; C_Code.text := '';
ATTNAME1.Text := '';
ATTNAME2.Text := '';
with CDS_1 do with CDS_1 do
begin begin
First; First;
@ -692,7 +748,7 @@ begin
end; end;
end; end;
InitImage();
end; end;
procedure TfrmTatClothInfoInput.TBCloseClick(Sender: TObject); procedure TfrmTatClothInfoInput.TBCloseClick(Sender: TObject);
@ -750,13 +806,12 @@ begin
end; end;
FieldByName('BCIID').Value := Trim(maxId); FieldByName('BCIID').Value := Trim(maxId);
FieldByName('QZF').Value := Trim(QZF.text);
FieldByName('CZF').Value := Trim(CZF.text);
FieldByName('CKF').Value := Trim(CKF.text); FieldByName('CKF').Value := Trim(CKF.text);
FieldByName('Y_Note_PLJ').Value := Trim(Y_Note_PLJ.text); FieldByName('Y_Note_PLJ').Value := Trim(Y_Note_PLJ.text);
FieldByName('Y_Note_PLW').Value := Trim(Y_Note_PLW.text); FieldByName('Y_Note_PLW').Value := Trim(Y_Note_PLW.text);
FieldByName('ATTNAME1').Value := Trim(ATTNAME1.text);
FieldByName('ATTNAME2').Value := Trim(ATTNAME2.text);
if trim(C_Code.Text) = '' then if trim(C_Code.Text) = '' then
C_Code.Text := Trim(maxId); C_Code.Text := Trim(maxId);
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', ScrollBox1, 2); RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', ScrollBox1, 2);
@ -1071,21 +1126,62 @@ begin
Application.MessageBox('门幅单位不能为空！', '提示', 0); Application.MessageBox('门幅单位不能为空！', '提示', 0);
Exit; Exit;
end; end;
if C_Width.Text = '' then
begin
Application.MessageBox('门幅不能为空！', '提示', 0);
Exit;
end;
if C_FinishLongitudeDensity.Text = '' then
// CDS_1.First; begin
// if Trim(CDS_1.fieldbyname('Y_Code').AsString) = '' then Application.MessageBox('经密不能为空！', '提示', 0);
// begin Exit;
// Application.MessageBox('至少需要填写一个经丝原料！', '提示', 0); end;
// Exit; if C_FinishLatitudeDensity.Text = '' then
// end; begin
// Application.MessageBox('纬密不能为空！', '提示', 0);
// CDS_2.First; Exit;
// if Trim(CDS_2.fieldbyname('Y_Code').AsString) = '' then end;
// begin if WB_Code.Text = '' then
// Application.MessageBox('至少需要填写一个纬丝原料！', '提示', 0); begin
// Exit; Application.MessageBox('整经工艺编号不能为空！', '提示', 0);
// end; Exit;
end;
if WB_Name.Text = '' then
begin
Application.MessageBox('整经工艺名称不能为空！', '提示', 0);
Exit;
end;
if C_YarnQty.Text = '' then
begin
Application.MessageBox('总头纹不能为空！', '提示', 0);
Exit;
end;
if GKBH.Text = '' then
begin
Application.MessageBox('钢筘编号不能为空！', '提示', 0);
Exit;
end;
if C_ReedNo.Text = '' then
begin
Application.MessageBox('筘号不能为空！', '提示', 0);
Exit;
end;
if C_ReedWidth.Text = '' then
begin
Application.MessageBox('筘幅不能为空！', '提示', 0);
Exit;
end;
if DCRQTY.Text = '' then
begin
Application.MessageBox('地传入数不能为空！', '提示', 0);
Exit;
end;
if DAYQTY.Text = '' then
begin
Application.MessageBox('日产量不能为空！', '提示', 0);
Exit;
end;
if trim(C_Code.Text) = '' then if trim(C_Code.Text) = '' then
begin begin
@ -1109,6 +1205,52 @@ begin
end; end;
end; end;
procedure TfrmTatClothInfoInput.attname2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmPictureUpload := TfrmPictureUpload.create(self);
with frmPictureUpload do
begin
fFlileFlag := UserDataFlag + 'HX';
FDataId := AttName2.Text;
FPictureName := AttName2.Text;
FWidth := 600;
FHeight := 600;
FTFType := 'QC';
if showmodal = 1 then
begin
AttName2.Text := frmPictureUpload.FPictureName;
end;
end;
finally
frmPictureUpload.free;
end;
initimage();
end;
procedure TfrmTatClothInfoInput.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmPictureUpload := TfrmPictureUpload.create(self);
with frmPictureUpload do
begin
fFlileFlag := UserDataFlag + 'HX';
FDataId := AttName1.Text;
FPictureName := AttName1.Text;
FWidth := 600;
FHeight := 600;
FTFType := 'ZC';
if showmodal = 1 then
begin
AttName1.Text := frmPictureUpload.FPictureName;
end;
end;
finally
frmPictureUpload.free;
end;
initimage();
end;
procedure TfrmTatClothInfoInput.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmTatClothInfoInput.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try
@ -1152,7 +1294,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('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value; FieldByName('Z_Number').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').Value;
Post; Post;
end; end;
@ -1205,6 +1347,74 @@ begin
JSKZ(); JSKZ();
end; end;
procedure TfrmTatClothInfoInput.C_ReedWidthExit(Sender: TObject);
var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, fsh: double;
begin
with CDS_2 do
begin
first;
while not eof do
begin
with CDS_2 do
begin
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //根数
end
else
begin
GS := FieldByName('YarnQty').Value; //根数
end;
if FieldByName('Y_loss').Value = null then
begin
fsh := 0; //损耗
end
else
begin
fsh := FieldByName('Y_loss').Value; //损耗
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //循环根数
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end;
MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
if FieldByName('Z_Number').Value = null then
begin
DS := 0; //支
end
else
begin
DS := FieldByName('Z_Number').Value; //支数
end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
end;
if (ZGS <> 0) and (DS <> 0) then
begin
with CDS_2 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
Post;
end;
end;
next;
end;
end;
end;
procedure TfrmTatClothInfoInput.C_ReedWidthPropertiesEditValueChanged(Sender: TObject); procedure TfrmTatClothInfoInput.C_ReedWidthPropertiesEditValueChanged(Sender: TObject);
begin begin
JSJS(); JSJS();
@ -1247,31 +1457,6 @@ begin
JSWS(); JSWS();
end; end;
procedure TfrmTatClothInfoInput.Edit1KeyPress(Sender: TObject; var Key: Char);
var
i, j: Integer;
begin
if Key = #13 then
begin
if Edit1.Text <> '' then
begin
i := CDS_4.RecordCount;
i := i + 1;
with CDS_4 do
begin
Append;
FieldByName('SSEL').Value := FALSE;
FieldByName('XuNO').Value := i;
FieldByName('DZZQZGL').Value := Trim(Edit1.Text);
Post;
end;
Edit1.Text := '';
end;
end;
end;
procedure TfrmTatClothInfoInput.CYMFExit(Sender: TObject); procedure TfrmTatClothInfoInput.CYMFExit(Sender: TObject);
begin begin
// if pos('"', trim(CYMF.Text)) = 0 then // if pos('"', trim(CYMF.Text)) = 0 then
@ -1358,6 +1543,51 @@ begin
end; end;
end; end;
procedure TfrmTatClothInfoInput.TV1Column10PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
ZS, ZGS: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
if FieldByName('QFYARNQTY').Value = null then
begin
ZGS := 0; //QUANFU根数
end
else
begin
ZGS := FieldByName('QFYARNQTY').Value; //全服根数
end;
if FieldByName('Z_Number').Value = null then
begin
ZS := 0; //循环根数
end
else
begin
ZS := FieldByName('Z_Number').Value; //循环根数
end;
end;
if ZS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
Post;
end;
end;
end;
procedure TfrmTatClothInfoInput.TV1Column1PropertiesEditValueChanged(Sender: TObject); procedure TfrmTatClothInfoInput.TV1Column1PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
@ -1367,66 +1597,66 @@ begin
mvalue := TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
if mvalue = '' then // if mvalue = '' then
begin // begin
mvalue := '0'; // mvalue := '0';
end; // end;
//
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; // 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('TestDenier').Value = null then // if FieldByName('TestDenier').Value = null then
begin // begin
DS := 0; //D数 // DS := 0; //D数
end // end
else // else
begin // begin
DS := FieldByName('TestDenier').Value; //D数 // DS := FieldByName('TestDenier').Value; //D数
end; // end;
//
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密 // WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
//
TW := strtofloatdef(C_YarnQty.text, 0); //头纹 // TW := strtofloatdef(C_YarnQty.text, 0); //头纹
end; // end;
if ZGS <> 0 then // if ZGS <> 0 then
begin // begin
with CDS_1 do // with CDS_1 do
begin // begin
Edit; // Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); // FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
Post; // Post;
end; // end;
end; // end;
JSKZ(); // JSKZ();
end; end;
procedure TfrmTatClothInfoInput.Tv2Column1PropertiesEditValueChanged(Sender: TObject); procedure TfrmTatClothInfoInput.Tv2Column1PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM: double; GS, ZGS, MF, DS, WM, fsh: double;
begin begin
mvalue := TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
@ -1447,6 +1677,15 @@ begin
GS := FieldByName('YarnQty').Value; //根数 GS := FieldByName('YarnQty').Value; //根数
end; end;
if FieldByName('Y_loss').Value = null then
begin
fsh := 0; //损耗
end
else
begin
fsh := FieldByName('Y_loss').Value; //损耗
end;
if FieldByName('CycleYarnQty').Value = null then if FieldByName('CycleYarnQty').Value = null then
begin begin
ZGS := 0; //循环根数 ZGS := 0; //循环根数
@ -1458,23 +1697,23 @@ begin
MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅 MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
if FieldByName('TestDenier').Value = null then if FieldByName('Z_Number').Value = null then
begin begin
DS := 0; //D数 DS := 0; //支
end end
else else
begin begin
DS := FieldByName('TestDenier').Value; //D数 DS := FieldByName('Z_Number').Value; //支数
end; end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密 WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
end; end;
if ZGS <> 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(GS / ZGS * MF * DS * WM / 9000, 2); FieldByName('MeterQty').Value := roundfloat(WM * (MF + fsh) * 0.059 / DS * GS / ZGS * 1.08, 2);
Post; Post;
end; end;
end; end;
@ -1533,8 +1772,12 @@ begin
Self.C_YarnQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').AsString); Self.C_YarnQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').AsString);
Self.C_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString); Self.C_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString);
Self.C_ReedWidth.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString); Self.C_ReedWidth.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
DCRQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('DCRQTY').AsString);
C_KCQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('C_KCQTY').AsString);
WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString);
BSQTY.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('BSQTY').AsString);
GKBH.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('GKBH').AsString);
Self.Y_Note_PLJ.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString);
with ADOQuery1 do with ADOQuery1 do
begin begin
Close; Close;
@ -1566,8 +1809,11 @@ begin
FieldByName('TestDenier').Value := ADOQuery1.fieldbyname('Denier').Value; FieldByName('TestDenier').Value := ADOQuery1.fieldbyname('Denier').Value;
FieldByName('FF').Value := ADOQuery1.fieldbyname('FF').Value; FieldByName('Z_Number').Value := ADOQuery1.fieldbyname('ZS').Value;
FieldByName('ND').Value := ADOQuery1.fieldbyname('ND').Value;
FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').Value;
FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value;
Post; Post;
end; end;

18
A02基础产品管理/U_TatClothInfo_CB.dfm
View File

@ -777,6 +777,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #32463#19997#32452#21512 Caption = #32463#19997#32452#21512
ImageIndex = 0 ImageIndex = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -1016,6 +1019,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB
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 cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
@ -1208,6 +1214,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB
object cxTabSheet3: TcxTabSheet object cxTabSheet3: TcxTabSheet
Caption = #26679#21697#22270#29255 Caption = #26679#21697#22270#29255
ImageIndex = 2 ImageIndex = 2
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 0 Left = 0
Top = 0 Top = 0
@ -1231,6 +1240,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB
object cxTabSheet4: TcxTabSheet object cxTabSheet4: TcxTabSheet
Caption = #36215#32508#27861 Caption = #36215#32508#27861
ImageIndex = 3 ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object QZF: TMemo object QZF: TMemo
Tag = 2 Tag = 2
Left = 0 Left = 0
@ -1282,6 +1294,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB
object cxTabSheet5: TcxTabSheet object cxTabSheet5: TcxTabSheet
Caption = #31359#32508#27861 Caption = #31359#32508#27861
ImageIndex = 3 ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object CZF: TMemo object CZF: TMemo
Tag = 2 Tag = 2
Left = 0 Left = 0
@ -1303,6 +1318,9 @@ inherited frmTatClothInfo_CB: TfrmTatClothInfo_CB
object cxTabSheet6: TcxTabSheet object cxTabSheet6: 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

19
A02基础产品管理/U_TatClothInfo_CB.pas
View File

@ -24,23 +24,8 @@ uses
dxSpreadSheetFunctions, dxSpreadSheetStyles, dxSpreadSheetGraphics, dxSpreadSheetFunctions, dxSpreadSheetStyles, dxSpreadSheetGraphics,
dxSpreadSheetPrinting, dxSpreadSheetTypes, dxSpreadSheetUtils, dxSpreadSheetPrinting, dxSpreadSheetTypes, dxSpreadSheetUtils,
dxSpreadSheetFormattedTextUtils, dxSpreadSheet, dxSkinsCore, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
FdDy = record FdDy = record

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

Binary file not shown.

47
A05基础资料管理/U_GKInput.dfm
View File

@ -86,7 +86,7 @@ inherited frmGKInput: TfrmGKInput
end end
object Label7: TLabel object Label7: TLabel
Left = 48 Left = 48
Top = 182 Top = 230
Width = 57 Width = 57
Height = 21 Height = 21
Caption = #22791' '#27880 Caption = #22791' '#27880
@ -100,17 +100,39 @@ inherited frmGKInput: TfrmGKInput
end end
object Label1: TLabel object Label1: TLabel
Left = 399 Left = 399
Top = 109 Top = 108
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #26550#23376#23618#21495 Caption = #26550#23376#23618#21495
end end
object Label4: TLabel
Left = 48
Top = 186
Width = 48
Height = 21
Caption = #31576#40831#25968
end
object Label5: TLabel
Left = 399
Top = 143
Width = 32
Height = 21
Caption = #31576#24133
end
object Label8: TLabel
Left = 647
Top = 139
Width = 16
Height = 21
Caption = #8220
end
object GKKH: TcxTextEdit object GKKH: TcxTextEdit
Tag = 2 Tag = 2
Left = 159 Left = 159
Top = 105 Top = 105
Properties.OnChange = JZBHPropertiesChange Properties.OnChange = JZBHPropertiesChange
TabOrder = 1 TabOrder = 1
OnExit = GKKHExit
Width = 200 Width = 200
end end
object GKBH: TcxTextEdit object GKBH: TcxTextEdit
@ -141,7 +163,7 @@ inherited frmGKInput: TfrmGKInput
object Note: TcxMemo object Note: TcxMemo
Tag = 2 Tag = 2
Left = 159 Left = 159
Top = 182 Top = 230
TabOrder = 4 TabOrder = 4
Height = 77 Height = 77
Width = 518 Width = 518
@ -149,11 +171,28 @@ inherited frmGKInput: TfrmGKInput
object JZCH: TcxTextEdit object JZCH: TcxTextEdit
Tag = 2 Tag = 2
Left = 469 Left = 469
Top = 105 Top = 104
Properties.OnChange = JZBHPropertiesChange Properties.OnChange = JZBHPropertiesChange
TabOrder = 5 TabOrder = 5
Width = 200 Width = 200
end end
object GKCS: TcxTextEdit
Tag = 2
Left = 159
Top = 183
Properties.OnChange = JZBHPropertiesChange
TabOrder = 6
OnExit = GKKHExit
Width = 200
end
object GKwidth: TcxTextEdit
Tag = 2
Left = 469
Top = 140
Properties.OnChange = JZBHPropertiesChange
TabOrder = 7
Width = 172
end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink Connection = DataLink_BaseInfo.ADOLink

17
A05基础资料管理/U_GKInput.pas
View File

@ -39,6 +39,11 @@ type
Note: TcxMemo; Note: TcxMemo;
Label1: TLabel; Label1: TLabel;
JZCH: TcxTextEdit; JZCH: TcxTextEdit;
Label4: TLabel;
GKCS: TcxTextEdit;
Label5: TLabel;
GKwidth: TcxTextEdit;
Label8: TLabel;
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);
@ -47,6 +52,7 @@ type
procedure TbSaveClick(Sender: TObject); procedure TbSaveClick(Sender: TObject);
procedure CoareaBtnDnClick(Sender: TObject); procedure CoareaBtnDnClick(Sender: TObject);
procedure JZBHPropertiesChange(Sender: TObject); procedure JZBHPropertiesChange(Sender: TObject);
procedure GKKHExit(Sender: TObject);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
@ -118,7 +124,18 @@ begin
end; end;
procedure TfrmGKInput.GKKHExit(Sender: TObject);
var
FKCS, FKOUHAO: double;
begin
FKCS := StrToFloatDef(GKCS.Text, 0);
FKOUHAO := StrToFloatDef(GKKH.Text, 0);
if FKOUHAO <> 0 then
begin
GKwidth.Text := FloatToStr(RoundFloat(FKCS / FKOUHAO * 2, 2));
end;
end;
procedure TfrmGKInput.TBRafreshClick(Sender: TObject); procedure TfrmGKInput.TBRafreshClick(Sender: TObject);
begin begin

17
A05基础资料管理/U_GKManage.dfm
View File

@ -100,8 +100,6 @@ inherited frmGKManage: TfrmGKManage
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitLeft = 8
ExplicitTop = 95
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -174,6 +172,20 @@ inherited frmGKManage: TfrmGKManage
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 100 Width = 100
end end
object Tv2Column2: TcxGridDBColumn
Caption = #31576#40831#25968
DataBinding.FieldName = 'GKCS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv2Column8: TcxGridDBColumn
Caption = #31576#24133
DataBinding.FieldName = 'GKwidth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object Tv2Column10: TcxGridDBColumn object Tv2Column10: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
@ -205,7 +217,6 @@ inherited frmGKManage: TfrmGKManage
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
ExplicitTop = 36
object Label1: TLabel object Label1: TLabel
Left = 30 Left = 30
Top = 19 Top = 19

2
A05基础资料管理/U_GKManage.pas
View File

@ -50,6 +50,8 @@ type
Tv2Column5: TcxGridDBColumn; Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn; Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn; Tv2Column7: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column8: 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);

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

@ -1,85 +1,85 @@
<?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.659,=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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.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.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.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.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\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.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.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.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.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.325,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.569,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.441,=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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.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.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.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.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.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.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj</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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm</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.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.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.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.726,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm</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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_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.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.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.519,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.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.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.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.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.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.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.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.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.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.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.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.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.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.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.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.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>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.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</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.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm</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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.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.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</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.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.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.950,=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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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"/>

2
B01基础合同管理/ProjectGroup1.groupproj.local
View File

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\testDll.dproj"/> <Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B01基础合同管理\Contract.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

3
B02基础纱线仓库/U_CJDJ.dfm
View File

@ -166,8 +166,9 @@ object frmCJDJ: TfrmCJDJ
Top = 87 Top = 87
Width = 216 Width = 216
Height = 28 Height = 28
EditLabel.Width = 4 EditLabel.Width = 81
EditLabel.Height = 20 EditLabel.Height = 20
EditLabel.Caption = 'CJQuantitly'
TabOrder = 4 TabOrder = 4
end end
object CJJL: TcxComboBox object CJJL: TcxComboBox

32
B02基础纱线仓库/U_CJDJ.pas
View File

@ -7,23 +7,7 @@ uses
Dialogs, StdCtrls, ExtCtrls, DB, ADODB, cxGraphics, cxControls, cxLookAndFeels, Dialogs, StdCtrls, ExtCtrls, DB, ADODB, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, cxContainer, cxEdit, Vcl.ComCtrls, dxCore, cxDateUtils, cxLookAndFeelPainters, cxContainer, cxEdit, Vcl.ComCtrls, dxCore, cxDateUtils,
dxSkinsCore, dxSkinsDefaultPainters, cxTextEdit, cxMaskEdit, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters, cxTextEdit, cxMaskEdit, cxDropDownEdit,
cxCalendar, cxButtonEdit, cxCalendar, cxButtonEdit, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
TfrmCJDJ = class(TForm) TfrmCJDJ = class(TForm)
@ -93,7 +77,7 @@ end;
procedure TfrmCJDJ.Button1Click(Sender: TObject); procedure TfrmCJDJ.Button1Click(Sender: TObject);
begin begin
if (Trim(CJJL.Text) = '²»ºÏ¸ñ') and (not SZ.Checked and not QL.Checked and not TG.Checked and not MJ.Checked) then if (Trim(CJJL.Text) = '²»ºÏ¸ñ') and (not SZ.Checked and not QL.Checked and not TG.Checked and not MJ.Checked) then
begin begin
Application.MessageBox('ÇëÌîдÄÚÈÝ£¡', 'Ìáʾ', MB_ICONWARNING); Application.MessageBox('ÇëÌîдÄÚÈÝ£¡', 'Ìáʾ', MB_ICONWARNING);
Exit; Exit;
@ -147,14 +131,10 @@ begin
CJer.text := ADOQueryCmd.fieldbyname('CJer').asstring; CJer.text := ADOQueryCmd.fieldbyname('CJer').asstring;
CJQuantitly.text := ADOQueryCmd.fieldbyname('CJQuantitly').asstring; CJQuantitly.text := ADOQueryCmd.fieldbyname('CJQuantitly').asstring;
CJJL.text := ADOQueryCmd.fieldbyname('CJJL').asstring; CJJL.text := ADOQueryCmd.fieldbyname('CJJL').asstring;
SZ.Checked := (ADOQueryCmd.fieldbyname('SZ').AsString = '1') or SZ.Checked := (ADOQueryCmd.fieldbyname('SZ').AsString = '1') or (ADOQueryCmd.fieldbyname('SZ').AsBoolean);
(ADOQueryCmd.fieldbyname('SZ').AsBoolean); QL.Checked := (ADOQueryCmd.fieldbyname('QL').AsString = '1') or (ADOQueryCmd.fieldbyname('QL').AsBoolean);
QL.Checked := (ADOQueryCmd.fieldbyname('QL').AsString = '1') or TG.Checked := (ADOQueryCmd.fieldbyname('TG').AsString = '1') or (ADOQueryCmd.fieldbyname('TG').AsBoolean);
(ADOQueryCmd.fieldbyname('QL').AsBoolean); MJ.Checked := (ADOQueryCmd.fieldbyname('MJ').AsString = '1') or (ADOQueryCmd.fieldbyname('MJ').AsBoolean);
TG.Checked := (ADOQueryCmd.fieldbyname('TG').AsString = '1') or
(ADOQueryCmd.fieldbyname('TG').AsBoolean);
MJ.Checked := (ADOQueryCmd.fieldbyname('MJ').AsString = '1') or
(ADOQueryCmd.fieldbyname('MJ').AsBoolean);
end; end;
end; end;

19
B02基础纱线仓库/U_DataLink.pas
View File

@ -7,23 +7,8 @@ uses
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink, dxCore, cxLocalization, cxImageList, System.ImageList, U_BaseDataLink, dxCore, cxLocalization, cxImageList,
cxGraphics, cxEdit, cxContainer, dxSkinsForm, dxLayoutLookAndFeels, cxGraphics, cxEdit, cxContainer, dxSkinsForm, dxLayoutLookAndFeels,
dxSkinsCore, dxSkinsDefaultPainters, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
TMyThread = class(TThread) TMyThread = class(TThread)

17
B02基础纱线仓库/U_YarnInEdit.pas
View File

@ -12,22 +12,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, ComObj, dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, ComObj,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
type type
TfrmYarnInEdit = class(TfrmBaseInput) TfrmYarnInEdit = class(TfrmBaseInput)

3
B02基础纱线仓库/U_YarnInList.dfm
View File

@ -158,6 +158,7 @@ inherited frmYarnInList: TfrmYarnInList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
ExplicitWidth = 304
object Label3: TLabel object Label3: TLabel
Left = 248 Left = 248
Top = 46 Top = 46
@ -282,7 +283,7 @@ inherited frmYarnInList: TfrmYarnInList
TabOrder = 6 TabOrder = 6
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1536 ExplicitWidth = 300
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited lbl2: TLabel
Width = 16 Width = 16

19
B02基础纱线仓库/U_YarnInList.pas
View File

@ -14,23 +14,8 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxCore, dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxCore,
cxDateUtils, cxMaskEdit, FrameDateSel, U_InputBoxSingleNumber, dxSkinsCore, cxDateUtils, cxMaskEdit, FrameDateSel, U_InputBoxSingleNumber, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
TfrmYarnInList = class(TfrmBaseList) TfrmYarnInList = class(TfrmBaseList)

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

@ -77,6 +77,7 @@ 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
@ -272,6 +273,19 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
end end
object Label16: TLabel
Left = 796
Top = 34
Width = 240
Height = 21
Caption = #27880#65306#21697#21517'='#25104#20998'+'#25903#25968'+'#39068#33394'+'#32442#27861
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Brand: TcxTextEdit object Brand: TcxTextEdit
Tag = 2 Tag = 2
Left = 68 Left = 68

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

@ -56,6 +56,7 @@ type
CJ: TcxButtonEdit; CJ: TcxButtonEdit;
Label15: TLabel; Label15: TLabel;
LLSH: TcxTextEdit; LLSH: TcxTextEdit;
Label16: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

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

@ -13,23 +13,8 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, U_BaseList, dxScrollbarAnnotations, cxContainer, cxMaskEdit, dxDateRanges, U_BaseList, dxScrollbarAnnotations, cxContainer, cxMaskEdit,
dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
TfrmYarnInfoList = class(TfrmBaseList) TfrmYarnInfoList = class(TfrmBaseList)

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

@ -9,7 +9,6 @@ inherited frmYarnOutEdit: TfrmYarnOutEdit
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -197
ExplicitWidth = 1422 ExplicitWidth = 1422
ExplicitHeight = 486 ExplicitHeight = 486
PixelsPerInch = 96 PixelsPerInch = 96

23
B02基础纱线仓库/U_YarnOutEdit.pas
View File

@ -12,22 +12,7 @@ uses
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
type type
TfrmYarnOutEdit = class(TfrmBaseInput) TfrmYarnOutEdit = class(TfrmBaseInput)
@ -81,8 +66,7 @@ type
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column7PropertiesButtonClick(Sender: TObject; procedure Tv1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
function SaveCKData(): Boolean; function SaveCKData(): Boolean;
@ -445,8 +429,7 @@ begin
end; end;
procedure TfrmYarnOutEdit.Tv1Column7PropertiesButtonClick(Sender: TObject; procedure TfrmYarnOutEdit.Tv1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
AButtonIndex: Integer);
begin begin
try try
frmTatPlanSel := TfrmTatPlanSel.Create(Application); frmTatPlanSel := TfrmTatPlanSel.Create(Application);

4
B02基础纱线仓库/U_YarnOutList.dfm
View File

@ -112,7 +112,7 @@ inherited frmYarnOutList: TfrmYarnOutList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
ExplicitTop = 24 ExplicitWidth = 304
object Label3: TLabel object Label3: TLabel
Left = 251 Left = 251
Top = 86 Top = 86
@ -205,7 +205,7 @@ inherited frmYarnOutList: TfrmYarnOutList
TabOrder = 3 TabOrder = 3
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1475 ExplicitWidth = 300
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited lbl2: TLabel
Width = 16 Width = 16

17
B02基础纱线仓库/U_YarnOutList.pas
View File

@ -14,22 +14,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxContainer, dxScrollbarAnnotations, cxMaskEdit, dxBarBuiltInMenu, U_BaseList, cxContainer, dxScrollbarAnnotations, cxMaskEdit,
FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
type type
TfrmYarnOutList = class(TfrmBaseList) TfrmYarnOutList = class(TfrmBaseList)

9
B02基础纱线仓库/U_YarnOutReturnList.dfm
View File

@ -97,6 +97,7 @@ inherited frmYarnOutReturnList: TfrmYarnOutReturnList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitWidth = 304
object Label3: TLabel object Label3: TLabel
Left = 469 Left = 469
Top = 47 Top = 47
@ -171,8 +172,14 @@ inherited frmYarnOutReturnList: TfrmYarnOutReturnList
TabOrder = 3 TabOrder = 3
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1676 ExplicitWidth = 300
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
end
end end
object IOType: TcxComboBox object IOType: TcxComboBox
Left = 315 Left = 315

18
B02基础纱线仓库/U_YarnOutReturnList.pas
View File

@ -14,23 +14,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseHelp, cxContainer, dxScrollbarAnnotations, cxMaskEdit, dxBarBuiltInMenu, U_BaseHelp, cxContainer, dxScrollbarAnnotations, cxMaskEdit,
FrameDateSel, U_BaseList, System.ImageList, Vcl.ImgList, dxSkinsCore, FrameDateSel, U_BaseList, System.ImageList, Vcl.ImgList, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
TfrmYarnOutReturnList = class(TfrmBaseHelp) TfrmYarnOutReturnList = class(TfrmBaseHelp)

29
B02基础纱线仓库/U_YarnPurOutReturn.dfm
View File

@ -13,7 +13,7 @@ inherited frmYarnPurOutReturn: TfrmYarnPurOutReturn
ExplicitWidth = 911 ExplicitWidth = 911
ExplicitHeight = 238 ExplicitHeight = 238
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 19 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
@ -66,84 +66,84 @@ inherited frmYarnPurOutReturn: TfrmYarnPurOutReturn
Left = 39 Left = 39
Top = 51 Top = 51
Width = 32 Width = 32
Height = 19 Height = 21
Caption = #32534#21495 Caption = #32534#21495
end end
object Label8: TLabel object Label8: TLabel
Left = 583 Left = 583
Top = 12 Top = 12
Width = 64 Width = 64
Height = 19 Height = 21
Caption = #23384#25918#21333#20301 Caption = #23384#25918#21333#20301
end end
object lbl5: TLabel object lbl5: TLabel
Left = 39 Left = 39
Top = 12 Top = 12
Width = 32 Width = 32
Height = 19 Height = 21
Caption = #26085#26399 Caption = #26085#26399
end end
object Label10: TLabel object Label10: TLabel
Left = 583 Left = 583
Top = 51 Top = 51
Width = 32 Width = 32
Height = 19 Height = 21
Caption = #20214#25968 Caption = #20214#25968
end end
object Label11: TLabel object Label11: TLabel
Left = 583 Left = 583
Top = 90 Top = 90
Width = 32 Width = 32
Height = 19 Height = 21
Caption = #25968#37327 Caption = #25968#37327
end end
object Label6: TLabel object Label6: TLabel
Left = 311 Left = 311
Top = 51 Top = 51
Width = 32 Width = 32
Height = 19 Height = 21
Caption = #21697#21517 Caption = #21697#21517
end end
object Label9: TLabel object Label9: TLabel
Left = 311 Left = 311
Top = 12 Top = 12
Width = 48 Width = 48
Height = 19 Height = 21
Caption = #21152#24037#21378 Caption = #21152#24037#21378
end end
object Label4: TLabel object Label4: TLabel
Left = 39 Left = 39
Top = 90 Top = 90
Width = 32 Width = 32
Height = 19 Height = 21
Caption = #39068#33394 Caption = #39068#33394
end end
object Label5: TLabel object Label5: TLabel
Left = 311 Left = 311
Top = 90 Top = 90
Width = 48 Width = 48
Height = 19 Height = 21
Caption = #28504#36890#21495 Caption = #28504#36890#21495
end end
object Label1: TLabel object Label1: TLabel
Left = 39 Left = 39
Top = 135 Top = 135
Width = 64 Width = 64
Height = 19 Height = 21
Caption = #21152#24037#21333#20215 Caption = #21152#24037#21333#20215
end end
object Label3: TLabel object Label3: TLabel
Left = 311 Left = 311
Top = 135 Top = 135
Width = 64 Width = 64
Height = 19 Height = 21
Caption = #21407#26009#21333#20215 Caption = #21407#26009#21333#20215
end end
object Label7: TLabel object Label7: TLabel
Left = 583 Left = 583
Top = 135 Top = 135
Width = 64 Width = 64
Height = 19 Height = 21
Caption = #33394#32433#21333#20215 Caption = #33394#32433#21333#20215
end end
object Y_Code: TcxTextEdit object Y_Code: TcxTextEdit
@ -267,6 +267,9 @@ inherited frmYarnPurOutReturn: TfrmYarnPurOutReturn
Left = 551 Left = 551
Top = 433 Top = 433
end end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_YarnStk.ADOLink Connection = DataLink_YarnStk.ADOLink
LockType = ltReadOnly LockType = ltReadOnly

22
B02基础纱线仓库/U_YarnPurOutReturn.pas
View File

@ -13,25 +13,9 @@ uses
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, U_BaseInput, cxContainer, cxNavigator, U_BaseInput, cxContainer, dxCore, cxDateUtils, cxCurrencyEdit,
dxCore, cxDateUtils, cxCurrencyEdit, cxMemo, System.ImageList, cxMemo, System.ImageList, Vcl.ImgList, dxSkinsCore, dxSkinsDefaultPainters,
Vcl.ImgList, dxSkinsCore, dxSkinsDefaultPainters, cxImageList, cxImageList, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
type type
TfrmYarnPurOutReturn = class(TfrmBaseInput) TfrmYarnPurOutReturn = class(TfrmBaseInput)

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

@ -1,98 +1,98 @@
<?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.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.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.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.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.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.147,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.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.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.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.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.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.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.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.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.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.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.572,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.878,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.800,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\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.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\Unit1.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.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.981,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.864,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.471,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.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.356,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B03基础物料仓库\U_JWLPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.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.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.511,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.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.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.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.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\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.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.046,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnStkSel.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.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.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.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.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.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.548,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>2025/06/07 16:01:49.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>2025-06-07 16:01:49.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>

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

Binary file not shown.

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

Binary file not shown.

110
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.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.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.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.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.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.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.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.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.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.630,=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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.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.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.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.510,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.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.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.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.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.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.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.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.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.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj</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.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.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>

18
B04采购计划管理/U_DataLink.pas
View File

@ -7,23 +7,7 @@ uses
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink, cxLocalization, cxImageList, cxGraphics, System.ImageList, U_BaseDataLink, cxLocalization, cxImageList, cxGraphics,
cxEdit, cxContainer, dxSkinsForm, dxCore, dxLayoutLookAndFeels, dxSkinsCore, cxEdit, cxContainer, dxSkinsForm, dxCore, dxLayoutLookAndFeels, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
TMyThread = class(TThread) TMyThread = class(TThread)

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

@ -13,23 +13,8 @@ uses
cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_e_Graphic, RM_e_Jpeg, dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_e_Graphic, RM_e_Jpeg,
RM_E_llPDF, Vcl.Clipbrd, dxScrollbarAnnotations, FrameDateSel, cxContainer, RM_E_llPDF, Vcl.Clipbrd, dxScrollbarAnnotations, FrameDateSel, cxContainer,
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
TfrmYarnPurchasePlanList = class(TfrmBaseList) TfrmYarnPurchasePlanList = class(TfrmBaseList)

4
B04采购计划管理/U_YarnPurchasePlanList_ZZD.dfm
View File

@ -310,6 +310,7 @@ inherited frmYarnPurchasePlanList_ZZD: TfrmYarnPurchasePlanList_ZZD
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitWidth = 304
object Label4: TLabel object Label4: TLabel
Left = 532 Left = 532
Top = 45 Top = 45
@ -374,7 +375,7 @@ inherited frmYarnPurchasePlanList_ZZD: TfrmYarnPurchasePlanList_ZZD
TabOrder = 3 TabOrder = 3
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1360 ExplicitWidth = 300
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited lbl2: TLabel
Width = 16 Width = 16
@ -420,6 +421,7 @@ inherited frmYarnPurchasePlanList_ZZD: TfrmYarnPurchasePlanList_ZZD
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
ExplicitWidth = 8
end end
inherited loadProcess: TPanel inherited loadProcess: TPanel
Left = 454 Left = 454

19
B04采购计划管理/U_YarnPurchasePlanList_ZZD.pas
View File

@ -13,23 +13,8 @@ uses
cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_e_Graphic, RM_e_Jpeg, dxDateRanges, dxBarBuiltInMenu, U_BaseList, RM_e_Graphic, RM_e_Jpeg,
RM_E_llPDF, Vcl.Clipbrd, dxScrollbarAnnotations, FrameDateSel, cxContainer, RM_E_llPDF, Vcl.Clipbrd, dxScrollbarAnnotations, FrameDateSel, cxContainer,
cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
type type
TfrmYarnPurchasePlanList_ZZD = class(TfrmBaseList) TfrmYarnPurchasePlanList_ZZD = class(TfrmBaseList)

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

@ -2,7 +2,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Left = 219 Left = 219
Top = 76 Top = 76
Caption = #37319#36141#35745#21010#24405#20837 Caption = #37319#36141#35745#21010#24405#20837
ClientHeight = 651 ClientHeight = 718
ClientWidth = 1524 ClientWidth = 1524
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -11,7 +11,7 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Position = poScreenCenter Position = poScreenCenter
WindowState = wsMaximized WindowState = wsMaximized
ExplicitWidth = 1540 ExplicitWidth = 1540
ExplicitHeight = 690 ExplicitHeight = 757
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -119,10 +119,11 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Left = 0 Left = 0
Top = 186 Top = 186
Width = 1479 Width = 1479
Height = 465 Height = 532
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
TabOrder = 2 TabOrder = 2
ExplicitHeight = 465
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -623,12 +624,14 @@ inherited frmYarnPurchasePlanPut: TfrmYarnPurchasePlanPut
Left = 1479 Left = 1479
Top = 186 Top = 186
Width = 45 Width = 45
Height = 465 Height = 532
Align = alRight Align = alRight
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = pm_sub PopupMenu = pm_sub
TabOrder = 4 TabOrder = 4
Visible = False Visible = False
ExplicitLeft = 1485
ExplicitTop = 192
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

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

@ -16,22 +16,7 @@ uses
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdExplicitTLSClientServerBase, IdFTP, ShellAPI, dxScrollbarAnnotations, dxCore, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, dxScrollbarAnnotations, dxCore,
cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters, cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
type type
TfrmYarnPurchasePlanPut = class(TfrmBaseInput) TfrmYarnPurchasePlanPut = class(TfrmBaseInput)
@ -189,12 +174,12 @@ begin
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 := RoundFloat(FPieceKG * FPiece, 2); 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); //不含税金额
@ -805,8 +790,7 @@ begin
with Order_Sub do with Order_Sub do
begin begin
Edit; Edit;
FieldByName('Qty').Value := FQty;
FieldByName('Price').Value := FPrice;
FieldByName('Amount').Value := FAmount; FieldByName('Amount').Value := FAmount;
Post; Post;
end; end;

17
B04采购计划管理/U_YarnPurchasePlanPut_ZZD.pas
View File

@ -16,22 +16,7 @@ uses
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdExplicitTLSClientServerBase, IdFTP, ShellAPI, dxScrollbarAnnotations, dxCore, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, dxScrollbarAnnotations, dxCore,
cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters, cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
type type
TfrmYarnPurchasePlanPut_ZZD = class(TfrmBaseInput) TfrmYarnPurchasePlanPut_ZZD = class(TfrmBaseInput)

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

@ -43,7 +43,8 @@ uses
U_TatGYList in 'U_TatGYList.pas' {frmTatGYList}, U_TatGYList in 'U_TatGYList.pas' {frmTatGYList},
U_TatGYInPut in 'U_TatGYInPut.pas' {frmTatGYInPut}, U_TatGYInPut in 'U_TatGYInPut.pas' {frmTatGYInPut},
U_TatGYSel in '..\E00梭织通用窗体\U_TatGYSel.pas' {frmTatGYSel}, U_TatGYSel in '..\E00梭织通用窗体\U_TatGYSel.pas' {frmTatGYSel},
U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel}; U_TatPlanSel in '..\E00梭织通用窗体\U_TatPlanSel.pas' {frmTatPlanSel},
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload};
{$R *.res} {$R *.res}

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

@ -206,6 +206,10 @@
<Form>frmTatPlanSel</Form> <Form>frmTatPlanSel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\A00通用窗体\U_PictureUpload.pas">
<Form>frmPictureUpload</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>

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

@ -1,76 +1,77 @@
<?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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.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.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.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.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.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.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.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.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.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</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.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.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.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.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.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.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>1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>2025-08-11 11:19:55.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>
@ -93,6 +94,8 @@
<File Path="..\A00通用窗体\U_WBSpecSel.dfm"/> <File Path="..\A00通用窗体\U_WBSpecSel.dfm"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.pas"/> <File Path="..\A00通用窗体\U_YarnInfoSel.pas"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/> <File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_PictureUpload.pas"/>
<File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
<File Path="..\A00通用组件"/> <File Path="..\A00通用组件"/>
<File Path="..\A00通用组件\FrameDateSel.pas"/> <File Path="..\A00通用组件\FrameDateSel.pas"/>
<File Path="..\A00通用组件\FrameDateSel.dfm"/> <File Path="..\A00通用组件\FrameDateSel.dfm"/>

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

Binary file not shown.

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

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

17
E02梭织经轴仓库/U_GKManageSel.dfm
View File

@ -66,7 +66,7 @@ inherited frmGKManageSel: TfrmGKManageSel
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 76 ExplicitTop = 87
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick OnDblClick = Tv2DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -141,6 +141,20 @@ inherited frmGKManageSel: TfrmGKManageSel
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 100 Width = 100
end end
object Tv2Column2: TcxGridDBColumn
Caption = #31576#40831#25968
DataBinding.FieldName = 'GKCS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object Tv2Column8: TcxGridDBColumn
Caption = #31576#24133
DataBinding.FieldName = 'GKwidth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
end
object Tv2Column10: TcxGridDBColumn object Tv2Column10: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
@ -172,7 +186,6 @@ inherited frmGKManageSel: TfrmGKManageSel
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
ExplicitTop = 32
object Label1: TLabel object Label1: TLabel
Left = 13 Left = 13
Top = 11 Top = 11

2
E02梭织经轴仓库/U_GKManageSel.pas
View File

@ -46,6 +46,8 @@ type
Tv2Column6: TcxGridDBColumn; Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn; Tv2Column7: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv2Column2: TcxGridDBColumn;
Tv2Column8: 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);

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

@ -9,6 +9,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -636
ExplicitWidth = 1833 ExplicitWidth = 1833
ExplicitHeight = 811 ExplicitHeight = 811
PixelsPerInch = 96 PixelsPerInch = 96
@ -21,19 +22,22 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Panel4: TPanel object Panel4: TPanel
Left = 547 Left = 521
Top = 1 Top = 1
Width = 1269 Width = 1295
Height = 770 Height = 770
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 547
ExplicitWidth = 1269
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 251 Top = 251
Width = 1267 Width = 1293
Height = 518 Height = 518
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1267
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -222,7 +226,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Tag = 1 Tag = 1
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1267 Width = 1293
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -287,10 +291,11 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 31 Top = 31
Width = 1267 Width = 1293
Height = 220 Height = 220
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
ExplicitWidth = 1267
object Label2: TLabel object Label2: TLabel
Left = 263 Left = 263
Top = 102 Top = 102
@ -539,13 +544,12 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end end
object WB_ProcessType: TcxComboBox object WB_ProcessType: TcxComboBox
Tag = 2 Tag = 2
Left = 100 Left = 98
Top = 6 Top = 6
Properties.Items.Strings = ( Properties.Items.Strings = (
#26412#21378#25972#32463 #26412#21378#25972#32463
#22806#21378#25972#32463 #22806#21378#25972#32463
#25972#32463#37319#36141 #25972#32463#37319#36141)
#22806#21378#27974#32433)
TabOrder = 10 TabOrder = 10
Text = #26412#21378#25972#32463 Text = #26412#21378#25972#32463
Width = 150 Width = 150
@ -694,7 +698,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Tag = 2 Tag = 2
Left = 1 Left = 1
Top = 1 Top = 1
Width = 546 Width = 520
Height = 770 Height = 770
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
@ -703,148 +707,184 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitLeft = -4 ExplicitLeft = -4
object Label15: TLabel
Left = 237
Top = 18
Width = 64
Height = 21
Caption = #29983#20135#31867#22411
end
object Label7: TLabel object Label7: TLabel
Left = 7 Left = 12
Top = 57 Top = 140
Width = 96 Width = 96
Height = 21 Height = 21
Caption = #25972#32463#24037#33402#32534#21495 Caption = #25972#32463#24037#33402#32534#21495
end end
object Label1: TLabel object Label1: TLabel
Left = 7 Left = 12
Top = 18 Top = 18
Width = 96 Width = 96
Height = 21 Height = 21
Caption = #25972#32463#20219#21153#21333#21495 Caption = #25972#32463#20219#21153#21333#21495
end end
object Label16: TLabel
Left = 7
Top = 408
Width = 64
Height = 21
Caption = #29301#32463#25490#21015
Color = clWhite
ParentColor = False
end
object Label5: TLabel object Label5: TLabel
Left = 237 Left = 237
Top = 57 Top = 138
Width = 96 Width = 96
Height = 21 Height = 21
Caption = #25972#32463#24037#33402#21517#31216 Caption = #25972#32463#24037#33402#21517#31216
end end
object Label8: TLabel
Left = 7
Top = 332
Width = 48
Height = 21
Caption = #20301#31227#37327
end
object Label11: TLabel object Label11: TLabel
Left = 7 Left = 12
Top = 137 Top = 181
Width = 48
Height = 21
Caption = #24635#22836#20221
end
object Label12: TLabel
Left = 7
Top = 254
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #31576#31359#20837#27861 Caption = #24635#32463#26681#25968
end
object Label13: TLabel
Left = 7
Top = 176
Width = 32
Height = 21
Caption = #21514#25968
end
object Label14: TLabel
Left = 7
Top = 215
Width = 64
Height = 21
Caption = #32463#36724#38376#24133
end
object Label17: TLabel
Left = 7
Top = 293
Width = 64
Height = 21
Caption = #22987#21514#20301#32622
end
object Label18: TLabel
Left = 237
Top = 136
Width = 64
Height = 21
Caption = #19978#25490#39063#25968
end
object Label19: TLabel
Left = 237
Top = 175
Width = 32
Height = 21
Caption = #38646#22836
end
object Label22: TLabel
Left = 237
Top = 253
Width = 64
Height = 21
Caption = #22369#26012#24230#25968
end
object Label23: TLabel
Left = 237
Top = 293
Width = 96
Height = 21
Caption = #29301#32463#24352#21147#21442#25968
end
object Label37: TLabel
Left = 237
Top = 332
Width = 32
Height = 21
Caption = #32463#23494
end end
object Label38: TLabel object Label38: TLabel
Left = 7 Left = 12
Top = 96 Top = 59
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #32455#36896#21333#21495 Caption = #32455#36896#21333#21495
end end
object Label47: TLabel object Label47: TLabel
Left = 237 Left = 237
Top = 97 Top = 56
Width = 32 Width = 32
Height = 21 Height = 21
Caption = #23458#25143 Caption = #23458#25143
end end
object Label20: TLabel object Label8: TLabel
Left = 403 Left = 12
Top = 209 Top = 100
Width = 64 Width = 48
Height = 21 Height = 21
Caption = #29301#32463#31576#21495 Caption = #35746#21333#21495
end
object Label14: TLabel
Left = 237
Top = 385
Width = 32
Height = 21
Caption = #31576#24133
end
object Label20: TLabel
Left = 237
Top = 303
Width = 32
Height = 21
Caption = #31576#21495
end end
object Label39: TLabel object Label39: TLabel
Left = 237 Left = 12
Top = 214 Top = 304
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #38050#31576#32534#21495 Caption = #38050#31576#32534#21495
end end
object Label22: TLabel
Left = 12
Top = 344
Width = 48
Height = 21
Caption = #36793#32433#25968
end
object Label23: TLabel
Left = 237
Top = 344
Width = 64
Height = 21
Caption = #22320#31359#20837#25968
end
object Label37: TLabel
Left = 12
Top = 385
Width = 48
Height = 21
Caption = #31576#40831#25968
end
object Label41: TLabel
Left = 12
Top = 426
Width = 64
Height = 21
Caption = #36793#31359#20837#27861
end
object Label12: TLabel
Left = 12
Top = 222
Width = 96
Height = 21
Caption = #32433#39550#26368#22823#39063#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 12
Top = 263
Width = 32
Height = 21
Caption = #26465#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 237
Top = 221
Width = 64
Height = 21
Caption = #19978#26550#39063#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Left = 237
Top = 262
Width = 32
Height = 21
Caption = #20313#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 237
Top = 97
Width = 64
Height = 21
Caption = #20135#21697#32534#21495
end
object Label19: TLabel
Left = 237
Top = 179
Width = 64
Height = 21
Caption = #29983#20135#31867#22411
end
object Label18: TLabel
Left = 237
Top = 15
Width = 64
Height = 21
Caption = #25490#21333#26085#26399
end
object Label40: TLabel
Left = 12
Top = 461
Width = 96
Height = 21
Caption = #35746#21333#32463#32433#38271#24230
end
object WBCNO: TcxTextEdit object WBCNO: TcxTextEdit
Tag = 1 Tag = 1
Left = 106 Left = 106
@ -854,20 +894,10 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
TabOrder = 0 TabOrder = 0
Width = 120 Width = 120
end end
object WB_Type: TcxComboBox
Tag = 1
Left = 338
Top = 12
Properties.Items.Strings = (
#22823#36135
#35797#26679)
TabOrder = 1
Width = 150
end
object WB_Code: TcxButtonEdit object WB_Code: TcxButtonEdit
Tag = 1 Tag = 1
Left = 106 Left = 106
Top = 51 Top = 134
ParentColor = True ParentColor = True
Properties.Buttons = < Properties.Buttons = <
item item
@ -877,112 +907,32 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = WB_CodePropertiesButtonClick Properties.OnButtonClick = WB_CodePropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 2 TabOrder = 1
Width = 120 Width = 120
end end
object WB_Name: TcxTextEdit object WB_Name: TcxTextEdit
Tag = 1 Tag = 1
Left = 338 Left = 338
Top = 51 Top = 135
ParentColor = True ParentColor = True
TabOrder = 3 TabOrder = 2
Width = 150 Width = 120
end end
object WB_YarnQty: TcxTextEdit object WB_YarnQty: TcxTextEdit
Tag = 1 Tag = 1
Left = 106 Left = 106
Top = 131 Top = 175
ParentColor = True ParentColor = True
TabOrder = 4 TabOrder = 3
Width = 120 Width = 120
end end
object WB_Move: TcxTextEdit
Tag = 1
Left = 106
Top = 326
ParentColor = True
TabOrder = 5
Width = 120
end
object WB_ReedNote: TcxTextEdit
Tag = 1
Left = 106
Top = 248
ParentColor = True
TabOrder = 6
Width = 120
end
object WB_YarnStripQty: TcxTextEdit
Tag = 1
Left = 106
Top = 170
ParentColor = True
TabOrder = 7
Width = 120
end
object WB_Width: TcxTextEdit
Tag = 1
Left = 106
Top = 209
ParentColor = True
TabOrder = 8
Width = 120
end
object WB_Arg_SDWZ: TcxTextEdit
Tag = 1
Left = 106
Top = 287
ParentColor = True
TabOrder = 9
Width = 120
end
object WB_YarnArr: TcxTextEdit
Tag = 1
Left = 338
Top = 131
ParentColor = True
TabOrder = 10
Width = 150
end
object WB_YarnStripRemainder: TcxTextEdit
Tag = 1
Left = 338
Top = 170
ParentColor = True
TabOrder = 11
Width = 150
end
object WB_Arg_PXDS: TcxTextEdit
Tag = 1
Left = 337
Top = 248
ParentColor = True
TabOrder = 12
Width = 150
end
object WB_Arg_QJZL: TcxTextEdit
Tag = 1
Left = 337
Top = 287
ParentColor = True
TabOrder = 13
Width = 150
end
object WB_YarnArrNote: TcxMemo
Tag = 1
Left = 106
Top = 363
TabOrder = 14
Height = 111
Width = 423
end
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 2 Left = 2
Top = 528 Top = 528
Width = 542 Width = 516
Height = 240 Height = 240
Align = alBottom Align = alBottom
TabOrder = 15 TabOrder = 4
ExplicitLeft = -1 ExplicitLeft = -1
ExplicitTop = 529 ExplicitTop = 529
object TV3: TcxGridDBTableView object TV3: TcxGridDBTableView
@ -1170,18 +1120,10 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
GridView = TV3 GridView = TV3
end end
end end
object WB_YarnDensity: TcxTextEdit
Tag = 1
Left = 337
Top = 326
ParentColor = True
TabOrder = 16
Width = 150
end
object GYNo: TcxButtonEdit object GYNo: TcxButtonEdit
Tag = 1 Tag = 1
Left = 106 Left = 106
Top = 90 Top = 53
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -1190,14 +1132,14 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = GYNoPropertiesButtonClick Properties.OnButtonClick = GYNoPropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 17 TabOrder = 5
OnDblClick = GYNoDblClick OnDblClick = GYNoDblClick
Width = 120 Width = 120
end end
object CustName: TcxButtonEdit object CustName: TcxButtonEdit
Tag = 1 Tag = 1
Left = 338 Left = 338
Top = 92 Top = 54
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -1206,31 +1148,150 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = CustNamePropertiesButtonClick Properties.OnButtonClick = CustNamePropertiesButtonClick
Style.ButtonStyle = btsDefault Style.ButtonStyle = btsDefault
TabOrder = 18 TabOrder = 6
OnDblClick = GYNoDblClick OnDblClick = GYNoDblClick
Width = 150 Width = 120
end
object CONNO: TcxTextEdit
Tag = 1
Left = 106
Top = 94
ParentColor = True
TabOrder = 7
Width = 120
end
object WB_Width: TcxTextEdit
Tag = 1
Left = 338
Top = 378
ParentColor = True
TabOrder = 8
Width = 120
end end
object WB_ReedNo: TcxTextEdit object WB_ReedNo: TcxTextEdit
Tag = 2 Tag = 1
Left = 473 Left = 338
Top = 206 Top = 297
ParentColor = True ParentColor = True
Properties.ReadOnly = True Properties.ReadOnly = True
TabOrder = 19 TabOrder = 9
Width = 65 Width = 120
end end
object GKBH: TcxButtonEdit object GKBH: TcxButtonEdit
Tag = 2 Tag = 1
Left = 308 Left = 106
Top = 206 Top = 298
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.OnButtonClick = GKBHPropertiesButtonClick Properties.OnButtonClick = GKBHPropertiesButtonClick
TabOrder = 10
Width = 120
end
object BSQTY: TcxTextEdit
Tag = 1
Left = 106
Top = 338
ParentColor = True
TabOrder = 11
Width = 120
end
object DCRQTY: TcxTextEdit
Tag = 1
Left = 338
Top = 338
ParentColor = True
TabOrder = 12
Width = 120
end
object C_KCQTY: TcxTextEdit
Tag = 1
Left = 106
Top = 379
ParentColor = True
TabOrder = 13
Width = 120
end
object WB_ReedNote: TcxTextEdit
Tag = 1
Left = 106
Top = 420
ParentColor = True
TabOrder = 14
Width = 352
end
object F_MAXKESHU: TcxTextEdit
Tag = 2
Left = 106
Top = 216
ParentColor = True
TabOrder = 15
Text = '640'
Width = 120
end
object F_YarnStripQty: TcxTextEdit
Tag = 2
Left = 106
Top = 257
ParentColor = True
TabOrder = 16
Width = 120
end
object F_SJKESHU: TcxTextEdit
Tag = 2
Left = 338
Top = 216
ParentColor = True
Properties.ReadOnly = True
TabOrder = 17
Width = 120
end
object F_YUSHU: TcxTextEdit
Tag = 2
Left = 338
Top = 257
ParentColor = True
Properties.ReadOnly = True
TabOrder = 18
Width = 120
end
object C_CODE: TcxTextEdit
Tag = 1
Left = 338
Top = 95
ParentColor = True
TabOrder = 19
Width = 120
end
object WB_TYPE: TcxTextEdit
Tag = 8
Left = 338
Top = 176
ParentColor = True
Properties.ReadOnly = True
TabOrder = 20 TabOrder = 20
Width = 89 Text = #32463#36724
Width = 120
end
object BegDate: TcxDateEdit
Left = 338
Top = 10
AutoSize = False
Properties.ImmediatePost = True
Properties.ShowTime = False
TabOrder = 21
Height = 33
Width = 120
end
object ordqty: TcxTextEdit
Tag = 1
Left = 106
Top = 455
ParentColor = True
TabOrder = 22
Width = 120
end end
end end
end end

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

@ -14,7 +14,7 @@ uses
dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer, dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer,
cxMaskEdit, cxDropDownEdit, cxRichEdit, cxMemo, dxScrollbarAnnotations, cxMaskEdit, cxDropDownEdit, cxRichEdit, cxMemo, dxScrollbarAnnotations,
dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI; dxSkinSharpPlus, dxSkinWXI, dxCore, cxDateUtils;
type type
TfrmTatWBCardInPut = class(TfrmBaseInput) TfrmTatWBCardInPut = class(TfrmBaseInput)
@ -46,39 +46,17 @@ type
ToolButton2: TToolButton; ToolButton2: TToolButton;
TBClose: TToolButton; TBClose: TToolButton;
Panel1: TPanel; Panel1: TPanel;
Label15: TLabel;
GPM_2: TcxGridPopupMenu; GPM_2: TcxGridPopupMenu;
Label7: TLabel; Label7: TLabel;
Label1: TLabel; Label1: TLabel;
PM_1: TPopupMenu; PM_1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
Label16: TLabel;
WBCNO: TcxTextEdit; WBCNO: TcxTextEdit;
WB_Type: TcxComboBox;
WB_Code: TcxButtonEdit; WB_Code: TcxButtonEdit;
Label5: TLabel; Label5: TLabel;
WB_Name: TcxTextEdit; WB_Name: TcxTextEdit;
Label8: TLabel;
Label11: TLabel; Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
WB_YarnQty: TcxTextEdit; WB_YarnQty: TcxTextEdit;
WB_Move: TcxTextEdit;
WB_ReedNote: TcxTextEdit;
WB_YarnStripQty: TcxTextEdit;
WB_Width: TcxTextEdit;
Label17: TLabel;
WB_Arg_SDWZ: TcxTextEdit;
Label18: TLabel;
Label19: TLabel;
Label22: TLabel;
Label23: TLabel;
WB_YarnArr: TcxTextEdit;
WB_YarnStripRemainder: TcxTextEdit;
WB_Arg_PXDS: TcxTextEdit;
WB_Arg_QJZL: TcxTextEdit;
WB_YarnArrNote: TcxMemo;
TV2Column2: TcxGridDBColumn; TV2Column2: TcxGridDBColumn;
DS_3: TDataSource; DS_3: TDataSource;
GPM_3: TcxGridPopupMenu; GPM_3: TcxGridPopupMenu;
@ -147,8 +125,6 @@ type
TV2Column7: TcxGridDBColumn; TV2Column7: TcxGridDBColumn;
TV2Column8: TcxGridDBColumn; TV2Column8: TcxGridDBColumn;
TV2Column9: TcxGridDBColumn; TV2Column9: TcxGridDBColumn;
Label37: TLabel;
WB_YarnDensity: TcxTextEdit;
TV3Column1: TcxGridDBColumn; TV3Column1: TcxGridDBColumn;
TV3Column2: TcxGridDBColumn; TV3Column2: TcxGridDBColumn;
TV3Column3: TcxGridDBColumn; TV3Column3: TcxGridDBColumn;
@ -157,10 +133,38 @@ type
GYNo: TcxButtonEdit; GYNo: TcxButtonEdit;
Label47: TLabel; Label47: TLabel;
CustName: TcxButtonEdit; CustName: TcxButtonEdit;
Label8: TLabel;
CONNO: TcxTextEdit;
Label14: TLabel;
Label20: TLabel; Label20: TLabel;
Label39: TLabel; Label39: TLabel;
WB_Width: TcxTextEdit;
WB_ReedNo: TcxTextEdit; WB_ReedNo: TcxTextEdit;
GKBH: TcxButtonEdit; GKBH: TcxButtonEdit;
Label22: TLabel;
Label23: TLabel;
BSQTY: TcxTextEdit;
DCRQTY: TcxTextEdit;
Label37: TLabel;
C_KCQTY: TcxTextEdit;
Label41: TLabel;
WB_ReedNote: TcxTextEdit;
Label12: TLabel;
Label13: TLabel;
Label15: TLabel;
Label16: TLabel;
F_MAXKESHU: TcxTextEdit;
F_YarnStripQty: TcxTextEdit;
F_SJKESHU: TcxTextEdit;
F_YUSHU: TcxTextEdit;
Label17: TLabel;
C_CODE: TcxTextEdit;
Label19: TLabel;
WB_TYPE: TcxTextEdit;
BegDate: TcxDateEdit;
Label18: TLabel;
Label40: TLabel;
ordqty: TcxTextEdit;
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);
@ -277,8 +281,6 @@ begin
if Trim(WB_MachNo.Text) = '' then if Trim(WB_MachNo.Text) = '' then
raise Exception.Create('迁经机不能为空！'); raise Exception.Create('迁经机不能为空！');
end; end;
if Trim(WB_YarnDensity.Text) = '' then
raise Exception.Create('经密不能为空！');
// if StrToIntDef(WB_ClothPiece.Text, 0) = 0 then // if StrToIntDef(WB_ClothPiece.Text, 0) = 0 then
// WB_ClothPiece.Text := '0'; // WB_ClothPiece.Text := '0';
@ -406,19 +408,6 @@ begin
Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString); Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString); Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString);
Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value; Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value;
Self.WB_YarnArr.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArr').AsString);
Self.WB_YarnStripQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnStripQty').AsString);
Self.WB_YarnStripRemainder.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnStripRemainder').AsString);
Self.WB_Width.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
Self.WB_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString);
Self.WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString);
Self.WB_Arg_PXDS.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Arg_PXDS').AsString);
Self.WB_Arg_SDWZ.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Arg_SDWZ').AsString);
Self.WB_Arg_QJZL.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Arg_QJZL').AsString);
Self.WB_Move.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Move').AsString);
Self.WB_YarnArrNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString);
Self.WB_YarnDensity.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnDensity').AsString);
Self.Note.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('Note').AsString);
Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString); Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString);
Self.InitCard3(); Self.InitCard3();
@ -548,7 +537,10 @@ begin
Self.CustName.Text := CDS_1.FieldByName('CustName').asstring; Self.CustName.Text := CDS_1.FieldByName('CustName').asstring;
Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring; Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring;
Self.CONNO.Text := Trim(CDS_1.fieldbyname('CONNO').AsString);
Self.C_CODE.Text := Trim(CDS_1.fieldbyname('C_CODE').AsString);
Self.BegDate.Date := CDS_1.fieldbyname('ORDDATE').AsDateTime;
Self.ordqty.Text := Trim(CDS_1.fieldbyname('ordqty').AsString);
with ADOQueryTemp do with ADOQueryTemp do
begin begin
close; close;
@ -562,18 +554,20 @@ begin
Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString); Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString); Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString);
Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring; Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring;
Self.WB_YarnArr.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnArr').AsString);
Self.WB_YarnStripQty.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnStripQty').AsString); Self.F_MAXKESHU.Text := ADOQueryTemp.fieldbyname('F_MAXKESHU').asstring;
Self.WB_YarnStripRemainder.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnStripRemainder').AsString); Self.F_SJKESHU.Text := ADOQueryTemp.fieldbyname('F_SJKESHU').asstring;
Self.F_YarnStripQty.Text := ADOQueryTemp.fieldbyname('F_YarnStripQty').asstring;
Self.F_YUSHU.Text := ADOQueryTemp.fieldbyname('F_YUSHU').asstring;
Self.GKBH.Text := ADOQueryTemp.fieldbyname('GKBH').asstring;
Self.BSQTY.Text := ADOQueryTemp.fieldbyname('BSQTY').asstring;
Self.DCRQTY.Text := ADOQueryTemp.fieldbyname('DCRQTY').asstring;
Self.C_KCQTY.Text := ADOQueryTemp.fieldbyname('C_KCQTY').asstring;
Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString); Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString);
Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString); Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString);
Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString); Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString);
Self.WB_Arg_PXDS.Text := Trim(ADOQueryTemp.fieldbyname('WB_Arg_PXDS').AsString);
Self.WB_Arg_SDWZ.Text := Trim(ADOQueryTemp.fieldbyname('WB_Arg_SDWZ').AsString);
Self.WB_Arg_QJZL.Text := Trim(ADOQueryTemp.fieldbyname('WB_Arg_QJZL').AsString);
Self.WB_Move.Text := Trim(ADOQueryTemp.fieldbyname('WB_Move').AsString);
Self.WB_YarnArrNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnArrNote').AsString);
Self.WB_YarnDensity.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnDensity').AsString);
Self.Note.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString); Self.Note.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString);
Self.InitCard3(); Self.InitCard3();
@ -628,27 +622,29 @@ begin
Close; Close;
sql.Clear; sql.Clear;
////////////////// 插入轴卡 ////////////////////// ////////////////// 插入轴卡 //////////////////////
sql.Add(' insert into Tat_WB_Card(WBCNO,WBCID,WBType,WB_ProcessType,WB_Code,WB_Name,WB_YarnQty,WB_YarnArr,WB_YarnLen,WB_Macher,WB_MachNo,WB_Type,Note,FillId,Filler,WB_YarnDensity'); sql.Add(' insert into Tat_WB_Card(WBCNO,TWPId,WBCID,WBType,WB_ProcessType,WB_Code,WB_Name,WB_YarnQty,WB_YARNARR,WB_YarnLen,WB_Macher,WB_MachNo,WB_Type,Note,FillId,Filler');
sql.Add(' ,WB_YarnStripQty,WB_YarnStripRemainder,WB_Width,WB_ReedNo,WB_ReedNote,WB_Arg_PXDS,WB_Arg_SDWZ,WB_Arg_QJZL,WB_Move,WB_YarnArrNote,WBFtyNo,WBFtyName,WBBelong,WBBelongCoNo,WBBelongCoName '); sql.Add(' ,WB_Width,WB_ReedNo,WB_ReedNote,WBFtyNo,WBFtyName,WBBelong,WBBelongCoNo,WBBelongCoName ');
sql.Add(' ,GYSubid,GYNo,CustNo,CustName,GKBH'); sql.Add(' ,GYSubid,GYNo,CustNo,CustName,GKBH,C_CODE');
SQL.Add(' ,BSQTY,DCRQTY,C_KCQTY');
sql.Add(' ) values'); sql.Add(' ) values');
for i := 1 to MCardQty do for i := 1 to MCardQty do
begin begin
if GetLSNo(ADOQueryTemp, MWBCID, fDate + trim(WB_MachNo.Text), 'Tat_WB_Card', 4, 0) = False then if GetLSNo(ADOQueryTemp, MWBCID, 'JZ' + fDate, 'Tat_WB_Card', 2, 0) = False then
begin begin
raise Exception.Create('取布票流水号失败!'); raise Exception.Create('取布票流水号失败!');
end; end;
if i > 1 then if i > 1 then
sql.Add(','); sql.Add(',');
sql.Add(' (' + Quotedstr(Trim(FWBCNO))); sql.Add(' (' + Quotedstr(Trim(WBCNO.Text)));
sql.Add(',' + Quotedstr(Trim(WBCNO.Text)));
sql.Add(',' + Quotedstr(Trim(MWBCID))); sql.Add(',' + Quotedstr(Trim(MWBCID)));
sql.Add(',' + Quotedstr(Trim(MWBType))); sql.Add(',' + Quotedstr(Trim(MWBType)));
sql.Add(',' + Quotedstr(Trim(WB_ProcessType.Text))); sql.Add(',' + Quotedstr(Trim(WB_ProcessType.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Code.Text))); sql.Add(',' + Quotedstr(Trim(WB_Code.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Name.Text))); sql.Add(',' + Quotedstr(Trim(WB_Name.Text)));
sql.Add(',' + (Trim(WB_YarnQty.Text))); sql.Add(',' + (Trim(WB_YarnQty.Text)));
sql.Add(',' + Quotedstr(Trim(WB_YarnArr.Text))); sql.Add(',' + (Trim(F_SJKESHU.Text)));
sql.Add(',' + FloatToStr(MWB_YarnLen)); sql.Add(',' + FloatToStr(MWB_YarnLen));
sql.Add(',' + Quotedstr(Trim(WB_Macher.Text))); sql.Add(',' + Quotedstr(Trim(WB_Macher.Text)));
sql.Add(',' + Quotedstr(Trim(WB_MachNo.Text))); sql.Add(',' + Quotedstr(Trim(WB_MachNo.Text)));
@ -656,54 +652,29 @@ begin
sql.Add(',' + Quotedstr(Trim(Note.Text))); sql.Add(',' + Quotedstr(Trim(Note.Text)));
sql.Add(',' + Quotedstr(Trim(DCode))); sql.Add(',' + Quotedstr(Trim(DCode)));
sql.Add(',' + Quotedstr(Trim(DName))); sql.Add(',' + Quotedstr(Trim(DName)));
sql.Add(',' + Quotedstr(Trim(WB_YarnDensity.Text)));
sql.Add(',' + Quotedstr(Trim(WB_YarnStripQty.Text)));
sql.Add(',' + Quotedstr(Trim(WB_YarnStripRemainder.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Width.Text))); sql.Add(',' + Quotedstr(Trim(WB_Width.Text)));
sql.Add(',' + Quotedstr(Trim(WB_ReedNo.Text))); sql.Add(',' + Quotedstr(Trim(WB_ReedNo.Text)));
sql.Add(',' + Quotedstr(Trim(WB_ReedNote.Text))); sql.Add(',' + Quotedstr(Trim(WB_ReedNote.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Arg_PXDS.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Arg_SDWZ.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Arg_QJZL.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Move.Text)));
sql.Add(',' + Quotedstr(Trim(WB_YarnArrNote.Text)));
sql.Add(',' + Quotedstr(Trim(WBFtyName.Properties.LookupItems.Text))); sql.Add(',' + Quotedstr(Trim(WBFtyName.Properties.LookupItems.Text)));
sql.Add(',' + Quotedstr(Trim(WBFtyName.Text))); sql.Add(',' + Quotedstr(Trim(WBFtyName.Text)));
sql.Add(',' + Quotedstr(Trim(MWBBelong))); sql.Add(',' + Quotedstr(Trim(MWBBelong)));
sql.Add(',' + Quotedstr(Trim(MWBBelongCoNo))); sql.Add(',' + Quotedstr(Trim(MWBBelongCoNo)));
sql.Add(',' + Quotedstr(Trim(MWBBelongCoName))); sql.Add(',' + Quotedstr(Trim(MWBBelongCoName)));
sql.Add(',' + Quotedstr(Trim(GYNo.Properties.LookupItems.Text))); sql.Add(',' + Quotedstr(Trim(GYNo.Properties.LookupItems.Text)));
sql.Add(',' + Quotedstr(Trim(GYNo.Text))); sql.Add(',' + Quotedstr(Trim(GYNo.Text)));
sql.Add(',' + Quotedstr(Trim(CustName.Properties.LookupItems.Text))); sql.Add(',' + Quotedstr(Trim(CustName.Properties.LookupItems.Text)));
sql.Add(',' + Quotedstr(Trim(CustName.Text))); sql.Add(',' + Quotedstr(Trim(CustName.Text)));
sql.Add(',' + Quotedstr(Trim(GKBH.Text))); sql.Add(',' + Quotedstr(Trim(GKBH.Text)));
sql.Add(',' + Quotedstr(Trim(C_CODE.Text)));
sql.Add(',' + (Trim(BSQTY.Text)));
sql.Add(',' + (Trim(DCRQTY.Text)));
sql.Add(',' + Quotedstr(Trim(C_KCQTY.Text)));
sql.Add(' )'); sql.Add(' )');
end; end;
////////////////// 插入轴卡 //////////////////////
///
////////////////// 插入轴卡计划单 //////////////////////
// if not CDS_1.IsEmpty then
// begin
// with CDS_1 do
// begin
// First;
// sql.Add(' delete Tat_WB_Card_Link where WBCNO=' + Quotedstr(Trim(FWBCNO)));
//
// while not Eof do
// begin
// sql.Add(' insert into Tat_WB_Card_Link(MainId,SubID,WBCNO) values');
// sql.Add(' (' + Quotedstr(Trim(CDS_1.FieldByName('MainId').AsString)));
// sql.Add(',' + Quotedstr(Trim(CDS_1.FieldByName('SubID').AsString)));
// sql.Add(',' + Quotedstr(Trim(FWBCNO)));
// sql.Add(' )');
// Next;
// end;
// end;
// end;
////////////////// 插入轴卡计划单 //////////////////////
ExecSQL; ExecSQL;
end; end;
with ADOQueryTemp do with ADOQueryTemp do

1275
E02梭织经轴仓库/U_TatWBCardInPut2.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

1012
E02梭织经轴仓库/U_TatWBCardInPut2.pas Normal file
View File

File diff suppressed because it is too large Load Diff

78
E02梭织经轴仓库/U_TatWBNeedList.dfm
View File

@ -3,8 +3,8 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
ClientHeight = 792 ClientHeight = 792
ClientWidth = 1540 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild
Visible = True Visible = True
WindowState = wsMaximized
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 831 ExplicitHeight = 831
PixelsPerInch = 96 PixelsPerInch = 96
@ -31,7 +31,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 5 TabOrder = 4
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -48,49 +48,16 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
ImageIndex = 0 ImageIndex = 0
OnClick = TBFindClick OnClick = TBFindClick
end end
object ToolButton2: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #21333#20215#20462#25913
ImageIndex = 3
Visible = False
OnClick = ToolButton2Click
end
object TbLook: TToolButton object TbLook: TToolButton
Left = 213 Left = 126
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
ImageIndex = 8 ImageIndex = 8
OnClick = TbLookClick OnClick = TbLookClick
end end
object ToolButton3: TToolButton
Left = 276
Top = 0
AutoSize = True
Caption = #23545#36134
ImageIndex = 19
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 339
Top = 0
AutoSize = True
Caption = #25764#38144#23545#36134
ImageIndex = 11
OnClick = ToolButton4Click
end
object TBdel: TToolButton
Left = 426
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBdelClick
end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 489 Left = 189
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -98,7 +65,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
Visible = False Visible = False
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 552 Left = 252
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986'Excel' Caption = #23548#20986'Excel'
@ -106,7 +73,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 645 Left = 345
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -114,7 +81,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 732 Left = 432
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -132,7 +99,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 6 TabOrder = 5
object Label2: TLabel object Label2: TLabel
Left = 300 Left = 300
Top = 46 Top = 46
@ -189,13 +156,13 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 138 Top = 109
Width = 1540 Width = 1540
Height = 654 Height = 683
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 144 ExplicitTop = 115
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -323,26 +290,11 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
end end
object cxTabControl1: TcxTabControl [4]
Left = 0
Top = 109
Width = 1540
Height = 29
Align = alTop
TabOrder = 4
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#23545#36134
#24050#23545#36134
#20840#37096)
OnChange = cxTabControl1Change
ExplicitTop = 115
ClientRectRight = 0
ClientRectTop = 0
end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Left = 300
Top = 264
ExplicitLeft = 300
ExplicitTop = 264
ExplicitHeight = 29 ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

36
E02梭织经轴仓库/U_TatWBNeedList.pas
View File

@ -36,7 +36,6 @@ type
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
MovePanel2: TMovePanel; MovePanel2: TMovePanel;
RMGridReport1: TRMGridReport; RMGridReport1: TRMGridReport;
TBdel: TToolButton;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
@ -52,10 +51,6 @@ type
Tv1Column27: TcxGridDBColumn; Tv1Column27: TcxGridDBColumn;
Tv1Column28: TcxGridDBColumn; Tv1Column28: TcxGridDBColumn;
frmFrameDateSel1: TfrmFrameDateSel; frmFrameDateSel1: TfrmFrameDateSel;
ToolButton2: TToolButton;
cxTabControl1: TcxTabControl;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
Label2: TLabel; Label2: TLabel;
WB_Name: TcxTextEdit; WB_Name: TcxTextEdit;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
@ -81,7 +76,7 @@ type
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure pcidPropertiesChange(Sender: TObject); procedure pcidPropertiesChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure TbLookClick(Sender: TObject); procedure TbLookClick(Sender: TObject);
@ -102,42 +97,17 @@ var
implementation implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_OutPutHelp,U_WBNeedLook; U_DataLink, U_RTFun, U_ZDYHelp, U_OutPutHelp, U_WBNeedLook;
{$R *.dfm} {$R *.dfm}
procedure TfrmTatWBNeedList.setstatus(); procedure TfrmTatWBNeedList.setstatus();
begin begin
ToolButton3.Enabled := False;
ToolButton4.Enabled := False;
TBdel.Enabled := False;
Label1.Visible := false; Label1.Visible := false;
case cxTabControl1.TabIndex of
0:
begin
ToolButton3.Enabled := true;
TBdel.Enabled := true;
Label1.Visible := true;
end;
1:
begin
ToolButton4.Enabled := true;
end;
2:
begin
end;
end;
end; end;
procedure TfrmTatWBNeedList.FormDestroy(Sender: TObject); procedure TfrmTatWBNeedList.FormDestroy(Sender: TObject);
begin begin
inherited; inherited;
@ -375,7 +345,7 @@ begin
frmWBNeedLook := TfrmWBNeedLook.Create(Application); frmWBNeedLook := TfrmWBNeedLook.Create(Application);
with frmWBNeedLook do with frmWBNeedLook do
begin begin
FWB_Code := SELF.CDS_Main.FieldByName('WB_Code').ASSTRING;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.InitGrid(); Self.InitGrid();

18
E02梭织经轴仓库/U_TatWBPlan.dfm
View File

@ -6,6 +6,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
ClientWidth = 1540 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
Position = poScreenCenter Position = poScreenCenter
ExplicitLeft = -17
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 691 ExplicitHeight = 691
PixelsPerInch = 96 PixelsPerInch = 96
@ -202,7 +203,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Height = 29 Height = 29
Date = 40675.000000000000000000 Date = 40675.000000000000000000
Format = 'yyyy-MM-dd' Format = 'yyyy-MM-dd'
Time = 0.464761099538009200 Time = 0.464761099538009100
TabOrder = 1 TabOrder = 1
end end
object CustName: TEdit object CustName: TEdit
@ -331,13 +332,6 @@ inherited frmTatWBPlan: TfrmTatWBPlan
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 71 Width = 71
end end
object Tv1Column1: TcxGridDBColumn
Caption = #20844#21496#25260#22836
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 82
end
object v1Column19: TcxGridDBColumn object v1Column19: TcxGridDBColumn
Caption = #20132#36135#26085#26399 Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate' DataBinding.FieldName = 'DlyDate'
@ -350,7 +344,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan
end end
object v1Column21: TcxGridDBColumn object v1Column21: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'WB_Spec' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 92 Width = 92
@ -438,6 +432,8 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 6
ExplicitTop = 61
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -603,9 +599,11 @@ inherited frmTatWBPlan: TfrmTatWBPlan
Properties.Style = 6 Properties.Style = 6
Properties.TabIndex = 0 Properties.TabIndex = 0
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#32463#36724 #31232#36724
#27974#36724) #27974#36724)
OnChange = cxTabControl2Change OnChange = cxTabControl2Change
ExplicitLeft = 6
ExplicitTop = 45
ClientRectBottom = 30 ClientRectBottom = 30
ClientRectRight = 564 ClientRectRight = 564
ClientRectTop = 30 ClientRectTop = 30

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

@ -53,7 +53,6 @@ type
CustName: TEdit; CustName: TEdit;
Label7: TLabel; Label7: TLabel;
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
TBEnd: TToolButton; TBEnd: TToolButton;
TBNoEnd: TToolButton; TBNoEnd: TToolButton;
@ -146,9 +145,10 @@ implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBPlanInPut, U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatWBPlanInPut,
U_TatWBPlanCardInPut; U_TatWBCardInPut2; //U_TatWBPlanCardInPut
{$R *.dfm} {$R *.dfm}
procedure TfrmTatWBPlan.InitCard(); procedure TfrmTatWBPlan.InitCard();
begin begin
with ADO_2 do with ADO_2 do
@ -161,7 +161,7 @@ begin
case cxTabControl2.TabIndex of case cxTabControl2.TabIndex of
0: 0:
begin begin
sql.Add('and WB_Type =''¾­Öá'' '); sql.Add('and WB_Type =''Ï¡Öá'' ');
end; end;
1: 1:
begin begin
@ -440,8 +440,8 @@ begin
Close; Close;
sql.Clear; sql.Clear;
SQL.Add('select A.*'); SQL.Add('select A.*');
sql.Add('from Tat_WB_Plan A'); sql.Add('from Tat_WB_CARD A');
sql.Add(' where A.TWPId=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + ''''); sql.Add(' where A.WBCNO=''' + Trim(CDS_1.fieldbyname('TWPId').AsString) + '''');
Open; Open;
end; end;
if ADOQueryTemp.IsEmpty = False then if ADOQueryTemp.IsEmpty = False then
@ -594,14 +594,14 @@ end;
procedure TfrmTatWBPlan.ToolButton2Click(Sender: TObject); procedure TfrmTatWBPlan.ToolButton2Click(Sender: TObject);
begin begin
try try
frmTatWBPlanCardInPut := TfrmTatWBPlanCardInPut.Create(Application); frmTatWBCardInPut2 := TfrmTatWBCardInPut2.Create(Application);
with frmTatWBPlanCardInPut do with frmTatWBCardInPut2 do
begin begin
FTWPId := Trim(self.CDS_1.fieldbyname('TWPId').AsString); FTWPId := Trim(self.CDS_1.fieldbyname('TWPId').AsString);
case cxTabControl2.TabIndex of case cxTabControl2.TabIndex of
0: 0:
begin begin
FWB_Type := '¾­Öá'; FWB_Type := 'Ï¡Öá';
end; end;
1: 1:
begin begin
@ -615,7 +615,7 @@ begin
end; end;
end; end;
finally finally
frmTatWBPlanCardInPut.Free; frmTatWBCardInPut2.Free;
end; end;
end; end;

2
E02梭织经轴仓库/U_TatWBPlanCard.pas
View File

@ -219,7 +219,7 @@ begin
sql.Add(' where 1=1'); sql.Add(' where 1=1');
sql.add(' and A.WB_Date>=''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.BegDate.Date)) + ''''); sql.add(' and A.WB_Date>=''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.BegDate.Date)) + '''');
sql.Add(' and A.WB_Date<''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.enddate.Date + 1)) + ''''); sql.Add(' and A.WB_Date<''' + Trim(FormatDateTime('yyyy-MM-dd', Frame11.enddate.Date + 1)) + '''');
sql.Add(' and WB_Type not in (''½¬Öá'')'); sql.Add(' and WB_Type not in (''½¬Öá'',''Ï¡Öá'')');
// showmessage(Sql.text); // showmessage(Sql.text);
// ShowMessage(sql.text); // ShowMessage(sql.text);

792
E02梭织经轴仓库/U_TatWBPlanCardInPut.dfm
View File

@ -2,7 +2,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Left = -35 Left = -35
Top = 98 Top = 98
Caption = #32463#36724#35745#21010 Caption = #32463#36724#35745#21010
ClientHeight = 667 ClientHeight = 734
ClientWidth = 1540 ClientWidth = 1540
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -10,27 +10,32 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 706 ExplicitHeight = 773
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object Panel2: TPanel [0] object Panel2: TPanel [0]
Left = 0 Left = 546
Top = 0 Top = 0
Width = 1540 Width = 994
Height = 667 Height = 734
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 0
ExplicitWidth = 1540
ExplicitHeight = 667
object Panel1: TPanel object Panel1: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1538 Width = 992
Height = 83 Height = 168
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 5
ExplicitWidth = 1538
object Label8: TLabel object Label8: TLabel
Left = 377 Left = 377
Top = 50 Top = 50
@ -124,7 +129,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
end end
object Label19: TLabel object Label19: TLabel
Left = 17 Left = 17
Top = 50 Top = 53
Width = 54 Width = 54
Height = 12 Height = 12
Caption = #21697' '#21517 Caption = #21697' '#21517
@ -149,6 +154,45 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
ParentFont = False ParentFont = False
Visible = False Visible = False
end end
object Label1: TLabel
Left = 17
Top = 86
Width = 52
Height = 12
Caption = #32463#36724#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label30: TLabel
Left = 230
Top = 100
Width = 104
Height = 12
Caption = #25972#32463#21152#24037#37319#36141#21333#20301
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 542
Top = 98
Width = 59
Height = 12
Caption = #30424#22836#31867#22411'1'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object WB_YarnQty: TEdit object WB_YarnQty: TEdit
Tag = 1 Tag = 1
Left = 436 Left = 436
@ -168,7 +212,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
object WB_Spec: TEdit object WB_Spec: TEdit
Tag = 1 Tag = 1
Left = 76 Left = 76
Top = 46 Top = 50
Width = 282 Width = 282
Height = 20 Height = 20
TabOrder = 2 TabOrder = 2
@ -236,27 +280,96 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
OnBtnUpClick = WBNoBtnUpClick OnBtnUpClick = WBNoBtnUpClick
OnBtnDnClick = FtyCoNameBtnDnClick OnBtnDnClick = FtyCoNameBtnDnClick
end end
object WB_ProcessType: TcxComboBox
Tag = 2
Left = 76
Top = 83
ParentFont = False
Properties.Items.Strings = (
#26412#21378#25972#32463
#22806#21378#25972#32463
#25972#32463#37319#36141
#22806#21378#27974#32433)
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -12
Style.Font.Name = #23435#20307
Style.Font.Style = [fsBold]
Style.IsFontAssigned = True
TabOrder = 9
Text = #26412#21378#25972#32463
Width = 150
end
object WBFtyName: TcxButtonEdit
Tag = 2
Left = 362
Top = 94
ParentColor = True
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -12
Style.Font.Name = #23435#20307
Style.Font.Style = [fsBold]
Style.ButtonStyle = btsDefault
Style.IsFontAssigned = True
TabOrder = 10
Width = 150
end
object WBType1: TcxButtonEdit
Tag = 2
Left = 619
Top = 94
ParentColor = True
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -12
Style.Font.Name = #23435#20307
Style.Font.Style = [fsBold]
Style.ButtonStyle = btsDefault
Style.IsFontAssigned = True
TabOrder = 11
Width = 150
end
end end
object Panel4: TPanel object Panel4: TPanel
Left = 1 Left = 1
Top = 84 Top = 169
Width = 1538 Width = 992
Height = 582 Height = 564
Align = alClient Align = alClient
Caption = 'Panel4' Caption = 'Panel4'
TabOrder = 0 TabOrder = 0
ExplicitTop = 84
ExplicitWidth = 1538
ExplicitHeight = 582
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1536 Width = 990
Height = 580 Height = 562
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1536
ExplicitHeight = 580
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 1 Left = 1
Top = 282 Top = 42
Width = 1534 Width = 988
Height = 297 Height = 519
Align = alClient Align = alClient
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -271,16 +384,18 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 6 Properties.Style = 6
ClientRectBottom = 297 ExplicitTop = 282
ClientRectRight = 1534 ExplicitWidth = 1534
ExplicitHeight = 297
ClientRectBottom = 519
ClientRectRight = 988
ClientRectTop = 0 ClientRectTop = 0
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 42 Top = 47
Width = 1534 Width = 1534
Height = 240 Height = 179
Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -288,6 +403,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
Visible = False
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -381,34 +497,14 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
object Panel5: TPanel object Panel5: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1534 Width = 988
Height = 41 Height = 41
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
object Panel6: TPanel ExplicitLeft = -4
Left = 1
Top = 1
Width = 184
Height = 39
Align = alLeft
TabOrder = 0
object Label21: TLabel
Left = 37
Top = 7
Width = 84
Height = 20
Caption = #32463#32433#37197#27604
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
end
object ToolBar1: TToolBar object ToolBar1: TToolBar
Tag = 1 Tag = 1
Left = 185 Left = 1
Top = 1 Top = 1
Width = 308 Width = 308
Height = 39 Height = 39
@ -429,7 +525,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
List = True List = True
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 0
object TBSave: TToolButton object TBSave: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -444,6 +540,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
AutoSize = True AutoSize = True
Caption = #21024#34892 Caption = #21024#34892
ImageIndex = 5 ImageIndex = 5
Visible = False
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
@ -465,10 +562,9 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 282 Top = 288
Width = 1534 Width = 1534
Height = 297 Height = 212
Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -476,6 +572,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
Visible = False
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -566,9 +663,580 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
GridView = TV2 GridView = TV2
end end
end end
object cxGrid3: TcxGrid
Left = 1
Top = 42
Width = 988
Height = 519
Align = alClient
TabOrder = 4
ExplicitLeft = 4
ExplicitTop = 47
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object cxGridDBColumn6: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 42
end
object V2Column4: TcxGridDBColumn
Caption = #36724#21345#21495
DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object TV1Column5: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'WB_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object V2Column3: TcxGridDBColumn
Caption = #25972#32463#38271#24230
DataBinding.FieldName = 'WB_YarnLen'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #22836#32441
DataBinding.FieldName = 'WB_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object TV1Column3: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 146
end
end
object cxGridLevel3: TcxGridLevel
GridView = TV3
end
end
end end
end end
end end
object Panel6: TPanel [1]
Tag = 2
Left = 0
Top = 0
Width = 546
Height = 734
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitLeft = -2
object Label15: TLabel
Left = 237
Top = 18
Width = 52
Height = 12
Caption = #29983#20135#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 7
Top = 57
Width = 78
Height = 12
Caption = #25972#32463#24037#33402#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 7
Top = 18
Width = 78
Height = 12
Caption = #25972#32463#20219#21153#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 7
Top = 408
Width = 52
Height = 12
Caption = #29301#32463#25490#21015
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label11: TLabel
Left = 237
Top = 57
Width = 78
Height = 12
Caption = #25972#32463#24037#33402#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 7
Top = 332
Width = 39
Height = 12
Caption = #20301#31227#37327
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 7
Top = 137
Width = 39
Height = 12
Caption = #24635#22836#20221
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label17: TLabel
Left = 7
Top = 254
Width = 52
Height = 12
Caption = #31576#31359#20837#27861
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 7
Top = 176
Width = 26
Height = 12
Caption = #21514#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label21: TLabel
Left = 7
Top = 215
Width = 52
Height = 12
Caption = #32463#36724#38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 7
Top = 293
Width = 52
Height = 12
Caption = #22987#21514#20301#32622
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label23: TLabel
Left = 237
Top = 136
Width = 52
Height = 12
Caption = #19978#25490#39063#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label24: TLabel
Left = 237
Top = 175
Width = 26
Height = 12
Caption = #38646#22836
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label25: TLabel
Left = 237
Top = 253
Width = 52
Height = 12
Caption = #22369#26012#24230#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label26: TLabel
Left = 237
Top = 293
Width = 78
Height = 12
Caption = #29301#32463#24352#21147#21442#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label37: TLabel
Left = 237
Top = 332
Width = 26
Height = 12
Caption = #32463#23494
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label38: TLabel
Left = 7
Top = 96
Width = 52
Height = 12
Caption = #32455#36896#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label47: TLabel
Left = 237
Top = 97
Width = 26
Height = 12
Caption = #23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label27: TLabel
Left = 403
Top = 209
Width = 52
Height = 12
Caption = #29301#32463#31576#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label39: TLabel
Left = 237
Top = 214
Width = 52
Height = 12
Caption = #38050#31576#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object WBCNO: TcxTextEdit
Tag = 1
Left = 106
Top = 12
ParentColor = True
Properties.ReadOnly = True
TabOrder = 0
Width = 120
end
object WB_Type: TcxComboBox
Tag = 1
Left = 338
Top = 12
Properties.Items.Strings = (
#22823#36135
#35797#26679)
TabOrder = 1
Width = 150
end
object WB_Code: TcxButtonEdit
Tag = 1
Left = 106
Top = 51
ParentColor = True
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Style.ButtonStyle = btsDefault
TabOrder = 2
Width = 120
end
object WB_Name: TcxTextEdit
Tag = 1
Left = 338
Top = 51
ParentColor = True
TabOrder = 3
Width = 150
end
object cxTextEdit1: TcxTextEdit
Tag = 1
Left = 106
Top = 131
ParentColor = True
TabOrder = 4
Width = 120
end
object WB_Move: TcxTextEdit
Tag = 1
Left = 106
Top = 326
ParentColor = True
TabOrder = 5
Width = 120
end
object WB_ReedNote: TcxTextEdit
Tag = 1
Left = 106
Top = 248
ParentColor = True
TabOrder = 6
Width = 120
end
object WB_YarnStripQty: TcxTextEdit
Tag = 1
Left = 106
Top = 170
ParentColor = True
TabOrder = 7
Width = 120
end
object WB_Width: TcxTextEdit
Tag = 1
Left = 106
Top = 209
ParentColor = True
TabOrder = 8
Width = 120
end
object WB_Arg_SDWZ: TcxTextEdit
Tag = 1
Left = 106
Top = 287
ParentColor = True
TabOrder = 9
Width = 120
end
object WB_YarnArr: TcxTextEdit
Tag = 1
Left = 338
Top = 131
ParentColor = True
TabOrder = 10
Width = 150
end
object WB_YarnStripRemainder: TcxTextEdit
Tag = 1
Left = 338
Top = 170
ParentColor = True
TabOrder = 11
Width = 150
end
object WB_Arg_PXDS: TcxTextEdit
Tag = 1
Left = 337
Top = 248
ParentColor = True
TabOrder = 12
Width = 150
end
object WB_Arg_QJZL: TcxTextEdit
Tag = 1
Left = 337
Top = 287
ParentColor = True
TabOrder = 13
Width = 150
end
object WB_YarnArrNote: TcxMemo
Tag = 1
Left = 106
Top = 363
TabOrder = 14
Height = 111
Width = 423
end
object WB_YarnDensity: TcxTextEdit
Tag = 1
Left = 337
Top = 326
ParentColor = True
TabOrder = 15
Width = 150
end
object GYNo: TcxButtonEdit
Tag = 1
Left = 106
Top = 90
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Style.ButtonStyle = btsDefault
TabOrder = 16
Width = 120
end
object CustName: TcxButtonEdit
Tag = 1
Left = 338
Top = 92
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Style.ButtonStyle = btsDefault
TabOrder = 17
Width = 150
end
object WB_ReedNo: TcxTextEdit
Tag = 2
Left = 473
Top = 206
ParentColor = True
Properties.ReadOnly = True
TabOrder = 18
Width = 65
end
object GKBH: TcxButtonEdit
Tag = 2
Left = 308
Top = 206
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
TabOrder = 19
Width = 89
end
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink Connection = DataLink_WarpBeamStk.ADOLink
Left = 722 Left = 722
@ -585,6 +1253,9 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
end end
inherited cxImageList_bar: TcxImageList inherited cxImageList_bar: TcxImageList
FormatVersion = 1 FormatVersion = 1
Left = 336
Top = 385
DesignInfo = 25231696
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink Connection = DataLink_WarpBeamStk.ADOLink
@ -616,7 +1287,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_1 DataSet = CDS_1
Left = 614 Left = 614
Top = 183 Top = 295
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
@ -625,8 +1296,8 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Top = 181 Top = 181
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
Left = 553 Left = 609
Top = 412 Top = 492
object N2: TMenuItem object N2: TMenuItem
Caption = #20840#36873 Caption = #20840#36873
end end
@ -657,4 +1328,21 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Left = 481 Left = 481
Top = 186 Top = 186
end end
object GPM_3: TcxGridPopupMenu
Grid = cxGrid3
PopupMenus = <>
Left = 412
Top = 490
end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 474
Top = 487
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 550
Top = 488
end
end end

84
E02梭织经轴仓库/U_TatWBPlanCardInPut.pas
View File

@ -13,7 +13,8 @@ uses
Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinOffice2013White, dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinsDefaultPainters, dxSkinWXI; dxSkinSharpPlus, dxSkinsDefaultPainters, dxSkinWXI, cxContainer, cxMaskEdit,
cxDropDownEdit, cxMemo;
type type
TfrmTatWBPlanCardInPut = class(TfrmBaseInput) TfrmTatWBPlanCardInPut = class(TfrmBaseInput)
@ -58,8 +59,6 @@ type
TV1Column2: TcxGridDBColumn; TV1Column2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
Panel5: TPanel; Panel5: TPanel;
Panel6: TPanel;
Label21: TLabel;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
TV2: TcxGridDBTableView; TV2: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn; cxGridDBColumn2: TcxGridDBColumn;
@ -76,6 +75,65 @@ type
DS_2: TDataSource; DS_2: TDataSource;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Label1: TLabel;
Label30: TLabel;
WB_ProcessType: TcxComboBox;
WBFtyName: TcxButtonEdit;
Label3: TLabel;
WBType1: TcxButtonEdit;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
cxGridDBColumn6: TcxGridDBColumn;
V2Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
V2Column3: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
GPM_3: TcxGridPopupMenu;
CDS_3: TClientDataSet;
DS_3: TDataSource;
Panel6: TPanel;
Label15: TLabel;
Label5: TLabel;
Label9: TLabel;
Label16: TLabel;
Label11: TLabel;
Label13: TLabel;
Label14: TLabel;
Label17: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label37: TLabel;
Label38: TLabel;
Label47: TLabel;
Label27: TLabel;
Label39: TLabel;
WBCNO: TcxTextEdit;
WB_Type: TcxComboBox;
WB_Code: TcxButtonEdit;
WB_Name: TcxTextEdit;
cxTextEdit1: TcxTextEdit;
WB_Move: TcxTextEdit;
WB_ReedNote: TcxTextEdit;
WB_YarnStripQty: TcxTextEdit;
WB_Width: TcxTextEdit;
WB_Arg_SDWZ: TcxTextEdit;
WB_YarnArr: TcxTextEdit;
WB_YarnStripRemainder: TcxTextEdit;
WB_Arg_PXDS: TcxTextEdit;
WB_Arg_QJZL: TcxTextEdit;
WB_YarnArrNote: TcxMemo;
WB_YarnDensity: TcxTextEdit;
GYNo: TcxButtonEdit;
CustName: TcxButtonEdit;
WB_ReedNo: TcxTextEdit;
GKBH: TcxButtonEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -123,6 +181,7 @@ begin
edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty').AsString; edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty').AsString;
WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_YarnLen').AsString; WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_YarnLen').AsString;
WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_YarnQty').AsString; WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_YarnQty').AsString;
end end
else else
begin begin
@ -130,6 +189,7 @@ begin
WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZGS').AsString; WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZGS').AsString;
edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJJZZS').AsString; edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJJZZS').AsString;
WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZMS').AsString; WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZMS').AsString;
end; end;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -144,6 +204,19 @@ begin
SInitCDSData(ADOQueryTemp, CDS_1); SInitCDSData(ADOQueryTemp, CDS_1);
SCreateCDS(ADOQueryTemp, CDS_2); SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2); SInitCDSData(ADOQueryTemp, CDS_2);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from Tat_WB_Card A');
sql.Add(' where TWPId=''' + Trim(FTWPId) + '''');
SQL.Add('and WB_Type = ' + QUOTEDSTR(FWB_Type));
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_3);
SInitCDSData(ADOQueryTemp, CDS_3);
end; end;
function TfrmTatWBPlanCardInPut.TestData(): Boolean; function TfrmTatWBPlanCardInPut.TestData(): Boolean;
@ -250,7 +323,7 @@ begin
sql.Clear; sql.Clear;
sql.Add(' insert into Tat_WB_Card(WBCID,WBNo,TWPId,WB_Spec,WB_YarnQty,WB_YarnLen '); sql.Add(' insert into Tat_WB_Card(WBCID,WBNo,TWPId,WB_Spec,WB_YarnQty,WB_YarnLen ');
sql.Add(' ,WBData,FtyCoNo,FtyCoName'); sql.Add(' ,WBData,FtyCoNo,FtyCoName');
sql.Add(' ,WB_Type,Note,FillId,Filler) values'); sql.Add(' ,WB_Type,Note,FillId,Filler,WBType,WB_ProcessType,WBFtyName) values');
for i := 1 to StrToIntdef(edtCardQty.Text, 1) do for i := 1 to StrToIntdef(edtCardQty.Text, 1) do
begin begin
@ -269,6 +342,9 @@ begin
sql.Add(',' + Quotedstr(Trim(Note.Text))); sql.Add(',' + Quotedstr(Trim(Note.Text)));
sql.Add(',' + Quotedstr(Trim(DCode))); sql.Add(',' + Quotedstr(Trim(DCode)));
sql.Add(',' + Quotedstr(Trim(DName))); sql.Add(',' + Quotedstr(Trim(DName)));
sql.Add(',' + Quotedstr(Trim(WBType1.Text)));
sql.Add(',' + Quotedstr(Trim(WB_ProcessType.Text)));
sql.Add(',' + Quotedstr(Trim(WBFtyName.Text)));
sql.Add(' )'); sql.Add(' )');
end; end;

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

File diff suppressed because it is too large Load Diff

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

@ -36,23 +36,18 @@ type
ScrollBox1: TScrollBox; ScrollBox1: TScrollBox;
Label3: TLabel; Label3: TLabel;
Label14: TLabel; Label14: TLabel;
Label16: TLabel;
Label47: TLabel; Label47: TLabel;
Label2: TLabel; Label2: TLabel;
Label4: TLabel; Label4: TLabel;
Label6: TLabel; Label6: TLabel;
Label9: TLabel; Label9: TLabel;
Label10: TLabel;
Label11: TLabel; Label11: TLabel;
OrdNote: TRichEdit; C_NAME: TEdit;
WB_Spec: TEdit;
CustName: TBtnEditC;
WB_Code: TBtnEditC; WB_Code: TBtnEditC;
WB_YarnTotalLen: TEdit; WB_YarnTotalLen: TEdit;
WB_Qty: TEdit; WB_Qty: TEdit;
WB_YarnLen: TEdit; WB_YarnLen: TEdit;
WB_Qty_YJJZZS: TEdit; WB_Qty_YJJZZS: TEdit;
WB_Qty_YJMJZGS: TEdit;
WB_Qty_YJMJZMS: TEdit; WB_Qty_YJMJZMS: TEdit;
Label13: TLabel; Label13: TLabel;
TWPId: TEdit; TWPId: TEdit;
@ -61,17 +56,9 @@ type
WB_Name: TEdit; WB_Name: TEdit;
Label18: TLabel; Label18: TLabel;
WB_YarnQty: TEdit; WB_YarnQty: TEdit;
Label19: TLabel;
WB_Width: TEdit;
Label20: TLabel; Label20: TLabel;
gkbh: TBtnEditC;
Label22: TLabel; Label22: TLabel;
WB_ReedNo: TEdit; WB_ReedNo: TEdit;
Label23: TLabel;
WB_ReedNote: TEdit;
Label24: TLabel;
WB_YarnDensity: TEdit;
gyno: TBtnEditC;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column18: TcxGridDBColumn; v1Column18: TcxGridDBColumn;
@ -84,13 +71,44 @@ type
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
v1Column12: TcxGridDBColumn; v1Column12: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
ADOQuery1: TADOQuery;
Label1: TLabel;
Label5: TLabel;
Z_FJGENSHU: TEdit;
Z_FENJIAO: TEdit;
Label7: TLabel;
Label8: TLabel;
Label12: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
C_KCQTY: TcxTextEdit;
WB_Width: TcxTextEdit;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
WB_ReedNote: TcxTextEdit;
BSQTY: TcxTextEdit;
DCRQTY: TcxTextEdit;
Z_ZHOUSHU1: TEdit;
Z_ZHOUSHU2: TEdit;
Z_SJKESHU1: TEdit;
Z_SJKESHU2: TEdit;
Z_BINGSHU: TEdit;
Z_MAXKESHU: TEdit;
GKBH: TcxButtonEdit;
CustName: TcxButtonEdit;
gyno: TcxButtonEdit;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Label10: TLabel;
C_CODE: TEdit;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -102,11 +120,15 @@ type
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure gynoBtnUpClick(Sender: TObject);
procedure WB_CodeBtnUpClick(Sender: TObject); procedure WB_CodeBtnUpClick(Sender: TObject);
procedure gkbhBtnUpClick(Sender: TObject); procedure gkbhBtnUpClick(Sender: TObject);
procedure gynoDblClick(Sender: TObject); procedure gynoDblClick(Sender: TObject);
procedure Tv1Column7PropertiesEditValueChanged(Sender: TObject); procedure Tv1Column7PropertiesEditValueChanged(Sender: TObject);
procedure WB_YarnQtyExit(Sender: TObject);
procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure gynoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject);
private private
procedure InitData(); procedure InitData();
function SaveData(): Boolean; function SaveData(): Boolean;
@ -195,14 +217,19 @@ begin
end; end;
end; end;
procedure TfrmTatWBPlanInPut.gynoBtnUpClick(Sender: TObject); procedure TfrmTatWBPlanInPut.gynoDblClick(Sender: TObject);
begin begin
inherited; inherited;
TcxButtonEdit(Sender).Text := '';
end;
procedure TfrmTatWBPlanInPut.gynoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try try
frmTatPlanSel2 := TfrmTatPlanSel2.Create(Application); frmTatPlanSel2 := TfrmTatPlanSel2.Create(Application);
with frmTatPlanSel2 do with frmTatPlanSel2 do
begin begin
FISSJ := '·ñ'; // FISSJ := '否';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring; Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring;
@ -210,6 +237,9 @@ begin
Self.CustName.Text := CDS_1.FieldByName('CustName').asstring; Self.CustName.Text := CDS_1.FieldByName('CustName').asstring;
Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring; Self.WB_Code.Text := CDS_1.FieldByName('WB_Code').asstring;
Self.C_NAME.Text := CDS_1.FieldByName('C_NAME').asstring;
Self.C_CODE.Text := CDS_1.FieldByName('C_CODE').asstring;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -221,17 +251,71 @@ begin
Open; Open;
end; end;
Self.WB_YarnTotalLen.Text := Trim(CDS_1.fieldbyname('ORDQTY').AsString);
Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString); Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString); Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').AsString);
Self.WB_Spec.Text := Trim(ADOQueryTemp.fieldbyname('WB_Spec').AsString);
Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring; Self.WB_YarnQty.Text := ADOQueryTemp.fieldbyname('WB_YarnQty').asstring;
Self.Z_BINGSHU.Text := ADOQueryTemp.fieldbyname('Z_BINGSHU').asstring;
Self.Z_FENJIAO.Text := ADOQueryTemp.fieldbyname('Z_FENJIAO').asstring;
Self.Z_FJGENSHU.Text := ADOQueryTemp.fieldbyname('Z_FJGENSHU').asstring;
Self.Z_MAXKESHU.Text := ADOQueryTemp.fieldbyname('Z_MAXKESHU').asstring;
Self.Z_SJKESHU1.Text := ADOQueryTemp.fieldbyname('Z_SJKESHU1').asstring;
Self.Z_ZHOUSHU1.Text := ADOQueryTemp.fieldbyname('Z_ZHOUSHU1').asstring;
Self.Z_SJKESHU2.Text := ADOQueryTemp.fieldbyname('Z_SJKESHU2').asstring;
Self.Z_ZHOUSHU2.Text := ADOQueryTemp.fieldbyname('Z_ZHOUSHU2').asstring;
Self.gkbh.Text := Trim(ADOQueryTemp.fieldbyname('gkbh').AsString);
Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString); Self.WB_Width.Text := Trim(ADOQueryTemp.fieldbyname('WB_Width').AsString);
Self.C_KCQTY.Text := Trim(ADOQueryTemp.fieldbyname('C_KCQTY').AsString);
Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString); Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').AsString);
Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString); Self.WB_ReedNote.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNote').AsString);
Self.BSQTY.Text := Trim(ADOQueryTemp.fieldbyname('BSQTY').AsString);
Self.DCRQTY.Text := Trim(ADOQueryTemp.fieldbyname('DCRQTY').AsString);
Self.WB_YarnDensity.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnDensity').AsString); with ADOQuery1 do
Self.OrdNote.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString); begin
Close;
sql.Clear;
sql.Add(' select A.* from Tat_Plan_Yarn A ');
sql.Add(' where YRType=''经丝'' AND ISNULL(Y_CODE,'''')<>'''' and A.MainId=''' + Trim(CDS_1.fieldbyname('MAINID').AsString) + '''');
sql.Add(' Order by RowNo ');
Open;
end;
self.CDS_1.EmptyDataSet;
self.ADOQuery1.First;
while not ADOQuery1.eof do
begin
with self.CDS_1 do
begin
APpend;
FieldByName('RowNo').Value := ADOQuery1.fieldbyname('RowNo').Value;
FieldByName('Y_Code').Value := ADOQuery1.fieldbyname('Y_Code').Value;
FieldByName('Y_Name').Value := ADOQuery1.fieldbyname('Y_Name').Value;
FieldByName('Y_Color').Value := ADOQuery1.fieldbyname('Y_Color').Value;
FieldByName('Y_Spec').Value := ADOQuery1.fieldbyname('Y_Spec').Value;
FieldByName('ZS').Value := ADOQuery1.fieldbyname('Z_Number').Value;
FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').Value;
FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value;
// FieldByName('TZQTY').Value := ADOQuery1.fieldbyname('TZQTY').Value;
// FieldByName('JHYLQTY').Value := ADOQuery1.fieldbyname('JHYLQTY').Value;
FieldByName('YarnQty').Value := ADOQuery1.fieldbyname('YarnQty').Value;
FieldByName('Denier').Value := ADOQuery1.fieldbyname('Denier').Value;
// FieldByName('NOTE').Value := ADOQuery1.fieldbyname('NOTE').Value;
Post;
end;
ADOQuery1.next;
end;
end; end;
end; end;
finally finally
@ -239,12 +323,6 @@ begin
end; end;
end; end;
procedure TfrmTatWBPlanInPut.gynoDblClick(Sender: TObject);
begin
inherited;
TcxButtonEdit(Sender).Text := '';
end;
function TfrmTatWBPlanInPut.SaveData(): Boolean; function TfrmTatWBPlanInPut.SaveData(): Boolean;
var var
maxno, maxsubno, maxpbno, maxpzno, maxsjno: string; maxno, maxsubno, maxpbno, maxpzno, maxsjno: string;
@ -253,9 +331,9 @@ begin
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
if Trim(FTWPId) = '' then if Trim(FTWPId) = '' then
begin begin
if GetLSNo(ADOQueryCmd, maxno, 'SZ', 'Tat_WB_Plan', 4, 1) = False then if GetLSNo(ADOQueryCmd, maxno, 'JS', 'Tat_WB_Plan', 4, 1) = False then
raise Exception.Create('生成流水号异常！'); raise Exception.Create('生成流水号异常！');
TWPId.Text := maxno;
end end
else else
begin begin
@ -358,7 +436,7 @@ var
FReal: Double; FReal: Double;
maxConNo: string; maxConNo: string;
begin begin
ToolBar1.SetFocus();
if Trim(CustName.Text) = '' then if Trim(CustName.Text) = '' then
begin begin
Application.MessageBox('客户不能为空!', '提示', 0); Application.MessageBox('客户不能为空!', '提示', 0);
@ -422,8 +500,52 @@ begin
CDS_1.Delete; CDS_1.Delete;
end; end;
procedure TfrmTatWBPlanInPut.Tv1Column7PropertiesEditValueChanged( procedure TfrmTatWBPlanInPut.Tv1Column6PropertiesEditValueChanged(Sender: TObject);
Sender: TObject); var
mvalue, FFieldName: string;
ZS, ZGS: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
if FieldByName('QFYARNQTY').Value = null then
begin
ZGS := 0; //QUANFU根数
end
else
begin
ZGS := FieldByName('QFYARNQTY').Value; //全服根数
end;
if FieldByName('ZS').Value = null then
begin
ZS := 0; //循环根数
end
else
begin
ZS := FieldByName('ZS').Value; //循环根数
end;
end;
if ZS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
Post;
end;
end;
end;
procedure TfrmTatWBPlanInPut.Tv1Column7PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, TW, SUNHAO: double; GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
@ -496,15 +618,27 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString); Self.WB_Code.Text := Trim(CDS_1.fieldbyname('WB_Code').AsString);
Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value; Self.WB_Name.Text := Trim(CDS_1.fieldbyname('WB_Name').AsString);
Self.WB_Width.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
Self.WB_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString); Self.WB_YarnQty.Text := CDS_1.fieldbyname('WB_YarnQty').asstring;
Self.WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString); Self.Z_BINGSHU.Text := CDS_1.fieldbyname('Z_BINGSHU').asstring;
Self.WB_YarnDensity.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnDensity').AsString); Self.Z_FENJIAO.Text := CDS_1.fieldbyname('Z_FENJIAO').asstring;
Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString); Self.Z_FJGENSHU.Text := CDS_1.fieldbyname('Z_FJGENSHU').asstring;
Self.OrdNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('Note').AsString); Self.Z_MAXKESHU.Text := CDS_1.fieldbyname('Z_MAXKESHU').asstring;
Self.Z_SJKESHU1.Text := CDS_1.fieldbyname('Z_SJKESHU1').asstring;
Self.Z_ZHOUSHU1.Text := CDS_1.fieldbyname('Z_ZHOUSHU1').asstring;
Self.Z_SJKESHU2.Text := CDS_1.fieldbyname('Z_SJKESHU2').asstring;
Self.Z_ZHOUSHU2.Text := CDS_1.fieldbyname('Z_ZHOUSHU2').asstring;
Self.gkbh.Text := Trim(CDS_1.fieldbyname('gkbh').AsString);
Self.WB_Width.Text := Trim(CDS_1.fieldbyname('WB_Width').AsString);
Self.C_KCQTY.Text := Trim(CDS_1.fieldbyname('C_KCQTY').AsString);
Self.WB_ReedNo.Text := Trim(CDS_1.fieldbyname('WB_ReedNo').AsString);
Self.WB_ReedNote.Text := Trim(CDS_1.fieldbyname('WB_ReedNote').AsString);
Self.BSQTY.Text := Trim(CDS_1.fieldbyname('BSQTY').AsString);
Self.DCRQTY.Text := Trim(CDS_1.fieldbyname('DCRQTY').AsString);
end; end;
end; end;
finally finally
@ -512,6 +646,71 @@ begin
end; end;
end; end;
procedure TfrmTatWBPlanInPut.WB_YarnQtyExit(Sender: TObject);
var
GS, ZGS, MF, DS, WM, TW: double;
begin
if CDS_1.IsEmpty then
exit;
with CDS_1 do
begin
DisableControls;
first;
while not eof do
begin
with CDS_1 do
begin
if FieldByName('YarnQty').Value = null then
begin
GS := 0; //根数
end
else
begin
GS := FieldByName('YarnQty').Value; //根数
end;
if FieldByName('CycleYarnQty').Value = null then
begin
ZGS := 0; //循环根数
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end;
MF := strtofloatdef(WB_Width.text, 0); //筘幅
TW := strtofloatdef(WB_YarnQty.text, 0); //头纹
if FieldByName('Denier').Value = null then
begin
DS := 0; //D数
end
else
begin
DS := FieldByName('Denier').Value; //D数
end;
// WM := strtofloatdef(WB_YarnDensity.text, 0); //纬密
end;
if ZGS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
Post;
end;
end;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
@ -547,7 +746,6 @@ begin
end; end;
procedure TfrmTatWBPlanInPut.JSJS(); procedure TfrmTatWBPlanInPut.JSJS();
var var
GS, ZGS, MF, DS, WM, TW: double; GS, ZGS, MF, DS, WM, TW: double;
@ -595,7 +793,7 @@ begin
DS := FieldByName('TestDenier').Value; //D数 DS := FieldByName('TestDenier').Value; //D数
end; end;
WM := strtofloatdef(WB_YarnDensity.text, 0); //γÃÜ // WM := strtofloatdef(WB_YarnDensity.text, 0); //纬密
end; end;
if ZGS <> 0 then if ZGS <> 0 then
begin begin
@ -638,7 +836,7 @@ begin
FCoType := '客户'; FCoType := '客户';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); // CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end; end;
end; end;
@ -648,5 +846,24 @@ begin
end; end;
procedure TfrmTatWBPlanInPut.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '客户';
if ShowModal = 1 then
begin
// CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
end. end.

53
E02梭织经轴仓库/U_WBNeedLook.dfm
View File

@ -1,7 +1,7 @@
inherited frmWBNeedLook: TfrmWBNeedLook inherited frmWBNeedLook: TfrmWBNeedLook
Left = 105 Left = 105
Top = 131 Top = 131
Caption = #22806#27424#30424#22836#21015#34920 Caption = #32463#36724#38656#27714#26126#32454
ClientHeight = 667 ClientHeight = 667
ClientWidth = 1540 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
@ -74,18 +74,18 @@ inherited frmWBNeedLook: TfrmWBNeedLook
object Label3: TLabel object Label3: TLabel
Left = 268 Left = 268
Top = 10 Top = 10
Width = 48 Width = 32
Height = 21 Height = 21
Caption = #30424#22836#21495 Caption = #23458#25143
end end
object Label4: TLabel object Label4: TLabel
Left = 46 Left = 46
Top = 10 Top = 10
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #20986#21040#21333#20301 Caption = #32455#36896#21333#21495
end end
object WBNO: TcxTextEdit object CustName: TcxTextEdit
Tag = 2 Tag = 2
Left = 320 Left = 320
Top = 6 Top = 6
@ -93,7 +93,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
TabOrder = 0 TabOrder = 0
Width = 150 Width = 150
end end
object ToCoName: TcxTextEdit object OrderNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 114 Left = 114
Top = 6 Top = 6
@ -119,7 +119,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Height = 592 Height = 592
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 71 ExplicitLeft = -3
ExplicitTop = 6 ExplicitTop = 6
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -131,41 +131,49 @@ inherited frmWBNeedLook: TfrmWBNeedLook
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object TV1Column1: TcxGridDBColumn object TV1Column1: TcxGridDBColumn
Caption = #32455#36896#21333#21495 Caption = #32455#36896#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 83 Width = 83
end end
object TV1Column2: TcxGridDBColumn object TV1Column2: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66
end end
object TV1Column3: TcxGridDBColumn object TV1Column3: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 84 Width = 84
end end
object TV1Column4: TcxGridDBColumn object TV1Column4: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 85 Width = 85
end end
object TV1Column5: TcxGridDBColumn object TV1Column5: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495 Caption = #25972#32463#24037#33402#32534#21495
DataBinding.FieldName = 'WB_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 121 Width = 121
end end
object TV1Column6: TcxGridDBColumn object TV1Column6: TcxGridDBColumn
Caption = #25972#32463#24037#33402#21517#31216 Caption = #25972#32463#24037#33402#21517#31216
DataBinding.FieldName = 'WB_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 109 Width = 109
end end
object TV1Column7: TcxGridDBColumn object TV1Column7: TcxGridDBColumn
Caption = #35746#21333#25968#37327 Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle1 Styles.Header = cxStyle1
@ -208,42 +216,49 @@ inherited frmWBNeedLook: TfrmWBNeedLook
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object TV2Column1: TcxGridDBColumn object TV2Column1: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495 Caption = #25972#32463#24037#33402#32534#21495
DataBinding.FieldName = 'WB_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 124 Width = 124
end end
object TV2Column2: TcxGridDBColumn object TV2Column2: TcxGridDBColumn
Caption = #25972#32463#24037#33402#21517#31216 Caption = #25972#32463#24037#33402#21517#31216
DataBinding.FieldName = 'WB_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 124 Width = 124
end end
object TV2Column3: TcxGridDBColumn object TV2Column3: TcxGridDBColumn
Caption = #36724#21345#21495 Caption = #36724#21345#21495
DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 71 Width = 71
end end
object TV2Column4: TcxGridDBColumn object TV2Column4: TcxGridDBColumn
Caption = #36801#32463#26426#21488 Caption = #36801#32463#26426#21488
DataBinding.FieldName = 'WB_MachNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 86 Width = 86
end end
object TV2Column5: TcxGridDBColumn object TV2Column5: TcxGridDBColumn
Caption = #25972#32463#24037 Caption = #25972#32463#24037
DataBinding.FieldName = 'WB_Macher'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object TV2Column6: TcxGridDBColumn object TV2Column6: TcxGridDBColumn
Caption = #24211#23384#25968#37327 Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 85 Width = 85
end end
object TV2Column7: TcxGridDBColumn object TV2Column7: TcxGridDBColumn
Caption = #24211#20301 Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 54 Width = 54
@ -270,36 +285,42 @@ inherited frmWBNeedLook: TfrmWBNeedLook
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object TV3Column1: TcxGridDBColumn object TV3Column1: TcxGridDBColumn
Caption = #25972#32463#35745#21010#21333#21495 Caption = #25972#32463#35745#21010#21333#21495
DataBinding.FieldName = 'WBCNO'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 131 Width = 131
end end
object TV3Column2: TcxGridDBColumn object TV3Column2: TcxGridDBColumn
Caption = #36724#21345#21495 Caption = #36724#21345#21495
DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 90 Width = 90
end end
object TV3Column3: TcxGridDBColumn object TV3Column3: TcxGridDBColumn
Caption = #24320#21345#26102#38388 Caption = #24320#21345#26102#38388
DataBinding.FieldName = 'filltime'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 90 Width = 90
end end
object TV3Column4: TcxGridDBColumn object TV3Column4: TcxGridDBColumn
Caption = #36801#32463#26426#21488 Caption = #36801#32463#26426#21488
DataBinding.FieldName = 'WB_MachNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 90 Width = 90
end end
object TV3Column5: TcxGridDBColumn object TV3Column5: TcxGridDBColumn
Caption = #32463#36724#31867#22411 Caption = #32463#36724#31867#22411
DataBinding.FieldName = 'WB_ProcessType'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 90 Width = 90
end end
object TV3Column6: TcxGridDBColumn object TV3Column6: TcxGridDBColumn
Caption = #24320#21345#25968#37327 Caption = #24320#21345#25968#37327
DataBinding.FieldName = 'WB_YarnLen'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 90 Width = 90
@ -321,7 +342,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Top = 129 Top = 129
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
ConnectionString = 'BS_Cloth_IO' Connection = DataLink_WarpBeamStk.ADOLink
Parameters = <> Parameters = <>
Left = 480 Left = 480
Top = 128 Top = 128
@ -334,7 +355,6 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Top = 128 Top = 128
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
ConnectionString = 'BS_Cloth_IO'
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 408 Left = 408
@ -346,6 +366,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Top = 280 Top = 280
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 536 Left = 536
Top = 240 Top = 240
@ -389,8 +410,20 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Top = 208 Top = 208
end end
object DS_3: TDataSource object DS_3: TDataSource
DataSet = CDS_2 DataSet = CDS_3
Left = 256 Left = 256
Top = 280 Top = 280
end end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 560
Top = 304
end
object cxGridPopupMenu3: TcxGridPopupMenu
Grid = cxGrid3
PopupMenus = <>
Left = 560
Top = 360
end
end end

93
E02梭织经轴仓库/U_WBNeedLook.pas
View File

@ -12,8 +12,8 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar; dxSkinsDefaultPainters, cxProgressBar;
type type
TfrmWBNeedLook = class(TfrmBaseList) TfrmWBNeedLook = class(TfrmBaseList)
@ -30,8 +30,8 @@ type
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
Label3: TLabel; Label3: TLabel;
Label4: TLabel; Label4: TLabel;
WBNO: TcxTextEdit; CustName: TcxTextEdit;
ToCoName: TcxTextEdit; OrderNo: TcxTextEdit;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Panel2: TPanel; Panel2: TPanel;
Panel3: TPanel; Panel3: TPanel;
@ -73,6 +73,8 @@ type
CDS_1: TClientDataSet; CDS_1: TClientDataSet;
CDS_2: TClientDataSet; CDS_2: TClientDataSet;
DS_3: TDataSource; DS_3: TDataSource;
cxGridPopupMenu2: TcxGridPopupMenu;
cxGridPopupMenu3: TcxGridPopupMenu;
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);
@ -90,10 +92,10 @@ type
private private
canshu1, FStkName, canshu3: string; canshu1, FStkName, canshu3: string;
procedure InitGrid(); procedure InitGrid();
procedure InitSUB();
{ Private declarations } { Private declarations }
public public
FWB_Code: string;
{ Public declarations } { Public declarations }
end; end;
@ -136,22 +138,11 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' EXEC P_TatWB_StkALL '); sql.Add(' select A.*,B.* from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.Mainid=B.MainId');
SQL.Add('WHERE WB_Code=' + QuotedStr(FWB_Code));
sql.Add(' select A.WBNo ORGWBNo,B.*,C.* from Tat_WB_Stk A inner join Tat_WB_IO B on A.STKTWIOID=B.TWIOID '); SQL.Add('ORDER BY FILLTIME DESC');
sql.Add(' left join Tat_WB_Card C on C.WBCID=B.WBCID ');
sql.Add(' where B.IOFlag =''出库'' and B.IOType = ''加工出库'' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 ');
// sql.Add(' select A.* ');
// sql.Add(' from Tat_WB_IO A ');
// sql.Add(' where A.STKName =''空轴'' and A.IOFlag =''出库'' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 ');
// sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName =''经轴'' and X.IOFlag =''入库'' and A.WBNO =X.WBNO) ');
//
// sql.Add(' UNION ALL ');
//
// sql.Add(' select A.* ');
// sql.Add(' from Tat_WB_IO A ');
// sql.Add(' where A.STKName =''¾­Öá'' and A.IOFlag =''³ö¿â'' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 '); // sql.Add(' where A.STKName =''¾­Öá'' and A.IOFlag =''³ö¿â'' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 ');
// sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName =''¿ÕÖá'' and X.IOFlag =''Èë¿â'' and A.WBNO =X.WBNO) '); // sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName =''¿ÕÖá'' and X.IOFlag =''Èë¿â'' and A.WBNO =X.WBNO) ');
// ShowMessage(Sql.text); // ShowMessage(Sql.text);
@ -165,9 +156,61 @@ begin
end; end;
end; end;
procedure TfrmWBNeedLook.InitSUB();
begin
try
ADOQueryCmd.DisableControls;
with ADOQueryCmd do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' EXEC P_TatWB_StkALL ');
sql.Add(' select A.WBNo ORGWBNo,B.*,C.*,WB_YarnQty2= cast (WB_YarnQty AS Varchar) ');
sql.Add(' ,JSName=cast((SELECT Y_Name +'';'' from Tat_WB_Formula X inner join Tat_WB_Spec Y on X.WBSID=Y.WBSID where C.WB_Code=Y.WB_Code FOR XML PATH(''''))as VARCHAR(6000) )');
sql.Add(' from Tat_WB_Stk A inner join Tat_WB_IO B on A.STKTWIOID=B.TWIOID ');
sql.Add(' inner join Tat_WB_Card C on C.WBCID=B.WBCID ');
sql.Add(' where B.IOFlag =''Èë¿â'' and isnull(B.stkName,'''')=''' + Trim('¾­Öá') + '''');
sql.Add('and WB_Code=''' + Trim(FWB_Code) + '''');
// sql.Add(' where A.STKName =''¾­Öá'' and A.IOFlag =''³ö¿â'' and A.WBNo like ''%JZ%'' and isnull(CLFlag,0)=0 ');
// sql.Add(' and not EXISTS (select * from Tat_WB_IO X where X.STKName =''¿ÕÖá'' and X.IOFlag =''Èë¿â'' and A.WBNO =X.WBNO) ');
Open;
end;
SCreateCDS(ADOQueryCmd, CDS_2);
SInitCDSData(ADOQueryCmd, CDS_2);
finally
ADOQueryCmd.EnableControls;
end;
try
ADOQueryCmd.DisableControls;
with ADOQueryCmd do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.add(' ,jgType=(SELECT top 1 jgType from Tat_Wb_IO X where X.WBCID=A.WBCID and X.IOFlag =''Èë¿â'' and X.STKName =''¾­Öá'' )');
sql.add(' from Tat_WB_Card A ');
sql.Add(' where 1=1');
sql.Add('and WB_Code=''' + Trim(FWB_Code) + '''');
Open;
end;
SCreateCDS(ADOQueryCmd, CDS_3);
SInitCDSData(ADOQueryCmd, CDS_3);
finally
ADOQueryCmd.EnableControls;
end;
end;
procedure TfrmWBNeedLook.TBRafreshClick(Sender: TObject); procedure TfrmWBNeedLook.TBRafreshClick(Sender: TObject);
begin begin
InitGrid(); InitGrid();
INITSUB();
end; end;
procedure TfrmWBNeedLook.ConNoMChange(Sender: TObject); procedure TfrmWBNeedLook.ConNoMChange(Sender: TObject);
@ -187,8 +230,11 @@ end;
procedure TfrmWBNeedLook.FormShow(Sender: TObject); procedure TfrmWBNeedLook.FormShow(Sender: TObject);
begin begin
inherited; inherited;
ReadCxGrid(trim(Self.Caption), Tv1, '染色坯布仓库'); ReadCxGrid(trim(Self.Caption), Tv1, '¾­ÖáÐèÇóÃ÷ϸ');
ReadCxGrid(trim(Self.Caption), Tv2, '¾­ÖáÐèÇóÃ÷ϸ');
ReadCxGrid(trim(Self.Caption), Tv3, '¾­ÖáÐèÇóÃ÷ϸ');
InitGrid(); InitGrid();
Initsub();
end; end;
procedure TfrmWBNeedLook.TBFindClick(Sender: TObject); procedure TfrmWBNeedLook.TBFindClick(Sender: TObject);
@ -223,7 +269,10 @@ end;
procedure TfrmWBNeedLook.ToolButton2Click(Sender: TObject); procedure TfrmWBNeedLook.ToolButton2Click(Sender: TObject);
begin begin
WriteCxGrid(trim(Self.Caption), Tv1, '染色坯布仓库');
WriteCxGrid(trim(Self.Caption), Tv1, '¾­ÖáÐèÇóÃ÷ϸ');
WriteCxGrid(trim(Self.Caption), Tv2, '¾­ÖáÐèÇóÃ÷ϸ');
WriteCxGrid(trim(Self.Caption), Tv3, '¾­ÖáÐèÇóÃ÷ϸ');
end; end;
procedure TfrmWBNeedLook.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TfrmWBNeedLook.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);

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

File diff suppressed because it is too large Load Diff

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

@ -13,7 +13,7 @@ uses
dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList, dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList,
cxMemo, dxScrollbarAnnotations, cxContainer, dxSkinsCore, cxMemo, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI, cxMaskEdit; dxSkinWXI, cxMaskEdit, cxGroupBox, MATH, Vcl.Menus;
type type
TfrmWBSpecInPut = class(TfrmBaseInput) TfrmWBSpecInPut = class(TfrmBaseInput)
@ -40,48 +40,27 @@ type
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
ScrollBox1: TScrollBox; ScrollBox1: TScrollBox;
Label7: TLabel;
Label3: TLabel; Label3: TLabel;
WB_Code: TcxTextEdit; WB_Code: TcxTextEdit;
ToolBar2: TToolBar; ToolBar2: TToolBar;
ToolButton3: TToolButton; ToolButton3: TToolButton;
ToolButton4: TToolButton; ToolButton4: TToolButton;
Label4: TLabel;
Label8: TLabel; Label8: TLabel;
WB_YarnQty: TcxTextEdit; WB_YarnQty: TcxTextEdit;
WB_Move: TcxTextEdit;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
WB_Name: TcxTextEdit; WB_Name: TcxTextEdit;
WB_ReedNote: TcxTextEdit; WB_ReedNote: TcxTextEdit;
Label5: TLabel; Label5: TLabel;
WB_YarnArr: TcxTextEdit; BSQTY: TcxTextEdit;
Label6: TLabel;
WB_YarnStripRemainder: TcxTextEdit;
Label9: TLabel;
WB_YarnStripQty: TcxTextEdit;
Label10: TLabel; Label10: TLabel;
WB_ReedNo: TcxTextEdit; WB_ReedNo: TcxTextEdit;
Label11: TLabel;
WB_Width: TcxTextEdit;
Label12: TLabel; Label12: TLabel;
WB_YarnLen: TcxTextEdit; C_KCQTY: TcxTextEdit;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
WB_Arg_SDWZ: TcxTextEdit;
WB_Arg_PXDS: TcxTextEdit;
Label16: TLabel;
WB_Arg_QJZL: TcxTextEdit;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
WB_YarnArrNote: TcxMemo;
Note: TcxMemo;
btn1: TToolButton; btn1: TToolButton;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Label17: TLabel;
WB_YarnDensity: TcxTextEdit;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Label18: TLabel; Label18: TLabel;
@ -90,6 +69,41 @@ type
Label19: TLabel; Label19: TLabel;
GKBH: TcxButtonEdit; GKBH: TcxButtonEdit;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
Label20: TLabel;
WB_TYPE: TcxComboBox;
Label4: TLabel;
WB_Width: TcxTextEdit;
cxGroupBox1: TcxGroupBox;
Label6: TLabel;
F_MAXKESHU: TcxTextEdit;
Label7: TLabel;
F_YarnStripQty: TcxTextEdit;
Label9: TLabel;
F_SJKESHU: TcxTextEdit;
Label11: TLabel;
F_YUSHU: TcxTextEdit;
cxGroupBox2: TcxGroupBox;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Z_MAXKESHU: TcxTextEdit;
Z_FENJIAO: TcxTextEdit;
Z_FJGENSHU: TcxTextEdit;
Z_BINGSHU: TcxTextEdit;
Label17: TLabel;
Label21: TLabel;
Z_SJKESHU1: TcxTextEdit;
Z_ZHOUSHU1: TcxTextEdit;
Label22: TLabel;
Label23: TLabel;
Z_SJKESHU2: TcxTextEdit;
Z_ZHOUSHU2: TcxTextEdit;
ToolButton2: TToolButton;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
Label24: TLabel;
DCRQTY: TcxTextEdit;
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);
@ -103,10 +117,18 @@ type
procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column3PropertiesEditValueChanged(Sender: TObject); procedure v1Column3PropertiesEditValueChanged(Sender: TObject);
procedure WB_YarnQtyPropertiesEditValueChanged(Sender: TObject); procedure WB_YarnQtyPropertiesEditValueChanged(Sender: TObject);
procedure WB_YarnQtyExit(Sender: TObject);
procedure Tv1Column8PropertiesEditValueChanged(Sender: TObject);
procedure WB_TYPEPropertiesChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
function SaveData(): Boolean; function SaveData(): Boolean;
procedure JSJS(); //¼ÆËã¾­Ë¿ procedure JSJS(); //¼ÆËã¾­Ë¿
procedure JS(); //计算经丝
public public
{ Public declarations } { Public declarations }
FWBSID, FSTKName: string; FWBSID, FSTKName: string;
@ -122,6 +144,58 @@ uses
U_CompanySel, U_GKManageSel; U_CompanySel, U_GKManageSel;
{$R *.dfm} {$R *.dfm}
procedure TfrmWBSpecInPut.JS();
var
FZGS, FF_MAXKESHU: double;
fTS, FSJKS, FFJ, FF_MAXKESHU2, ffjgs, fbs: Integer;
FSJKS1, FSJKZ2, FXZS1, FXZS2: Integer;
begin
//总经根数/纱架最大挂纱数 向上取整=条数
// 总经根数/条数 向下取整=颗数
// 总经根数-条数*颗数 取余整=余数
FZGS := STRTOFLOATDEF(WB_YarnQty.Text, 0);
FF_MAXKESHU := STRTOFLOATDEF(F_MAXKESHU.Text, 0);
if FF_MAXKESHU <> 0 then
begin
fTS := Ceil(FZGS / FF_MAXKESHU);
F_YarnStripQty.Text := INTTOSTR(fTS);
FSJKS := Floor(FZGS / fTS);
F_SJKESHU.Text := INTTOSTR(FSJKS);
F_YUSHU.Text := FLOATTOSTR(FZGS - FSJKS * fTS);
end;
// 总经根数/分交 向上取整=分绞根数
// 分交根数/ 纱架最大挂纱数 向上取整=并数
// 分交根数/并数 向下取整=上稀轴数
// 分交根数- （分交根数/并数 向下取整）*6=下稀轴数
FFJ := StrToIntdef(Z_FENJIAO.Text, 0);
FF_MAXKESHU2 := STRTOintDEF(Z_MAXKESHU.Text, 0);
if (FFJ <> 0) and (FF_MAXKESHU2 <> 0) then
begin
ffjgs := Ceil(FZGS / FFJ);
Z_FJGENSHU.Text := inttostr(ffjgs);
fbs := Ceil(ffjgs / FF_MAXKESHU2);
Z_BINGSHU.Text := inttostr(fbs);
FSJKS1 := Floor(ffjgs / fbs);
if FSJKS1 * fbs = ffjgs then
begin
Z_SJKESHU1.Text := inttostr(FSJKS1);
Z_ZHOUSHU1.Text := inttostr(fbs);
Z_SJKESHU2.Text := '0';
Z_ZHOUSHU2.Text := '0';
end
else
begin
Z_SJKESHU1.Text := inttostr(FSJKS1);
Z_ZHOUSHU1.Text := inttostr(fbs - 1);
Z_SJKESHU2.Text := inttostr(ffjgs - (FSJKS1 * (fbs - 1)));
Z_ZHOUSHU2.Text := '1';
end;
end;
end;
procedure TfrmWBSpecInPut.JSJS(); procedure TfrmWBSpecInPut.JSJS();
var var
GS, ZGS, MF, DS, WM, TW: double; GS, ZGS, MF, DS, WM, TW: double;
@ -169,7 +243,6 @@ begin
DS := FieldByName('TestDenier').Value; //DÊý DS := FieldByName('TestDenier').Value; //DÊý
end; end;
WM := strtofloatdef(WB_YarnDensity.text, 0); //纬密
end; end;
if ZGS <> 0 then if ZGS <> 0 then
begin begin
@ -187,6 +260,35 @@ begin
end; end;
end; end;
procedure TfrmWBSpecInPut.N1Click(Sender: TObject);
var
I, J: Integer;
AField: TField;
begin
with tv1 do
begin
// 遍历所有选中行
DataController.DataSource.Dataset.Edit; // 进入编辑模式
// 遍历所有字段列
for J := 0 to ColumnCount - 1 do
begin
// 获取当前列的字段
AField := Columns[J].DataBinding.Field;
// 检查字段存在且不是 RowNo 列
if (AField <> nil) and (CompareText(AField.FieldName, 'RowNo') <> 0) and (CompareText(Columns[J].Name, 'RowNo') <> 0) then // 双重检查确保排除
begin
AField.Clear; // 清空字段值
end;
end;
DataController.DataSource.Dataset.Post; // 提交修改
end;
end;
procedure TfrmWBSpecInPut.btn1Click(Sender: TObject); procedure TfrmWBSpecInPut.btn1Click(Sender: TObject);
begin begin
try try
@ -310,6 +412,8 @@ begin
end; end;
FieldByName('WBSID').Value := Trim(MaxNo); FieldByName('WBSID').Value := Trim(MaxNo);
RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', ScrollBox1, 2); RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', ScrollBox1, 2);
RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', cxGroupBox1, 2);
RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', cxGroupBox2, 2);
Post; Post;
end; end;
@ -426,7 +530,19 @@ begin
Open; Open;
end; end;
SCSHData(ADOQueryTemp, ScrollBox1, 2); SCSHData(ADOQueryTemp, ScrollBox1, 2);
SCSHData(ADOQueryTemp, cxGroupBox1, 2);
SCSHData(ADOQueryTemp, cxGroupBox2, 2);
if WB_TYPE.Text = '整浆并' then
begin
cxGroupBox2.Visible := True;
cxGroupBox1.Visible := false;
end
else
begin
cxGroupBox2.Visible := false;
cxGroupBox1.Visible := True;
end;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
@ -474,21 +590,7 @@ begin
FieldByName('RowNo').Value := 'H'; FieldByName('RowNo').Value := 'H';
Post; Post;
Append;
FieldByName('RowNo').Value := 'I';
Post;
Append;
FieldByName('RowNo').Value := 'J';
Post;
Append;
FieldByName('RowNo').Value := 'K';
Post;
Append;
FieldByName('RowNo').Value := 'L';
Post;
end; end;
end; end;
@ -505,6 +607,8 @@ 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
@ -556,43 +660,33 @@ end;
procedure TfrmWBSpecInPut.TBSaveClick(Sender: TObject); procedure TfrmWBSpecInPut.TBSaveClick(Sender: TObject);
begin begin
ToolBar1.SetFocus; ToolBar1.SetFocus;
if StrToFloatDef(WB_YarnDensity.Text, 0) = 0 then
begin
Application.MessageBox('请填写正确的经密!', '提示', 0);
Exit;
end;
if StrToFloatDef(WB_Width.Text, 0) = 0 then
begin
Application.MessageBox('请填写正确的经轴门幅!', '提示', 0);
Exit;
end;
with CDS_Sub do // with CDS_Sub do
begin // begin
CDS_Sub.First; // CDS_Sub.First;
while not Eof do // while not Eof do
begin // begin
if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then // if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then
begin // begin
if StrToFloatDef(Trim(CDS_Sub.fieldbyname('YarnQty').AsString), 0) = 0 then // if StrToFloatDef(Trim(CDS_Sub.fieldbyname('YarnQty').AsString), 0) = 0 then
begin // begin
Application.MessageBox('根数不能为空!', '提示', 0); // Application.MessageBox('根数不能为空!', '提示', 0);
Exit; // Exit;
end; // end;
end; // end;
//
if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then // if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then
begin // begin
if StrToFloatDef(Trim(CDS_Sub.fieldbyname('CycleYarnQty').AsString), 0) = 0 then // if StrToFloatDef(Trim(CDS_Sub.fieldbyname('CycleYarnQty').AsString), 0) = 0 then
begin // begin
Application.MessageBox('循环根数不能为空!', '提示', 0); // Application.MessageBox('循环根数不能为空!', '提示', 0);
Exit; // Exit;
end; // end;
end; // end;
//
CDS_Sub.Next; // CDS_Sub.Next;
end; // end;
end; // end;
if SaveData() then if SaveData() then
begin begin
@ -607,6 +701,31 @@ begin
WriteCxGrid(trim(self.Caption), Tv1, '¾­¹æ¸ñ²Ö¿â'); WriteCxGrid(trim(self.Caption), Tv1, '¾­¹æ¸ñ²Ö¿â');
end; end;
procedure TfrmWBSpecInPut.ToolButton2Click(Sender: TObject);
var
I, J: Integer;
begin
// 确保引用的是正确的视图（如 TcxGridDBTableView）
with TV1 do
begin
// 遍历所有选中行
// for I := 0 to SelectedRowCount - 1 do
// begin
// 获取数据集记录
DataController.DataSource.Dataset.Edit; // 进入编辑模式
// 遍历所有字段列
for J := 0 to ColumnCount - 1 do
begin
// 清空字段值（跳过只读/关键字段）
if Columns[J].DataBinding.Field <> nil then
Columns[J].DataBinding.Field.Clear;
end;
DataController.DataSource.Dataset.Post; // 提交修改
// end;
end;
end;
procedure TfrmWBSpecInPut.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmWBSpecInPut.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try
@ -637,10 +756,10 @@ begin
end; end;
end; end;
procedure TfrmWBSpecInPut.v1Column3PropertiesEditValueChanged(Sender: TObject); procedure TfrmWBSpecInPut.Tv1Column8PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, TW, SUNHAO: double; ZS, ZGS: double;
begin begin
mvalue := TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
@ -652,55 +771,111 @@ begin
FieldByName(FFieldName).Value := mvalue; FieldByName(FFieldName).Value := mvalue;
Post; Post;
if FieldByName('YarnQty').Value = null then if FieldByName('QFYARNQTY').Value = null then
begin begin
GS := 0; //根数 ZGS := 0; //QUANFU根数
end end
else else
begin begin
GS := FieldByName('YarnQty').Value; //根数 ZGS := FieldByName('QFYARNQTY').Value; //全服根数
end; end;
if FieldByName('CycleYarnQty').Value = null then if FieldByName('ZS').Value = null then
begin begin
ZGS := 0; //循环根数 ZS := 0; //循环根数
end end
else else
begin begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数 ZS := FieldByName('ZS').Value; //循环根数
end; end;
// if FieldByName('SH').Value = null then
// begin
// SUNHAO := 0; //损耗
// end
// else
// begin
// SUNHAO := FieldByName('SH').Value; //损耗
// end;
if FieldByName('Denier').Value = null then
begin
DS := 0; //D数
end
else
begin
DS := FieldByName('Denier').Value; //D数
end;
TW := strtofloatdef(WB_YarnQty.text, 0); //头纹
end; end;
if ZGS <> 0 then if ZS <> 0 then
begin begin
with CDS_SUB do with CDS_SUB do
begin begin
Edit; Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
Post; Post;
end; end;
end; end;
end; end;
procedure TfrmWBSpecInPut.v1Column3PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
// with CDS_SUB do
// begin
// Edit;
// FieldByName(FFieldName).Value := mvalue;
// Post;
//
// if FieldByName('YarnQty').Value = null then
// begin
// GS := 0; //根数
// end
// else
// begin
// GS := FieldByName('YarnQty').Value; //根数
// end;
//
// if FieldByName('CycleYarnQty').Value = null then
// begin
// ZGS := 0; //循环根数
// end
// else
// begin
// ZGS := FieldByName('CycleYarnQty').Value; //循环根数
// end;
//
// if FieldByName('Denier').Value = null then
// begin
// DS := 0; //D数
// end
// else
// begin
// DS := FieldByName('Denier').Value; //D数
// end;
//
// TW := strtofloatdef(WB_YarnQty.text, 0); //头纹
// end;
// if ZGS <> 0 then
// begin
// with CDS_SUB do
// begin
// Edit;
// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
// Post;
// end;
// end;
end;
procedure TfrmWBSpecInPut.WB_TYPEPropertiesChange(Sender: TObject);
begin
if WB_TYPE.Text = '整浆并' then
begin
cxGroupBox2.Visible := True;
cxGroupBox1.Visible := false;
end
else
begin
cxGroupBox2.Visible := false;
cxGroupBox1.Visible := True;
end;
end;
procedure TfrmWBSpecInPut.WB_YarnQtyExit(Sender: TObject);
begin
JS();
end;
procedure TfrmWBSpecInPut.WB_YarnQtyPropertiesEditValueChanged(Sender: TObject); procedure TfrmWBSpecInPut.WB_YarnQtyPropertiesEditValueChanged(Sender: TObject);
begin begin
JSJS(); JSJS();

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

@ -160,7 +160,6 @@ inherited frmWBSpecList: TfrmWBSpecList
item item
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = v1Column17
end end
item item
Kind = skSum Kind = skSum
@ -190,48 +189,24 @@ inherited frmWBSpecList: TfrmWBSpecList
Options.Editing = False Options.Editing = False
Width = 196 Width = 196
end end
object Tv1Column7: TcxGridDBColumn
Caption = #25972#32463#31867#22411
DataBinding.FieldName = 'WB_TYPE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #24635#22836#20221 Caption = #24635#32463#26681#25968
DataBinding.FieldName = 'WB_YarnQty' DataBinding.FieldName = 'WB_YarnQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column10: TcxGridDBColumn
Caption = #19978#25490#39063#25968
DataBinding.FieldName = 'WB_YarnArr'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object Tv1Column4: TcxGridDBColumn
Caption = #21514#25968
DataBinding.FieldName = 'WB_YarnStripQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column2: TcxGridDBColumn
Caption = #38646#22836
DataBinding.FieldName = 'WB_YarnStripRemainder'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Caption = #32463#36724#38376#24133
DataBinding.FieldName = 'WB_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #29301#32463#31576#21495 Caption = #31576#21495
DataBinding.FieldName = 'WB_ReedNo' DataBinding.FieldName = 'WB_ReedNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -245,78 +220,30 @@ inherited frmWBSpecList: TfrmWBSpecList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 95 Width = 95
end end
object Tv1Column7: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #32463#23494
DataBinding.FieldName = 'WB_YarnDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object v1Column8: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #31576#31359#20837#27861 Caption = #31576#24133
DataBinding.FieldName = 'WB_ReedNote' DataBinding.FieldName = 'WB_Width'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #32463#36724#31859#25968 Caption = #22320#31359#20837#27861
DataBinding.FieldName = 'WB_YarnLen' DataBinding.FieldName = 'DCRQTY'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object v1Column10: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Caption = #22987#21514#20301#32622
DataBinding.FieldName = 'WB_Arg_SDWZ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column17: TcxGridDBColumn
Caption = #22369#26012#24230#25968
DataBinding.FieldName = 'WB_Arg_PXDS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column5: TcxGridDBColumn
Caption = #20301#31227#37327
DataBinding.FieldName = 'WB_Move'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #29301#32463#24352#21147#21442#25968
DataBinding.FieldName = 'WB_Arg_QJZL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column12: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #36793#31359#20837#27861
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'WB_ReedNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column8: TcxGridDBColumn
Caption = #32463#25490#21015
DataBinding.FieldName = 'WB_YarnArrNote'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
@ -505,16 +432,16 @@ inherited frmWBSpecList: TfrmWBSpecList
Width = 82 Width = 82
end end
object TV2Column2: TcxGridDBColumn object TV2Column2: TcxGridDBColumn
Caption = #32442#27861 Caption = #30334#31859#32463#38271#29992#37327'KG'
DataBinding.FieldName = 'FF' DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object TV2Column3: TcxGridDBColumn object TV2Column3: TcxGridDBColumn
Caption = #25467#24230 Caption = #20840#24133#26681#25968
DataBinding.FieldName = 'ND' DataBinding.FieldName = 'QFYARNQTY'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False

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

@ -38,8 +38,6 @@ type
v1Column8: TcxGridDBColumn; v1Column8: TcxGridDBColumn;
v1Column12: TcxGridDBColumn; v1Column12: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
v1Column10: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column9: TcxGridDBColumn; v1Column9: TcxGridDBColumn;
Label2: TLabel; Label2: TLabel;
Label4: TLabel; Label4: TLabel;
@ -47,14 +45,7 @@ type
WB_Name: TcxTextEdit; WB_Name: TcxTextEdit;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn; Tv1Column12: TcxGridDBColumn;
Panel2: TPanel; Panel2: TPanel;

28
E02梭织经轴仓库/WarpBeamStk.dproj.local
View File

@ -125,19 +125,19 @@
<File Path="U_WBTypeSel.dfm"/> <File Path="U_WBTypeSel.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
</Transactions> </Transactions>
</BorlandProject> </BorlandProject>

BIN
E02梭织经轴仓库/WarpBeamStk.identcache
View File

Binary file not shown.

BIN
E02梭织经轴仓库/testDll.identcache
View File

Binary file not shown.

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

@ -124,7 +124,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E03梭织坯布检验\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E03梭织坯布检验\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">

76
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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj</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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</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.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.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.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.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.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm</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.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.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.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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm</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.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.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj</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.422,=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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -81,7 +81,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10szKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

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

Binary file not shown.

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

@ -49,7 +49,7 @@
<File Path="U_upPassword.dfm"/> <File Path="U_upPassword.dfm"/>
</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>

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

Binary file not shown.

6
E03梭织坯布检验/U_GetDllForm.pas
View File

@ -71,10 +71,10 @@ begin
if trim(DataBaseStr) = '' then if trim(DataBaseStr) = '' then
begin begin
server := '101.132.143.144,7781'; server := '150.109.121.232,7781';
dtbase := 'KaiXiYadata'; dtbase := 'KaiXiYadata';
user := 'rtsa'; user := 'kaixiyasa';
pswd := 'rightsoft@5740'; pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '¹ÜÀí'; Parameters1 := '¹ÜÀí';
end end

71
E03梭织坯布检验/U_TatMachInsp.dfm
View File

@ -54,7 +54,7 @@
object Label5: TLabel object Label5: TLabel
Left = 27 Left = 27
Top = 14 Top = 14
Width = 62 Width = 60
Height = 34 Height = 34
Caption = #38271#24230 Caption = #38271#24230
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -94,7 +94,7 @@
object Label12: TLabel object Label12: TLabel
Left = 37 Left = 37
Top = 212 Top = 212
Width = 52 Width = 48
Height = 23 Height = 23
Caption = #25377#36710'2' Caption = #25377#36710'2'
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -108,7 +108,7 @@
object Label34: TLabel object Label34: TLabel
Left = 37 Left = 37
Top = 177 Top = 177
Width = 52 Width = 48
Height = 23 Height = 23
Caption = #25377#36710'1' Caption = #25377#36710'1'
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -135,7 +135,7 @@
object Label36: TLabel object Label36: TLabel
Left = 250 Left = 250
Top = 177 Top = 177
Width = 42 Width = 38
Height = 23 Height = 23
Caption = #31859#25968 Caption = #31859#25968
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -149,7 +149,7 @@
object Label38: TLabel object Label38: TLabel
Left = 250 Left = 250
Top = 212 Top = 212
Width = 42 Width = 38
Height = 23 Height = 23
Caption = #31859#25968 Caption = #31859#25968
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -177,7 +177,7 @@
object Label11: TLabel object Label11: TLabel
Left = 15 Left = 15
Top = 504 Top = 504
Width = 62 Width = 60
Height = 34 Height = 34
Caption = #37325#37327 Caption = #37325#37327
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -191,7 +191,7 @@
object Label3: TLabel object Label3: TLabel
Left = 39 Left = 39
Top = 563 Top = 563
Width = 62 Width = 58
Height = 23 Height = 23
Caption = #31995' '#25968 Caption = #31995' '#25968
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -205,7 +205,7 @@
object lblRuleConversion: TLabel object lblRuleConversion: TLabel
Left = 190 Left = 190
Top = 562 Top = 562
Width = 84 Width = 80
Height = 24 Height = 24
Caption = #31859#36716#20844#26020 Caption = #31859#36716#20844#26020
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -219,7 +219,7 @@
object Label30: TLabel object Label30: TLabel
Left = 37 Left = 37
Top = 246 Top = 246
Width = 52 Width = 48
Height = 23 Height = 23
Caption = #25377#36710'3' Caption = #25377#36710'3'
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -233,7 +233,7 @@
object Label31: TLabel object Label31: TLabel
Left = 250 Left = 250
Top = 246 Top = 246
Width = 42 Width = 38
Height = 23 Height = 23
Caption = #31859#25968 Caption = #31859#25968
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -319,9 +319,8 @@
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
Items.Strings = ( Items.Strings = (
'A'#21697 #21512#26684
'B'#21697 #19981#21512#26684)
'C'#21697)
end end
object C_ColorDepth: TComboBox object C_ColorDepth: TComboBox
Left = 176 Left = 176
@ -529,7 +528,7 @@
object Label14: TLabel object Label14: TLabel
Left = 20 Left = 20
Top = 40 Top = 40
Width = 34 Width = 32
Height = 19 Height = 19
Caption = #21333#21495 Caption = #21333#21495
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -542,7 +541,7 @@
object Label23: TLabel object Label23: TLabel
Left = 220 Left = 220
Top = 132 Top = 132
Width = 34 Width = 32
Height = 19 Height = 19
Caption = #36710#21495 Caption = #36710#21495
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -555,7 +554,7 @@
object Label24: TLabel object Label24: TLabel
Left = 20 Left = 20
Top = 132 Top = 132
Width = 34 Width = 32
Height = 19 Height = 19
Caption = #26426#20462 Caption = #26426#20462
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -568,7 +567,7 @@
object Label25: TLabel object Label25: TLabel
Left = 20 Left = 20
Top = 68 Top = 68
Width = 34 Width = 32
Height = 19 Height = 19
Caption = #21697#21517 Caption = #21697#21517
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -581,7 +580,7 @@
object Label1: TLabel object Label1: TLabel
Left = 18 Left = 18
Top = 7 Top = 7
Width = 84 Width = 80
Height = 24 Height = 24
Caption = #25195#25551#20837#21475 Caption = #25195#25551#20837#21475
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -594,7 +593,7 @@
object Label13: TLabel object Label13: TLabel
Left = 20 Left = 20
Top = 90 Top = 90
Width = 34 Width = 32
Height = 38 Height = 38
Caption = #24067#21305#13#10#25209#21495 Caption = #24067#21305#13#10#25209#21495
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -607,7 +606,7 @@
object Label29: TLabel object Label29: TLabel
Left = 217 Left = 217
Top = 90 Top = 90
Width = 34 Width = 32
Height = 38 Height = 38
Caption = #32463#19997#13#10#25209#21495 Caption = #32463#19997#13#10#25209#21495
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -620,7 +619,7 @@
object Label32: TLabel object Label32: TLabel
Left = 267 Left = 267
Top = 158 Top = 158
Width = 34 Width = 32
Height = 38 Height = 38
Caption = #19979#24067#13#10#31859#25968 Caption = #19979#24067#13#10#31859#25968
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -2286,6 +2285,10 @@
object 查看: TcxTabSheet object 查看: TcxTabSheet
Caption = #26597#30475 Caption = #26597#30475
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
@ -2667,7 +2670,7 @@
object Label35: TLabel object Label35: TLabel
Left = 27 Left = 27
Top = 55 Top = 55
Width = 21 Width = 19
Height = 23 Height = 23
Caption = #31204 Caption = #31204
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -2680,7 +2683,7 @@
object Label16: TLabel object Label16: TLabel
Left = 6 Left = 6
Top = 15 Top = 15
Width = 42 Width = 38
Height = 23 Height = 23
Caption = #30721#34920 Caption = #30721#34920
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -2693,7 +2696,7 @@
object Label26: TLabel object Label26: TLabel
Left = 6 Left = 6
Top = 94 Top = 94
Width = 42 Width = 38
Height = 23 Height = 23
Caption = #20986#32440 Caption = #20986#32440
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -2706,7 +2709,7 @@
object Label6: TLabel object Label6: TLabel
Left = 90 Left = 90
Top = 94 Top = 94
Width = 42 Width = 38
Height = 23 Height = 23
Caption = #20221#25968 Caption = #20221#25968
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -2719,7 +2722,7 @@
object Label7: TLabel object Label7: TLabel
Left = 90 Left = 90
Top = 15 Top = 15
Width = 42 Width = 38
Height = 23 Height = 23
Caption = #21333#20301 Caption = #21333#20301
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -2732,7 +2735,7 @@
object Label9: TLabel object Label9: TLabel
Left = 6 Left = 6
Top = 136 Top = 136
Width = 42 Width = 38
Height = 23 Height = 23
Caption = #38271#24230 Caption = #38271#24230
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -2745,7 +2748,7 @@
object Label15: TLabel object Label15: TLabel
Left = 6 Left = 6
Top = 178 Top = 178
Width = 42 Width = 38
Height = 23 Height = 23
Caption = #37325#37327 Caption = #37325#37327
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -2759,7 +2762,7 @@
object Label19: TLabel object Label19: TLabel
Left = 6 Left = 6
Top = 224 Top = 224
Width = 84 Width = 76
Height = 23 Height = 23
Caption = #31859#25968#20445#30041 Caption = #31859#25968#20445#30041
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -2772,7 +2775,7 @@
object Label20: TLabel object Label20: TLabel
Left = 161 Left = 161
Top = 224 Top = 224
Width = 21 Width = 19
Height = 23 Height = 23
Caption = #20301 Caption = #20301
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -2785,7 +2788,7 @@
object Label21: TLabel object Label21: TLabel
Left = 6 Left = 6
Top = 255 Top = 255
Width = 84 Width = 76
Height = 23 Height = 23
Caption = #30721#25968#20445#30041 Caption = #30721#25968#20445#30041
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -2798,7 +2801,7 @@
object Label27: TLabel object Label27: TLabel
Left = 161 Left = 161
Top = 255 Top = 255
Width = 21 Width = 19
Height = 23 Height = 23
Caption = #20301 Caption = #20301
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -2811,7 +2814,7 @@
object Label28: TLabel object Label28: TLabel
Left = 161 Left = 161
Top = 286 Top = 286
Width = 21 Width = 19
Height = 23 Height = 23
Caption = #20301 Caption = #20301
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -2825,7 +2828,7 @@
object Label33: TLabel object Label33: TLabel
Left = 6 Left = 6
Top = 286 Top = 286
Width = 84 Width = 76
Height = 23 Height = 23
Caption = #37325#37327#20445#30041 Caption = #37325#37327#20445#30041
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET