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

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

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

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

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

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

@ -103,7 +103,6 @@ inherited frmWBSpecSel: TfrmWBSpecSel
Height = 484
Align = alClient
TabOrder = 2
ExplicitTop = 80
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -112,7 +111,6 @@ inherited frmWBSpecSel: TfrmWBSpecSel
item
Kind = skSum
Position = spFooter
Column = v1Column17
end
item
Kind = skSum
@ -151,119 +149,62 @@ inherited frmWBSpecSel: TfrmWBSpecSel
Width = 99
end
object Tv1Column10: TcxGridDBColumn
Caption = #19978#25490#39063#25968
DataBinding.FieldName = 'WB_YarnArr'
Caption = #38050#31576#32534#21495
DataBinding.FieldName = 'GKBH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 144
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
Caption = #29301#32463#31576#21495
DataBinding.FieldName = 'WB_ReedNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
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
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #31576#31359#20837#27861
Caption = #36793#31359#20837#27861
DataBinding.FieldName = 'WB_ReedNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 66
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
Width = 98
end
end
object cxGrid1Level1: TcxGridLevel

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

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

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

@ -53,7 +53,8 @@ uses
JDAESExtend in '..\A00通用方法\AES\JDAESExtend.pas',
untAES in '..\A00通用方法\AES\untAES.pas',
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}

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

@ -208,6 +208,10 @@
<Form>frmWBSpecInPut2</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_PictureUpload.pas">
<Form>frmPictureUpload</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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>
@ -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.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.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.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.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.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.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.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.129,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfoImport.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.339,=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.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.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.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.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.187,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.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.503,=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.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>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>
@ -109,6 +110,8 @@
<File Path="..\A00通用窗体\U_WBSpecSel.dfm"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.pas"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_PictureUpload.pas"/>
<File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
<File Path="..\A00通用组件"/>
<File Path="..\A00通用组件\FrameDateSel.pas"/>
<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]
服务器地址=101.132.143.144
服务器地址类型=541
服务器地址=150.109.121.232
服务器地址类型=903
是否自动更新=1
软件名称=星瑞贸易管理软件
软件名称=凯喜雅
登陆标题=sss
[窗口设置]
字体大小=9

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

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

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

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

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

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

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

