Group_02/D10sxYilanbuyi
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

12345

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-06-11 09:07:37 +08:00
parent 6af0df4cf4
commit f501114fda
10 changed files with 1016 additions and 326 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,50 +1,50 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<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.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.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.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj</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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.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.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.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.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.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/>

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

Binary file not shown.

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

@ -322,8 +322,6 @@ inherited frmClothInfo: TfrmClothInfo
Align = alClient
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = 6
ExplicitTop = 41
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -378,14 +376,6 @@ inherited frmClothInfo: TfrmClothInfo
HeaderAlignmentHorz = taCenter
Width = 96
end
object Tv1Column11: TcxGridDBColumn
Caption = #33521#25991#21697#21517
DataBinding.FieldName = 'C_EName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
@ -403,37 +393,14 @@ inherited frmClothInfo: TfrmClothInfo
Options.Editing = False
Width = 81
end
object Tv1Column3: TcxGridDBColumn
Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'C_FromCode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
object Tv1Column8: TcxGridDBColumn
Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'C_FromName'
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object Tv1Column2: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 58
end
object v1Column11: TcxGridDBColumn
Caption = #22270#29255
DataBinding.FieldName = 'IsImg'
@ -633,6 +600,7 @@ inherited frmClothInfo: TfrmClothInfo
Height = 41
Align = alTop
TabOrder = 1
Visible = False
DesignSize = (
1208
41)

4
A02基础产品管理/U_ClothInfo.pas
View File

@ -113,9 +113,7 @@ type
ToolButton1: TToolButton;
DataSource3: TDataSource;
CDS_Sub: TClientDataSet;
Tv1Column2: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
cxGridPopupMenu2: TcxGridPopupMenu;
ToolButton2: TToolButton;
N3: TMenuItem;
@ -129,9 +127,7 @@ type
CDS_Tree: TClientDataSet;
ADOQueryPrint: TADOQuery;
CDS_Label: TClientDataSet;
Tv1Column1: TcxGridDBColumn;
ToolButton3: TToolButton;
Tv1Column3: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);

608
A02基础产品管理/U_ClothInfoInput.dfm
View File

File diff suppressed because it is too large Load Diff

548
A02基础产品管理/U_ClothInfoInput.pas
View File

