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

10.16

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-10-16 19:49:06 +08:00
parent 858e12f649
commit 552b1986fb
64 changed files with 2889 additions and 708 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -786,6 +786,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel
Top = 168 Top = 168
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <> PopupMenus = <>
Left = 416 Left = 416
Top = 272 Top = 272

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

@ -9,7 +9,7 @@
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.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.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
@ -39,14 +39,14 @@
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/> <File Path="..\..\D10sxYilanbuyi"/>

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

@ -7,7 +7,6 @@ inherited frmClothInfo: TfrmClothInfo
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -593
ExplicitWidth = 1460 ExplicitWidth = 1460
ExplicitHeight = 741 ExplicitHeight = 741
PixelsPerInch = 96 PixelsPerInch = 96
@ -169,13 +168,6 @@ inherited frmClothInfo: TfrmClothInfo
Color = 16242829 Color = 16242829
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
object Label3: TLabel
Left = 42
Top = 15
Width = 48
Height = 12
Caption = #20135#21697#32534#21495
end
object Label11: TLabel object Label11: TLabel
Left = 1072 Left = 1072
Top = 107 Top = 107
@ -201,62 +193,53 @@ inherited frmClothInfo: TfrmClothInfo
ParentFont = False ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 199 Left = 29
Top = 15 Top = 15
Width = 48 Width = 48
Height = 12 Height = 12
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
end end
object Label9: TLabel object Label9: TLabel
Left = 509 Left = 365
Top = 15 Top = 15
Width = 24 Width = 24
Height = 12 Height = 12
Caption = #26448#36136 Caption = #26448#36136
end end
object Label8: TLabel object Label8: TLabel
Left = 357 Left = 197
Top = 15 Top = 15
Width = 24 Width = 48
Height = 12 Height = 12
Caption = #31867#21035 Caption = #24037#33402#32534#21495
end end
object C_Code: TEdit object C_Name: TEdit
Tag = 2 Tag = 2
Left = 91 Left = 78
Top = 11 Top = 11
Width = 89 Width = 89
Height = 20 Height = 20
TabOrder = 0 TabOrder = 0
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
end end
object C_Name: TEdit
Tag = 2
Left = 248
Top = 11
Width = 89
Height = 20
TabOrder = 1
OnKeyPress = C_CodeKeyPress
end
object Material: TEdit object Material: TEdit
Tag = 2 Tag = 2
Left = 536 Left = 392
Top = 11
Width = 89
Height = 20
TabOrder = 3
OnKeyPress = C_CodeKeyPress
end
object CTName: TEdit
Tag = 2
Left = 384
Top = 11 Top = 11
Width = 89 Width = 89
Height = 20 Height = 20
TabOrder = 2 TabOrder = 2
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
end end
object DTMNo: TEdit
Tag = 2
Left = 244
Top = 11
Width = 89
Height = 20
TabOrder = 1
OnKeyPress = C_CodeKeyPress
end
end end
object Panel2: TPanel [3] object Panel2: TPanel [3]
Left = 512 Left = 512
@ -377,7 +360,7 @@ inherited frmClothInfo: TfrmClothInfo
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ClothInfo.Default Styles.Header = DataLink_ClothInfo.Default
Width = 41 Width = 36
end end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #31867#21035 Caption = #31867#21035
@ -386,7 +369,7 @@ inherited frmClothInfo: TfrmClothInfo
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default Styles.Header = DataLink_ClothInfo.Default
Width = 70 Width = 62
end end
object v1CYNo: TcxGridDBColumn object v1CYNo: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
@ -395,21 +378,35 @@ inherited frmClothInfo: TfrmClothInfo
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default Styles.Header = DataLink_ClothInfo.Default
Width = 92 Width = 82
end end
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 96 Width = 85
end end
object Tv1Material: TcxGridDBColumn object Tv1Material: TcxGridDBColumn
Caption = #26448#36136 Caption = #26448#36136
DataBinding.FieldName = 'Material' DataBinding.FieldName = 'Material'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 71
end
object Tv1CFinishingStandards: TcxGridDBColumn
Caption = #21518#25972#29702#26631#20934
DataBinding.FieldName = 'FinishingStandards'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1DTMNo: TcxGridDBColumn
Caption = #40664#35748#24037#33402#32534#21495
DataBinding.FieldName = 'DTMNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 101
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #24314#31435#20154 Caption = #24314#31435#20154
@ -417,7 +414,7 @@ inherited frmClothInfo: TfrmClothInfo
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 71 Width = 63
end end
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #24314#31435#26102#38388 Caption = #24314#31435#26102#38388
@ -425,7 +422,7 @@ inherited frmClothInfo: TfrmClothInfo
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 59
end end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #26368#21518#20462#25913#20154 Caption = #26368#21518#20462#25913#20154
@ -433,7 +430,7 @@ inherited frmClothInfo: TfrmClothInfo
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 108 Width = 95
end end
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #26368#21518#20462#25913#26102#38388 Caption = #26368#21518#20462#25913#26102#38388
@ -441,14 +438,14 @@ inherited frmClothInfo: TfrmClothInfo
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 115 Width = 103
end end
object Tv1CINote: TcxGridDBColumn object Tv1CINote: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'CINote' DataBinding.FieldName = 'CINote'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 62
end end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
@ -599,6 +596,8 @@ inherited frmClothInfo: TfrmClothInfo
BevelInner = bvLowered BevelInner = bvLowered
BorderStyle = bsNone BorderStyle = bsNone
TabOrder = 0 TabOrder = 0
ExplicitLeft = 3
ExplicitTop = 6
end end
end end
object Panel11: TPanel object Panel11: TPanel
@ -672,8 +671,6 @@ inherited frmClothInfo: TfrmClothInfo
Height = 352 Height = 352
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
ExplicitLeft = 831
ExplicitTop = 56
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

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

@ -68,8 +68,6 @@ type
IdFTP1: TIdFTP; IdFTP1: TIdFTP;
SaveDialog1: TSaveDialog; SaveDialog1: TSaveDialog;
TBUP: TToolButton; TBUP: TToolButton;
Label3: TLabel;
C_Code: TEdit;
TBCopy: TToolButton; TBCopy: TToolButton;
Panel2: TPanel; Panel2: TPanel;
v1SSel: TcxGridDBColumn; v1SSel: TcxGridDBColumn;
@ -92,7 +90,7 @@ type
Label9: TLabel; Label9: TLabel;
Material: TEdit; Material: TEdit;
Label8: TLabel; Label8: TLabel;
CTName: TEdit; DTMNo: TEdit;
PM_1: TPopupMenu; PM_1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
N2: TMenuItem; N2: TMenuItem;
@ -137,6 +135,8 @@ type
CDS_2: TClientDataSet; CDS_2: TClientDataSet;
DS_2: TDataSource; DS_2: TDataSource;
Tv2DTMName: TcxGridDBColumn; Tv2DTMName: TcxGridDBColumn;
Tv1DTMNo: TcxGridDBColumn;
Tv1CFinishingStandards: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject); procedure TBDelClick(Sender: TObject);
@ -785,7 +785,6 @@ procedure TfrmClothInfo.TCBNOR1Change(Sender: TObject);
begin begin
RecordsNumber := StrToInt(TCBNOR1.Text); RecordsNumber := StrToInt(TCBNOR1.Text);
CurrentPage := 1; CurrentPage := 1;
C_Code.SetFocus;
InitGrid(); InitGrid();
end; end;

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

@ -107,7 +107,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitLeft = 1
object C_GramWeight: TcxTextEdit object C_GramWeight: TcxTextEdit
Tag = 2 Tag = 2
Left = 553 Left = 553
@ -447,6 +446,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 272 Height = 272
Align = alBottom Align = alBottom
TabOrder = 24 TabOrder = 24
ExplicitLeft = 0
object TV4: TcxGridDBTableView object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -468,6 +468,7 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'DTMNO' DataBinding.FieldName = 'DTMNO'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object TV4GYName: TcxGridDBColumn object TV4GYName: TcxGridDBColumn
@ -475,6 +476,7 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'DTMName' DataBinding.FieldName = 'DTMName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object TV4GYGX: TcxGridDBColumn object TV4GYGX: TcxGridDBColumn
@ -482,6 +484,7 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'DTMPSlist' DataBinding.FieldName = 'DTMPSlist'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 469 Width = 469
end end
object TV4DTMID: TcxGridDBColumn object TV4DTMID: TcxGridDBColumn
@ -502,7 +505,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 41 Height = 41
Align = alBottom Align = alBottom
TabOrder = 25 TabOrder = 25
ExplicitTop = 295
object Panel9: TPanel object Panel9: TPanel
Left = 1 Left = 1
Top = 42 Top = 42

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

@ -1140,10 +1140,13 @@ begin
end; end;
FieldByName('BCIID').Value := Trim(MaxBCIID); FieldByName('BCIID').Value := Trim(MaxBCIID);
FieldByName('CTID').Value := Trim(FCTID); FieldByName('CTID').Value := Trim(FCTID);
FieldByName('F_Name').Value := CDS_GY.FieldByName('F_Name').Value;
if trim(C_Code.Text) = '自动生成' then if trim(C_Code.Text) = '自动生成' then
C_Code.Text := Trim(MaxBCIID); C_Code.Text := Trim(MaxBCIID);
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel1, 2); RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel1, 2);
CDS_GY.First;
FieldByName('F_Name').Value := CDS_GY.FieldByName('F_Name').Value;
// FieldByName('DTMID').Value := CDS_GY.FieldByName('DTMID').Value;
Post; Post;
end; end;
//////////////// 保存主表 ////////////////////// //////////////// 保存主表 //////////////////////

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

@ -123,7 +123,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.* from Dye_Technics_Main A'); sql.Add('select A.* from Dye_Technics_Main A order By Filltime DESC' );
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_1); SCreateCDS(ADOQueryMain, CDS_1);

58
B03基础物料仓库/ProductStk.dproj.local
View File

@ -1,45 +1,45 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.840,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.486,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\ProductStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\InformationBase.dproj</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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.840,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.943,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.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.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.923,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.923,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\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.997,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.486,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\ProductStk.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.713,=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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.686,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.686,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.997,=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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.943,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.495,=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.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.dfm</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/> <File Path="..\..\D10sxYilanbuyi"/>

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

Binary file not shown.

1
B03基础物料仓库/U_BSPrtDyeStkList.dfm
View File

@ -158,7 +158,6 @@ inherited frmBSPrtDyeStkList: TfrmBSPrtDyeStkList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 72
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

2
B03基础物料仓库/U_BSPrtDyeStkList.pas
View File