@ -24,23 +24,8 @@ uses
dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles,
dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes,
dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, cxCheckBox,
dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI, cxImage, cxDBEdit;
type
FdDy = record
@ -180,7 +165,6 @@ type
btn1: TToolButton;
ToolButton4: TToolButton;
cxTabSheet4: TcxTabSheet;
QZF: TMemo;
cxTabSheet5: TcxTabSheet;
CZF: TMemo;
cxTabSheet6: TcxTabSheet;
@ -214,6 +198,12 @@ type
Tv1Column12: TcxGridDBColumn;
Tv4Z_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 TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
@ -608,6 +598,7 @@ begin
jpg.free;
application.ProcessMessages;
end;
end;
procedure TfrmTatClothInfo.TBCopyClick(Sender: TObject);
@ -1097,7 +1088,35 @@ begin
CZF.Text := Trim(CDS_1.fieldbyname('CZF').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;
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,
dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes,
dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, cxCheckBox,
dxSkinsCore, dxSkinsDefaultPainters, cxImageList,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
Vcl.Menus, cxDropDownEdit;
dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI, Vcl.Menus, cxDropDownEdit, cxImage, cxDBEdit;
type
TfrmTatClothInfoInput = class(TfrmBaseInput)
@ -56,7 +41,6 @@ type
DS_2: TDataSource;
ADOConnection1: TADOConnection;
ImageList1: TImageList;
Label16: TLabel;
Label55: TLabel;
cxPageControl3: TcxPageControl;
cxTabSheet1: TcxTabSheet;
@ -68,7 +52,6 @@ type
TV1: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
cxTabSheet2: TcxTabSheet;
@ -80,67 +63,45 @@ type
Tv2: TcxGridDBTableView;
v2Column10: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxTabSheet3: TcxTabSheet;
Panel8: TPanel;
ToolBar4: TToolBar;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
Panel7: TPanel;
Label49: TLabel;
Edit1: TEdit;
CDS_4: TClientDataSet;
DS_4: TDataSource;
GPM_1: TcxGridPopupMenu;
GPM_2: TcxGridPopupMenu;
GPM_4: TcxGridPopupMenu;
ToolButton11: TToolButton;
CINote: TcxMemo;
ThroughHealdOrder: TcxMemo;
C_Code: TcxTextEdit;
Label2: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
LoomType: TcxTextEdit;
C_Name: TcxTextEdit;
C_YarnQty: TcxTextEdit;
C_ReedWidth: TcxTextEdit;
C_Width: TcxTextEdit;
C_ReedNo: TcxTextEdit;
C_GramWeight: TcxTextEdit;
C_TestGramWeight: TcxTextEdit;
C_FinishLatitudeDensity: TcxTextEdit;
TV1Column7: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
TV1Column4: TcxGridDBColumn;
TV1Column5: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
TV1Column8: TcxGridDBColumn;
TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
Tv2Column4: TcxGridDBColumn;
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
Tv2Column9: TcxGridDBColumn;
Tv2Column10: TcxGridDBColumn;
lbl1: TLabel;
lbl2: TLabel;
WB_Code: TcxButtonEdit;
WB_Name: TcxTextEdit;
cxTabSheet4: TcxTabSheet;
CZF: TMemo;
cxTabSheet5: TcxTabSheet;
CKF: TMemo;
TV1Column11: TcxGridDBColumn;
@ -157,31 +118,60 @@ type
C_Spec: TcxTextEdit;
Label17: TLabel;
C_Composition: TcxTextEdit;
TV1Column12: TcxGridDBColumn;
Tv2Column12: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
Tv2Column13: TcxGridDBColumn;
ADOQuery1: TADOQuery;
Label18: TLabel;
Label19: TLabel;
BBNo: TcxTextEdit;
ZS: TcxTextEdit;
ADOQueryTemp2: TADOQuery;
PM_1: TPopupMenu;
N1: TMenuItem;
PM_2: TPopupMenu;
MenuItem1: TMenuItem;
QZF: TMemo;
MFDW: TcxComboBox;
Label20: TLabel;
C_FinishLongitudeDensity: TcxTextEdit;
Label21: TLabel;
JinSha: TcxTextEdit;
Label22: TLabel;
WeiSha: TcxTextEdit;
LPDW: TcxComboBox;
TV1Column14: 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 TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
@ -195,7 +185,7 @@ type
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure ToolButton11Click(Sender: TObject);
procedure cxGridDBColumn3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v2Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -211,10 +201,16 @@ type
procedure MFDWPropertiesEditValueChanged(Sender: TObject);
procedure C_FinishLongitudeDensityPropertiesEditValueChanged(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
canshu1: string;
Fint: Integer;
procedure InitGrid();
procedure InitImage();
procedure JSJS(); //计算经丝
procedure JSWS(); //计算纬丝
procedure JSKZ(); //计算克重
@ -234,14 +230,49 @@ implementation
uses
U_DataLink, U_HttpFun, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload,
U_YarnInfoSel, U_WBSpecSel;
U_YarnInfoSel, U_WBSpecSel, U_PictureUpload;
{$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();
var
myStream: TMemoryStream;
mSql: string;
begin
mSql := 'select distinct name=A.mctype from Bs_Machine A ';
SInitTcxComBoxBySql(ADOQueryTemp, LoomType, false, mSql);
myStream := TMemoryStream.Create();
with ADOQueryTemp do
@ -276,13 +307,12 @@ begin
SCSHData(ADOQueryTemp, ScrollBox1, 2);
SCSHData(ADOQueryTemp, ScrollBox1, 0);
QZF.Text := Trim(ADOQueryTemp.FieldByName('QZF').AsString);
CZF.Text := Trim(ADOQueryTemp.FieldByName('CZF').AsString);
CKF.Text := Trim(ADOQueryTemp.FieldByName('CKF').AsString);
Y_Note_PLJ.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLJ').AsString);
Y_Note_PLW.Text := Trim(ADOQueryTemp.FieldByName('Y_Note_PLW').AsString);
ATTNAME1.Text := Trim(ADOQueryTemp.FieldByName('ATTNAME1').AsString);
ATTNAME2.Text := Trim(ADOQueryTemp.FieldByName('ATTNAME2').AsString);
////////////////////////// 保存起综 //////////////////////////
// with ADOQueryTemp do
@ -379,6 +409,8 @@ begin
end;
SCreateCDS(ADOQueryTemp, CDS_4);
SInitCDSData(ADOQueryTemp, CDS_4);
/////////////////刷新起综工艺单信息/////////////////////////
///
end;
@ -608,6 +640,30 @@ begin
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();
var
SumJS, SumWS: double;
@ -635,8 +691,7 @@ begin
//
// C_GramWeight.text := floattostr(roundfloat((SumJS + SumWS) / 3, 2));
/////////////生成规格 /////////////
JinSha.text := JSGG;
WeiSha.text := WSGG;
FC_Spec := '';
FC_Spec := C_Composition.text + ' (' + JSGG + ')*(' + WSGG + ') ' + C_FinishLongitudeDensity.text + '*' + C_FinishLatitudeDensity.text + ' ' + C_ReedWidth.text + MFDW.text;
@ -664,7 +719,8 @@ begin
FBCIID := '';
BCIID.text := '';
C_Code.text := '';
ATTNAME1.Text := '';
ATTNAME2.Text := '';
with CDS_1 do
begin
First;
@ -692,7 +748,7 @@ begin
end;
end;
InitImage();
end;
procedure TfrmTatClothInfoInput.TBCloseClick(Sender: TObject);
@ -750,13 +806,12 @@ begin
end;
FieldByName('BCIID').Value := Trim(maxId);
FieldByName('QZF').Value := Trim(QZF.text);
FieldByName('CZF').Value := Trim(CZF.text);
FieldByName('CKF').Value := Trim(CKF.text);
FieldByName('Y_Note_PLJ').Value := Trim(Y_Note_PLJ.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
C_Code.Text := Trim(maxId);
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', ScrollBox1, 2);
@ -1071,21 +1126,62 @@ begin
Application.MessageBox('门幅单位不能为空！', '提示', 0);
Exit;
end;
if C_Width.Text = '' then
begin
Application.MessageBox('门幅不能为空！', '提示', 0);
Exit;
end;
// CDS_1.First;
// if Trim(CDS_1.fieldbyname('Y_Code').AsString) = '' then
// begin
// Application.MessageBox('至少需要填写一个经丝原料！', '提示', 0);
// Exit;
// end;
//
// CDS_2.First;
// if Trim(CDS_2.fieldbyname('Y_Code').AsString) = '' then
// begin
// Application.MessageBox('至少需要填写一个纬丝原料！', '提示', 0);
// Exit;
// end;
if C_FinishLongitudeDensity.Text = '' then
begin
Application.MessageBox('经密不能为空！', '提示', 0);
Exit;
end;
if C_FinishLatitudeDensity.Text = '' then
begin
Application.MessageBox('纬密不能为空！', '提示', 0);
Exit;
end;
if WB_Code.Text = '' then
begin
Application.MessageBox('整经工艺编号不能为空！', '提示', 0);
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
begin
@ -1109,6 +1205,52 @@ begin
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);
begin
try
@ -1152,7 +1294,7 @@ begin
FieldByName('Brand').Value := frmYarnInfoSel.CDS_1.fieldbyname('Brand').Value;
FieldByName('Y_Composition').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Composition').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;
end;
@ -1205,6 +1347,74 @@ begin
JSKZ();
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);
begin
JSJS();
@ -1247,31 +1457,6 @@ begin
JSWS();
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);
begin
// if pos('"', trim(CYMF.Text)) = 0 then
@ -1358,6 +1543,51 @@ begin
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);
var
mvalue, FFieldName: string;
@ -1367,66 +1597,66 @@ begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
if mvalue = '' then
begin
mvalue := '0';
end;
with CDS_1 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;
MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
if FieldByName('TestDenier').Value = null then
begin
DS := 0; //D数
end
else
begin
DS := FieldByName('TestDenier').Value; //D数
end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
TW := strtofloatdef(C_YarnQty.text, 0); //头纹
end;
if ZGS <> 0 then
begin
with CDS_1 do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
Post;
end;
end;
JSKZ();
// if mvalue = '' then
// begin
// mvalue := '0';
// end;
//
// with CDS_1 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;
//
// MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
//
// if FieldByName('TestDenier').Value = null then
// begin
// DS := 0; //D数
// end
// else
// begin
// DS := FieldByName('TestDenier').Value; //D数
// end;
//
// WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
//
// TW := strtofloatdef(C_YarnQty.text, 0); //头纹
// end;
// if ZGS <> 0 then
// begin
// with CDS_1 do
// begin
// Edit;
// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
// Post;
// end;
// end;
// JSKZ();
end;
procedure TfrmTatClothInfoInput.Tv2Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM: double;
GS, ZGS, MF, DS, WM, fsh: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
@ -1447,6 +1677,15 @@ 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; //循环根数
@ -1458,23 +1697,23 @@ begin
MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
if FieldByName('TestDenier').Value = null then
if FieldByName('Z_Number').Value = null then
begin
DS := 0; //D数
DS := 0; //支
end
else
begin
DS := FieldByName('TestDenier').Value; //D数
DS := FieldByName('Z_Number').Value; //支数
end;
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
end;
if ZGS <> 0 then
if (ZGS <> 0) and (DS <> 0) then
begin
with CDS_2 do
begin
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;
end;
end;
@ -1533,8 +1772,12 @@ begin
Self.C_YarnQty.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').AsString);
Self.C_ReedNo.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNo').AsString);
Self.C_ReedWidth.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString);
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
begin
Close;
@ -1566,8 +1809,11 @@ begin
FieldByName('TestDenier').Value := ADOQuery1.fieldbyname('Denier').Value;
FieldByName('FF').Value := ADOQuery1.fieldbyname('FF').Value;
FieldByName('ND').Value := ADOQuery1.fieldbyname('ND').Value;
FieldByName('Z_Number').Value := ADOQuery1.fieldbyname('ZS').Value;
FieldByName('QFYARNQTY').Value := ADOQuery1.fieldbyname('QFYARNQTY').Value;
FieldByName('MeterQty').Value := ADOQuery1.fieldbyname('MeterQty').Value;
Post;
end;

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

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

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

@ -24,23 +24,8 @@ uses
dxSpreadSheetFunctions, dxSpreadSheetStyles, dxSpreadSheetGraphics,
dxSpreadSheetPrinting, dxSpreadSheetTypes, dxSpreadSheetUtils,
dxSpreadSheetFormattedTextUtils, dxSpreadSheet, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI;
type
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
object Label7: TLabel
Left = 48
Top = 182
Top = 230
Width = 57
Height = 21
Caption = #22791' '#27880
@ -100,17 +100,39 @@ inherited frmGKInput: TfrmGKInput
end
object Label1: TLabel
Left = 399
Top = 109
Top = 108
Width = 64
Height = 21
Caption = #26550#23376#23618#21495
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
Tag = 2
Left = 159
Top = 105
Properties.OnChange = JZBHPropertiesChange
TabOrder = 1
OnExit = GKKHExit
Width = 200
end
object GKBH: TcxTextEdit
@ -141,7 +163,7 @@ inherited frmGKInput: TfrmGKInput
object Note: TcxMemo
Tag = 2
Left = 159
Top = 182
Top = 230
TabOrder = 4
Height = 77
Width = 518
@ -149,11 +171,28 @@ inherited frmGKInput: TfrmGKInput
object JZCH: TcxTextEdit
Tag = 2
Left = 469
Top = 105
Top = 104
Properties.OnChange = JZBHPropertiesChange
TabOrder = 5
Width = 200
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
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_BaseInfo.ADOLink

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