@ -358,7 +358,7 @@ type
gj_LeftHeight: TcxTextEdit;
gj_RightHeight: TcxTextEdit;
gj_OutFanSpeed: TcxTextEdit;
轧毛工艺: TcxTabSheet;
cxtabsheet7: TcxTabSheet;
cxLabel113: TcxLabel;
cxLabel114: TcxLabel;
F_FinishLongitudeDensity: TcxTextEdit;
@ -385,6 +385,38 @@ type
cxLabel149: TcxLabel;
cxLabel150: TcxLabel;
C_Code: TcxTextEdit;
GPM_2: TcxGridPopupMenu;
DS_2: TDataSource;
cds_2: TClientDataSet;
GPM_3: TcxGridPopupMenu;
DS_3: TDataSource;
CDS_3: TClientDataSet;
Tv3Column1: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridLevel4: TcxGridLevel;
Panel8: TPanel;
Panel9: TPanel;
Label20: TLabel;
cxGridPopupMenu1: TcxGridPopupMenu;
DS_GX: TDataSource;
cds_gx: TClientDataSet;
Panel10: TPanel;
Panel11: TPanel;
Label1: TLabel;
ToolBar2: TToolBar;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton1: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TbSaveClick(Sender: TObject);
@ -398,10 +430,16 @@ type
procedure SetXH();
procedure ToolButton3Click(Sender: TObject);
procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
private
canshu1: string;
Fint: Integer;
procedure InitGrid();
procedure ArrangeTabsByDataset;
function SaveData(): Boolean;
{ Private declarations }
public
@ -424,13 +462,13 @@ procedure TfrmClothInfoInput.SetXH();
var
i: Integer;
begin
with CDS_1 do
with CDS_GX do
begin
First;
i := 1;
while not Eof do
begin
with CDS_1 do
with CDS_GX do
begin
Edit;
FieldByName('XHNoTemp').Value := i;
@ -441,14 +479,14 @@ begin
end;
end;
with CDS_1 do
with CDS_GX do
begin
CDS_1.IndexFieldNames := '';
CDS_GX.IndexFieldNames := '';
First;
i := 1;
while not Eof do
begin
with CDS_1 do
with CDS_GX do
begin
Edit;
FieldByName('SerialNo').Value := FieldByName('XHNoTemp').AsInteger;
@ -457,43 +495,173 @@ begin
i := i + 1;
Next;
end;
CDS_1.IndexFieldNames := 'SerialNo';
CDS_GX.IndexFieldNames := 'SerialNo';
end;
end;
procedure TfrmClothInfoInput.ArrangeTabsByDataset;
var
I: Integer;
TabSheet: TcxTabSheet;
CurrentIndex: Integer;
begin
// 固定第一个页面 A
cxTabSheet1.PageIndex := 0;
cxTabSheet1.Visible := True;
// 初始化隐藏所有其他页面
for I := 1 to cxPageControl1.PageCount - 1 do
cxPageControl1.Pages[I].TabVisible := False;
// 检查数据集是否激活
if not (CDS_GX.Active and (CDS_GX.RecordCount > 0)) then
Exit;
// 设置当前索引（从1开始，0已被A占用）
CurrentIndex := 1;
// 按序号排序数据集
CDS_GX.IndexFieldNames := 'serialno';
CDS_GX.First;
// 遍历数据集并设置页面
while not CDS_GX.Eof do
begin
// 根据工序名查找对应的页面
for I := 0 to cxPageControl1.PageCount - 1 do
begin
TabSheet := cxPageControl1.Pages[I] as TcxTabSheet;
// 匹配工序名且不是第一个固定页面
if (Trim(TabSheet.Caption) = CDS_GX.FieldByName('gxname').AsString) and (TabSheet <> cxTabSheet1) then
begin
TabSheet.PageIndex := CurrentIndex;
TabSheet.TabVisible := True;
Inc(CurrentIndex);
Break;
end;
end;
CDS_GX.Next;
end;
// 刷新页面控件
cxPageControl1.Invalidate;
end;
procedure TfrmClothInfoInput.InitGrid();
var
i: integer;
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from V_BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
SQL.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCSHData(ADOQueryTemp, panel1, 2);
SCSHData(ADOQueryTemp, Panel1, 0);
// C_FromName.TxtCode := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString);
// C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString);
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from Bs_Cloth_Process ');
sql.Add(' where BCIID=''' + Trim(FBCIID) + '''');
sql.Add(' order by SerialNo ');
SQL.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCSHData(ADOQueryTemp, Panel2, 2);
SCSHData(ADOQueryTemp, Panel3, 2);
SCSHData(ADOQueryTemp, Panel4, 2);
SCSHData(ADOQueryTemp, Panel5, 2);
SCSHData(ADOQueryTemp, Panel6, 2);
SCSHData(ADOQueryTemp, Panel7, 2);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* from Bs_Cloth_GY_sub A ');
sql.Add(' where gytype=''防水'' and A.BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1);
if ADOQueryTemp.IsEmpty then
begin
for i := 0 to 3 do
begin
CDS_1.Append;
CDS_1.FieldByName('serialno').Value := i + 1;
CDS_1.posT;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* from Bs_Cloth_GY_sub A ');
sql.Add(' where gytype=''发泡'' and A.BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
if ADOQueryTemp.IsEmpty then
begin
for i := 0 to 7 do
begin
CDS_2.Append;
CDS_2.FieldByName('serialno').Value := i + 1;
CDS_2.posT;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* from Bs_Cloth_GY_sub A ');
sql.Add(' where gytype=''刮胶'' and A.BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_3);
SInitCDSData(ADOQueryTemp, CDS_3);
if ADOQueryTemp.IsEmpty then
begin
for i := 0 to 7 do
begin
CDS_3.Append;
CDS_3.FieldByName('serialno').Value := i + 1;
CDS_3.posT;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* from Bs_Cloth_GX A ');
sql.Add(' where A.BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_GX);
SInitCDSData(ADOQueryTemp, CDS_GX);
// C_FromName.TxtCode := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString);
// C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString);
end;
procedure TfrmClothInfoInput.FormShow(Sender: TObject);
begin
InitGrid();
ArrangeTabsByDataset;
// if CopyInt = 1 then
// begin
// FBCIID := '';
@ -510,6 +678,7 @@ end;
function TfrmClothInfoInput.SaveData(): Boolean;
var
MaxBCIID, MaxProcessID, MaxBCPID: string;
Maxid1, maxid2, maxid3, maxgx: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
@ -595,36 +764,26 @@ begin
end;
end;
if Trim(FProcessID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxProcessID, 'GY', 'Bs_Cloth_GY_Main', 4, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
end
else
begin
MaxProcessID := Trim(FProcessID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Bs_Cloth_GY_Main where ProcessID=''' + Trim(FProcessID) + '''');
sql.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FBCIID) = '' then
begin
Append;
FieldByName('ProcessID').Value := Trim(MaxProcessID);
end
else
begin
Edit;
end;
FieldByName('BCIID').Value := Trim(MaxBCIID);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel2, 2);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel3, 2);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel4, 2);
@ -636,7 +795,63 @@ begin
//////////////// 保存主表 //////////////////////
///
////////////////// 保存子表 //////////////////////
///
///
///
/// ///////////////// 保存工序子表 //////////////////////
with CDS_GX do
begin
First;
while not Eof do
begin
if Trim(CDS_GX.fieldbyname('GXID').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxgx, 'GX', 'Bs_Cloth_GX', 5, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取配比子流水号失败！', '提示', 0);
Exit;
end;
end
else
begin
maxgx := Trim(CDS_GX.fieldbyname('GXID').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Bs_Cloth_GX where ');
sql.Add(' GXID=''' + Trim(maxgx) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_GX.fieldbyname('GXID').AsString) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('BCIID').Value := Trim(MaxBCIID);
FieldByName('GXID').Value := Trim(maxgx);
RTSetSaveDataCDS(ADOQueryCmd, Tv4, CDS_GX, 'Bs_Cloth_GX', 0);
Post;
end;
CDS_GX.Edit;
CDS_GX.FieldByName('BCIID').Value := Trim(MaxBCIID);
CDS_GX.FieldByName('GXID').Value := Trim(maxgx);
Next;
end;
end;
//////////////// 保存工序子表 //////////////////////
////////////////// 保存防水子表 //////////////////////
with CDS_1 do
begin
First;
@ -644,52 +859,158 @@ begin
begin
if Trim(CDS_1.fieldbyname('BCPID').AsString) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxBCPID, 'P', 'Bs_Cloth_GY_Sub', 4, 1) = False then
if GetLSNo(ADOQueryTemp, Maxid1, 'FS', 'Bs_Cloth_GY_Sub', 5, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！', '提示', 0);
Application.MessageBox('取配比子流水号失败！', '提示', 0);
Exit;
end;
end
else
begin
MaxBCPID := Trim(CDS_1.fieldbyname('BCPID').AsString);
Maxid1 := Trim(CDS_1.fieldbyname('BCPID').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Bs_Cloth_GY_Sub where BCPID=''' + Trim(MaxBCPID) + '''');
sql.Add('select * from Bs_Cloth_GY_Sub where ');
sql.Add(' BCPID=''' + Trim(Maxid1) + '''');
Open;
end;
with ADOQueryCmd do
begin
if ADOQueryCmd.IsEmpty then
Append
else
Edit;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_GY_Sub', 0);
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_1, 'Bs_Cloth_GY_Sub', 0);
RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_1, 'Bs_Cloth_GY_Sub', 0);
FieldByName('BCPID').Value := Trim(MaxBCPID);
FieldByName('BCIID').Value := Trim(MaxBCIID);
if Trim(CDS_1.fieldbyname('BCPID').AsString) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('GYType').Value := '防水';
FieldByName('BCIID').Value := Trim(MaxBCIID);
FieldByName('BCPID').Value := Trim(Maxid1);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_GY_Sub', 0);
Post;
end;
with CDS_1 do
begin
Edit;
FieldByName('BCPID').Value := Trim(MaxBCPID);
Post;
end;
CDS_1.Edit;
CDS_1.FieldByName('BCIID').Value := Trim(MaxBCIID);
CDS_1.FieldByName('BCPID').Value := Trim(Maxid1);
Next;
end;
end;
//////////////// 保存子表 //////////////////////
////////////////// 保存发泡子表 //////////////////////
with CDS_2 do
begin
First;
while not Eof do
begin
if Trim(CDS_2.fieldbyname('BCPID').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxid2, 'FP', 'Bs_Cloth_GY_Sub', 5, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取配比子流水号失败！', '提示', 0);
Exit;
end;
end
else
begin
maxid2 := Trim(CDS_2.fieldbyname('BCPID').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Bs_Cloth_GY_Sub where ');
sql.Add(' BCPID=''' + Trim(maxid2) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_2.fieldbyname('BCPID').AsString) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('GYType').Value := '发泡';
FieldByName('BCIID').Value := Trim(MaxBCIID);
FieldByName('BCPID').Value := Trim(maxid2);
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_2, 'Bs_Cloth_GY_Sub', 0);
Post;
end;
CDS_2.Edit;
CDS_2.FieldByName('BCIID').Value := Trim(MaxBCIID);
CDS_2.FieldByName('BCPID').Value := Trim(maxid2);
Next;
end;
end;
//////////////// 保存发泡子表 //////////////////////
///
///
///
/// ////////////////// 保存刮胶子表 //////////////////////
with CDS_3 do
begin
First;
while not Eof do
begin
if Trim(CDS_3.fieldbyname('BCPID').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxid3, 'GJ', 'Bs_Cloth_GY_Sub', 5, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取配比子流水号失败！', '提示', 0);
Exit;
end;
end
else
begin
maxid3 := Trim(CDS_3.fieldbyname('BCPID').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Bs_Cloth_GY_Sub where ');
sql.Add(' BCPID=''' + Trim(maxid3) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_3.fieldbyname('BCPID').AsString) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('GYType').Value := '刮胶';
FieldByName('BCIID').Value := Trim(MaxBCIID);
FieldByName('BCPID').Value := Trim(maxid3);
RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3, 'Bs_Cloth_GY_Sub', 0);
Post;
end;
CDS_3.Edit;
CDS_3.FieldByName('BCIID').Value := Trim(MaxBCIID);
CDS_3.FieldByName('BCPID').Value := Trim(maxid3);
Next;
end;
end;
//////////////// 保存发泡子表 //////////////////////
ADOQueryCmd.Connection.CommitTrans;
FBCIID := MaxBCIID;
Result := True;
@ -725,7 +1046,7 @@ begin
// C_Code.Text := MC_Code;
//
// end;
SetXH();
// SetXH();
if SaveData() then
begin
Application.MessageBox('保存成功！', '提示', 0);
@ -733,44 +1054,141 @@ begin
end;
end;
procedure TfrmClothInfoInput.ToolButton1Click(Sender: TObject);
var
i: Integer;
begin
i := CDS_GX.RecordCount; //当前的dataset有多少行记录
i := i + 1;
// CopyAddRow(Tv1, CDS_1);
with CDS_GX do
begin
Append;
FieldByName('SerialNo').Value := i;
FieldByName('GXName').Value := '防水';
Post;
end;
SetXH();
ArrangeTabsByDataset;
end;
procedure TfrmClothInfoInput.ToolButton2Click(Sender: TObject);
var
i: Integer;
begin
i := CDS_1.RecordCount; //当前的dataset有多少行记录
i := CDS_GX.RecordCount; //当前的dataset有多少行记录
i := i + 1;
// CopyAddRow(Tv1, CDS_1);
with CDS_1 do
with CDS_GX do
begin
Edit;
Append;
FieldByName('SerialNo').Value := i;
FieldByName('FtyWastage').Value := 0;
FieldByName('GXName').Value := '清洗';
Post;
end;
SetXH();
ArrangeTabsByDataset;
end;
procedure TfrmClothInfoInput.ToolButton3Click(Sender: TObject);
var
i: Integer;
begin
if CDS_1.IsEmpty then
i := CDS_GX.RecordCount; //当前的dataset有多少行记录
i := i + 1;
// CopyAddRow(Tv1, CDS_1);
with CDS_GX do
begin
Append;
FieldByName('SerialNo').Value := i;
FieldByName('GXName').Value := '定型';
Post;
end;
SetXH();
ArrangeTabsByDataset;
end;
procedure TfrmClothInfoInput.ToolButton4Click(Sender: TObject);
var
i: Integer;
begin
i := CDS_GX.RecordCount; //当前的dataset有多少行记录
i := i + 1;
// CopyAddRow(Tv1, CDS_1);
with CDS_GX do
begin
Append;
FieldByName('SerialNo').Value := i;
FieldByName('GXName').Value := '发泡';
Post;
end;
SetXH();
ArrangeTabsByDataset;
end;
procedure TfrmClothInfoInput.ToolButton5Click(Sender: TObject);
var
i: Integer;
begin
i := CDS_GX.RecordCount; //当前的dataset有多少行记录
i := i + 1;
// CopyAddRow(Tv1, CDS_1);
with CDS_GX do
begin
Append;
FieldByName('SerialNo').Value := i;
FieldByName('GXName').Value := '刮胶';
Post;
end;
SetXH();
ArrangeTabsByDataset;
end;
procedure TfrmClothInfoInput.ToolButton6Click(Sender: TObject);
var
i: Integer;
begin
i := CDS_GX.RecordCount; //当前的dataset有多少行记录
i := i + 1;
// CopyAddRow(Tv1, CDS_1);
with CDS_GX do
begin
Append;
FieldByName('SerialNo').Value := i;
FieldByName('GXName').Value := '轧毛';
Post;
end;
SetXH();
ArrangeTabsByDataset;
end;
procedure TfrmClothInfoInput.ToolButton7Click(Sender: TObject);
begin
if CDS_GX.IsEmpty then
Exit;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if Trim(CDS_1.fieldbyname('BCPID').AsString) <> '' then
if Trim(CDS_GX.fieldbyname('GXID').AsString) <> '' then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Bs_Cloth_Process where BCPID=''' + Trim(CDS_1.fieldbyname('BCPID').AsString) + '''');
sql.Add('delete Bs_Cloth_GX where GXID=''' + Trim(CDS_GX.fieldbyname('GXID').AsString) + '''');
ExecSQL;
end;
end;
CDS_1.Delete;
CDS_GX.Delete;
SetXH();
ArrangeTabsByDataset;
end;
procedure TfrmClothInfoInput.C_FromNameBtnUpClick(Sender: TObject);

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

@ -287,6 +287,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OptionsView.CellAutoHeight = True
OptionsView.Headers = False
RootValue = -1
ScrollbarAnnotations.CustomAnnotations = <>
Styles.Inactive = DataLink_ClothInfo.Red
Styles.Selection = DataLink_ClothInfo.Red
Styles.IncSearch = DataLink_ClothInfo.Red
@ -325,6 +326,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
@ -343,6 +345,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object v1SSel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ClothInfo.Default
@ -351,6 +354,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object v1Column12: TcxGridDBColumn
Caption = #31867#21035
DataBinding.FieldName = 'CTName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
@ -359,6 +363,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object v1CYNo: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
@ -367,12 +372,14 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object v1Column9: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 96
end
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
@ -381,6 +388,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object v1Column1: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
@ -388,6 +396,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object Tv1Column11: TcxGridDBColumn
Caption = #32428#23494
DataBinding.FieldName = 'C_FinishLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -395,6 +404,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object Tv1Column3: TcxGridDBColumn
Caption = #32463#23494
DataBinding.FieldName = 'C_FinishLongitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -402,6 +412,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object Tv1Column2: TcxGridDBColumn
Caption = #32428#32433#35268#26684
DataBinding.FieldName = 'C_LatitudeSpec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -409,12 +420,14 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object Tv1Column1: TcxGridDBColumn
Caption = #32463#32433#35268#26684
DataBinding.FieldName = 'C_LongitudeSpec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column4: TcxGridDBColumn
Caption = #31576#21495
DataBinding.FieldName = 'C_ReedNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -422,6 +435,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object Tv1Column8: TcxGridDBColumn
Caption = #22836#32441
DataBinding.FieldName = 'C_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -429,6 +443,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object v1Column11: TcxGridDBColumn
Caption = #22270#29255
DataBinding.FieldName = 'IsImg'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -437,6 +452,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object Tv1Column5: TcxGridDBColumn
Caption = #22635#21333#20154
DataBinding.FieldName = 'filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
@ -444,6 +460,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object Tv1Column6: TcxGridDBColumn
Caption = #20462#25913#20154
DataBinding.FieldName = 'editer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
@ -451,6 +468,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object Tv1Column7: TcxGridDBColumn
Caption = #20462#25913#26102#38388
DataBinding.FieldName = 'edittime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
@ -458,6 +476,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
object Tv1Column9: TcxGridDBColumn
Caption = #24405#20837#26102#38388
DataBinding.FieldName = 'FILLTIME'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66

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

@ -15,7 +15,8 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, cxNavigator,
dxBarBuiltInMenu, cxPC, Math, RM_BarCode, dxSkinsCore, dxSkinsDefaultPainters,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, cxContainer,
dxDBBarCode, dxBarCode, Vcl.Clipbrd, cxTextEdit, BtnEdit, StrUtils;
dxDBBarCode, dxBarCode, Vcl.Clipbrd, cxTextEdit, BtnEdit, StrUtils,
dxScrollbarAnnotations;
type
FdDy = record

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

@ -33,7 +33,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 718
object ToolButton1: TToolButton
Tag = 1
Left = 0
@ -73,7 +72,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
ParentColor = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 34
object Label1: TLabel
Left = 31
Top = 11
@ -440,8 +438,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 382
Align = alLeft
TabOrder = 2
ExplicitTop = 307
ExplicitHeight = 300
object cxPageControl2: TcxPageControl
Left = 1
Top = 42
@ -461,7 +457,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ExplicitHeight = 257
ClientRectBottom = 339
ClientRectRight = 735
ClientRectTop = 0
@ -479,10 +474,9 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Style = []
ParentFont = False
TabOrder = 1
ExplicitLeft = -2
ExplicitTop = 47
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -525,12 +519,14 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
object cxGridDBColumn3: TcxGridDBColumn
Caption = #21407#26009#20195#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 131
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #21407#26009#21517#31216
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -546,6 +542,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
object cxGridDBColumn5: TcxGridDBColumn
Caption = #32433#32447#21697#29260
DataBinding.FieldName = 'PinPai'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -560,18 +557,21 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
object cxGridDBColumn8: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 99
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #37197#27604
DataBinding.FieldName = 'Y_Ratio'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 116
end
object TV1Column1: TcxGridDBColumn
Caption = #29992#37327
DataBinding.FieldName = 'Y_Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -579,6 +579,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
object TV1Column2: TcxGridDBColumn
Caption = 'D'#25968
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
@ -594,6 +595,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 41
Align = alTop
TabOrder = 2
ExplicitLeft = -2
ExplicitTop = -5
object Panel4: TPanel
Left = 1
Top = 1
@ -675,10 +678,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 382
Align = alClient
TabOrder = 3
ExplicitLeft = 308
ExplicitTop = 307
ExplicitWidth = 824
ExplicitHeight = 300
object cxPageControl1: TcxPageControl
Left = 1
Top = 42
@ -698,8 +697,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ExplicitWidth = 822
ExplicitHeight = 257
ClientRectBottom = 339
ClientRectRight = 794
ClientRectTop = 0
@ -717,10 +714,9 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Style = []
ParentFont = False
TabOrder = 1
ExplicitLeft = 5
ExplicitTop = 47
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -763,6 +759,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
object v2Column10: TcxGridDBColumn
Caption = #21407#26009#20195#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ClothInfo.Default
Width = 131
@ -770,6 +767,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
object cxGridDBColumn1: TcxGridDBColumn
Caption = #21407#26009#21517#31216
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -786,6 +784,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
object v2Column2: TcxGridDBColumn
Caption = #32433#32447#21697#29260
DataBinding.FieldName = 'PinPai'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -801,6 +800,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
object v2Column5: TcxGridDBColumn
Caption = #37197#27604
DataBinding.FieldName = 'Y_Ratio'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ClothInfo.Default
Width = 116
@ -808,6 +808,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
object v2Column6: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'Y_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ClothInfo.Default
Width = 99
@ -815,6 +816,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
object Tv2Column1: TcxGridDBColumn
Caption = #29992#37327
DataBinding.FieldName = 'Y_Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
@ -822,6 +824,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
object Tv2Column2: TcxGridDBColumn
Caption = 'D'#25968
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
@ -837,7 +840,6 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
Height = 41
Align = alTop
TabOrder = 2
ExplicitWidth = 822
object Panel6: TPanel
Left = 1
Top = 1

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

@ -10,7 +10,7 @@ uses
cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit,
cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, U_BaseList,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, cxPC;
cxNavigator, dxDateRanges, dxBarBuiltInMenu, cxPC, dxScrollbarAnnotations;
type
TfrmTatClothInfoInput = class(TForm)