@ -133,7 +133,7 @@ begin
SQL.Add(' MAX(A.P_Name) as P_Name '); SQL.Add(' MAX(A.P_Name) as P_Name ');
SQL.Add('FROM BS_Product_IO A '); SQL.Add('FROM BS_Product_IO A ');
SQL.Add('WHERE '); SQL.Add('WHERE StkQty > 0 and ');
SQL.Add(' ISNULL(A.stkName,'''')=''' + Trim(FstkName) + ''''); SQL.Add(' ISNULL(A.stkName,'''')=''' + Trim(FstkName) + '''');
SQL.Add('GROUP BY A.P_Code, A.P_Spec, A.BatchNo, FromCoName, QtyUnit'); SQL.Add('GROUP BY A.P_Code, A.P_Spec, A.BatchNo, FromCoName, QtyUnit');
Open; Open;

3
F01染色坯布仓库/DyeGreyClothStk.dpr
View File

@ -29,7 +29,8 @@ uses
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_DyePlanForCardSel in 'U_DyePlanForCardSel.pas' {frmProductOrderListSel}, U_DyePlanForCardSel in 'U_DyePlanForCardSel.pas' {frmProductOrderListSel},
U_DyePBImport in 'U_DyePBImport.pas' {frmDyePBImport}; U_DyePBImport in 'U_DyePBImport.pas' {frmDyePBImport},
U_DyeGreyClothStkStats in 'U_DyeGreyClothStkStats.pas' {frmDyeGreyClothStkStats};
{$R *.res} {$R *.res}

4
F01染色坯布仓库/DyeGreyClothStk.dproj
View File

@ -155,6 +155,10 @@
<Form>frmDyePBImport</Form> <Form>frmDyePBImport</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_DyeGreyClothStkStats.pas">
<Form>frmDyeGreyClothStkStats</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

39
F01染色坯布仓库/DyeGreyClothStk.dproj.local
View File

@ -1,48 +1,49 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.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.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\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.865,=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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.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.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.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.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.791,=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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.278,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.278,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.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.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>2025/08/29 17:00:58.000.253,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F01染色坯布仓库\U_DyePlanForCardSel.pas</Transaction> <Transaction>2025/08/29 17:00:58.000.253,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F01染色坯布仓库\U_DyePlanForCardSel.pas</Transaction>
<Transaction>2025/09/29 17:18:11.000.618,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F01染色坯布仓库\U_DyePBImport.pas</Transaction> <Transaction>2025/09/29 17:18:11.000.618,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F01染色坯布仓库\U_DyePBImport.pas</Transaction>
<Transaction>2025/10/13 14:35:20.000.136,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F01染色坯布仓库\U_DyeGreyClothStkStats.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/> <File Path="..\..\D10sxYilanbuyi"/>
@ -92,5 +93,7 @@
<File Path="U_DyePlanForCardSel.dfm"/> <File Path="U_DyePlanForCardSel.dfm"/>
<File Path="U_DyePBImport.pas"/> <File Path="U_DyePBImport.pas"/>
<File Path="U_DyePBImport.dfm"/> <File Path="U_DyePBImport.dfm"/>
<File Path="U_DyeGreyClothStkStats.pas"/>
<File Path="U_DyeGreyClothStkStats.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

BIN
F01染色坯布仓库/DyeGreyClothStk.identcache
View File

Binary file not shown.

7
F01染色坯布仓库/U_DyeGreyClothInEdit.dfm
View File

@ -22,7 +22,6 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Height = 508 Height = 508
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitTop = 44
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -86,10 +85,8 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Properties.Items.Strings = ( Properties.Items.Strings = (
#21152#24037#20837#24211 #21152#24037#20837#24211
#22238#20462#20837#24211 #22238#20462#20837#24211
#36820#20462#20837#24211 #26679#24067
#22238#20179 #26679#24067#22238#20462)
#26679#22238#20837#24211
#26679#36820#20837#24211)
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 87 Width = 87
end end

2
F01染色坯布仓库/U_DyeGreyClothInEdit.pas
View File

@ -810,7 +810,7 @@ begin
Self.CDS_Sub.FieldByName('C_Code').Value := Order_Main.fieldbyname('C_Code').asstring; Self.CDS_Sub.FieldByName('C_Code').Value := Order_Main.fieldbyname('C_Code').asstring;
Self.CDS_Sub.FieldByName('F_Name').Value := Order_Main.fieldbyname('F_Name').asstring; Self.CDS_Sub.FieldByName('F_Name').Value := Order_Main.fieldbyname('F_Name').asstring;
Self.CDS_Sub.FieldByName('finishDescription').Value := Order_Main.fieldbyname('finishDescription').asstring; Self.CDS_Sub.FieldByName('finishDescription').Value := Order_Main.fieldbyname('C_description').asstring;
// showMessage(Order_Main.FieldByName('finishDescription').AsString); // showMessage(Order_Main.FieldByName('finishDescription').AsString);
// initGlide(); // initGlide();
end; end;

1
F01染色坯布仓库/U_DyeGreyClothInList.dfm
View File

@ -30,7 +30,6 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = 2
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0

2
F01染色坯布仓库/U_DyeGreyClothInList.pas
View File

@ -267,6 +267,8 @@ begin
inherited; inherited;
ReadCxGrid(Self.Caption, Tv1, 'Å÷²¼Èë¿âÁбí'); ReadCxGrid(Self.Caption, Tv1, 'Å÷²¼Èë¿âÁбí');
setStatus(); setStatus();
BegDate.DateTime := SGetServerDate(ADOQueryCmd) - 2;
EndDate.DateTime := SGetServerDate(ADOQueryCmd);
InitGrid(); InitGrid();
end; end;

2
F01染色坯布仓库/U_DyeGreyClothOutList.pas
View File

@ -255,6 +255,8 @@ begin
TBDel.Visible := false; TBDel.Visible := false;
end; end;
BegDate.DateTime := SGetServerDate(ADOQueryCmd) - 2;
EndDate.DateTime := SGetServerDate(ADOQueryCmd);
InitGrid(); InitGrid();
end; end;

13
F01染色坯布仓库/U_DyeGreyClothStkList.dfm
View File

@ -63,18 +63,17 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
Caption = #20462#25913#24211#20301 Caption = #20462#25913#24211#20301
ImageIndex = 3 ImageIndex = 3
Visible = False Visible = False
OnClick = ToolButton1Click
end end
object Edit1: TEdit object TbExport: TToolButton
Left = 332 Left = 332
Top = 0 Top = 0
Width = 100 AutoSize = True
Height = 38 Caption = #23548#20986
TabOrder = 0 ImageIndex = 20
Visible = False OnClick = TbExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 432 Left = 403
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

73
F01染色坯布仓库/U_DyeGreyClothStkList.pas
View File

@ -52,7 +52,6 @@ type
ioType: TEdit; ioType: TEdit;
ToolButton2: TToolButton; ToolButton2: TToolButton;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Edit1: TEdit;
ADOQueryTmp: TADOQuery; ADOQueryTmp: TADOQuery;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1finishDescription: TcxGridDBColumn; Tv1finishDescription: TcxGridDBColumn;
@ -62,6 +61,7 @@ type
Tv1OrderNo: TcxGridDBColumn; Tv1OrderNo: TcxGridDBColumn;
Tv1QtyUnit: TcxGridDBColumn; Tv1QtyUnit: TcxGridDBColumn;
Tv1Note: TcxGridDBColumn; Tv1Note: TcxGridDBColumn;
TbExport: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -72,7 +72,7 @@ type
procedure MPRTCodeNameChange(Sender: TObject); procedure MPRTCodeNameChange(Sender: TObject);
procedure SXBatchNOChange(Sender: TObject); procedure SXBatchNOChange(Sender: TObject);
procedure FromCoNameChange(Sender: TObject); procedure FromCoNameChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); // procedure ToolButton1Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
@ -80,6 +80,7 @@ type
procedure Tv1Column3PropertiesChange(Sender: TObject); procedure Tv1Column3PropertiesChange(Sender: TObject);
procedure Tv1Column3PropertiesEditValueChanged(Sender: TObject); procedure Tv1Column3PropertiesEditValueChanged(Sender: TObject);
procedure TbExportClick(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
@ -159,10 +160,18 @@ begin
Close; Close;
end; end;
procedure TfrmDyeGreyClothStkList.TbExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
TcxGridToExcel(FSTKName + '库存列表', cxGrid2);
end;
procedure TfrmDyeGreyClothStkList.FormShow(Sender: TObject); procedure TfrmDyeGreyClothStkList.FormShow(Sender: TObject);
begin begin
inherited; inherited;
ReadCxGrid(trim(Self.Caption), Tv1, 'Å÷²¼¿â´æÁбí'); ReadCxGrid(trim(Self.Caption), Tv1, 'Å÷²¼¿â´æÁбí');
InitGrid(); InitGrid();
end; end;
@ -191,36 +200,36 @@ begin
TBFind.Click; TBFind.Click;
end; end;
procedure TfrmDyeGreyClothStkList.ToolButton1Click(Sender: TObject); //procedure TfrmDyeGreyClothStkList.ToolButton1Click(Sender: TObject);
var //var
FPiZhong: string; // FPiZhong: string;
FReal: Double; // FReal: Double;
begin //begin
if Trim(edit1.Text) = '' then // if Trim(edit1.Text) = '' then
begin // begin
Application.MessageBox('¿âλ²»ÄÜΪ¿Õ!', 'Ìáʾ', 0); // Application.MessageBox('库位不能为空!', '提示', 0);
Exit; // Exit;
end; // end;
//
with ADOQueryCmd do // with ADOQueryCmd do
begin // begin
Close; // Close;
sql.Clear; // sql.Clear;
sql.Add(' update BS_Cloth_IO set StkPosition=' + quotedstr(Trim(edit1.Text))); // sql.Add(' update BS_Cloth_IO set StkPosition=' + quotedstr(Trim(edit1.Text)));
sql.Add(' where bcioid= ' + quotedstr(cds_main.FieldByName('bcioid').asstring)); // sql.Add(' where bcioid= ' + quotedstr(cds_main.FieldByName('bcioid').asstring));
//
// sql.Add('Update JYOrder_Main Set StkPosition=' + quotedstr(edit1.Text)); //// sql.Add('Update JYOrder_Main Set StkPosition=' + quotedstr(edit1.Text));
// sql.Add(' where Mainid=''' + Trim(CDS_MAIN.fieldbyname('Mainid').AsString) + ''''); //// sql.Add(' where Mainid=''' + Trim(CDS_MAIN.fieldbyname('Mainid').AsString) + '''');
ExecSQL; // ExecSQL;
end; // end;
with CDS_MAIN do // with CDS_MAIN do
begin // begin
Edit; // Edit;
FieldByName('StkPosition').Value := edit1.Text; // FieldByName('StkPosition').Value := edit1.Text;
Post; // Post;
end; // end;
tv1.Controller.EditingController.ShowEdit(); // tv1.Controller.EditingController.ShowEdit();
end; //end;
procedure TfrmDyeGreyClothStkList.ToolButton2Click(Sender: TObject); procedure TfrmDyeGreyClothStkList.ToolButton2Click(Sender: TObject);
begin begin

436
F01染色坯布仓库/U_DyeGreyClothStkStats.dfm Normal file
View File

@ -0,0 +1,436 @@
inherited frmDyeGreyClothStkStats: TfrmDyeGreyClothStkStats
Left = 105
Top = 131
Caption = #22383#24067#24211#23384#32479#35745
ClientHeight = 567
ClientWidth = 1400
Position = poDefault
ExplicitLeft = -549
ExplicitWidth = 1416
ExplicitHeight = 606
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1400
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_DyeGreyClothStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
Visible = False
OnClick = TBFindClick
end
object ToolButton2: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #20462#25913#24211#20301
ImageIndex = 3
Visible = False
end
object TbExport: TToolButton
Left = 332
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TbExportClick
end
object TbSave: TToolButton
Left = 403
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TbSaveClick
end
object TBClose: TToolButton
Left = 474
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1400
Height = 67
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label3: TLabel
Left = 212
Top = 13
Width = 48
Height = 12
Caption = #25104#21697#21517#31216
end
object Label8: TLabel
Left = 375
Top = 13
Width = 60
Height = 12
Caption = #21518#25972#29702#25551#36848
end
object Label1: TLabel
Left = 28
Top = 12
Width = 48
Height = 12
Caption = #26597#35810#26102#38388
end
object Label4: TLabel
Left = 64
Top = 39
Width = 12
Height = 12
Caption = #33267
end
object C_name: TEdit
Tag = 2
Left = 261
Top = 9
Width = 100
Height = 20
TabOrder = 0
OnChange = TBFindClick
end
object finishDescription: TEdit
Tag = 2
Left = 440
Top = 9
Width = 100
Height = 20
TabOrder = 1
OnChange = TBFindClick
end
object BegDate: TDateTimePicker
Left = 77
Top = 8
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 2
end
object EndDate: TDateTimePicker
Left = 77
Top = 35
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 3
end
end
object cxGrid2: TcxGrid [2]
Left = 0
Top = 105
Width = 1400
Height = 462
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_Main
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
Column = Tv1CKPiece
end
item
Kind = skSum
Column = Tv1CKPiece
end
item
Kind = skSum
Position = spFooter
Column = v1Column7
end
item
Kind = skSum
Position = spFooter
Column = v1Column9
end
item
Kind = skSum
Column = v1Column7
end
item
Kind = skSum
Column = v1Column9
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1CKQty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1CKPiece
end
item
Kind = skSum
Column = v1Column7
end
item
Kind = skSum
Column = v1Column9
end
item
Format = #26465#25968':0'
Kind = skCount
Column = Tv1IOTime
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_DyeGreyClothStk.SHuangSe
Styles.Header = DataLink_DyeGreyClothStk.Default
Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe
Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe
object Tv1OrderNo: TcxGridDBColumn
Caption = #29983#20135#35746#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #25104#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object Tv1Column4: TcxGridDBColumn
Caption = #25104#21697#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object Tv1finishDescription: TcxGridDBColumn
Caption = #21518#25972#29702#25551#36848
DataBinding.FieldName = 'finishDescription'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 104
end
object v1Column9: TcxGridDBColumn
Caption = #22383#24067#20837#24211#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 128
end
object v1Column7: TcxGridDBColumn
Caption = #22383#24067#20837#24211#21305#25968
DataBinding.FieldName = 'piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 104
end
object Tv1IOTime: TcxGridDBColumn
Caption = #22383#24067#20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object Tv1CKQty: TcxGridDBColumn
Tag = 2
Caption = #22383#24067#20986#24211#25968#37327
DataBinding.FieldName = 'CKQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 128
end
object Tv1CKPiece: TcxGridDBColumn
Caption = #22383#24067#20986#24211#21305#25968
DataBinding.FieldName = 'CKPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object Tv1CKIOTime: TcxGridDBColumn
Caption = #22383#24067#20986#24211#26085#26399
DataBinding.FieldName = 'CKIOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object Tv1Material: TcxGridDBColumn
Caption = #26159#21542#23436#25104
DataBinding.FieldName = 'finish'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
''
#26159
#21542)
HeaderAlignmentHorz = taCenter
Width = 85
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #32553#29575
DataBinding.FieldName = 'suoLv'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
object Tv1Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
Left = 305
Top = 176
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
Left = 209
Top = 129
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
Parameters = <>
Left = 640
Top = 136
end
object ADOQueryMain: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 752
Top = 128
end
object DS_Main: TDataSource
DataSet = CDS_Main
Left = 656
Top = 232
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 536
Top = 240
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 720
Top = 232
end
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 736
Top = 296
end
object PopupMenu1: TPopupMenu
Left = 368
Top = 240
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
Parameters = <>
Left = 476
Top = 292
end
end

387
F01染色坯布仓库/U_DyeGreyClothStkStats.pas Normal file
View File

@ -0,0 +1,387 @@
unit U_DyeGreyClothStkStats;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations;
type
TfrmDyeGreyClothStkStats = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
DS_Main: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
CDS_Main: TClientDataSet;
CDS_HZ: TClientDataSet;
PopupMenu1: TPopupMenu;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
Tv1Material: TcxGridDBColumn;
Tv1CKPiece: TcxGridDBColumn;
Tv1CKQty: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
Label3: TLabel;
Label8: TLabel;
C_name: TEdit;
finishDescription: TEdit;
Tv1IOTime: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
ToolButton2: TToolButton;
ToolButton1: TToolButton;
ADOQueryTmp: TADOQuery;
Tv1Column4: TcxGridDBColumn;
Tv1finishDescription: TcxGridDBColumn;
Tv1OrderNo: TcxGridDBColumn;
Tv1Note: TcxGridDBColumn;
TbExport: TToolButton;
Label1: TLabel;
Label4: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Tv1CKIOTime: TcxGridDBColumn;
TbSave: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure MPRTCodeNameChange(Sender: TObject);
procedure SXBatchNOChange(Sender: TObject);
procedure FromCoNameChange(Sender: TObject);
// procedure ToolButton1Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure FormCreate(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column3PropertiesChange(Sender: TObject);
procedure Tv1Column3PropertiesEditValueChanged(Sender: TObject);
procedure TbExportClick(Sender: TObject);
procedure TbSaveClick(Sender: TObject);
private
procedure InitGrid();
function SaveData(): Boolean;
{ Private declarations }
public
FstkName, FWorkshop: string;
{ Public declarations }
end;
var
frmDyeGreyClothStkStats: TfrmDyeGreyClothStkStats;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmDyeGreyClothStkStats.FormDestroy(Sender: TObject);
begin
inherited;
frmDyeGreyClothStkStats := nil;
end;
procedure TfrmDyeGreyClothStkStats.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmDyeGreyClothStkStats.FormCreate(Sender: TObject);
begin
inherited;
FWorkshop := Trim(self.fParameters3);
end;
procedure TfrmDyeGreyClothStkStats.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.*');
sql.Add(' from V_BS_Cloth_StkStats A ');
sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
if trim(FWorkshop) <> '' then
sql.Add(' and A.Workshop=''' + trim(FWorkshop) + ''' ');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmDyeGreyClothStkStats.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmDyeGreyClothStkStats.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmDyeGreyClothStkStats.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmDyeGreyClothStkStats.TbExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
TcxGridToExcel(FSTKName + '库存列表', cxGrid2);
end;
procedure TfrmDyeGreyClothStkStats.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(Self.Caption), Tv1, '坯布库存统计');
BegDate.DateTime := SGetServerDate(ADOQueryCmd) - 2;
EndDate.DateTime := SGetServerDate(ADOQueryCmd);
InitGrid();
end;
procedure TfrmDyeGreyClothStkStats.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
end;
end;
procedure TfrmDyeGreyClothStkStats.MPRTCodeNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmDyeGreyClothStkStats.SXBatchNOChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmDyeGreyClothStkStats.FromCoNameChange(Sender: TObject);
begin
TBFind.Click;
end;
//procedure TfrmDyeGreyClothStkList.ToolButton1Click(Sender: TObject);
//var
// FPiZhong: string;
// FReal: Double;
//begin
// if Trim(edit1.Text) = '' then
// begin
// Application.MessageBox('库位不能为空!', '提示', 0);
// Exit;
// end;
//
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add(' update BS_Cloth_IO set StkPosition=' + quotedstr(Trim(edit1.Text)));
// sql.Add(' where bcioid= ' + quotedstr(cds_main.FieldByName('bcioid').asstring));
//
//// sql.Add('Update JYOrder_Main Set StkPosition=' + quotedstr(edit1.Text));
//// sql.Add(' where Mainid=''' + Trim(CDS_MAIN.fieldbyname('Mainid').AsString) + '''');
// ExecSQL;
// end;
// with CDS_MAIN do
// begin
// Edit;
// FieldByName('StkPosition').Value := edit1.Text;
// Post;
// end;
// tv1.Controller.EditingController.ShowEdit();
//end;
procedure TfrmDyeGreyClothStkStats.ToolButton2Click(Sender: TObject);
begin
WriteCxGrid(trim(Self.Caption), Tv1, '坯布库存统计');
end;
procedure TfrmDyeGreyClothStkStats.TbSaveClick(Sender: TObject);
begin
if SaveData() then
begin
Application.MessageBox('保存成功!', '提示', 0);
InitGrid();
end;
end;
function TfrmDyeGreyClothStkStats.SaveData(): Boolean;
begin
try
ADOQueryCmd.Connection.BeginTrans;
CDS_Main.DisableControls;
CDS_Main.First;
while not CDS_Main.Eof do
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.add('select * from BS_Cloth_IO where OrderNo = ' + QuotedStr(Trim(CDS_Main.FieldByName('OrderNo').AsString)));
Open;
end;
ADOQueryCmd.First;
while not ADOQueryCmd.Eof do
begin
ADOQueryCmd.Edit;
ADOQueryCmd.FieldByName('finish').value := CDS_Main.FieldByName('finish').AsString;
ADOQueryCmd.FieldByName('Note').value := CDS_Main.FieldByName('Note').AsString;
ADOQueryCmd.Post;
ADOQueryCmd.Next;
end;
CDS_Main.Next;
end;
CDS_Main.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmDyeGreyClothStkStats.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
ModalResult := 1;
end;
procedure TfrmDyeGreyClothStkStats.Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
inherited;
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'StkPosition';
flagname := '库位';
MainType := FSTKName;
if ShowModal = 1 then
begin
with Self.CDS_Main do
begin
Edit;
FieldByName('StkPosition').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' update BS_Cloth_IO set StkPosition=' + quotedstr(Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString)));
sql.Add(' where bcioid= ' + quotedstr(cds_main.FieldByName('bcioid').asstring));
execsql;
end;
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmDyeGreyClothStkStats.Tv1Column3PropertiesChange(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Main do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
sql.Add(' update BS_Cloth_IO set StkPosition=' + quotedstr(Trim(mvalue)));
sql.Add(' where bcioid= ' + quotedstr(cds_main.FieldByName('bcioid').asstring));
execsql;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmDyeGreyClothStkStats.Tv1Column3PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Main do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
sql.Add(' update BS_Cloth_IO set StkPosition=' + quotedstr(Trim(mvalue)));
sql.Add(' where bcioid= ' + quotedstr(cds_main.FieldByName('bcioid').asstring));
execsql;
end;
tv1.Controller.EditingController.ShowEdit();
end;
end.

17
F01染色坯布仓库/U_DyePBImport.dfm
View File

@ -57,7 +57,7 @@ inherited frmDyePBImport: TfrmDyePBImport
Left = 245 Left = 245
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#25968#25454 Caption = #23548#20837#25968#25454
ImageIndex = 16 ImageIndex = 16
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
@ -85,7 +85,6 @@ inherited frmDyePBImport: TfrmDyePBImport
Height = 532 Height = 532
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitTop = 22
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -118,6 +117,20 @@ inherited frmDyePBImport: TfrmDyePBImport
Options.Editing = False Options.Editing = False
Width = 127 Width = 127
end end
object Tv1ioType: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'ioType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#21152#24037#20837#24211
#22238#20462#20837#24211
#26679#24067
#26679#24067#22238#20462)
Properties.OnEditValueChanged = Tv1ioTypePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 107
end
object v2Column15: TcxGridDBColumn object v2Column15: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'

30
F01染色坯布仓库/U_DyePBImport.pas
View File

@ -43,6 +43,7 @@ type
v2Column3: TcxGridDBColumn; v2Column3: TcxGridDBColumn;
v2Column1: TcxGridDBColumn; v2Column1: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
Tv1ioType: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -52,6 +53,7 @@ type
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure Tv1ioTypePropertiesEditValueChanged(Sender: TObject);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
@ -152,7 +154,14 @@ begin
FieldByName('Qty').Value := Trim(CDS_1.fieldbyname('Qty').AsString); FieldByName('Qty').Value := Trim(CDS_1.fieldbyname('Qty').AsString);
FieldByName('Piece').Value := Trim(CDS_1.fieldbyname('Piece').AsString); FieldByName('Piece').Value := Trim(CDS_1.fieldbyname('Piece').AsString);
FieldByName('Note').Value := Trim(CDS_1.fieldbyname('Note').AsString); FieldByName('Note').Value := Trim(CDS_1.fieldbyname('Note').AsString);
FieldByName('Note').Value := '¼Ó¹¤Èë¿â'; if (Trim(CDS_1.fieldbyname('iotype').AsString) = '') or (Trim(CDS_1.fieldbyname('iotype').AsString) = null) then
begin
FieldByName('iotype').Value := '¼Ó¹¤Èë¿â';
end
else
begin
FieldByName('iotype').Value := Trim(CDS_1.fieldbyname('iotype').AsString);
end;
Post; Post;
end; end;
@ -170,7 +179,7 @@ begin
frmDyeGreyClothInEdit.CDS_Sub.FieldByName('C_Code').Value := ADOQueryCmd.fieldbyname('C_Code').asstring; frmDyeGreyClothInEdit.CDS_Sub.FieldByName('C_Code').Value := ADOQueryCmd.fieldbyname('C_Code').asstring;
frmDyeGreyClothInEdit.CDS_Sub.FieldByName('F_Name').Value := ADOQueryCmd.fieldbyname('F_Name').asstring; frmDyeGreyClothInEdit.CDS_Sub.FieldByName('F_Name').Value := ADOQueryCmd.fieldbyname('F_Name').asstring;
frmDyeGreyClothInEdit.CDS_Sub.FieldByName('finishDescription').Value := ADOQueryCmd.fieldbyname('finishDescription').asstring; frmDyeGreyClothInEdit.CDS_Sub.FieldByName('finishDescription').Value := ADOQueryCmd.fieldbyname('C_description').asstring;
frmDyeGreyClothInEdit.CDS_Sub.Post; frmDyeGreyClothInEdit.CDS_Sub.Post;
Next; Next;
end; end;
@ -191,6 +200,23 @@ begin
CDS_1.Delete; CDS_1.Delete;
end; end;
procedure TfrmDyePBImport.Tv1ioTypePropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
CDS_1.First;
while not CDS_1.Eof do
begin
CDS_1.Edit;
CDS_1.FieldByName('ioType').Value := mvalue;
CDS_1.Post;
CDS_1.Next;
end;
end;
procedure TfrmDyePBImport.TbSelFileClick(Sender: TObject); procedure TfrmDyePBImport.TbSelFileClick(Sender: TObject);
var var
excelApp, WorkBook: Variant; excelApp, WorkBook: Variant;

8
F01染色坯布仓库/U_DyePlanForCardSel.dfm
View File

@ -186,7 +186,6 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 109
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -285,6 +284,13 @@ object frmProductOrderListSel: TfrmProductOrderListSel
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object Tv1C_description: TcxGridDBColumn
Caption = #24037#33402#35201#27714
DataBinding.FieldName = 'C_description'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1finishDescription: TcxGridDBColumn object Tv1finishDescription: TcxGridDBColumn
Caption = #21518#25972#29702#25551#36848 Caption = #21518#25972#29702#25551#36848
DataBinding.FieldName = 'finishDescription' DataBinding.FieldName = 'finishDescription'

1
F01染色坯布仓库/U_DyePlanForCardSel.pas
View File

@ -55,6 +55,7 @@ type
C_Name: TEdit; C_Name: TEdit;
Tv1F_description: TcxGridDBColumn; Tv1F_description: TcxGridDBColumn;
Tv1finishDescription: TcxGridDBColumn; Tv1finishDescription: TcxGridDBColumn;
Tv1C_description: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

15
F01染色坯布仓库/U_GetDllForm.pas
View File

@ -16,7 +16,7 @@ implementation
uses uses
U_DataLink, U_iniParam, U_DyeGreyClothInList, U_DyeGreyClothOutList, U_DataLink, U_iniParam, U_DyeGreyClothInList, U_DyeGreyClothOutList,
U_DyeGreyClothStkList; U_DyeGreyClothStkList,U_DyeGreyClothStkStats;
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 // // 功能说明:取Dll中得窗体 //
@ -165,6 +165,19 @@ begin
end; end;
end; end;
411: //Å÷²¼¿â´æͳ¼Æ
begin
with TfrmDyeGreyClothStkStats.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
FSTKName := 'ȾɫÅ÷²¼';
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
10000: 10000:
begin begin
for i := 0 to application.MainForm.MDIChildCount - 1 do for i := 0 to application.MainForm.MDIChildCount - 1 do

58
F02染色计划单/U_DyePlanCardInput.dfm
View File

@ -219,6 +219,20 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
TabOrder = 5 TabOrder = 5
OnClick = Button2Click OnClick = Button2Click
end end
object avgCard: TButton
Left = 862
Top = 6
Width = 93
Height = 33
Caption = #24179#22343#24320#21345
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
end
end end
object pnlOrder: TPanel object pnlOrder: TPanel
Left = 0 Left = 0
@ -349,7 +363,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
ParentFont = False ParentFont = False
end end
object Label6: TLabel object Label6: TLabel
Left = 721 Left = 1073
Top = 41 Top = 41
Width = 52 Width = 52
Height = 12 Height = 12
@ -362,6 +376,19 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
ParentFont = False ParentFont = False
Visible = False Visible = False
end end
object Label8: TLabel
Left = 723
Top = 42
Width = 52
Height = 12
Caption = #20135#21697#22791#27880
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrderNo: TBtnEditA object OrderNo: TBtnEditA
Tag = 2 Tag = 2
Left = 101 Left = 101
@ -374,8 +401,8 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
ReadOnly = True
TabOrder = 0 TabOrder = 0
OnKeyPress = OrderNoKeyPress
OnBtnClick = OrderNoBtnClick OnBtnClick = OrderNoBtnClick
end end
object C_Width: TEdit object C_Width: TEdit
@ -511,7 +538,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
end end
object DTMID: TEdit object DTMID: TEdit
Tag = 2 Tag = 2
Left = 780 Left = 1132
Top = 37 Top = 37
Width = 100 Width = 100
Height = 20 Height = 20
@ -524,6 +551,20 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
TabOrder = 10 TabOrder = 10
Visible = False Visible = False
end end
object CINote: TEdit
Tag = 2
Left = 782
Top = 37
Width = 100
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 11
end
end end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
@ -1313,7 +1354,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Width = 60 Width = 60
end end
object TV1Column20: TcxGridDBColumn object TV1Column20: TcxGridDBColumn
Caption = #32568#21495 Caption = #36710#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -1433,6 +1474,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
AutoSize = True AutoSize = True
Caption = #20445#23384 Caption = #20445#23384
ImageIndex = 16 ImageIndex = 16
Visible = False
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
@ -1578,14 +1620,14 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
object ADO_Order: TADOQuery object ADO_Order: TADOQuery
Connection = DataLink_DyePlan.ADOLink Connection = DataLink_DyePlan.ADOLink
Parameters = <> Parameters = <>
Left = 212 Left = 220
Top = 220 Top = 116
end end
object CDS_Color: TClientDataSet object CDS_Color: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 216 Left = 224
Top = 169 Top = 185
end end
object ADO_PB: TADOQuery object ADO_PB: TADOQuery
Connection = DataLink_DyePlan.ADOLink Connection = DataLink_DyePlan.ADOLink

86
F02染色计划单/U_DyePlanCardInput.pas
View File

@ -168,6 +168,9 @@ type
TV2Column1: TcxGridDBColumn; TV2Column1: TcxGridDBColumn;
Label6: TLabel; Label6: TLabel;
DTMID: TEdit; DTMID: TEdit;
avgCard: TButton;
Label8: TLabel;
CINote: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -190,6 +193,7 @@ type
procedure TV3Column1PropertiesEditValueChanged(Sender: TObject); procedure TV3Column1PropertiesEditValueChanged(Sender: TObject);
procedure DTMPSlistBtnClick(Sender: TObject); procedure DTMPSlistBtnClick(Sender: TObject);
procedure TV2DblClick(Sender: TObject); procedure TV2DblClick(Sender: TObject);
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
private private
FC_Code: string; FC_Code: string;
FRollNum: integer; FRollNum: integer;
@ -400,7 +404,6 @@ end;
procedure TfrmDyePlanCardInput.N2Click(Sender: TObject); procedure TfrmDyePlanCardInput.N2Click(Sender: TObject);
begin begin
SelOKNo(CDS_2, False); SelOKNo(CDS_2, False);
end; end;
procedure TfrmDyePlanCardInput.OrderNoBtnClick(Sender: TObject); procedure TfrmDyePlanCardInput.OrderNoBtnClick(Sender: TObject);
@ -428,6 +431,10 @@ begin
InitOrder(); InitOrder();
InitGreyClothStk(); InitGreyClothStk();
if CDS_2.IsEmpty then
begin
Application.MessageBox('无产品库存！', '提示信息', MB_OK);
end;
InitCard(); InitCard();
// initGlide(); // initGlide();
end; end;
@ -435,6 +442,38 @@ begin
end; end;
end; end;
procedure TfrmDyePlanCardInput.OrderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('exec P_OrderCR');
// ShowMessage(sql.Text);
execsql;
end;
fmainID := OrderNo.Text;
// fC_Code := Order_Main.fieldbyname('C_Code').asstring;
// fC_name := Order_Main.fieldbyname('C_name').asstring;
InitOrder();
InitGreyClothStk();
if CDS_2.IsEmpty then
begin
Application.MessageBox('无产品库存！', '提示信息', MB_OK);
end;
InitCard();
// initGlide();
end;
end;
procedure TfrmDyePlanCardInput.PCIDKeyPress(Sender: TObject; var Key: Char); procedure TfrmDyePlanCardInput.PCIDKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
@ -690,6 +729,7 @@ begin
end; end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin begin
FGC_STKID := '';
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end; end;
@ -710,6 +750,15 @@ begin
execsql; execsql;
end; end;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_Dye_Plan_UpdateOrderNo ');
Sql.Add('@OrderNo=' + quotedstr(Trim(OrderNo.Text)));
Open;
end;
end; end;
InitCard(); InitCard();
@ -866,8 +915,7 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with ADOQueryCmd do
with ADOQueryCmd do
begin begin
Close; Close;
Sql.Clear; Sql.Clear;
@ -885,6 +933,7 @@ begin
Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString))); Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
Open; Open;
end; end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end end
@ -908,9 +957,19 @@ begin
raise Exception.Create(PChar(Exception(ExceptObject).Message)); raise Exception.Create(PChar(Exception(ExceptObject).Message));
end; end;
end; end;
Next; Next;
EnableControls; EnableControls;
end; end;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_Dye_Plan_UpdateOrderNo ');
Sql.Add('@OrderNo=' + quotedstr(Trim(OrderNo.Text)));
Open;
end;
InitCard(); InitCard();
InitGreyClothStk(); InitGreyClothStk();
end; end;
@ -1023,8 +1082,23 @@ begin
C_Color.Text := ADOQueryTmp.FieldByName('C_Color').AsString; C_Color.Text := ADOQueryTmp.FieldByName('C_Color').AsString;
C_COLORNO.Text := ADOQueryTmp.FieldByName('C_COLORNO').AsString; C_COLORNO.Text := ADOQueryTmp.FieldByName('C_COLORNO').AsString;
C_Name.Text := ADOQueryTmp.FieldByName('C_Name').AsString; C_Name.Text := ADOQueryTmp.FieldByName('C_Name').AsString;
FC_Code := ADOQueryTmp.FieldByName('C_Code').AsString; CINote.Text := ADOQueryTmp.FieldByName('CINote').AsString;
FC_Name := ADOQueryTmp.FieldByName('C_Name').AsString; if (ADOQueryTmp.FieldByName('DTMID').AsString = '') or (ADOQueryTmp.FieldByName('DTMID').AsString = null) then
begin
Application.MessageBox('未设置默认工序！', '提示信息', MB_OK);
end;
DTMID.Text := ADOQueryTmp.FieldByName('DTMID').AsString;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add(' select * from Dye_Technics_Main where DTMID = ' + QuotedStr(Trim(DTMID.Text)));
Open;
end;
DTMPSlist.Text := ADOQueryCmd.FieldByName('DTMPSlist').AsString;
FC_Code := ADOQueryTmp.FieldByName('C_Code').AsString;
FC_Name := ADOQueryTmp.FieldByName('C_Name').AsString;
// C_Width.Text := ADOQueryTmp.FieldByName('C_Width').Value; // C_Width.Text := ADOQueryTmp.FieldByName('C_Width').Value;
// C_Width.Text := ADOQueryTmp.FieldByName('C_Width').Value; // C_Width.Text := ADOQueryTmp.FieldByName('C_Width').Value;
end; end;
@ -1051,7 +1125,7 @@ end;
procedure TfrmDyePlanCardInput.TV3DblClick(Sender: TObject); procedure TfrmDyePlanCardInput.TV3DblClick(Sender: TObject);
begin begin
CDS_3.Delete; // CDS_3.Delete;
end; end;

87
F02染色计划单/U_DyePlanCardList.dfm
View File

@ -386,6 +386,7 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 125
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -632,56 +633,39 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
Options.Editing = False Options.Editing = False
Width = 200 Width = 200
end end
object v1Column17: TcxGridDBColumn
Caption = #22383#24067#25209#21495
DataBinding.FieldName = 'GC_BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column19: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v1Column20: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object Tv1Column2: TcxGridDBColumn
Caption = #33457#22411#21495
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column6: TcxGridDBColumn
DataBinding.FieldName = 'rkdays'
DataBinding.IsNullValueType = True
Visible = False
end
object Tv1Column13: TcxGridDBColumn object Tv1Column13: TcxGridDBColumn
Caption = #25805#20316#20154 Caption = #24320#21345#20154
DataBinding.FieldName = 'Filler' DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column20: TcxGridDBColumn object Tv1Filltime: TcxGridDBColumn
Caption = #22791#27880 Caption = #24320#21345#26102#38388
DataBinding.FieldName = 'PCNote' DataBinding.FieldName = 'Filltime'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 80
end
object Tv1Column6: TcxGridDBColumn
DataBinding.FieldName = 'rkdays'
DataBinding.IsNullValueType = True
Visible = False
end
object Tv1Chker: TcxGridDBColumn
Caption = #23457#26680#20154
DataBinding.FieldName = 'Chker'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Chktime: TcxGridDBColumn
Caption = #23457#26680#26102#38388
DataBinding.FieldName = 'Chktime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #24403#21069#24037#24207 Caption = #24403#21069#24037#24207
@ -715,6 +699,27 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column20: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'PCNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1TotalPCID: TcxGridDBColumn
Caption = #21345#21495
DataBinding.FieldName = 'TotalPCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1TotalPCIDNum: TcxGridDBColumn
Caption = #24635#21345#21495
DataBinding.FieldName = 'TotalPCIDNum'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

21
F02染色计划单/U_DyePlanCardList.pas
View File

@ -95,14 +95,10 @@ type
Label2: TLabel; Label2: TLabel;
v1Column13: TcxGridDBColumn; v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn; v1Column14: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
C_ColorNo: TEdit; C_ColorNo: TEdit;
Label5: TLabel; Label5: TLabel;
C_Color: TEdit; C_Color: TEdit;
Label6: TLabel; Label6: TLabel;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
@ -120,6 +116,11 @@ type
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Filltime: TcxGridDBColumn;
Tv1Chker: TcxGridDBColumn;
Tv1Chktime: TcxGridDBColumn;
Tv1TotalPCID: TcxGridDBColumn;
Tv1TotalPCIDNum: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -451,6 +452,7 @@ begin
Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString))); Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
Open; Open;
end; end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end end
@ -474,10 +476,20 @@ begin
raise Exception.Create(PChar(Exception(ExceptObject).Message)); raise Exception.Create(PChar(Exception(ExceptObject).Message));
end; end;
end; end;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_Dye_Plan_UpdateOrderNo ');
Sql.Add('@OrderNo=' + quotedstr(Trim(CDS_1.FieldByName('OrderNo').asString)));
Open;
end;
Next; Next;
end; end;
EnableControls; EnableControls;
end; end;
TBRafresh.Click; TBRafresh.Click;
except except
CDS_1.EnableControls; CDS_1.EnableControls;
@ -832,6 +844,7 @@ begin
close; close;
sql.Clear; sql.Clear;
sql.Add('update Dye_Plan_Card SET status=''9'' '); sql.Add('update Dye_Plan_Card SET status=''9'' ');
sql.Add(' ,Chker = ' + quotedstr(trim(DName)) + ',Chktime = getdate()');
sql.Add('where PCID=' + quotedstr(trim(CDS_1.fieldbyname('PCID').AsString))); sql.Add('where PCID=' + quotedstr(trim(CDS_1.fieldbyname('PCID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName))); sql.Add(' ' + quotedstr(trim(DName)));

2
F02染色计划单/U_DyeProcessDefin.dfm
View File

@ -62,7 +62,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Height = 772 Height = 772
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
Properties.ActivePage = RGQX Properties.ActivePage = JGQX
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
ClientRectBottom = 770 ClientRectBottom = 770
ClientRectLeft = 2 ClientRectLeft = 2

1
F02染色计划单/U_DyeProcessDefin.pas
View File

@ -2187,7 +2187,6 @@ end;
procedure TfrmDyeProcessDefin.TbCCQXReplaceClick(Sender: TObject); procedure TfrmDyeProcessDefin.TbCCQXReplaceClick(Sender: TObject);
begin begin
FillAllTextEditsWithValue(panel_ccqx, '낀났헌求侊왠', FindLastEditedTextEdit(panel_ccqx, '낀났헌求侊왠')); FillAllTextEditsWithValue(panel_ccqx, '낀났헌求侊왠', FindLastEditedTextEdit(panel_ccqx, '낀났헌求侊왠'));
end; end;

362
F02染色计划单/U_DyeSimpleTechnicsList.dfm
View File

@ -1,6 +1,6 @@
inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Left = -55 Left = -55
Caption = #24037#33402#30331#35760 Caption = #31616#26131#24037#33402#31649#29702
ClientHeight = 845 ClientHeight = 845
ClientWidth = 1540 ClientWidth = 1540
Position = poDesigned Position = poDesigned
@ -65,13 +65,13 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
ImageIndex = 3 ImageIndex = 3
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton5: TToolButton object TbSave: TToolButton
Left = 284 Left = 284
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22797#21046 Caption = #20445#23384
ImageIndex = 13 ImageIndex = 16
OnClick = ToolButton5Click OnClick = TbSaveClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 355 Left = 355
@ -227,7 +227,6 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False OptionsData.DeletingConfirmation = False
OptionsView.ColumnAutoWidth = True
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Header = DataLink_DyePlan.FonePurple Styles.Header = DataLink_DyePlan.FonePurple
@ -241,7 +240,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
FooterAlignmentHorz = taCenter FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 33 Width = 29
end end
object v2GYNO: TcxGridDBColumn object v2GYNO: TcxGridDBColumn
Caption = #24037#33402#32534#21495 Caption = #24037#33402#32534#21495
@ -249,7 +248,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 122 Width = 90
end end
object v2GYName: TcxGridDBColumn object v2GYName: TcxGridDBColumn
Caption = #24037#33402#21517#31216 Caption = #24037#33402#21517#31216
@ -257,7 +256,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 83
end end
object v2GYGX: TcxGridDBColumn object v2GYGX: TcxGridDBColumn
Caption = #24037#24207 Caption = #24037#24207
@ -268,14 +267,29 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
Width = 210 Width = 94
end end
object Tv2DTMID: TcxGridDBColumn object Tv2DTMID: TcxGridDBColumn
Caption = #24037#33402#20027#38190 Caption = #24037#33402#20027#38190
DataBinding.FieldName = 'DTMID' DataBinding.FieldName = 'DTMID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 96 Options.Editing = False
Width = 99
end
object Tv2Editer: TcxGridDBColumn
Caption = #26368#21518#20462#25913#20154
DataBinding.FieldName = 'Editer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 130
end
object Tv2Edittime: TcxGridDBColumn
Caption = #26368#21518#20462#25913#26102#38388
DataBinding.FieldName = 'Edittime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 47
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
@ -296,8 +310,6 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Height = 385 Height = 385
Align = alTop Align = alTop
TabOrder = 0 TabOrder = 0
ExplicitLeft = 0
ExplicitTop = -5
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -322,13 +334,11 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
end end
object cxGrid9: TcxGrid object cxGrid9: TcxGrid
Left = 1 Left = 1
Top = 386 Top = 424
Width = 202 Width = 202
Height = 357 Height = 319
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = 2
ExplicitTop = 392
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -369,6 +379,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Caption = #24037#24207'ID' Caption = #24037#24207'ID'
DataBinding.FieldName = 'PSID' DataBinding.FieldName = 'PSID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
@ -377,6 +388,31 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
GridView = Tv3 GridView = Tv3
end end
end end
object ToolBar2: TToolBar
Tag = 1
Left = 1
Top = 386
Width = 202
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar2'
Images = DataLink_DyePlan.ImageList_new32
List = True
ShowCaptions = True
TabOrder = 2
object ToolButton5: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
ParentShowHint = False
ShowHint = False
OnClick = ToolButton5Click
end
end
end end
end end
object ScrollBox1: TScrollBox [5] object ScrollBox1: TScrollBox [5]
@ -445,14 +481,16 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Height = 25 Height = 25
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
TabOrder = 4 TabOrder = 4
OnClick = TbGJReplace2Click
end end
object TbGJClear2: TcxButton object TbGJClear2: TcxButton
Left = 90 Left = 66
Top = 29 Top = 29
Width = 50 Width = 50
Height = 25 Height = 25
Caption = #19968#38190#28165#31354 Caption = #19968#38190#28165#31354
TabOrder = 5 TabOrder = 5
OnClick = TbGJClear2Click
end end
object cxLabel234: TcxLabel object cxLabel234: TcxLabel
Left = 68 Left = 68
@ -676,24 +714,6 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object cxGridDBColumn25: TcxGridDBColumn
Caption = #21333#20301'(%)'
DataBinding.FieldName = 'ccqx_unit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 70
end
object cxGridDBColumn26: TcxGridDBColumn
Caption = #29992#37327
DataBinding.FieldName = 'ccqx_use'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn27: TcxGridDBColumn object cxGridDBColumn27: TcxGridDBColumn
Caption = #27604#29575'(%)' Caption = #27604#29575'(%)'
DataBinding.FieldName = 'gj_rate' DataBinding.FieldName = 'gj_rate'
@ -703,13 +723,12 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object cxGridDBColumn28: TcxGridDBColumn object TvGJserialno: TcxGridDBColumn
Caption = #27880#24847#20107#39033 Caption = #24207#21495
DataBinding.FieldName = 'ccqx_precautions' DataBinding.FieldName = 'serialno'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter Width = 60
Width = 70
end end
end end
object cxGridLevel7: TcxGridLevel object cxGridLevel7: TcxGridLevel
@ -721,23 +740,26 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Top = 53 Top = 53
Caption = #22791#27880 Caption = #22791#27880
end end
object cxButton7: TcxButton object TbGJAdd: TcxButton
Left = 287 Left = 287
Top = 6 Top = 6
Width = 40 Width = 40
Height = 20 Height = 20
Caption = #22686#34892 Caption = #22686#34892
TabOrder = 30 TabOrder = 30
OnClick = TbGJAddClick
end end
object cxButton8: TcxButton object TbGJDel: TcxButton
Left = 287 Left = 287
Top = 37 Top = 37
Width = 40 Width = 40
Height = 20 Height = 20
Caption = #21024#34892 Caption = #21024#34892
TabOrder = 31 TabOrder = 31
OnClick = TbGJDelClick
end end
object gj_Precautions: TcxMemo object gj_Precautions: TcxMemo
Tag = 2
Left = 568 Left = 568
Top = 39 Top = 39
Properties.Alignment = taLeftJustify Properties.Alignment = taLeftJustify
@ -746,6 +768,38 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Height = 50 Height = 50
Width = 140 Width = 140
end end
object cxLabel10: TcxLabel
Left = 117
Top = 32
Caption = #24038#38388#38553
end
object gj_leftGap: TcxTextEdit
Tag = 2
Left = 156
Top = 32
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 34
Width = 40
end
object cxLabel11: TcxLabel
Left = 197
Top = 32
Caption = #21491#38388#38553
end
object gj_rightGap: TcxTextEdit
Tag = 2
Left = 235
Top = 32
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 36
Width = 40
end
end end
object Panel_FP: TPanel object Panel_FP: TPanel
Left = 0 Left = 0
@ -806,14 +860,16 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Height = 25 Height = 25
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
TabOrder = 4 TabOrder = 4
OnClick = TbFPReplace2Click
end end
object TbFPClear2: TcxButton object TbFPClear2: TcxButton
Left = 90 Left = 66
Top = 30 Top = 30
Width = 50 Width = 50
Height = 25 Height = 25
Caption = #19968#38190#28165#31354 Caption = #19968#38190#28165#31354
TabOrder = 5 TabOrder = 5
OnClick = TbFPClear2Click
end end
object cxLabel284: TcxLabel object cxLabel284: TcxLabel
Left = 68 Left = 68
@ -1031,24 +1087,6 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #21333#20301'(%)'
DataBinding.FieldName = 'ccqx_unit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 70
end
object cxGridDBColumn16: TcxGridDBColumn
Caption = #29992#37327
DataBinding.FieldName = 'ccqx_use'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn17: TcxGridDBColumn object cxGridDBColumn17: TcxGridDBColumn
Caption = #27604#29575'(%)' Caption = #27604#29575'(%)'
DataBinding.FieldName = 'fp_rate' DataBinding.FieldName = 'fp_rate'
@ -1058,13 +1096,12 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object cxGridDBColumn18: TcxGridDBColumn object TvFPserialno: TcxGridDBColumn
Caption = #27880#24847#20107#39033 Caption = #24207#21495
DataBinding.FieldName = 'ccqx_precautions' DataBinding.FieldName = 'serialno'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter Width = 60
Width = 70
end end
end end
object cxGridLevel5: TcxGridLevel object cxGridLevel5: TcxGridLevel
@ -1076,23 +1113,26 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Top = 61 Top = 61
Caption = #22791#27880 Caption = #22791#27880
end end
object cxButton9: TcxButton object TbFPAdd: TcxButton
Left = 287 Left = 287
Top = 7 Top = 7
Width = 40 Width = 40
Height = 20 Height = 20
Caption = #22686#34892 Caption = #22686#34892
TabOrder = 30 TabOrder = 30
OnClick = TbFPAddClick
end end
object cxButton10: TcxButton object TbFPDel: TcxButton
Left = 287 Left = 287
Top = 38 Top = 38
Width = 40 Width = 40
Height = 20 Height = 20
Caption = #21024#34892 Caption = #21024#34892
TabOrder = 31 TabOrder = 31
OnClick = TbFPDelClick
end end
object fp_Precautions: TcxMemo object fp_Precautions: TcxMemo
Tag = 2
Left = 568 Left = 568
Top = 46 Top = 46
Properties.Alignment = taLeftJustify Properties.Alignment = taLeftJustify
@ -1101,6 +1141,38 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Height = 50 Height = 50
Width = 140 Width = 140
end end
object cxLabel12: TcxLabel
Left = 117
Top = 33
Caption = #24038#38388#38553
end
object fp_leftGap: TcxTextEdit
Tag = 2
Left = 156
Top = 33
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 34
Width = 40
end
object cxLabel13: TcxLabel
Left = 197
Top = 33
Caption = #21491#38388#38553
end
object fp_rightGap: TcxTextEdit
Tag = 2
Left = 235
Top = 33
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 36
Width = 40
end
end end
object Panel_zm: TPanel object Panel_zm: TPanel
Left = 0 Left = 0
@ -1193,6 +1265,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Caption = #22791#27880 Caption = #22791#27880
end end
object zm_Precautions: TcxMemo object zm_Precautions: TcxMemo
Tag = 2
Left = 568 Left = 568
Top = 5 Top = 5
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
@ -1317,14 +1390,16 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Height = 25 Height = 25
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
TabOrder = 8 TabOrder = 8
OnClick = TbCCQXReplaceClick
end end
object TbccqxClear: TcxButton object TbccqxClear: TcxButton
Left = 90 Left = 66
Top = 32 Top = 32
Width = 50 Width = 50
Height = 25 Height = 25
Caption = #19968#38190#28165#31354 Caption = #19968#38190#28165#31354
TabOrder = 9 TabOrder = 9
OnClick = TbccqxClearClick
end end
object cxLabel41: TcxLabel object cxLabel41: TcxLabel
Left = 171 Left = 171
@ -1388,24 +1463,6 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #21333#20301'(%)'
DataBinding.FieldName = 'ccqx_unit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1ccqx_use: TcxGridDBColumn
Caption = #29992#37327
DataBinding.FieldName = 'ccqx_use'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1ccqx_rate: TcxGridDBColumn object Tv1ccqx_rate: TcxGridDBColumn
Caption = #27604#29575'(%)' Caption = #27604#29575'(%)'
DataBinding.FieldName = 'ccqx_rate' DataBinding.FieldName = 'ccqx_rate'
@ -1415,13 +1472,12 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object cxGridDBColumn6: TcxGridDBColumn object TvCCQXserialno: TcxGridDBColumn
Caption = #27880#24847#20107#39033 Caption = #24207#21495
DataBinding.FieldName = 'ccqx_precautions' DataBinding.FieldName = 'serialno'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter Width = 60
Width = 70
end end
end end
object cxGridLevel4: TcxGridLevel object cxGridLevel4: TcxGridLevel
@ -1433,23 +1489,26 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Top = 59 Top = 59
Caption = #22791#27880 Caption = #22791#27880
end end
object cxButton5: TcxButton object TbCCQXAdd: TcxButton
Left = 287 Left = 288
Top = 7 Top = 6
Width = 40 Width = 40
Height = 20 Height = 20
Caption = #22686#34892 Caption = #22686#34892
TabOrder = 18 TabOrder = 18
OnClick = TbCCQXAddClick
end end
object cxButton6: TcxButton object TbCCQXDel: TcxButton
Left = 287 Left = 287
Top = 38 Top = 38
Width = 40 Width = 40
Height = 20 Height = 20
Caption = #21024#34892 Caption = #21024#34892
TabOrder = 19 TabOrder = 19
OnClick = TbCCQXDelClick
end end
object ccqx_note: TcxMemo object ccqx_note: TcxMemo
Tag = 2
Left = 568 Left = 568
Top = 40 Top = 40
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
@ -1532,7 +1591,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Width = 200 Width = 200
Height = 120 Height = 120
TabOrder = 6 TabOrder = 6
object TvRG: TcxGridDBTableView object TvRGQX: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_rgqx DataController.DataSource = DS_rgqx
@ -1555,24 +1614,6 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #21333#20301'(%)'
DataBinding.FieldName = 'ccqx_unit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 70
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #29992#37327
DataBinding.FieldName = 'ccqx_use'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn7: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #27604#29575'(%)' Caption = #27604#29575'(%)'
DataBinding.FieldName = 'rgqx_spel' DataBinding.FieldName = 'rgqx_spel'
@ -1582,17 +1623,16 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object cxGridDBColumn8: TcxGridDBColumn object TvRGQXserialno: TcxGridDBColumn
Caption = #27880#24847#20107#39033 Caption = #24207#21495
DataBinding.FieldName = 'ccqx_precautions' DataBinding.FieldName = 'serialno'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter Width = 60
Width = 70
end end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = TvRG GridView = TvRGQX
end end
end end
object cxLabel2: TcxLabel object cxLabel2: TcxLabel
@ -1600,23 +1640,26 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Top = 51 Top = 51
Caption = #22791#27880 Caption = #22791#27880
end end
object cxButton3: TcxButton object TbRGQXAdd: TcxButton
Left = 287 Left = 288
Top = 7 Top = 6
Width = 40 Width = 40
Height = 20 Height = 20
Caption = #22686#34892 Caption = #22686#34892
TabOrder = 8 TabOrder = 8
OnClick = TbRGQXAddClick
end end
object cxButton4: TcxButton object TbRGQXDel: TcxButton
Left = 287 Left = 287
Top = 38 Top = 38
Width = 40 Width = 40
Height = 20 Height = 20
Caption = #21024#34892 Caption = #21024#34892
TabOrder = 9 TabOrder = 9
OnClick = TbRGQXDelClick
end end
object rgqx_note: TcxMemo object rgqx_note: TcxMemo
Tag = 2
Left = 568 Left = 568
Top = 37 Top = 37
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
@ -1715,7 +1758,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Width = 200 Width = 200
Height = 120 Height = 120
TabOrder = 8 TabOrder = 8
object TvJG: TcxGridDBTableView object TvJGQX: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_jgqx DataController.DataSource = DS_jgqx
@ -1773,9 +1816,16 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object TvJGQXserialno: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'serialno'
DataBinding.IsNullValueType = True
Visible = False
Width = 60
end
end end
object cxGridLevel3: TcxGridLevel object cxGridLevel3: TcxGridLevel
GridView = TvJG GridView = TvJGQX
end end
end end
object cxLabel3: TcxLabel object cxLabel3: TcxLabel
@ -1783,23 +1833,26 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Top = 54 Top = 54
Caption = #22791#27880 Caption = #22791#27880
end end
object cxButton1: TcxButton object TbJGQXAdd: TcxButton
Left = 288 Left = 288
Top = 7 Top = 7
Width = 40 Width = 40
Height = 20 Height = 20
Caption = #22686#34892 Caption = #22686#34892
TabOrder = 10 TabOrder = 10
OnClick = TbJGQXAddClick
end end
object cxButton2: TcxButton object TbJGQXDel: TcxButton
Left = 288 Left = 288
Top = 38 Top = 38
Width = 40 Width = 40
Height = 20 Height = 20
Caption = #21024#34892 Caption = #21024#34892
TabOrder = 11 TabOrder = 11
OnClick = TbJGQXDelClick
end end
object jgqx_note: TcxMemo object jgqx_note: TcxMemo
Tag = 2
Left = 568 Left = 568
Top = 39 Top = 39
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
@ -2021,14 +2074,16 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Height = 25 Height = 25
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
TabOrder = 22 TabOrder = 22
OnClick = TbDXReplace2Click
end end
object TbDXClear2: TcxButton object TbDXClear2: TcxButton
Left = 90 Left = 66
Top = 26 Top = 26
Width = 50 Width = 50
Height = 25 Height = 25
Caption = #19968#38190#28165#31354 Caption = #19968#38190#28165#31354
TabOrder = 23 TabOrder = 23
OnClick = TbDXClear2Click
end end
object cxLabel189: TcxLabel object cxLabel189: TcxLabel
Left = 223 Left = 223
@ -2053,6 +2108,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Caption = #22791#27880 Caption = #22791#27880
end end
object dx_Precautions: TcxMemo object dx_Precautions: TcxMemo
Tag = 2
Left = 568 Left = 568
Top = 39 Top = 39
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
@ -2136,14 +2192,16 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Height = 25 Height = 25
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
TabOrder = 4 TabOrder = 4
OnClick = TbFSReplace2Click
end end
object TBFScLEAR2: TcxButton object TBFScLEAR2: TcxButton
Left = 90 Left = 66
Top = 30 Top = 30
Width = 50 Width = 50
Height = 25 Height = 25
Caption = #19968#38190#28165#31354 Caption = #19968#38190#28165#31354
TabOrder = 5 TabOrder = 5
OnClick = TBFScLEAR2Click
end end
object cxLabel192: TcxLabel object cxLabel192: TcxLabel
Left = 68 Left = 68
@ -2361,24 +2419,6 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object cxGridDBColumn20: TcxGridDBColumn
Caption = #21333#20301'(%)'
DataBinding.FieldName = 'ccqx_unit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 70
end
object cxGridDBColumn21: TcxGridDBColumn
Caption = #29992#37327
DataBinding.FieldName = 'ccqx_use'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxGridDBColumn22: TcxGridDBColumn object cxGridDBColumn22: TcxGridDBColumn
Caption = #27604#29575'(%)' Caption = #27604#29575'(%)'
DataBinding.FieldName = 'fs_rate' DataBinding.FieldName = 'fs_rate'
@ -2388,13 +2428,12 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object cxGridDBColumn23: TcxGridDBColumn object TvFSColumn1: TcxGridDBColumn
Caption = #27880#24847#20107#39033 Caption = #24207#21495
DataBinding.FieldName = 'ccqx_precautions' DataBinding.FieldName = 'serialno'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter Width = 60
Width = 70
end end
end end
object cxGridLevel6: TcxGridLevel object cxGridLevel6: TcxGridLevel
@ -2406,23 +2445,26 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
Top = 57 Top = 57
Caption = #22791#27880 Caption = #22791#27880
end end
object cxButton11: TcxButton object TbFSAdd: TcxButton
Left = 287 Left = 287
Top = 6 Top = 6
Width = 40 Width = 40
Height = 20 Height = 20
Caption = #22686#34892 Caption = #22686#34892
TabOrder = 30 TabOrder = 30
OnClick = TbFSAddClick
end end
object cxButton12: TcxButton object TbFSDel: TcxButton
Left = 287 Left = 287
Top = 37 Top = 37
Width = 40 Width = 40
Height = 20 Height = 20
Caption = #21024#34892 Caption = #21024#34892
TabOrder = 31 TabOrder = 31
OnClick = TbFSDelClick
end end
object fs_Precautions: TcxMemo object fs_Precautions: TcxMemo
Tag = 2
Left = 568 Left = 568
Top = 42 Top = 42
Properties.Alignment = taLeftJustify Properties.Alignment = taLeftJustify
@ -2481,13 +2523,13 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList
end end
object DS_PsType: TDataSource object DS_PsType: TDataSource
DataSet = CDS_PSType DataSet = CDS_PSType
Left = 728 Left = 720
Top = 131 Top = 139
end end
object CDS_PSType: TClientDataSet object CDS_PSType: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 680 Left = 648
Top = 137 Top = 137
end end
object ADOQuery1: TADOQuery object ADOQuery1: TADOQuery

1214
F02染色计划单/U_DyeSimpleTechnicsList.pas
View File

File diff suppressed because it is too large Load Diff

23
F02染色计划单/U_DyeTechnicsList.dfm
View File

@ -163,6 +163,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Align = alLeft Align = alLeft
TabOrder = 2 TabOrder = 2
ExplicitLeft = 8 ExplicitLeft = 8
ExplicitTop = 105
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -204,7 +205,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
FooterAlignmentHorz = taCenter FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 51 Width = 40
end end
object v2GYNO: TcxGridDBColumn object v2GYNO: TcxGridDBColumn
Caption = #24037#33402#32534#21495 Caption = #24037#33402#32534#21495
@ -212,7 +213,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 196 Width = 156
end end
object v2GYName: TcxGridDBColumn object v2GYName: TcxGridDBColumn
Caption = #24037#33402#21517#31216 Caption = #24037#33402#21517#31216
@ -220,7 +221,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 304 Width = 243
end end
object v2GYGX: TcxGridDBColumn object v2GYGX: TcxGridDBColumn
Caption = #24037#24207 Caption = #24037#24207
@ -231,7 +232,21 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
Width = 251 Width = 150
end
object Tv2Editer: TcxGridDBColumn
Caption = #26368#21518#20462#25913#20154
DataBinding.FieldName = 'Editer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 104
end
object Tv2Column1: TcxGridDBColumn
Caption = #26368#21518#20462#25913#26102#38388
DataBinding.FieldName = 'Edittime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel

2
F02染色计划单/U_DyeTechnicsList.pas
View File

@ -62,6 +62,8 @@ type
TV1All_Detail: TcxGridDBColumn; TV1All_Detail: TcxGridDBColumn;
TV1ALL_NOTE: TcxGridDBColumn; TV1ALL_NOTE: TcxGridDBColumn;
TV1All_zhuji: TcxGridDBColumn; TV1All_zhuji: TcxGridDBColumn;
Tv2Editer: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

3
F02染色计划单/U_DyeTechnicsinput.dfm
View File

@ -120,7 +120,6 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Align = alRight Align = alRight
TabOrder = 2 TabOrder = 2
Visible = False Visible = False
ExplicitLeft = -124
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
OnDblClick = Tv3DblClick OnDblClick = Tv3DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -322,6 +321,8 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 2 TabOrder = 2
ExplicitLeft = -4
ExplicitTop = 45
object Label2: TLabel object Label2: TLabel
Left = 295 Left = 295
Top = 9 Top = 9

52
F02染色计划单/U_DyeTechnicsinput.pas
View File

@ -176,11 +176,11 @@ begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' select A.*,B.* FROM Dye_Technics_Sub A inner join Dye_Process B on A.PSId=B.PSId '); sql.Add(' select A.*,B.* FROM Dye_Technics_Sub A inner join Dye_Process B on A.PSId=B.PSId ');
sql.Add(' Where A.DTMID=''' + trim(FDTMID) + ''''); sql.Add(' Where A.DTMID=''' + trim(FDTMID) + '''');
SQL.Add(' ORDER BY A.PSNO'); SQL.Add(' ORDER BY A.PSNO');
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_1); SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1); SInitCDSData(ADOQueryTemp, CDS_1);
@ -272,7 +272,6 @@ begin
end; end;
end; end;
ADOQueryCmd.Edit; ADOQueryCmd.Edit;
ADOQueryCmd.fieldByName('BCPID').Value := maxsubid; ADOQueryCmd.fieldByName('BCPID').Value := maxsubid;
ADOQueryCmd.Post; ADOQueryCmd.Post;
@ -353,7 +352,6 @@ begin
// sql.Add('SELECT PSName,COUNT(*) AS DuplicateCount FROM Dye_Process WHERE DTMNo =''' + Trim(DTMNo.Text) + ''''); // sql.Add('SELECT PSName,COUNT(*) AS DuplicateCount FROM Dye_Process WHERE DTMNo =''' + Trim(DTMNo.Text) + '''');
// sql.Add(' GROUP BY PSName HAVING COUNT(*) > 1 ORDER BY DuplicateCount DESC;'); // sql.Add(' GROUP BY PSName HAVING COUNT(*) > 1 ORDER BY DuplicateCount DESC;');
// sql.Add('SELECT STRING_AGG(PSName, '', '') AS DuplicatePSNames,'); // sql.Add('SELECT STRING_AGG(PSName, '', '') AS DuplicatePSNames,');
// sql.Add('COUNT(*) AS TotalPSName'); // sql.Add('COUNT(*) AS TotalPSName');
// sql.Add('FROM (SELECT PSName'); // sql.Add('FROM (SELECT PSName');
@ -489,8 +487,48 @@ begin
RTSetsavedata(ADOQueryCmd, 'Dye_Technics_Main', Panel4, 2); RTSetsavedata(ADOQueryCmd, 'Dye_Technics_Main', Panel4, 2);
FieldByName('DTMPSlist').Value := Trim(DTMPSlist); FieldByName('DTMPSlist').Value := Trim(DTMPSlist);
Post; Post;
end; end;
//////////////产品信息表内容修改//////////////
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Cloth_Info where DTMID =' + quotedstr(Trim(maxno)));
Open;
end;
ADOQueryCmd.First;
while not ADOQueryCmd.Eof do
begin
ADOQueryCmd.Edit;
ADOQueryCmd.FieldByName('DTMPSlist').Value := Trim(DTMPSlist);
ADOQueryCmd.FieldByName('Editer').Value := Trim(DName);
ADOQueryCmd.FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
ADOQueryCmd.Post;
ADOQueryCmd.Next;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Cloth_Dye_Technics where DTMID =' + quotedstr(Trim(maxno)));
Open;
end;
ADOQueryCmd.First;
while not ADOQueryCmd.Eof do
begin
ADOQueryCmd.Edit;
ADOQueryCmd.FieldByName('DTMPSlist').Value := Trim(DTMPSlist);
ADOQueryCmd.FieldByName('DTMNo').Value := Trim(DTMNo.Text);
ADOQueryCmd.FieldByName('DTMName').Value := Trim(DTMName.Text);
ADOQueryCmd.Post;
ADOQueryCmd.Next;
end;
//////////////产品信息表内容修改//////////////
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
result := true; result := true;
except except

26
F04染色刷卡/DyeProcess.dproj.local
View File

@ -1,28 +1,28 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.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.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.620,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_MachTaskList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.620,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_MachTaskList.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.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.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.811,=D:\Dp10Repo\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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.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.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>2025/09/13 17:08:13.000.517,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_BS_MachineSel.pas</Transaction> <Transaction>2025/09/13 17:08:13.000.517,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_BS_MachineSel.pas</Transaction>
<Transaction>2025/09/25 15:07:18.000.836,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeProcessDefin.pas</Transaction> <Transaction>2025/09/25 15:07:18.000.836,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeProcessDefin.pas</Transaction>
</Transactions> </Transactions>

BIN
F04染色刷卡/DyeProcess.identcache
View File

Binary file not shown.

4
F04染色刷卡/U_MachTaskList.dfm
View File

@ -33,8 +33,6 @@ object frmMachTaskList: TfrmMachTaskList
Align = alClient Align = alClient
Images = DataLink_DyeProcess.ThreeImgList Images = DataLink_DyeProcess.ThreeImgList
TabOrder = 0 TabOrder = 0
ExplicitLeft = 8
ExplicitTop = 91
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -342,8 +340,6 @@ object frmMachTaskList: TfrmMachTaskList
Height = 739 Height = 739
Align = alRight Align = alRight
TabOrder = 3 TabOrder = 3
ExplicitLeft = 852
ExplicitTop = 103
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
FindPanel.DisplayMode = fpdmAlways FindPanel.DisplayMode = fpdmAlways

2
F04染色刷卡/U_MachTaskList.pas
View File

@ -418,7 +418,7 @@ begin
mMCName := CDS_1.FieldByName('MCName').AsString; mMCName := CDS_1.FieldByName('MCName').AsString;
mStartTime := CDS_1.FieldByName('BegTime').AsString; mStartTime := CDS_1.FieldByName('BegTime').AsString;
// mNewValue := '셕뺍데:' + CDS_1.FieldByName('OrderNo').AsString + #13; // mNewValue := '셕뺍데:' + CDS_1.FieldByName('OrderNo').AsString + #13;
mNewValue := mNewValue + '²úÆ·Ãû³Æ:' + CDS_1.FieldByName('C_Name').AsString + #13; mNewValue := mNewValue + CDS_1.FieldByName('C_Name').AsString + #13;
mNewValue := mNewValue + '묏埼 민스늴鑒:' + CDS_1.FieldByName('GlideName').AsString; mNewValue := mNewValue + '묏埼 민스늴鑒:' + CDS_1.FieldByName('GlideName').AsString;
if CDS_1.FieldByName('PSType').AsString = '낀났헌求' then if CDS_1.FieldByName('PSType').AsString = '낀났헌求' then

20
F05染色检验/DyeInsp.dproj.local
View File

@ -1,36 +1,36 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.664,=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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.958,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.320,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.664,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</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.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.743,=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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.958,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.320,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions> </Transactions>

BIN
F05染色检验/DyeInsp.identcache
View File

Binary file not shown.

22
F05染色检验/DyeInspLogin.dproj.local
View File

@ -1,26 +1,26 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="logon.pas"/> <File Path="DbPanel"/>
<File Path="logon.dfm"/> <File Path="DbPanel\MovePanel.pas"/>
<File Path="spmain.pas"/>
<File Path="spmain.dfm"/>
<File Path="delphitwain"/> <File Path="delphitwain"/>
<File Path="delphitwain\DelphiTwain.pas"/> <File Path="delphitwain\DelphiTwain.pas"/>
<File Path="delphitwain\DelphiTwainUtils.pas"/> <File Path="delphitwain\DelphiTwainUtils.pas"/>
<File Path="delphitwain\Twain.pas"/> <File Path="delphitwain\Twain.pas"/>
<File Path="DbPanel"/>
<File Path="DbPanel\MovePanel.pas"/>
<File Path="AES.pas"/> <File Path="AES.pas"/>
<File Path="ElAES.pas"/> <File Path="ElAES.pas"/>
<File Path="U_upPassword.pas"/> <File Path="JDAESExtend.pas"/>
<File Path="U_upPassword.dfm"/> <File Path="logon.pas"/>
<File Path="logon.dfm"/>
<File Path="spmain.pas"/>
<File Path="spmain.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="U_Link.pas"/> <File Path="U_Link.pas"/>
<File Path="U_Link.dfm"/> <File Path="U_Link.dfm"/>
<File Path="U_iniParam.pas"/> <File Path="U_upPassword.pas"/>
<File Path="JDAESExtend.pas"/> <File Path="U_upPassword.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj</Transaction>
</Transactions> </Transactions>
</BorlandProject> </BorlandProject>

BIN
F05染色检验/DyeInspLogin.identcache
View File

Binary file not shown.

160
F05染色检验/U_DyeClothInspList.dfm
View File

@ -20,6 +20,7 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
AutoSize = True AutoSize = True
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 3 TabOrder = 3
ExplicitTop = 113
DesignSize = ( DesignSize = (
1467 1467
24) 24)
@ -139,11 +140,9 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skSum Kind = skSum
Column = v1Column8
end end
item item
Kind = skSum Kind = skSum
Column = v1Column9
end end
item item
Kind = skCount Kind = skCount
@ -161,11 +160,9 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
end end
item item
Kind = skSum Kind = skSum
Column = v1Column27
end end
item item
Kind = skSum Kind = skSum
Column = v1Column28
end end
item item
Kind = skSum Kind = skSum
@ -182,7 +179,6 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
end end
item item
Kind = skCount Kind = skCount
Column = v1Column23
end end
item item
Kind = skSum Kind = skSum
@ -211,38 +207,6 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 40 Width = 40
end end
object v1Column21: TcxGridDBColumn
Caption = #25171#30721#26102#38388
DataBinding.FieldName = 'FillTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column32: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'conNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column13: TcxGridDBColumn object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
@ -251,78 +215,6 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object v1Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column9: TcxGridDBColumn
Caption = #30133#28857#25968#37327
DataBinding.FieldName = 'CDQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column7: TcxGridDBColumn
Caption = #30133#28857#24773#20917
DataBinding.FieldName = 'FlawList'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column17: TcxGridDBColumn
Caption = #29366#24577
DataBinding.FieldName = 'CIIOFlag'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column18: TcxGridDBColumn
Caption = #21345#21495
DataBinding.FieldName = 'PCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column23: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column27: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column28: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Meter'
@ -331,14 +223,50 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1Column10: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #30721#25968 Caption = #38376#24133
DataBinding.FieldName = 'Yardage' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1C_description: TcxGridDBColumn
Caption = #24037#33402#35201#27714
DataBinding.FieldName = 'C_description'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Inspector1: TcxGridDBColumn
Caption = #26816#39564#20154'1'
DataBinding.FieldName = 'Inspector1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Inspector2: TcxGridDBColumn
Caption = #26816#39564#20154'2'
DataBinding.FieldName = 'Inspector2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1checktime: TcxGridDBColumn
Caption = #26816#39564#26102#38388
DataBinding.FieldName = 'checktime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object v1Column20: TcxGridDBColumn object v1Column20: TcxGridDBColumn
Caption = #25171#30721#20154 Caption = #25171#30721#20154
DataBinding.FieldName = 'Filler' DataBinding.FieldName = 'Filler'
@ -388,14 +316,6 @@ inherited frmDyeClothInspList: TfrmDyeClothInspList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'

18
F05染色检验/U_DyeClothInspList.pas
View File

@ -41,24 +41,12 @@ type
N1: TMenuItem; N1: TMenuItem;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column21: TcxGridDBColumn;
v1Column32: TcxGridDBColumn;
v1Column1: TcxGridDBColumn; v1Column1: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
v1Column13: TcxGridDBColumn; v1Column13: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
v1Column28: TcxGridDBColumn;
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
v1Column20: TcxGridDBColumn; v1Column20: TcxGridDBColumn;
v1Column14: TcxGridDBColumn; v1Column14: TcxGridDBColumn;
v1Column12: TcxGridDBColumn; v1Column12: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column42: TcxGridDBColumn; v1Column42: TcxGridDBColumn;
v1Column6: TcxGridDBColumn; v1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
@ -78,7 +66,6 @@ type
BTLP: TButton; BTLP: TButton;
BTNP: TButton; BTNP: TButton;
TCBNOR: TComboBox; TCBNOR: TComboBox;
Tv1Column10: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Panel1: TPanel; Panel1: TPanel;
@ -109,6 +96,10 @@ type
Tv1SSel: TcxGridDBColumn; Tv1SSel: TcxGridDBColumn;
N2: TMenuItem; N2: TMenuItem;
N3: TMenuItem; N3: TMenuItem;
Tv1Inspector1: TcxGridDBColumn;
Tv1Inspector2: TcxGridDBColumn;
Tv1C_description: TcxGridDBColumn;
Tv1checktime: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -247,6 +238,7 @@ begin
sql.Add('@pageIndex=' + inttostr(CurrentPage)); sql.Add('@pageIndex=' + inttostr(CurrentPage));
sql.Add(',@pageSize=' + inttostr(RecordsNumber)); sql.Add(',@pageSize=' + inttostr(RecordsNumber));
sql.Add(',@criteria= ' + quotedstr(WSql)); sql.Add(',@criteria= ' + quotedstr(WSql));
// ShowMessage(sql.Text);
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, Order_Main); SCreateCDS(ADOQueryMain, Order_Main);

6
F05染色检验/U_DyeMachInsp.dfm
View File

@ -7,7 +7,7 @@
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -689 ExplicitLeft = -453
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 859 ExplicitHeight = 859
PixelsPerInch = 96 PixelsPerInch = 96
@ -38,6 +38,8 @@
ParentBackground = False ParentBackground = False
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitLeft = 2
ExplicitTop = 174
object lblLenUnit: TLabel object lblLenUnit: TLabel
Left = 231 Left = 231
Top = 48 Top = 48
@ -1865,8 +1867,6 @@
Height = 511 Height = 511
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 0
ExplicitTop = 109
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
OnMouseDown = Tv3MouseDown OnMouseDown = Tv3MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>

2
F05染色检验/U_DyeMachInsp.pas
View File

@ -1397,7 +1397,7 @@ begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' EXEC P_Dye_Insp_Prt_Lab '); sql.Add(' EXEC P_Dye_Insp_Prt_Lab ');
SQL.Add(' @CIID=''' + Trim(MCIID) + ''''); SQL.Add(' @Filtration=''' + Trim(MCIID) + '''');
Open; Open;
end; end;
if ADOQueryPrint.IsEmpty then if ADOQueryPrint.IsEmpty then

BIN
F05染色检验/testDll.identcache
View File

Binary file not shown.

50
F06染色成品仓库/DyeClothStk.dproj
View File

@ -4,7 +4,7 @@
<MainSource>DyeClothStk.dpr</MainSource> <MainSource>DyeClothStk.dpr</MainSource>
<Base>True</Base> <Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config> <Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms> <TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType> <AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType> <FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion> <ProjectVersion>19.2</ProjectVersion>
@ -13,16 +13,6 @@
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32> <Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
@ -43,24 +33,6 @@
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32> <Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent> <CfgParent>Cfg_2</CfgParent>
@ -84,13 +56,6 @@
<VerInfo_Locale>2052</VerInfo_Locale> <VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''"> <PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType> <BT_BuildType>Debug</BT_BuildType>
@ -113,15 +78,6 @@
<DCC_Optimize>false</DCC_Optimize> <DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\众华\F06染色成品仓库\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\Dp10Repo\项目代码\众华\F06染色成品仓库\testDll.exe</Debugger_HostApplication>
@ -223,10 +179,6 @@
</Source> </Source>
</Delphi.Personality> </Delphi.Personality>
<Platforms> <Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform> <Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform> <Platform value="Win64">False</Platform>
</Platforms> </Platforms>

42
F06染色成品仓库/DyeClothStk.dproj.local
View File

@ -1,42 +1,42 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.982,=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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.845,=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothInEdit.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.615,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothInEdit.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.783,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.615,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothInEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.443,=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothWaitStorage.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.443,=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothWaitStorage.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.420,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\DyeClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\InformationBase.dproj</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.982,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.783,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.615,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothOutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.361,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanSel.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.420,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\DyeClothStk.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.710,=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothIOFlow.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_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.361,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.537,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.537,=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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.045,=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothPSI.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.845,=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothInEdit.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.615,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.755,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.755,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.710,=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothIOFlow.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.045,=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothPSI.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/> <File Path="..\..\D10sxYilanbuyi"/>

BIN
F06染色成品仓库/DyeClothStk.identcache
View File

Binary file not shown.

5
F06染色成品仓库/DyeClothStk.skincfg Normal file
View File

@ -0,0 +1,5 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinsDefaultPainters=1

29
F06染色成品仓库/U_DyeClothInEdit.dfm
View File

@ -23,6 +23,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
TabOrder = 0 TabOrder = 0
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -57,6 +58,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -67,12 +69,14 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object v1Column11: TcxGridDBColumn object v1Column11: TcxGridDBColumn
Caption = #21367#26465#30721 Caption = #21367#26465#30721
DataBinding.FieldName = 'StkId' DataBinding.FieldName = 'StkId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 75 Width = 75
end end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Filtering = False Options.Filtering = False
@ -81,6 +85,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Filtering = False Options.Filtering = False
@ -89,12 +94,14 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 62 Width = 62
end end
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #21345#21495 Caption = #21345#21495
DataBinding.FieldName = 'PCID' DataBinding.FieldName = 'PCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 41 Width = 41
@ -102,6 +109,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'StkMeter' DataBinding.FieldName = 'StkMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Filtering = False Options.Filtering = False
@ -110,6 +118,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object v2Column5: TcxGridDBColumn object v2Column5: TcxGridDBColumn
Caption = #27611#37325 Caption = #27611#37325
DataBinding.FieldName = 'StkGrossWeight' DataBinding.FieldName = 'StkGrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Filtering = False Options.Filtering = False
@ -202,6 +211,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv2CellDblClick OnCellDblClick = Tv2CellDblClick
DataController.DataSource = DS_2 DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
@ -218,6 +228,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object v1OrderNo: TcxGridDBColumn object v1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
@ -226,12 +237,14 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object Tv2Column1: TcxGridDBColumn object Tv2Column1: TcxGridDBColumn
Caption = #21345#21495 Caption = #21345#21495
DataBinding.FieldName = 'PCID' DataBinding.FieldName = 'PCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object v2Column2: TcxGridDBColumn object v2Column2: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'CustomerNoName' DataBinding.FieldName = 'CustomerNoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Width = 123 Width = 123
@ -239,6 +252,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object cxGridDBColumn2: TcxGridDBColumn object cxGridDBColumn2: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'MPRTCodeName' DataBinding.FieldName = 'MPRTCodeName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
@ -247,6 +261,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object cxGridDBColumn3: TcxGridDBColumn object cxGridDBColumn3: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
@ -255,12 +270,14 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object Tv2Column2: TcxGridDBColumn object Tv2Column2: TcxGridDBColumn
Caption = #21305#25968 Caption = #21305#25968
DataBinding.FieldName = 'PCPiece' DataBinding.FieldName = 'PCPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 48 Width = 48
end end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'PCQty' DataBinding.FieldName = 'PCQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Width = 51 Width = 51
@ -268,6 +285,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object v1Column14: TcxGridDBColumn object v1Column14: TcxGridDBColumn
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'PCUnit' DataBinding.FieldName = 'PCUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Width = 42 Width = 42
@ -275,6 +293,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object v1PRTMF: TcxGridDBColumn object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
@ -283,6 +302,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object v1PRTKZ: TcxGridDBColumn object v1PRTKZ: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
@ -452,6 +472,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3 DataController.DataSource = DS_3
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -479,6 +500,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object v3Column5: TcxGridDBColumn object v3Column5: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
@ -489,6 +511,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 52 Width = 52
@ -496,6 +519,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object v3MJID: TcxGridDBColumn object v3MJID: TcxGridDBColumn
Caption = #21367#26465#30721 Caption = #21367#26465#30721
DataBinding.FieldName = 'StkId' DataBinding.FieldName = 'StkId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 60 Width = 60
@ -503,6 +527,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object v3Column3: TcxGridDBColumn object v3Column3: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -510,12 +535,14 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object Tv3Column1: TcxGridDBColumn object Tv3Column1: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 67 Width = 67
end end
object v3Column4: TcxGridDBColumn object v3Column4: TcxGridDBColumn
Caption = #21345#21495 Caption = #21345#21495
DataBinding.FieldName = 'PCID' DataBinding.FieldName = 'PCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 65 Width = 65
@ -523,6 +550,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object cxGridDBColumn6: TcxGridDBColumn object cxGridDBColumn6: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'StkMeter' DataBinding.FieldName = 'StkMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -531,6 +559,7 @@ inherited frmDyeClothInEdit: TfrmDyeClothInEdit
object v3Column1: TcxGridDBColumn object v3Column1: TcxGridDBColumn
Caption = #27611#37325 Caption = #27611#37325
DataBinding.FieldName = 'StkGrossWeight' DataBinding.FieldName = 'StkGrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 59 Width = 59

2
F06染色成品仓库/U_DyeClothInEdit.pas
View File

@ -11,7 +11,7 @@ uses
cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, RM_Common, RM_Class, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, RM_Common, RM_Class,
RM_GridReport, RM_Dataset, Vcl.ToolWin; RM_GridReport, RM_Dataset, Vcl.ToolWin, dxScrollbarAnnotations;
type type
TfrmDyeClothInEdit = class(TfrmBaseList) TfrmDyeClothInEdit = class(TfrmBaseList)

37
F06染色成品仓库/U_DyeClothInList.dfm
View File

@ -102,7 +102,6 @@ inherited frmDyeClothInList: TfrmDyeClothInList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 39
object Label2: TLabel object Label2: TLabel
Left = 70 Left = 70
Top = 36 Top = 36
@ -500,9 +499,9 @@ inherited frmDyeClothInList: TfrmDyeClothInList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
ExplicitTop = 131
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -574,6 +573,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column22: TcxGridDBColumn object v1Column22: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
@ -584,6 +584,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column21: TcxGridDBColumn object v1Column21: TcxGridDBColumn
Caption = #20837#24211#21333#21495 Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'IONO' DataBinding.FieldName = 'IONO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 103 Width = 103
@ -591,16 +592,19 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
Options.Editing = False Options.Editing = False
end end
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
Options.Editing = False Options.Editing = False
end end
object v1Column32: TcxGridDBColumn object v1Column32: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'conNO' DataBinding.FieldName = 'conNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
@ -608,6 +612,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 78 Width = 78
@ -615,6 +620,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 74 Width = 74
@ -622,6 +628,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column13: TcxGridDBColumn object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -629,6 +636,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -636,6 +644,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column18: TcxGridDBColumn object v1Column18: TcxGridDBColumn
Caption = #21345#21495 Caption = #21345#21495
DataBinding.FieldName = 'PCId' DataBinding.FieldName = 'PCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -643,6 +652,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column23: TcxGridDBColumn object v1Column23: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -650,17 +660,20 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'CustName' DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 69 Width = 69
end end
object Tv1Column13: TcxGridDBColumn object Tv1Column13: TcxGridDBColumn
Caption = #32568#21495 Caption = #32568#21495
DataBinding.FieldName = 'BatchNo2' DataBinding.FieldName = 'BatchNo2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Caption = #27611#37325 Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight' DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -668,6 +681,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column27: TcxGridDBColumn object v1Column27: TcxGridDBColumn
Caption = #30382#37325 Caption = #30382#37325
DataBinding.FieldName = 'Tare' DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -675,6 +689,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column28: TcxGridDBColumn object v1Column28: TcxGridDBColumn
Caption = #20928#37325 Caption = #20928#37325
DataBinding.FieldName = 'NetWeight' DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -682,6 +697,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -689,6 +705,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #24211#20301 Caption = #24211#20301
DataBinding.FieldName = 'IOPosition' DataBinding.FieldName = 'IOPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 71 Width = 71
@ -696,6 +713,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968 Caption = #30721#25968
DataBinding.FieldName = 'Yardage' DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -703,6 +721,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #21697#36136 Caption = #21697#36136
DataBinding.FieldName = 'Grade' DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -710,6 +729,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column42: TcxGridDBColumn object v1Column42: TcxGridDBColumn
Caption = #24635#35760#24405#25968 Caption = #24635#35760#24405#25968
DataBinding.FieldName = 'TotalCount' DataBinding.FieldName = 'TotalCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -717,6 +737,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #21367#26465#30721 Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID' DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -724,6 +745,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #23458#25143#33457#22411 Caption = #23458#25143#33457#22411
DataBinding.FieldName = 'C_CustPattern' DataBinding.FieldName = 'C_CustPattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -731,6 +753,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -738,6 +761,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -745,6 +769,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column34: TcxGridDBColumn object v1Column34: TcxGridDBColumn
Caption = #32568#26465#30721 Caption = #32568#26465#30721
DataBinding.FieldName = 'BCIOID' DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -752,6 +777,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column40: TcxGridDBColumn object v1Column40: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -759,6 +785,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object v1Column46: TcxGridDBColumn object v1Column46: TcxGridDBColumn
Caption = #26816#39564#26426#21488 Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo' DataBinding.FieldName = 'CIMachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -766,6 +793,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #21253#21495 Caption = #21253#21495
DataBinding.FieldName = 'BAONO' DataBinding.FieldName = 'BAONO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -773,12 +801,14 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object VC_BaoID: TcxGridDBColumn object VC_BaoID: TcxGridDBColumn
Caption = #21253#26465#30721 Caption = #21253#26465#30721
DataBinding.FieldName = 'PacketId' DataBinding.FieldName = 'PacketId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
end end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -786,6 +816,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -793,6 +824,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #27454#21495 Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo' DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -800,6 +832,7 @@ inherited frmDyeClothInList: TfrmDyeClothInList
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #33521#25991#39068#33394 Caption = #33521#25991#39068#33394
DataBinding.FieldName = 'C_EColor' DataBinding.FieldName = 'C_EColor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66

2
F06染色成品仓库/U_DyeClothInList.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC,
System.StrUtils; System.StrUtils, dxScrollbarAnnotations;
type type
TfrmDyeClothInList = class(TfrmBaseList) TfrmDyeClothInList = class(TfrmBaseList)

38
F06染色成品仓库/U_DyeClothStkList.dfm
View File

@ -7,7 +7,6 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -439
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 639 ExplicitHeight = 639
PixelsPerInch = 96 PixelsPerInch = 96
@ -86,7 +85,6 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
object Label2: TLabel object Label2: TLabel
Left = 70 Left = 70
Top = 36 Top = 36
@ -484,6 +482,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -555,6 +554,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column22: TcxGridDBColumn object v1Column22: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
@ -565,6 +565,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column21: TcxGridDBColumn object v1Column21: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 103 Width = 103
@ -572,6 +573,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column32: TcxGridDBColumn object v1Column32: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'conNO' DataBinding.FieldName = 'conNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
@ -579,6 +581,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 78 Width = 78
@ -586,6 +589,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 74 Width = 74
@ -593,6 +597,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column13: TcxGridDBColumn object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -600,6 +605,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -607,6 +613,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column18: TcxGridDBColumn object v1Column18: TcxGridDBColumn
Caption = #21345#21495 Caption = #21345#21495
DataBinding.FieldName = 'PCId' DataBinding.FieldName = 'PCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -614,6 +621,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column23: TcxGridDBColumn object v1Column23: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -621,6 +629,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Caption = #27611#37325 Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight' DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -628,6 +637,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column27: TcxGridDBColumn object v1Column27: TcxGridDBColumn
Caption = #30382#37325 Caption = #30382#37325
DataBinding.FieldName = 'Tare' DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -635,6 +645,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column28: TcxGridDBColumn object v1Column28: TcxGridDBColumn
Caption = #20928#37325 Caption = #20928#37325
DataBinding.FieldName = 'NetWeight' DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -642,6 +653,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -649,16 +661,19 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
Options.Editing = False Options.Editing = False
end end
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
Options.Editing = False Options.Editing = False
end end
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #24211#20301 Caption = #24211#20301
DataBinding.FieldName = 'IOPosition' DataBinding.FieldName = 'IOPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 71 Width = 71
@ -666,6 +681,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968 Caption = #30721#25968
DataBinding.FieldName = 'Yardage' DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -673,6 +689,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #21697#36136 Caption = #21697#36136
DataBinding.FieldName = 'Grade' DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -680,6 +697,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column42: TcxGridDBColumn object v1Column42: TcxGridDBColumn
Caption = #24635#35760#24405#25968 Caption = #24635#35760#24405#25968
DataBinding.FieldName = 'TotalCount' DataBinding.FieldName = 'TotalCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -687,6 +705,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #21367#26465#30721 Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID' DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -694,6 +713,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #23458#25143#33457#22411 Caption = #23458#25143#33457#22411
DataBinding.FieldName = 'C_CustPattern' DataBinding.FieldName = 'C_CustPattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -701,6 +721,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -708,6 +729,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -715,6 +737,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column34: TcxGridDBColumn object v1Column34: TcxGridDBColumn
Caption = #32568#26465#30721 Caption = #32568#26465#30721
DataBinding.FieldName = 'BCIOID' DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -722,6 +745,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column40: TcxGridDBColumn object v1Column40: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -729,6 +753,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object v1Column46: TcxGridDBColumn object v1Column46: TcxGridDBColumn
Caption = #26816#39564#26426#21488 Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo' DataBinding.FieldName = 'CIMachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -736,6 +761,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #21253#21495 Caption = #21253#21495
DataBinding.FieldName = 'BAONO' DataBinding.FieldName = 'BAONO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -743,12 +769,14 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object VC_BaoID: TcxGridDBColumn object VC_BaoID: TcxGridDBColumn
Caption = #21253#26465#30721 Caption = #21253#26465#30721
DataBinding.FieldName = 'PacketId' DataBinding.FieldName = 'PacketId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
end end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -756,18 +784,21 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object Tv1Column13: TcxGridDBColumn object Tv1Column13: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'custname' DataBinding.FieldName = 'custname'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 69 Width = 69
end end
object Tv1Column14: TcxGridDBColumn object Tv1Column14: TcxGridDBColumn
Caption = #32568#21495 Caption = #32568#21495
DataBinding.FieldName = 'batchno2' DataBinding.FieldName = 'batchno2'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 72 Width = 72
end end
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -775,6 +806,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #23436#25104#24230 Caption = #23436#25104#24230
DataBinding.FieldName = 'ClothDegree' DataBinding.FieldName = 'ClothDegree'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -782,6 +814,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #27454#21495 Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo' DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -789,6 +822,7 @@ inherited frmDyeClothStkList: TfrmDyeClothStkList
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #33521#25991#39068#33394 Caption = #33521#25991#39068#33394
DataBinding.FieldName = 'C_EColor' DataBinding.FieldName = 'C_EColor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66

2
F06染色成品仓库/U_DyeClothStkList.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC,
System.StrUtils; System.StrUtils, dxScrollbarAnnotations;
type type
TfrmDyeClothStkList = class(TfrmBaseList) TfrmDyeClothStkList = class(TfrmBaseList)