@ -39,6 +39,11 @@ type
Note: TcxMemo;
Label1: TLabel;
JZCH: TcxTextEdit;
Label4: TLabel;
GKCS: TcxTextEdit;
Label5: TLabel;
GKwidth: TcxTextEdit;
Label8: TLabel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -47,6 +52,7 @@ type
procedure TbSaveClick(Sender: TObject);
procedure CoareaBtnDnClick(Sender: TObject);
procedure JZBHPropertiesChange(Sender: TObject);
procedure GKKHExit(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
@ -118,7 +124,18 @@ begin
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);
begin

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

@ -100,8 +100,6 @@ inherited frmGKManage: TfrmGKManage
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitLeft = 8
ExplicitTop = 95
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -174,6 +172,20 @@ inherited frmGKManage: TfrmGKManage
HeaderAlignmentHorz = taCenter
Width = 100
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
Caption = #22791#27880
DataBinding.FieldName = 'Note'
@ -205,7 +217,6 @@ inherited frmGKManage: TfrmGKManage
Color = clWhite
ParentBackground = False
TabOrder = 4
ExplicitTop = 36
object Label1: TLabel
Left = 30
Top = 19

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

@ -50,6 +50,8 @@ type
Tv2Column5: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);

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

@ -1,85 +1,85 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.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.441,=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.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.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.569,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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.375,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_ReceivableEdit_XT.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.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.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.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.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.074,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.242,=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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.993,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm</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.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.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.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.950,=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.556,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.575,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.398,=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.423,=D:\Dp10RepoV1\项目代码\RTBasicsV1\B01基础合同管理\U_SalesContractList.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.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.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.569,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.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10RepoV1\项目代码\D10szJinCheng\E01梭织生产计划\U_PictureUpload22.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.847,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.707,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B01基础合同管理\U_SalesContractList_XT.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.359,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.419,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.564,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.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.428,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.676,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</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.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.556,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.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.325,=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.525,D:\Dp10RepoV1\项目代码\D10szJinCheng\B01基础合同管理\U_PictureUpload11.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用窗体\U_PictureUpload.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.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.472,=D:\Dp10RepoV1\项目代码\花蝴蝶\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -77,6 +77,7 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
ParentCtl3D = False
ParentFont = False
TabOrder = 1
ExplicitTop = 36
object Label2: TLabel
Left = 16
Top = 159
@ -272,6 +273,19 @@ inherited frmYarnInfoInPut: TfrmYarnInfoInPut
Font.Style = []
ParentFont = False
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
Tag = 2
Left = 68

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

@ -56,6 +56,7 @@ type
CJ: TcxButtonEdit;
Label15: TLabel;
LLSH: TcxTextEdit;
Label16: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(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,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, U_BaseList, dxScrollbarAnnotations, cxContainer, cxMaskEdit,
dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI,
;
dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnInfoList = class(TfrmBaseList)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -1,98 +1,98 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.674,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_testdll.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.687,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.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.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.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.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm</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.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.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.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.065,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.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.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.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.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.976,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.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.dfm=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.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.891,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.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.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.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.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.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_YarnOutWBList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.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.935,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.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.534,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnPurchasePlanSel.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.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.209,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_YarnPurchasePlanSel.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.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.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm</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.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.dfm</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.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.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.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_InputBoxSingleNumber.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.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.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.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.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.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.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\A02基础产品管理\U_YarnInList_Sel.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.517,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>2025/06/07 16:01:49.000.230,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.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.687,=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.614,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.907,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\YarnStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.688,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.000,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnPurOutReturn.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.224,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.pas=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.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.065,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</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.536,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.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.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.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.642,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.872,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList_RC.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.887,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.800,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_CPSelBig.pas</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.670,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutEdit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.008,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.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.006,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B02基础纱线仓库\U_CJDJ.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.dfm</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.267,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.073,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutInput1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnOutWBList.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.534,=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.976,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.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.969,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnOutReturnList.dfm</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.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.339,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInEdit.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.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.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.802,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.891,D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\Unit1.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.517,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnStkList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.803,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnInfoList.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.344,D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_YarnInList_Sel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.334,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnWeighing.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.425,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.420,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.768,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnPurOutReturn.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.950,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_CJDJ.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\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.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>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<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"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.366,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanList.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.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.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.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.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.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj</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.023,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_ClothPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.608,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.071,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.462,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.741,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContractSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.690,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.085,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut_ZZD.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\B04采购计划管理\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.317,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.819,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.915,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.797,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\PurchasePlan.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.486,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_ZZDSXSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A00通用窗体\U_SalesContract_SXSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.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.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.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.424,=D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\U_YarnPurchasePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.724,D:\Dp10Repo\项目代码\RTBasics\B04采购计划管理\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B04采购计划管理\U_GKManageSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.034,D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\B04采购计划管理\U_YarnPurchasePlanDetailList.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>

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

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

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

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

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

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

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

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

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

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

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

@ -15,23 +15,8 @@ uses
cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, System.ImageList, Vcl.ImgList,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdExplicitTLSClientServerBase, IdFTP, ShellAPI, dxScrollbarAnnotations, dxCore,
cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnPurchasePlanPut = class(TfrmBaseInput)
@ -189,12 +174,12 @@ begin
while not eof do
begin
FPiece := Fieldbyname('Piece').AsFloat;
FPieceKG := Fieldbyname('PieceKG').AsFloat;
// FPieceKG := Fieldbyname('PieceKG').AsFloat;
FPrice := Fieldbyname('Price').AsFloat; //含税单价
FSL := StrToFloatdef(ShuiLv.text, 0);
with Order_Sub do
begin
FQty := RoundFloat(FPieceKG * FPiece, 2);
FQty := Fieldbyname('Qty').AsFloat;
FAmount := RoundFloat(FQty * FPrice, 2); //含税金额
FAmount2 := RoundFloat(FQty * FPrice2 * FSL, 2); //不含税金额
@ -805,8 +790,7 @@ begin
with Order_Sub do
begin
Edit;
FieldByName('Qty').Value := FQty;
FieldByName('Price').Value := FPrice;
FieldByName('Amount').Value := FAmount;
Post;
end;

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

@ -15,23 +15,8 @@ uses
cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput, System.ImageList, Vcl.ImgList,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdExplicitTLSClientServerBase, IdFTP, ShellAPI, dxScrollbarAnnotations, dxCore,
cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinWXI, ;
cxDateUtils, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI;
type
TfrmYarnPurchasePlanPut_ZZD = class(TfrmBaseInput)

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

@ -43,7 +43,8 @@ uses
U_TatGYList in 'U_TatGYList.pas' {frmTatGYList},
U_TatGYInPut in 'U_TatGYInPut.pas' {frmTatGYInPut},
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}

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

@ -206,6 +206,10 @@
<Form>frmTatPlanSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_PictureUpload.pas">
<Form>frmPictureUpload</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

@ -1,76 +1,77 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=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.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.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.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.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.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.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.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.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>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>
@ -93,6 +94,8 @@
<File Path="..\A00通用窗体\U_WBSpecSel.dfm"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.pas"/>
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_PictureUpload.pas"/>
<File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
<File Path="..\A00通用组件"/>
<File Path="..\A00通用组件\FrameDateSel.pas"/>
<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
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 76
ExplicitTop = 87
object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick
Navigator.Buttons.CustomButtons = <>
@ -141,6 +141,20 @@ inherited frmGKManageSel: TfrmGKManageSel
HeaderAlignmentHorz = taCenter
Width = 100
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
Caption = #22791#27880
DataBinding.FieldName = 'Note'
@ -172,7 +186,6 @@ inherited frmGKManageSel: TfrmGKManageSel
Color = clWhite
ParentBackground = False
TabOrder = 4
ExplicitTop = 32
object Label1: TLabel
Left = 13
Top = 11

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

@ -46,6 +46,8 @@ type
Tv2Column6: TcxGridDBColumn;
Tv2Column7: TcxGridDBColumn;
ToolButton1: TToolButton;
Tv2Column2: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);

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

@ -9,6 +9,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Font.Height = -16
Position = poMainFormCenter
OnClose = FormClose
ExplicitLeft = -636
ExplicitWidth = 1833
ExplicitHeight = 811
PixelsPerInch = 96
@ -21,19 +22,22 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Align = alClient
TabOrder = 0
object Panel4: TPanel
Left = 547
Left = 521
Top = 1
Width = 1269
Width = 1295
Height = 770
Align = alClient
TabOrder = 0
ExplicitLeft = 547
ExplicitWidth = 1269
object cxGrid2: TcxGrid
Left = 1
Top = 251
Width = 1267
Width = 1293
Height = 518
Align = alClient
TabOrder = 0
ExplicitWidth = 1267
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -222,7 +226,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Tag = 1
Left = 1
Top = 1
Width = 1267
Width = 1293
Height = 30
AutoSize = True
ButtonHeight = 30
@ -287,10 +291,11 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
object Panel3: TPanel
Left = 1
Top = 31
Width = 1267
Width = 1293
Height = 220
Align = alTop
TabOrder = 2
ExplicitWidth = 1267
object Label2: TLabel
Left = 263
Top = 102
@ -539,13 +544,12 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
end
object WB_ProcessType: TcxComboBox
Tag = 2
Left = 100
Left = 98
Top = 6
Properties.Items.Strings = (
#26412#21378#25972#32463
#22806#21378#25972#32463
#25972#32463#37319#36141
#22806#21378#27974#32433)
#25972#32463#37319#36141)
TabOrder = 10
Text = #26412#21378#25972#32463
Width = 150
@ -694,7 +698,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Tag = 2
Left = 1
Top = 1
Width = 546
Width = 520
Height = 770
Align = alLeft
BevelInner = bvRaised
@ -703,148 +707,184 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
ParentBackground = False
TabOrder = 1
ExplicitLeft = -4
object Label15: TLabel
Left = 237
Top = 18
Width = 64
Height = 21
Caption = #29983#20135#31867#22411
end
object Label7: TLabel
Left = 7
Top = 57
Left = 12
Top = 140
Width = 96
Height = 21
Caption = #25972#32463#24037#33402#32534#21495
end
object Label1: TLabel
Left = 7
Left = 12
Top = 18
Width = 96
Height = 21
Caption = #25972#32463#20219#21153#21333#21495
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
Left = 237
Top = 57
Top = 138
Width = 96
Height = 21
Caption = #25972#32463#24037#33402#21517#31216
end
object Label8: TLabel
Left = 7
Top = 332
Width = 48
Height = 21
Caption = #20301#31227#37327
end
object Label11: TLabel
Left = 7
Top = 137
Width = 48
Height = 21
Caption = #24635#22836#20221
end
object Label12: TLabel
Left = 7
Top = 254
Left = 12
Top = 181
Width = 64
Height = 21
Caption = #31576#31359#20837#27861
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
Caption = #24635#32463#26681#25968
end
object Label38: TLabel
Left = 7
Top = 96
Left = 12
Top = 59
Width = 64
Height = 21
Caption = #32455#36896#21333#21495
end
object Label47: TLabel
Left = 237
Top = 97
Top = 56
Width = 32
Height = 21
Caption = #23458#25143
end
object Label20: TLabel
Left = 403
Top = 209
Width = 64
object Label8: TLabel
Left = 12
Top = 100
Width = 48
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
object Label39: TLabel
Left = 237
Top = 214
Left = 12
Top = 304
Width = 64
Height = 21
Caption = #38050#31576#32534#21495
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
Tag = 1
Left = 106
@ -854,20 +894,10 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
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
Top = 134
ParentColor = True
Properties.Buttons = <
item
@ -877,112 +907,32 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Properties.ReadOnly = True
Properties.OnButtonClick = WB_CodePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 2
TabOrder = 1
Width = 120
end
object WB_Name: TcxTextEdit
Tag = 1
Left = 338
Top = 51
Top = 135
ParentColor = True
TabOrder = 3
Width = 150
TabOrder = 2
Width = 120
end
object WB_YarnQty: TcxTextEdit
Tag = 1
Left = 106
Top = 131
Top = 175
ParentColor = True
TabOrder = 4
TabOrder = 3
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 cxGrid3: TcxGrid
Left = 2
Top = 528
Width = 542
Width = 516
Height = 240
Align = alBottom
TabOrder = 15
TabOrder = 4
ExplicitLeft = -1
ExplicitTop = 529
object TV3: TcxGridDBTableView
@ -1170,18 +1120,10 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
GridView = TV3
end
end
object WB_YarnDensity: TcxTextEdit
Tag = 1
Left = 337
Top = 326
ParentColor = True
TabOrder = 16
Width = 150
end
object GYNo: TcxButtonEdit
Tag = 1
Left = 106
Top = 90
Top = 53
Properties.Buttons = <
item
Default = True
@ -1190,14 +1132,14 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Properties.ReadOnly = True
Properties.OnButtonClick = GYNoPropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 17
TabOrder = 5
OnDblClick = GYNoDblClick
Width = 120
end
object CustName: TcxButtonEdit
Tag = 1
Left = 338
Top = 92
Top = 54
Properties.Buttons = <
item
Default = True
@ -1206,31 +1148,150 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut
Properties.ReadOnly = True
Properties.OnButtonClick = CustNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 18
TabOrder = 6
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
object WB_ReedNo: TcxTextEdit
Tag = 2
Left = 473
Top = 206
Tag = 1
Left = 338
Top = 297
ParentColor = True
Properties.ReadOnly = True
TabOrder = 19
Width = 65
TabOrder = 9
Width = 120
end
object GKBH: TcxButtonEdit
Tag = 2
Left = 308
Top = 206
Tag = 1
Left = 106
Top = 298
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
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
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

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

@ -14,7 +14,7 @@ uses
dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer,
cxMaskEdit, cxDropDownEdit, cxRichEdit, cxMemo, dxScrollbarAnnotations,
dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinWXI;
dxSkinSharpPlus, dxSkinWXI, dxCore, cxDateUtils;
type
TfrmTatWBCardInPut = class(TfrmBaseInput)
@ -46,39 +46,17 @@ type
ToolButton2: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
Label15: TLabel;
GPM_2: TcxGridPopupMenu;
Label7: TLabel;
Label1: TLabel;
PM_1: TPopupMenu;
N1: TMenuItem;
Label16: TLabel;
WBCNO: TcxTextEdit;
WB_Type: TcxComboBox;
WB_Code: TcxButtonEdit;
Label5: TLabel;
WB_Name: TcxTextEdit;
Label8: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
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;
DS_3: TDataSource;
GPM_3: TcxGridPopupMenu;
@ -147,8 +125,6 @@ type
TV2Column7: TcxGridDBColumn;
TV2Column8: TcxGridDBColumn;
TV2Column9: TcxGridDBColumn;
Label37: TLabel;
WB_YarnDensity: TcxTextEdit;
TV3Column1: TcxGridDBColumn;
TV3Column2: TcxGridDBColumn;
TV3Column3: TcxGridDBColumn;
@ -157,10 +133,38 @@ type
GYNo: TcxButtonEdit;
Label47: TLabel;
CustName: TcxButtonEdit;
Label8: TLabel;
CONNO: TcxTextEdit;
Label14: TLabel;
Label20: TLabel;
Label39: TLabel;
WB_Width: TcxTextEdit;
WB_ReedNo: TcxTextEdit;
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 FormShow(Sender: TObject);
procedure N2Click(Sender: TObject);
@ -277,8 +281,6 @@ begin
if Trim(WB_MachNo.Text) = '' then
raise Exception.Create('迁经机不能为空！');
end;
if Trim(WB_YarnDensity.Text) = '' then
raise Exception.Create('经密不能为空！');
// if StrToIntDef(WB_ClothPiece.Text, 0) = 0 then
// WB_ClothPiece.Text := '0';
@ -406,19 +408,6 @@ 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_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.InitCard3();
@ -548,7 +537,10 @@ begin
Self.CustName.Text := CDS_1.FieldByName('CustName').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
begin
close;
@ -562,18 +554,20 @@ begin
Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(ADOQueryTemp.fieldbyname('WB_Name').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.WB_YarnStripRemainder.Text := Trim(ADOQueryTemp.fieldbyname('WB_YarnStripRemainder').AsString);
Self.F_MAXKESHU.Text := ADOQueryTemp.fieldbyname('F_MAXKESHU').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_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').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.InitCard3();
@ -628,27 +622,29 @@ begin
Close;
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(' ,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(' ,GYSubid,GYNo,CustNo,CustName,GKBH');
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_Width,WB_ReedNo,WB_ReedNote,WBFtyNo,WBFtyName,WBBelong,WBBelongCoNo,WBBelongCoName ');
sql.Add(' ,GYSubid,GYNo,CustNo,CustName,GKBH,C_CODE');
SQL.Add(' ,BSQTY,DCRQTY,C_KCQTY');
sql.Add(' ) values');
for i := 1 to MCardQty do
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
raise Exception.Create('取布票流水号失败!');
end;
if i > 1 then
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(MWBType)));
sql.Add(',' + Quotedstr(Trim(WB_ProcessType.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Code.Text)));
sql.Add(',' + Quotedstr(Trim(WB_Name.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(',' + Quotedstr(Trim(WB_Macher.Text)));
sql.Add(',' + Quotedstr(Trim(WB_MachNo.Text)));
@ -656,54 +652,29 @@ begin
sql.Add(',' + Quotedstr(Trim(Note.Text)));
sql.Add(',' + Quotedstr(Trim(DCode)));
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_ReedNo.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.Text)));
sql.Add(',' + Quotedstr(Trim(MWBBelong)));
sql.Add(',' + Quotedstr(Trim(MWBBelongCoNo)));
sql.Add(',' + Quotedstr(Trim(MWBBelongCoName)));
sql.Add(',' + Quotedstr(Trim(GYNo.Properties.LookupItems.Text)));
sql.Add(',' + Quotedstr(Trim(GYNo.Text)));
sql.Add(',' + Quotedstr(Trim(CustName.Properties.LookupItems.Text)));
sql.Add(',' + Quotedstr(Trim(CustName.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(' )');
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;
end;
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
ClientWidth = 1540
Font.Height = -16
FormStyle = fsMDIChild
Visible = True
WindowState = wsMaximized
ExplicitWidth = 1556
ExplicitHeight = 831
PixelsPerInch = 96
@ -31,7 +31,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 5
TabOrder = 4
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -48,49 +48,16 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
ImageIndex = 0
OnClick = TBFindClick
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
Left = 213
Left = 126
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 8
OnClick = TbLookClick
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
Left = 489
Left = 189
Top = 0
AutoSize = True
Caption = #25171#21360
@ -98,7 +65,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
Visible = False
end
object TBExport: TToolButton
Left = 552
Left = 252
Top = 0
AutoSize = True
Caption = #23548#20986'Excel'
@ -106,7 +73,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 645
Left = 345
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -114,7 +81,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 732
Left = 432
Top = 0
AutoSize = True
Caption = #20851#38381
@ -132,7 +99,7 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 6
TabOrder = 5
object Label2: TLabel
Left = 300
Top = 46
@ -189,13 +156,13 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 138
Top = 109
Width = 1540
Height = 654
Height = 683
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 144
ExplicitTop = 115
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -323,26 +290,11 @@ inherited frmTatWBNeedList: TfrmTatWBNeedList
TabOrder = 3
Visible = False
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
Left = 300
Top = 264
ExplicitLeft = 300
ExplicitTop = 264
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery

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

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

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

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

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

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

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

@ -219,7 +219,7 @@ begin
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.enddate.Date + 1)) + '''');
sql.Add(' and WB_Type not in (''½¬Öá'')');
sql.Add(' and WB_Type not in (''½¬Öá'',''Ï¡Öá'')');
// showmessage(Sql.text);
// ShowMessage(sql.text);

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

@ -2,7 +2,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Left = -35
Top = 98
Caption = #32463#36724#35745#21010
ClientHeight = 667
ClientHeight = 734
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -10,27 +10,32 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Position = poMainFormCenter
OnClose = FormClose
ExplicitWidth = 1556
ExplicitHeight = 706
ExplicitHeight = 773
PixelsPerInch = 96
TextHeight = 12
object Panel2: TPanel [0]
Left = 0
Left = 546
Top = 0
Width = 1540
Height = 667
Width = 994
Height = 734
Align = alClient
TabOrder = 0
ExplicitLeft = 0
ExplicitWidth = 1540
ExplicitHeight = 667
object Panel1: TPanel
Left = 1
Top = 1
Width = 1538
Height = 83
Width = 992
Height = 168
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 5
ExplicitWidth = 1538
object Label8: TLabel
Left = 377
Top = 50
@ -124,7 +129,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
end
object Label19: TLabel
Left = 17
Top = 50
Top = 53
Width = 54
Height = 12
Caption = #21697' '#21517
@ -149,6 +154,45 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
ParentFont = False
Visible = False
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
Tag = 1
Left = 436
@ -168,7 +212,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
object WB_Spec: TEdit
Tag = 1
Left = 76
Top = 46
Top = 50
Width = 282
Height = 20
TabOrder = 2
@ -236,27 +280,96 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
OnBtnUpClick = WBNoBtnUpClick
OnBtnDnClick = FtyCoNameBtnDnClick
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
object Panel4: TPanel
Left = 1
Top = 84
Width = 1538
Height = 582
Top = 169
Width = 992
Height = 564
Align = alClient
Caption = 'Panel4'
TabOrder = 0
ExplicitTop = 84
ExplicitWidth = 1538
ExplicitHeight = 582
object Panel3: TPanel
Left = 1
Top = 1
Width = 1536
Height = 580
Width = 990
Height = 562
Align = alClient
TabOrder = 0
ExplicitWidth = 1536
ExplicitHeight = 580
object cxPageControl1: TcxPageControl
Left = 1
Top = 282
Width = 1534
Height = 297
Top = 42
Width = 988
Height = 519
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -271,16 +384,18 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 297
ClientRectRight = 1534
ExplicitTop = 282
ExplicitWidth = 1534
ExplicitHeight = 297
ClientRectBottom = 519
ClientRectRight = 988
ClientRectTop = 0
end
object cxGrid1: TcxGrid
Left = 1
Top = 42
Top = 47
Width = 1534
Height = 240
Align = alTop
Height = 179
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -288,6 +403,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Font.Style = []
ParentFont = False
TabOrder = 1
Visible = False
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -381,34 +497,14 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
object Panel5: TPanel
Left = 1
Top = 1
Width = 1534
Width = 988
Height = 41
Align = alTop
TabOrder = 2
object Panel6: TPanel
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
ExplicitLeft = -4
object ToolBar1: TToolBar
Tag = 1
Left = 185
Left = 1
Top = 1
Width = 308
Height = 39
@ -429,7 +525,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
List = True
ParentFont = False
ShowCaptions = True
TabOrder = 1
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
@ -444,6 +540,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
AutoSize = True
Caption = #21024#34892
ImageIndex = 5
Visible = False
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
@ -465,10 +562,9 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
end
object cxGrid2: TcxGrid
Left = 1
Top = 282
Top = 288
Width = 1534
Height = 297
Align = alClient
Height = 212
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -476,6 +572,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Font.Style = []
ParentFont = False
TabOrder = 3
Visible = False
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -566,9 +663,580 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
GridView = TV2
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
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
Connection = DataLink_WarpBeamStk.ADOLink
Left = 722
@ -585,6 +1253,9 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 336
Top = 385
DesignInfo = 25231696
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_WarpBeamStk.ADOLink
@ -616,7 +1287,7 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
object DS_1: TDataSource
DataSet = CDS_1
Left = 614
Top = 183
Top = 295
end
object CDS_1: TClientDataSet
Aggregates = <>
@ -625,8 +1296,8 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Top = 181
end
object PopupMenu1: TPopupMenu
Left = 553
Top = 412
Left = 609
Top = 492
object N2: TMenuItem
Caption = #20840#36873
end
@ -657,4 +1328,21 @@ inherited frmTatWBPlanCardInPut: TfrmTatWBPlanCardInPut
Left = 481
Top = 186
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

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

@ -13,7 +13,8 @@ uses
Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList,
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinOffice2013White,
dxSkinSharpPlus, dxSkinsDefaultPainters, dxSkinWXI;
dxSkinSharpPlus, dxSkinsDefaultPainters, dxSkinWXI, cxContainer, cxMaskEdit,
cxDropDownEdit, cxMemo;
type
TfrmTatWBPlanCardInPut = class(TfrmBaseInput)
@ -58,8 +59,6 @@ type
TV1Column2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Panel5: TPanel;
Panel6: TPanel;
Label21: TLabel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
@ -76,6 +75,65 @@ type
DS_2: TDataSource;
GPM_1: TcxGridPopupMenu;
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 FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -123,6 +181,7 @@ begin
edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty').AsString;
WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_YarnLen').AsString;
WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_YarnQty').AsString;
end
else
begin
@ -130,6 +189,7 @@ begin
WB_YarnQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZGS').AsString;
edtCardQty.Text := ADOQueryTemp.FieldByName('WB_Qty_YJJZZS').AsString;
WB_YarnLen.Text := ADOQueryTemp.FieldByName('WB_Qty_YJMJZMS').AsString;
end;
with ADOQueryTemp do
begin
@ -144,6 +204,19 @@ begin
SInitCDSData(ADOQueryTemp, CDS_1);
SCreateCDS(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;
function TfrmTatWBPlanCardInPut.TestData(): Boolean;
@ -250,7 +323,7 @@ begin
sql.Clear;
sql.Add(' insert into Tat_WB_Card(WBCID,WBNo,TWPId,WB_Spec,WB_YarnQty,WB_YarnLen ');
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
begin
@ -269,6 +342,9 @@ begin
sql.Add(',' + Quotedstr(Trim(Note.Text)));
sql.Add(',' + Quotedstr(Trim(DCode)));
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(' )');
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;
Label3: TLabel;
Label14: TLabel;
Label16: TLabel;
Label47: TLabel;
Label2: TLabel;
Label4: TLabel;
Label6: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
OrdNote: TRichEdit;
WB_Spec: TEdit;
CustName: TBtnEditC;
C_NAME: TEdit;
WB_Code: TBtnEditC;
WB_YarnTotalLen: TEdit;
WB_Qty: TEdit;
WB_YarnLen: TEdit;
WB_Qty_YJJZZS: TEdit;
WB_Qty_YJMJZGS: TEdit;
WB_Qty_YJMJZMS: TEdit;
Label13: TLabel;
TWPId: TEdit;
@ -61,17 +56,9 @@ type
WB_Name: TEdit;
Label18: TLabel;
WB_YarnQty: TEdit;
Label19: TLabel;
WB_Width: TEdit;
Label20: TLabel;
gkbh: TBtnEditC;
Label22: TLabel;
WB_ReedNo: TEdit;
Label23: TLabel;
WB_ReedNote: TEdit;
Label24: TLabel;
WB_YarnDensity: TEdit;
gyno: TBtnEditC;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column18: TcxGridDBColumn;
@ -84,13 +71,44 @@ type
Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
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 FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -102,11 +120,15 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure gynoBtnUpClick(Sender: TObject);
procedure WB_CodeBtnUpClick(Sender: TObject);
procedure gkbhBtnUpClick(Sender: TObject);
procedure gynoDblClick(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
procedure InitData();
function SaveData(): Boolean;
@ -195,14 +217,19 @@ begin
end;
end;
procedure TfrmTatWBPlanInPut.gynoBtnUpClick(Sender: TObject);
procedure TfrmTatWBPlanInPut.gynoDblClick(Sender: TObject);
begin
inherited;
TcxButtonEdit(Sender).Text := '';
end;
procedure TfrmTatWBPlanInPut.gynoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmTatPlanSel2 := TfrmTatPlanSel2.Create(Application);
with frmTatPlanSel2 do
begin
FISSJ := '·ñ';
// FISSJ := '否';
if ShowModal = 1 then
begin
Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring;
@ -210,6 +237,9 @@ begin
Self.CustName.Text := CDS_1.FieldByName('CustName').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
begin
@ -221,17 +251,71 @@ begin
Open;
end;
Self.WB_YarnTotalLen.Text := Trim(CDS_1.fieldbyname('ORDQTY').AsString);
Self.WB_Code.Text := Trim(ADOQueryTemp.fieldbyname('WB_Code').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.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.C_KCQTY.Text := Trim(ADOQueryTemp.fieldbyname('C_KCQTY').AsString);
Self.WB_ReedNo.Text := Trim(ADOQueryTemp.fieldbyname('WB_ReedNo').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);
Self.OrdNote.Text := Trim(ADOQueryTemp.fieldbyname('Note').AsString);
with ADOQuery1 do
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;
finally
@ -239,12 +323,6 @@ begin
end;
end;
procedure TfrmTatWBPlanInPut.gynoDblClick(Sender: TObject);
begin
inherited;
TcxButtonEdit(Sender).Text := '';
end;
function TfrmTatWBPlanInPut.SaveData(): Boolean;
var
maxno, maxsubno, maxpbno, maxpzno, maxsjno: string;
@ -253,9 +331,9 @@ begin
ADOQueryCmd.Connection.BeginTrans;
if Trim(FTWPId) = '' then
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('生成流水号异常！');
TWPId.Text := maxno;
end
else
begin
@ -358,7 +436,7 @@ var
FReal: Double;
maxConNo: string;
begin
ToolBar1.SetFocus();
if Trim(CustName.Text) = '' then
begin
Application.MessageBox('客户不能为空!', '提示', 0);
@ -422,8 +500,52 @@ begin
CDS_1.Delete;
end;
procedure TfrmTatWBPlanInPut.Tv1Column7PropertiesEditValueChanged(
Sender: TObject);
procedure TfrmTatWBPlanInPut.Tv1Column6PropertiesEditValueChanged(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
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
@ -496,15 +618,27 @@ begin
if ShowModal = 1 then
begin
Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Name').AsString);
Self.WB_YarnQty.Text := frmWBSpecSel.CDS_1.fieldbyname('WB_YarnQty').value;
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_YarnDensity.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnDensity').AsString);
Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString);
Self.OrdNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('Note').AsString);
Self.WB_Code.Text := Trim(CDS_1.fieldbyname('WB_Code').AsString);
Self.WB_Name.Text := Trim(CDS_1.fieldbyname('WB_Name').AsString);
Self.WB_YarnQty.Text := CDS_1.fieldbyname('WB_YarnQty').asstring;
Self.Z_BINGSHU.Text := CDS_1.fieldbyname('Z_BINGSHU').asstring;
Self.Z_FENJIAO.Text := CDS_1.fieldbyname('Z_FENJIAO').asstring;
Self.Z_FJGENSHU.Text := CDS_1.fieldbyname('Z_FJGENSHU').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;
finally
@ -512,6 +646,71 @@ begin
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);
begin
if Key = #13 then
@ -547,7 +746,6 @@ begin
end;
procedure TfrmTatWBPlanInPut.JSJS();
var
GS, ZGS, MF, DS, WM, TW: double;
@ -595,7 +793,7 @@ begin
DS := FieldByName('TestDenier').Value; //D数
end;
WM := strtofloatdef(WB_YarnDensity.text, 0); //γÃÜ
// WM := strtofloatdef(WB_YarnDensity.text, 0); //纬密
end;
if ZGS <> 0 then
begin
@ -638,7 +836,7 @@ begin
FCoType := '客户';
if ShowModal = 1 then
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);
end;
end;
@ -648,5 +846,24 @@ begin
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.

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

@ -1,7 +1,7 @@
inherited frmWBNeedLook: TfrmWBNeedLook
Left = 105
Top = 131
Caption = #22806#27424#30424#22836#21015#34920
Caption = #32463#36724#38656#27714#26126#32454
ClientHeight = 667
ClientWidth = 1540
Font.Height = -16
@ -74,18 +74,18 @@ inherited frmWBNeedLook: TfrmWBNeedLook
object Label3: TLabel
Left = 268
Top = 10
Width = 48
Width = 32
Height = 21
Caption = #30424#22836#21495
Caption = #23458#25143
end
object Label4: TLabel
Left = 46
Top = 10
Width = 64
Height = 21
Caption = #20986#21040#21333#20301
Caption = #32455#36896#21333#21495
end
object WBNO: TcxTextEdit
object CustName: TcxTextEdit
Tag = 2
Left = 320
Top = 6
@ -93,7 +93,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
TabOrder = 0
Width = 150
end
object ToCoName: TcxTextEdit
object OrderNo: TcxTextEdit
Tag = 2
Left = 114
Top = 6
@ -119,7 +119,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Height = 592
Align = alClient
TabOrder = 0
ExplicitLeft = 71
ExplicitLeft = -3
ExplicitTop = 6
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -131,41 +131,49 @@ inherited frmWBNeedLook: TfrmWBNeedLook
OptionsView.GroupByBox = False
object TV1Column1: TcxGridDBColumn
Caption = #32455#36896#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 83
end
object TV1Column2: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV1Column3: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 84
end
object TV1Column4: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 85
end
object TV1Column5: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495
DataBinding.FieldName = 'WB_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 121
end
object TV1Column6: TcxGridDBColumn
Caption = #25972#32463#24037#33402#21517#31216
DataBinding.FieldName = 'WB_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 109
end
object TV1Column7: TcxGridDBColumn
Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = cxStyle1
@ -208,42 +216,49 @@ inherited frmWBNeedLook: TfrmWBNeedLook
OptionsView.GroupByBox = False
object TV2Column1: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495
DataBinding.FieldName = 'WB_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 124
end
object TV2Column2: TcxGridDBColumn
Caption = #25972#32463#24037#33402#21517#31216
DataBinding.FieldName = 'WB_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 124
end
object TV2Column3: TcxGridDBColumn
Caption = #36724#21345#21495
DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object TV2Column4: TcxGridDBColumn
Caption = #36801#32463#26426#21488
DataBinding.FieldName = 'WB_MachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 86
end
object TV2Column5: TcxGridDBColumn
Caption = #25972#32463#24037
DataBinding.FieldName = 'WB_Macher'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object TV2Column6: TcxGridDBColumn
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 85
end
object TV2Column7: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 54
@ -270,36 +285,42 @@ inherited frmWBNeedLook: TfrmWBNeedLook
OptionsView.GroupByBox = False
object TV3Column1: TcxGridDBColumn
Caption = #25972#32463#35745#21010#21333#21495
DataBinding.FieldName = 'WBCNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 131
end
object TV3Column2: TcxGridDBColumn
Caption = #36724#21345#21495
DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column3: TcxGridDBColumn
Caption = #24320#21345#26102#38388
DataBinding.FieldName = 'filltime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column4: TcxGridDBColumn
Caption = #36801#32463#26426#21488
DataBinding.FieldName = 'WB_MachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column5: TcxGridDBColumn
Caption = #32463#36724#31867#22411
DataBinding.FieldName = 'WB_ProcessType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV3Column6: TcxGridDBColumn
Caption = #24320#21345#25968#37327
DataBinding.FieldName = 'WB_YarnLen'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
@ -321,7 +342,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Top = 129
end
object ADOQueryCmd: TADOQuery
ConnectionString = 'BS_Cloth_IO'
Connection = DataLink_WarpBeamStk.ADOLink
Parameters = <>
Left = 480
Top = 128
@ -334,7 +355,6 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Top = 128
end
object ADOQueryTemp: TADOQuery
ConnectionString = 'BS_Cloth_IO'
LockType = ltReadOnly
Parameters = <>
Left = 408
@ -346,6 +366,7 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Top = 280
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 536
Top = 240
@ -389,8 +410,20 @@ inherited frmWBNeedLook: TfrmWBNeedLook
Top = 208
end
object DS_3: TDataSource
DataSet = CDS_2
DataSet = CDS_3
Left = 256
Top = 280
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 560
Top = 304
end
object cxGridPopupMenu3: TcxGridPopupMenu
Grid = cxGrid3
PopupMenus = <>
Left = 560
Top = 360
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,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer,
dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar;
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters, cxProgressBar;
type
TfrmWBNeedLook = class(TfrmBaseList)
@ -30,8 +30,8 @@ type
PopupMenu1: TPopupMenu;
Label3: TLabel;
Label4: TLabel;
WBNO: TcxTextEdit;
ToCoName: TcxTextEdit;
CustName: TcxTextEdit;
OrderNo: TcxTextEdit;
ToolButton2: TToolButton;
Panel2: TPanel;
Panel3: TPanel;
@ -73,6 +73,8 @@ type
CDS_1: TClientDataSet;
CDS_2: TClientDataSet;
DS_3: TDataSource;
cxGridPopupMenu2: TcxGridPopupMenu;
cxGridPopupMenu3: TcxGridPopupMenu;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -90,10 +92,10 @@ type
private
canshu1, FStkName, canshu3: string;
procedure InitGrid();
procedure InitSUB();
{ Private declarations }
public
FWB_Code: string;
{ Public declarations }
end;
@ -136,22 +138,11 @@ begin
Filtered := False;
Close;
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(' 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('ORDER BY FILLTIME DESC');
// 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(' and not EXISTS (select * from Tat_WB_IO X where X.STKName =''¿ÕÖá'' and X.IOFlag =''Èë¿â'' and A.WBNO =X.WBNO) ');
// ShowMessage(Sql.text);
@ -165,9 +156,61 @@ begin
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);
begin
InitGrid();
INITSUB();
end;
procedure TfrmWBNeedLook.ConNoMChange(Sender: TObject);
@ -187,8 +230,11 @@ end;
procedure TfrmWBNeedLook.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(Self.Caption), Tv1, '染色坯布仓库');
ReadCxGrid(trim(Self.Caption), Tv1, '¾­ÖáÐèÇóÃ÷ϸ');
ReadCxGrid(trim(Self.Caption), Tv2, '¾­ÖáÐèÇóÃ÷ϸ');
ReadCxGrid(trim(Self.Caption), Tv3, '¾­ÖáÐèÇóÃ÷ϸ');
InitGrid();
Initsub();
end;
procedure TfrmWBNeedLook.TBFindClick(Sender: TObject);
@ -223,7 +269,10 @@ end;
procedure TfrmWBNeedLook.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(trim(Self.Caption), Tv1, '染色坯布仓库');
WriteCxGrid(trim(Self.Caption), Tv1, '¾­ÖáÐèÇóÃ÷ϸ');
WriteCxGrid(trim(Self.Caption), Tv2, '¾­ÖáÐèÇóÃ÷ϸ');
WriteCxGrid(trim(Self.Caption), Tv3, '¾­ÖáÐèÇóÃ÷ϸ');
end;
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,
cxMemo, dxScrollbarAnnotations, cxContainer, dxSkinsCore,
dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, dxSkinSharpPlus,
dxSkinWXI, cxMaskEdit;
dxSkinWXI, cxMaskEdit, cxGroupBox, MATH, Vcl.Menus;
type
TfrmWBSpecInPut = class(TfrmBaseInput)
@ -40,48 +40,27 @@ type
ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn;
ScrollBox1: TScrollBox;
Label7: TLabel;
Label3: TLabel;
WB_Code: TcxTextEdit;
ToolBar2: TToolBar;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
Label4: TLabel;
Label8: TLabel;
WB_YarnQty: TcxTextEdit;
WB_Move: TcxTextEdit;
Tv1Column2: TcxGridDBColumn;
Label1: TLabel;
Label2: TLabel;
WB_Name: TcxTextEdit;
WB_ReedNote: TcxTextEdit;
Label5: TLabel;
WB_YarnArr: TcxTextEdit;
Label6: TLabel;
WB_YarnStripRemainder: TcxTextEdit;
Label9: TLabel;
WB_YarnStripQty: TcxTextEdit;
BSQTY: TcxTextEdit;
Label10: TLabel;
WB_ReedNo: TcxTextEdit;
Label11: TLabel;
WB_Width: TcxTextEdit;
Label12: TLabel;
WB_YarnLen: TcxTextEdit;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
WB_Arg_SDWZ: TcxTextEdit;
WB_Arg_PXDS: TcxTextEdit;
Label16: TLabel;
WB_Arg_QJZL: TcxTextEdit;
C_KCQTY: TcxTextEdit;
Tv1Column3: TcxGridDBColumn;
WB_YarnArrNote: TcxMemo;
Note: TcxMemo;
btn1: TToolButton;
Tv1Column4: TcxGridDBColumn;
Label17: TLabel;
WB_YarnDensity: TcxTextEdit;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Label18: TLabel;
@ -90,6 +69,41 @@ type
Label19: TLabel;
GKBH: TcxButtonEdit;
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 TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -103,10 +117,18 @@ type
procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column3PropertiesEditValueChanged(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 declarations }
function SaveData(): Boolean;
procedure JSJS(); //¼ÆËã¾­Ë¿
procedure JS(); //计算经丝
public
{ Public declarations }
FWBSID, FSTKName: string;
@ -122,6 +144,58 @@ uses
U_CompanySel, U_GKManageSel;
{$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();
var
GS, ZGS, MF, DS, WM, TW: double;
@ -169,7 +243,6 @@ begin
DS := FieldByName('TestDenier').Value; //DÊý
end;
WM := strtofloatdef(WB_YarnDensity.text, 0); //纬密
end;
if ZGS <> 0 then
begin
@ -187,6 +260,35 @@ begin
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);
begin
try
@ -310,6 +412,8 @@ begin
end;
FieldByName('WBSID').Value := Trim(MaxNo);
RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', ScrollBox1, 2);
RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', cxGroupBox1, 2);
RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', cxGroupBox2, 2);
Post;
end;
@ -426,7 +530,19 @@ begin
Open;
end;
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
begin
Close;
@ -474,21 +590,7 @@ begin
FieldByName('RowNo').Value := 'H';
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;
@ -505,6 +607,8 @@ begin
begin
SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').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;
finally
@ -556,43 +660,33 @@ end;
procedure TfrmWBSpecInPut.TBSaveClick(Sender: TObject);
begin
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
begin
CDS_Sub.First;
while not Eof do
begin
if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then
begin
if StrToFloatDef(Trim(CDS_Sub.fieldbyname('YarnQty').AsString), 0) = 0 then
begin
Application.MessageBox('根数不能为空!', '提示', 0);
Exit;
end;
end;
if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then
begin
if StrToFloatDef(Trim(CDS_Sub.fieldbyname('CycleYarnQty').AsString), 0) = 0 then
begin
Application.MessageBox('循环根数不能为空!', '提示', 0);
Exit;
end;
end;
CDS_Sub.Next;
end;
end;
// with CDS_Sub do
// begin
// CDS_Sub.First;
// while not Eof do
// begin
// if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then
// begin
// if StrToFloatDef(Trim(CDS_Sub.fieldbyname('YarnQty').AsString), 0) = 0 then
// begin
// Application.MessageBox('根数不能为空!', '提示', 0);
// Exit;
// end;
// end;
//
// if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then
// begin
// if StrToFloatDef(Trim(CDS_Sub.fieldbyname('CycleYarnQty').AsString), 0) = 0 then
// begin
// Application.MessageBox('循环根数不能为空!', '提示', 0);
// Exit;
// end;
// end;
//
// CDS_Sub.Next;
// end;
// end;
if SaveData() then
begin
@ -607,6 +701,31 @@ begin
WriteCxGrid(trim(self.Caption), Tv1, '¾­¹æ¸ñ²Ö¿â');
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);
begin
try
@ -637,10 +756,10 @@ begin
end;
end;
procedure TfrmWBSpecInPut.v1Column3PropertiesEditValueChanged(Sender: TObject);
procedure TfrmWBSpecInPut.Tv1Column8PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
ZS, ZGS: double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
@ -652,55 +771,111 @@ begin
FieldByName(FFieldName).Value := mvalue;
Post;
if FieldByName('YarnQty').Value = null then
if FieldByName('QFYARNQTY').Value = null then
begin
GS := 0; //根数
ZGS := 0; //QUANFU根数
end
else
begin
GS := FieldByName('YarnQty').Value; //根数
ZGS := FieldByName('QFYARNQTY').Value; //全服根数
end;
if FieldByName('CycleYarnQty').Value = null then
if FieldByName('ZS').Value = null then
begin
ZGS := 0; //循环根数
ZS := 0; //循环根数
end
else
begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数
ZS := FieldByName('ZS').Value; //循环根数
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;
if ZGS <> 0 then
if ZS <> 0 then
begin
with CDS_SUB do
begin
Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2);
FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2);
Post;
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);
begin
JSJS();

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

@ -160,7 +160,6 @@ inherited frmWBSpecList: TfrmWBSpecList
item
Kind = skSum
Position = spFooter
Column = v1Column17
end
item
Kind = skSum
@ -190,48 +189,24 @@ inherited frmWBSpecList: TfrmWBSpecList
Options.Editing = False
Width = 196
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
Caption = #24635#22836#20221
Caption = #24635#32463#26681#25968
DataBinding.FieldName = 'WB_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
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
Caption = #29301#32463#31576#21495
Caption = #31576#21495
DataBinding.FieldName = 'WB_ReedNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -245,78 +220,30 @@ inherited frmWBSpecList: TfrmWBSpecList
HeaderAlignmentHorz = taCenter
Width = 95
end
object Tv1Column7: TcxGridDBColumn
Caption = #32463#23494
DataBinding.FieldName = 'WB_YarnDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object v1Column8: TcxGridDBColumn
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #31576#31359#20837#27861
DataBinding.FieldName = 'WB_ReedNote'
Caption = #31576#24133
DataBinding.FieldName = 'WB_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column6: TcxGridDBColumn
Caption = #32463#36724#31859#25968
DataBinding.FieldName = 'WB_YarnLen'
Caption = #22320#31359#20837#27861
DataBinding.FieldName = 'DCRQTY'
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
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column8: TcxGridDBColumn
Caption = #32463#25490#21015
DataBinding.FieldName = 'WB_YarnArrNote'
Caption = #36793#31359#20837#27861
DataBinding.FieldName = 'WB_ReedNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
@ -505,16 +432,16 @@ inherited frmWBSpecList: TfrmWBSpecList
Width = 82
end
object TV2Column2: TcxGridDBColumn
Caption = #32442#27861
DataBinding.FieldName = 'FF'
Caption = #30334#31859#32463#38271#29992#37327'KG'
DataBinding.FieldName = 'MeterQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TV2Column3: TcxGridDBColumn
Caption = #25467#24230
DataBinding.FieldName = 'ND'
Caption = #20840#24133#26681#25968
DataBinding.FieldName = 'QFYARNQTY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False

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

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

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

@ -125,19 +125,19 @@
<File Path="U_WBTypeSel.dfm"/>
</ProjectSortOrder>
<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.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.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.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.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.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.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.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.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.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.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.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.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.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.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>
</Transactions>
</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 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>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E03梭织坯布检验\testDll.exe</Debugger_HostApplication>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E03梭织坯布检验\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">

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

@ -1,56 +1,56 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.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.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.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.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.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm</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.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.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.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.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.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.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.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.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.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.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.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</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.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.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.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -81,7 +81,7 @@
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10szKaiXiYa"/>
<File Path="..\..\D10SZKaiXiYa"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<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"/>
</ProjectSortOrder>
<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.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.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梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj</Transaction>
</Transactions>
</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
begin
server := '101.132.143.144,7781';
server := '150.109.121.232,7781';
dtbase := 'KaiXiYadata';
user := 'rtsa';
pswd := 'rightsoft@5740';
user := 'kaixiyasa';
pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '¹ÜÀí';
end

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

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