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

11

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-08-01 15:42:49 +08:00
parent bc92656d2e
commit 3ecf7f34c7
38 changed files with 10517 additions and 2204 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
A00通用窗体/U_ClothInfoSel.dfm
View File

@ -10,6 +10,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -126
ExplicitWidth = 1501
ExplicitHeight = 650
PixelsPerInch = 96
@ -222,6 +223,8 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Height = 485
Align = alClient
TabOrder = 1
ExplicitLeft = 6
ExplicitTop = 39
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -302,7 +305,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
end
object Tv1Column8: TcxGridDBColumn
Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'C_FromName'
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False

5
A00通用窗体/U_CompanySel.dfm
View File

@ -21,9 +21,11 @@ inherited frmCompanySel: TfrmCompanySel
Height = 476
Align = alClient
TabOrder = 0
ExplicitTop = 88
object TV1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
@ -38,6 +40,7 @@ inherited frmCompanySel: TfrmCompanySel
object TV1Column1: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'CoCode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 151
@ -45,6 +48,7 @@ inherited frmCompanySel: TfrmCompanySel
object TV1Column2: TcxGridDBColumn
Caption = #21517#31216
DataBinding.FieldName = 'CoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 253
@ -52,6 +56,7 @@ inherited frmCompanySel: TfrmCompanySel
object TV1Column3: TcxGridDBColumn
Caption = #31616#31216
DataBinding.FieldName = 'CoAbbrName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 159
end

3
A00通用窗体/U_CompanySel.pas
View File

@ -10,7 +10,8 @@ uses
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput;
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput,
dxScrollbarAnnotations;
type
TfrmCompanySel = class(TfrmBaseHelp)

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

@ -1,52 +1,52 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>2025-06-13 15:31:04.000.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>2025-06-13 15:43:57.000.936,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A02基础产品管理\U_ClothInfoInput.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.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.936,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/>

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

@ -309,8 +309,6 @@ inherited frmClothInfo: TfrmClothInfo
Styles.IncSearch = DataLink_ClothInfo.Red
TabOrder = 0
OnDblClick = cxDBTreeList1DblClick
ExplicitLeft = 6
ExplicitTop = 6
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'CTName'
Width = 210

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

@ -98,8 +98,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitLeft = -32
ExplicitTop = -46
object C_GramWeight: TcxTextEdit
Tag = 2
Left = 435
@ -469,6 +467,8 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 346
Align = alBottom
TabOrder = 24
ExplicitLeft = 0
ExplicitTop = 342
object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

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

@ -1175,6 +1175,7 @@ begin
FieldByName('BCIID').Value := Trim(MaxBCIID);
FieldByName('TechnicsID').Value := Trim(MaxTechnicsID);
FieldByName('C_Code').Value := Trim(C_Code.Text);
RTSetSaveDataCDS(ADOQueryCmd, Tv4, CDS_GY, 'Bs_Cloth_Dye_Technics', 0);
Post;
end;

28
F00染色通用窗体/U_DyeGreyClothStkSel.dfm
View File

@ -3,7 +3,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Top = 131
Align = alClient
Caption = #22383#24067#24211#23384#36873#25321
ClientHeight = 472
ClientHeight = 546
ClientWidth = 1335
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -12,7 +12,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Position = poMainFormCenter
OnClose = FormClose
ExplicitWidth = 1351
ExplicitHeight = 511
ExplicitHeight = 585
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
@ -91,7 +91,6 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitTop = 18
object Label3: TLabel
Left = 334
Top = 10
@ -177,14 +176,13 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Left = 0
Top = 74
Width = 1335
Height = 398
Height = 472
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 54
ExplicitHeight = 418
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
@ -257,6 +255,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object v1Column17: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@ -266,6 +265,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
@ -274,6 +274,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Tag = 2
Caption = #23458#25143#21517#31216
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
@ -289,6 +290,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object v1Column2: TcxGridDBColumn
Caption = #23458#25143#32534#21495
DataBinding.FieldName = 'FromCoNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
@ -297,6 +299,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -311,6 +314,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
@ -319,6 +323,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object v1Column4: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -326,6 +331,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object v1Column5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -333,6 +339,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
@ -340,6 +347,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object v1Column7: TcxGridDBColumn
Caption = #20837#24211#21305#25968
DataBinding.FieldName = 'PS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
@ -347,6 +355,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object v1Column9: TcxGridDBColumn
Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
@ -354,6 +363,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object v1Column1: TcxGridDBColumn
Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'StkPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
@ -362,6 +372,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Tag = 2
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'STKQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -371,6 +382,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
@ -384,6 +396,7 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object Tv1Column8: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -391,18 +404,21 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
object Tv1Column9: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column11: TcxGridDBColumn
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_COLOR'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67

2
F00染色通用窗体/U_DyeGreyClothStkSel.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp,
System.ImageList, Vcl.ImgList;
System.ImageList, Vcl.ImgList, dxScrollbarAnnotations;
type
TfrmDyeGreyClothStkSel = class(TfrmBaseHelp)

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

@ -38,9 +38,9 @@
<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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/>

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

@ -2,7 +2,7 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Left = 67
Top = 126
Caption = #22383#24067#20837#24211#30331#35760
ClientHeight = 495
ClientHeight = 546
ClientWidth = 1340
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -10,8 +10,9 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -489
ExplicitWidth = 1356
ExplicitHeight = 534
ExplicitHeight = 585
PixelsPerInch = 96
TextHeight = 12
object cxGrid2: TcxGrid [0]
@ -19,9 +20,10 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Left = 0
Top = 38
Width = 1340
Height = 457
Height = 508
Align = alClient
TabOrder = 0
ExplicitTop = 44
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -36,7 +38,6 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
end
item
Kind = skSum
Column = v2Column6
end
item
Kind = skSum
@ -53,6 +54,13 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Styles.Header = DataLink_DyeGreyClothStk.Default
Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe
Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe
object Tv1Column12: TcxGridDBColumn
Caption = #26469#36135#21333#21495
DataBinding.FieldName = 'lzckordno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BCIOID'
@ -61,19 +69,17 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Options.Editing = False
Width = 83
end
object v1Column2: TcxGridDBColumn
object Tv1ioTime: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.FieldName = 'ioTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Width = 100
Width = 80
end
object v1Column4: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
Caption = #21152#24037#31867#22411
DataBinding.FieldName = 'ioType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
@ -88,40 +94,9 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter
Width = 87
end
object v1FactoryName: TcxGridDBColumn
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = v1Column14PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 93
end
object Tv1Column1: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 81
end
object v1YWY: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
Caption = #36319#21333#21592
DataBinding.FieldName = 'follower'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
@ -132,70 +107,68 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter
Width = 67
end
object Tv1Column6: TcxGridDBColumn
Caption = #22411#21495
DataBinding.FieldName = 'C_XINHAO'
object Tv1OrderNo: TcxGridDBColumn
Caption = #29983#20135#35746#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
Width = 80
end
object Tv1Column4: TcxGridDBColumn
Caption = #24067#31181#32534#21495
Caption = #25104#21697#32534#21495
DataBinding.FieldName = 'C_COde'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column4PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 72
end
object v1SPName: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v2Column1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 101
end
object v1SPSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column8PropertiesButtonClick
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 112
end
object v1SPMF: TcxGridDBColumn
Caption = #38376#24133
Caption = #25104#21697#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object v1Column8: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
object Tv1Column3: TcxGridDBColumn
Caption = #21518#25972#29702#25551#36848
DataBinding.FieldName = 'finishDescription'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 73
Width = 90
end
object v1Column1: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
object Tv1Column2: TcxGridDBColumn
Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 92
Width = 80
end
object Tv1Column1: TcxGridDBColumn
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'F_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column6: TcxGridDBColumn
Caption = #26448#36136
DataBinding.FieldName = 'Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column9: TcxGridDBColumn
Caption = #21305#25968
@ -206,36 +179,12 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter
Width = 58
end
object Tv1Column8: TcxGridDBColumn
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
object Tv1Column5: TcxGridDBColumn
Caption = #35201#27714#20132#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 66
end
object v2Column6: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 81
end
object v1QtyUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
'M'
'Y'
'Kg')
HeaderAlignmentHorz = taCenter
Width = 64
Width = 80
end
object v1Column5: TcxGridDBColumn
Caption = #24211#20301
@ -252,45 +201,19 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1Column7: TcxGridDBColumn
Caption = #36710#38388
DataBinding.FieldName = 'Workshop'
object Tv1Column8: TcxGridDBColumn
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#19968#36710#38388
#20108#36710#38388)
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column8PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column7: TcxGridDBColumn
Caption = #24037#33402
DataBinding.FieldName = 'C_GONGYI'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Caption = #26426#21488
DataBinding.FieldName = 'C_JITAI'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column10: TcxGridDBColumn
Caption = #35013#26694
DataBinding.FieldName = 'C_ZHUANGKUANG'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column11: TcxGridDBColumn
Caption = #21152#24613
DataBinding.FieldName = 'C_JIAJI'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
Width = 80
end
object v1Column12: TcxGridDBColumn
Caption = #22791#27880
@ -299,24 +222,35 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth'
object Tv1C_Name: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 66
Width = 80
end
object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
object Tv1StkCoName: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 68
Width = 80
end
object Tv1Column12: TcxGridDBColumn
Caption = #26469#33258#20986#24211#21333
DataBinding.FieldName = 'lzckordno'
object Tv1StkCoNo: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1QtyUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end

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

@ -17,9 +17,6 @@ type
TfrmDyeGreyClothInEdit = class(TfrmBaseInput)
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column2: TcxGridDBColumn;
v1SPName: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
ToolBar1: TToolBar;
TBAdd: TToolButton;
@ -34,28 +31,13 @@ type
ADOQueryTemp: TADOQuery;
cxGridPopupMenu2: TcxGridPopupMenu;
v1Column12: TcxGridDBColumn;
v1FactoryName: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1SPSpec: TcxGridDBColumn;
v1QtyUnit: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1SPMF: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1YWY: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
ToolButton1: TToolButton;
Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
Tv1Column12: TcxGridDBColumn;
@ -63,6 +45,19 @@ type
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1ioTime: TcxGridDBColumn;
Tv1C_Name: TcxGridDBColumn;
Tv1StkCoName: TcxGridDBColumn;
Tv1StkCoNo: TcxGridDBColumn;
Tv1QtyUnit: TcxGridDBColumn;
Tv1OrderNo: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -82,6 +77,8 @@ type
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
{ Private declarations }
function SaveCKData(): Boolean;
@ -98,7 +95,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_DyePlanCardSel, U_CompanySel,
U_GreyClothStkSel, U_GreyClothHXSel, U_GreyClothDYSel, U_GreyClothDJHXSel,
U_GreyClothHXDJSel;
U_GreyClothHXDJSel, U_ClothInfoSel;
{$R *.dfm}
@ -192,7 +189,7 @@ begin
FieldByName('FromCoNo').Value := CDS_Sub.fieldbyname('FromCoNo').Value;
FieldByName('StkCoNo').Value := CDS_Sub.fieldbyname('StkCoNo').Value;
FieldByName('LZORDERNO').Value := CDS_Sub.fieldbyname('LZORDERNO').Value;
// FieldByName('LZORDERNO').Value := CDS_Sub.fieldbyname('LZORDERNO').Value;
FieldByName('LZSUBID').Value := CDS_Sub.fieldbyname('LZSUBID').Value;
FieldByName('BCIOID').Value := Trim(Maxno);
FieldByName('STKID').Value := Trim(Maxno);
@ -244,7 +241,6 @@ end;
procedure TfrmDyeGreyClothInEdit.TBCloseClick(Sender: TObject);
begin
Close;
end;
@ -253,7 +249,7 @@ var
fsj: string;
begin
inherited;
ReadCxGrid(FSTKName + '机物料入库登记ZP', Tv1, '机物料仓库');
ReadCxGrid(FSTKName + '坯布入库登记', Tv1, '机物料仓库');
with ADOQueryTemp do
begin
Close;
@ -317,30 +313,30 @@ begin
end;
if CDS_Sub.Locate('IOType', null, []) = True then
begin
Application.MessageBox('入库类型不能为空!', '提示', 0);
Exit;
end;
if CDS_Sub.Locate('C_XINHAO', null, []) = True then
begin
Application.MessageBox('型号不能为空!', '提示', 0);
Application.MessageBox('加工类型不能为空!', '提示', 0);
Exit;
end;
// if CDS_Sub.Locate('C_XINHAO', null, []) = True then
// begin
// Application.MessageBox('型号不能为空!', '提示', 0);
// Exit;
// end;
if CDS_Sub.Locate('Piece', null, []) = True then
begin
Application.MessageBox('匹数不能为空!', '提示', 0);
Exit;
end;
{if CDS_Sub.Locate('Qty',null,[])=True then
if CDS_Sub.Locate('Qty', null, []) = True then
begin
Application.MessageBox('数量不能为空!','提示',0);
Exit;
end; }
if CDS_Sub.Locate('QtyUnit', null, []) = True then
begin
Application.MessageBox('数量单位不能为空!', '提示', 0);
Application.MessageBox('数量不能为空!', '提示', 0);
Exit;
end;
// if CDS_Sub.Locate('QtyUnit', null, []) = True then
// begin
// Application.MessageBox('数量单位不能为空!', '提示', 0);
// Exit;
// end;
{if CDS_Sub.Locate('CRType;LCKNO', VarArrayOf(['回仓', Null]), [loPartialKey]) then
begin
Application.MessageBox('回仓的数据流程卡号不能为空!','提示',0);
@ -357,7 +353,7 @@ end;
procedure TfrmDyeGreyClothInEdit.ToolButton1Click(Sender: TObject);
begin
inherited;
WriteCxGrid(FSTKName + '机物料入库登记ZP', Tv1, '机物料仓库');
WriteCxGrid(FSTKName + '坯布入库登记', Tv1, '机物料仓库');
end;
procedure TfrmDyeGreyClothInEdit.ToolButton2Click(Sender: TObject);
@ -675,6 +671,56 @@ begin
end;
procedure TfrmDyeGreyClothInEdit.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
inherited;
try
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do
begin
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('C_COde').Value := Trim(CDS_1.fieldbyname('C_COde').AsString);
FieldByName('C_Name').Value := Trim(CDS_1.fieldbyname('C_Name').AsString);
FieldByName('C_Width').Value := Trim(CDS_1.fieldbyname('C_Width').AsString);
// FieldByName('F_Code').Value := Trim(CDS_1.fieldbyname('F_Code').AsString);
FieldByName('F_Width').Value := Trim(CDS_1.fieldbyname('F_Width').AsString);
FieldByName('Material').Value := Trim(CDS_1.fieldbyname('Material').AsString);
FieldByName('finishDescription').Value := Trim(CDS_1.fieldbyname('FinishingStandards').AsString);
end;
end;
end;
finally
frmClothInfoSel.Free;
end;
end;
procedure TfrmDyeGreyClothInEdit.Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
inherited;
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('FromCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
FieldByName('FromCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmDyeGreyClothInEdit.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin

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

@ -2,12 +2,11 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
Left = 105
Top = 131
Caption = #24211#23384#36873#25321#21015#34920
ClientHeight = 472
ClientHeight = 567
ClientWidth = 1400
Position = poDefault
ExplicitLeft = -114
ExplicitWidth = 1416
ExplicitHeight = 511
ExplicitHeight = 606
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
@ -194,12 +193,14 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
Left = 0
Top = 74
Width = 1400
Height = 398
Height = 493
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitHeight = 398
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -274,6 +275,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
@ -282,6 +284,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
@ -298,6 +301,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -312,6 +316,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
@ -320,6 +325,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object v1Column4: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -327,6 +333,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object v1Column5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -334,24 +341,28 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object Tv1Column4: TcxGridDBColumn
Caption = #24037#33402
DataBinding.FieldName = 'C_GONGYI'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object Tv1Column5: TcxGridDBColumn
Caption = #22411#21495
DataBinding.FieldName = 'C_XINHAO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column6: TcxGridDBColumn
Caption = #26426#21488
DataBinding.FieldName = 'C_JITAI'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
@ -359,30 +370,35 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object v1Column11: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 68
end
object v1Column12: TcxGridDBColumn
Caption = #32852#31995#26041#24335
DataBinding.FieldName = 'SalesPhone'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 73
end
object v1Column7: TcxGridDBColumn
Caption = #20837#24211#21305#25968
DataBinding.FieldName = 'piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 62
end
object v1Column9: TcxGridDBColumn
Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 63
end
object v1Column1: TcxGridDBColumn
Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'stkpiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
@ -391,6 +407,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
Tag = 2
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'stkqty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -400,6 +417,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
@ -413,6 +431,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
@ -420,6 +439,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object Tv1Column1: TcxGridDBColumn
Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
@ -427,6 +447,7 @@ inherited frmDyeGreyClothStkList: TfrmDyeGreyClothStkList
object Tv1Column3: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item

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

@ -12,7 +12,8 @@ uses
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;
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations;
type
TfrmDyeGreyClothStkList = class(TfrmBaseList)

3
F02染色计划单/DyePlan.dpr
View File

@ -38,7 +38,8 @@ uses
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_DyeProcessDefin in 'U_DyeProcessDefin.pas' {frmDyeProcessDefin},
U_ProductInfoSel in '..\A00通用窗体\U_ProductInfoSel.pas' {frmProductInfoSel};
U_ProductInfoSel in '..\A00通用窗体\U_ProductInfoSel.pas' {frmProductInfoSel},
U_CraftSel in 'U_CraftSel.pas' {frmCraftSel};
{$R *.res}

4
F02染色计划单/DyePlan.dproj
View File

@ -191,6 +191,10 @@
<Form>frmProductInfoSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_CraftSel.pas">
<Form>frmCraftSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

117
F02染色计划单/DyePlan.dproj.local
View File

@ -1,63 +1,64 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.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.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.875,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.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.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.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.188,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.037,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_Cust_Cloth_PSC.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.362,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.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.577,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.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.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.819,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.pas</Transaction>
<Transaction>2025-07-02 16:47:08.000.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.pas</Transaction>
<Transaction>2025-07-03 16:45:14.000.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.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.734,=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.188,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.037,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_Cust_Cloth_PSC.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.362,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.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.577,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.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.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.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.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.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.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.819,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeInspSet.pas</Transaction>
<Transaction>2025/07/31 09:26:29.000.383,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_CraftSel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/>
@ -125,5 +126,7 @@
<File Path="U_DyeTechnicsinput.dfm"/>
<File Path="U_DyeProcessDefin.pas"/>
<File Path="U_DyeProcessDefin.dfm"/>
<File Path="U_CraftSel.pas"/>
<File Path="U_CraftSel.dfm"/>
</ProjectSortOrder>
</BorlandProject>

BIN
F02染色计划单/DyePlan.identcache
View File

Binary file not shown.

4589
F02染色计划单/U_CraftSel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

177
F02染色计划单/U_CraftSel.pas Normal file
View File

@ -0,0 +1,177 @@
unit U_CraftSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput,
dxScrollbarAnnotations, cxDropDownEdit, cxCheckBox, cxCheckComboBox,
cxCheckGroup;
type
TfrmCraftSel = class(TfrmBaseHelp)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
TBSaveFormat: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
DTMNo: TEdit;
GPM_1: TcxGridPopupMenu;
ImageList1: TImageList;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
TV1SSel: TcxGridDBColumn;
Label2: TLabel;
DTMName: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TBSaveFormatClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure DTMNoChange(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FCoType, FAuthority, FBCIID,fcode: string;
{ Public declarations }
end;
var
frmCraftSel: TfrmCraftSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmCraftSel.FormCreate(Sender: TObject);
begin
inherited;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmCraftSel.DTMNoChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end;
procedure TfrmCraftSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cahide;
end;
procedure TfrmCraftSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select A.* from Bs_Cloth_Dye_Technics A where C_Code = ' + QuotedStr(Trim(fCode)));
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmCraftSel.FormShow(Sender: TObject);
begin
inherited;
InitGrid();
ReadCxGrid(self.Caption + 'TV1', TV1, '工艺信息选择');
end;
procedure TfrmCraftSel.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmCraftSel.TBSaveFormatClick(Sender: TObject);
begin
WriteCxGrid(self.Caption + 'TV1', TV1, '工艺信息选择');
end;
procedure TfrmCraftSel.ToolButton1Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
ModalResult := 1;
end;
procedure TfrmCraftSel.FormDestroy(Sender: TObject);
begin
inherited;
frmCraftSel := nil;
end;
end.

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

@ -222,9 +222,9 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
end
object pnlOrder: TPanel
Left = 0
Top = 235
Top = 208
Width = 1444
Height = 36
Height = 63
Align = alBottom
BevelInner = bvRaised
BevelOuter = bvLowered
@ -301,7 +301,46 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Top = 11
Width = 52
Height = 12
Caption = #35746#21333#25968#37327
Caption = #35745#21010#31859#25968
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 1068
Top = 10
Width = 52
Height = 12
Caption = #35745#21010#21305#25968
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 249
Top = 42
Width = 52
Height = 12
Caption = #20135#21697#24037#24207
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 43
Top = 41
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -12
@ -312,7 +351,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
object OrderNo: TBtnEditA
Tag = 2
Left = 101
Top = 7
Top = 6
Width = 120
Height = 20
Font.Charset = GB2312_CHARSET
@ -328,7 +367,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
object C_Width: TEdit
Tag = 2
Left = 281
Top = 7
Top = 6
Width = 100
Height = 20
Font.Charset = GB2312_CHARSET
@ -412,12 +451,56 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
ParentFont = False
TabOrder = 6
end
object OrdPiece: TEdit
Tag = 2
Left = 1122
Top = 6
Width = 81
Height = 20
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
end
object DTMPSlist: TBtnEditA
Left = 307
Top = 37
Width = 400
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 8
OnBtnClick = DTMPSlistBtnClick
end
object C_Name: TEdit
Tag = 2
Left = 101
Top = 37
Width = 120
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 9
end
end
object cxGrid2: TcxGrid
Left = 0
Top = 0
Width = 1444
Height = 235
Height = 208
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -1227,7 +1310,14 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.FieldName = 'PCPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 62
Width = 63
end
object V1Column3: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'PCQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object TV1Column18: TcxGridDBColumn
Tag = 7
@ -1237,13 +1327,6 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object V1Column3: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'PCQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object TV1Column19: TcxGridDBColumn
Tag = 7
Caption = #19994#21153#21592
@ -1318,7 +1401,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_DyePlan.FontBlue
Styles.Header = DataLink_DyePlan.FontBlue
Width = 347
Width = 188
end
object TV1Column12: TcxGridDBColumn
Tag = 7

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

@ -164,6 +164,12 @@ type
TV3Column9: TcxGridDBColumn;
TV1Column20: TcxGridDBColumn;
TV1Column21: TcxGridDBColumn;
Label2: TLabel;
OrdPiece: TEdit;
Label3: TLabel;
DTMPSlist: TBtnEditA;
Label5: TLabel;
C_Name: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -184,8 +190,9 @@ type
procedure OrderNoBtnClick(Sender: TObject);
procedure C_ColorChange(Sender: TObject);
procedure TV3Column1PropertiesEditValueChanged(Sender: TObject);
procedure DTMPSlistBtnClick(Sender: TObject);
private
FMainID: string;
FMainID, FC_Code: string;
FRollNum: integer;
FGC_BatchNo, FGC_Piece, FGC_STKID, FGC_Position: string;
FFromCoNo, FFromCoName, FSaleser, FC_Name, fbzunit: string;
@ -210,7 +217,8 @@ implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_DyePlanForCardSel, U_DyeProcessSel,
U_DyeTechnicsSel, U_DyePlanCardSel, U_DyeGreyClothStkSel, U_DyeCardGlideEdit;
U_DyeTechnicsSel, U_DyePlanCardSel, U_DyeGreyClothStkSel, U_DyeCardGlideEdit,
U_CraftSel;
{$R *.dfm}
function TfrmDyePlanCardInput.GetCard(): Boolean;
@ -260,9 +268,11 @@ begin
close;
sql.Clear;
sql.Add('select A.*,B.*');
sql.Add('from Dye_Plan_sub A ');
sql.Add('inner join Dye_Plan_Main B on B.MainID=A.mainID ');
sql.Add('from Dye_Plan_Main A ');
sql.Add('inner join Dye_Plan_Sub B on A.MainID=B.mainID ');
sql.Add('where A.MainID=''' + trim(FMainID) + ''' ');
// ShowMessage(sql.Text);
open;
end;
SCreateCDS(Ado_Order, CDS_Color);
@ -273,6 +283,7 @@ begin
fsj := 'select distinct(C_Color) name from Dye_Plan_sub where mainid= ' + QuotedStr(Trim(FMainID));
SInitComBoxBySql(ADOQueryTmp, C_COLOR, False, fsj);
SCSHData(Ado_Order, pnlOrder, 2);
FC_Name := Trim(Ado_Order.FieldByName('C_Name').AsString);
FFromCoNo := Trim(Ado_Order.FieldByName('CustNo').AsString);
FFromCoName := Trim(Ado_Order.FieldByName('CustName').AsString);
@ -370,14 +381,14 @@ begin
if ShowModal = 1 then
begin
fmainID := Order_Main.fieldbyname('mainID').asstring;
fC_Code := Order_Main.fieldbyname('C_Code').asstring;
InitOrder();
InitGreyClothStk();
// InitCard();
InitCard();
// initGlide();
end;
free;
end;
end;
procedure TfrmDyePlanCardInput.PCIDKeyPress(Sender: TObject; var Key: Char);
@ -399,10 +410,11 @@ begin
begin
close;
sql.Clear;
sql.Add('select A.*');
sql.Add('select A.* ');
sql.Add(',GlideList=[dbo].[F_Dye_Card_GlideList](A.PCID) ');
sql.Add('from Dye_Plan_Card A ');
sql.Add('where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](' + Quotedstr(trim(FPCIDS)) + ', '';'' ) X where X.RTValue=A.PCID ) ');
// ShowMessage(sql.Text);
open;
end;
SCreateCDS(Ado_car, CDS_1);
@ -416,6 +428,31 @@ begin
frmDyePlanCardInput := nil;
end;
procedure TfrmDyePlanCardInput.DTMPSlistBtnClick(Sender: TObject);
begin
try
if OrderNo.Text = '' then
begin
Application.MessageBox('请先选择计划单','提示信息',MB_OK);
exit;
end;
frmCraftSel := TfrmCraftSel.Create(Application);
with frmCraftSel do
begin
fcode := Self.FC_Code;
if ShowModal = 1 then
begin
with frmCraftSel.CDS_1 do
begin
Self.DTMPSlist.Text := frmCraftSel.CDS_1.FieldByName('DTMPSlist').Value;
end;
end;
end;
finally
frmCraftSel.Free;
end;
end;
procedure TfrmDyePlanCardInput.Button1Click(Sender: TObject);
var
maxId: string;
@ -526,7 +563,12 @@ begin
// end;
if (StrToFloatDef(PCPiece.Text, 0) + StrToFloatDef(PCQty.Text, 0)) = 0 then
begin
application.MessageBox('开卡匹数、数量不能都为零！', '提示信息', MB_ICONERROR);
application.MessageBox('开卡匹数、数量不能都为零！', '提示信息', MB_OK);
exit;
end;
if DTMPSlist.Text = '' then
begin
application.MessageBox('产品工序不能为空！', '提示信息', MB_OK);
exit;
end;
@ -573,6 +615,7 @@ begin
FieldByName('CustName').Value := trim(FFromCoName);
FieldByName('Saleser').Value := trim(FSaleser);
FieldByName('C_Name').Value := trim(FC_Name);
FieldByName('C_Code').Value := trim(FC_Code);
FieldByName('C_GramWeight').Value := trim(C_GramWeight.Text);
FieldByName('C_Width').Value := trim(C_Width.Text);
FieldByName('C_Color').Value := trim(C_Color.Text);
@ -608,9 +651,8 @@ begin
Sql.Clear;
Sql.Add('exec P_Dye_Cloth_GX @carno=' + QuotedStr(trim(maxId)));
sql.add(',@dname=' + QuotedStr(trim(dname)));
SQL.Add(',@C_code=' + QuotedStr(Trim(fC_Code)));
execsql;
end;
// with ADOQueryCmd do
// begin
@ -779,6 +821,7 @@ begin
inherited;
ReadCxGrid(self.Caption + 'TV1', Tv1, '生产指示单管理');
ReadCxGrid(self.Caption + 'TV2', Tv2, '生产指示单管理');
InitOrder();
InitCard();
InitGreyClothStk();
InitRepairCard('');

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

@ -386,6 +386,7 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 125
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -823,7 +824,7 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
end
object ThreeColorBase: TcxStyleRepository
Left = 339
Top = 344
Top = 350
PixelsPerInch = 96
object SHuangSe: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]

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

@ -180,8 +180,8 @@ begin
Open;
end;
ExportFtErpFile('ȾɫÁ÷³Ì¿¨.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ȾɫÁ÷³Ì¿¨.rmf';
ExportFtErpFile('Á÷³Ì¿¨.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\Á÷³Ì¿¨.rmf';
if FileExists(fPrintFile) then
begin
@ -567,7 +567,7 @@ end;
procedure TfrmDyePlanCardList.tbeditClick(Sender: TObject);
var
MPCIDS: string;
MPCIDS : string;
begin
with CDS_1 do

19
F02染色计划单/U_DyePlanForCardSel.dfm
View File

@ -167,6 +167,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
@ -187,6 +188,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
object v1Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@ -196,6 +198,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
object OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DyePlan.Default
@ -204,6 +207,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
object C_CodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DyePlan.Default
@ -212,6 +216,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
object CustNoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -219,6 +224,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
object C_Width: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DyePlan.Default
@ -227,6 +233,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
object C_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 72
@ -234,6 +241,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
object C_COLOR: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_COLOR'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DyePlan.Default
@ -242,6 +250,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
object C_COLORNO: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_COLORNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
@ -249,6 +258,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
object v1Column3: TcxGridDBColumn
Caption = #20844#26020#25968
DataBinding.FieldName = 'PRTOrderKgQty'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -257,12 +267,14 @@ object frmProductOrderListSel: TfrmProductOrderListSel
object C_Pattern: TcxGridDBColumn
Caption = #33457#22411#21495
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object AnticipateQTY: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'AntcpQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DyePlan.Default
@ -271,6 +283,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
object OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'AntcpUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
@ -278,24 +291,28 @@ object frmProductOrderListSel: TfrmProductOrderListSel
object Tv1Column11: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'GC_Position'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column13: TcxGridDBColumn
Caption = #24037#33402#31867#22411
DataBinding.FieldName = 'processtype'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column14: TcxGridDBColumn
Caption = #30333#22383#25209#21495
DataBinding.FieldName = 'Clothnumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
@ -306,12 +323,14 @@ object frmProductOrderListSel: TfrmProductOrderListSel
object Tv1Column15: TcxGridDBColumn
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column16: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'ORDNOTE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end

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

@ -11,7 +11,7 @@ uses
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxPC, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges;
dxSkinsDefaultPainters, dxDateRanges, dxScrollbarAnnotations;
type
TfrmProductOrderListSel = class(TForm)

572
F02染色计划单/U_DyePlanInPut.dfm
View File

@ -70,7 +70,7 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Left = 0
Top = 38
Width = 1376
Height = 315
Height = 283
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
@ -81,10 +81,10 @@ object frmDyePlanInPut: TfrmDyePlanInPut
TabOrder = 1
object Label1: TLabel
Left = 31
Top = 15
Width = 65
Top = 69
Width = 78
Height = 12
Caption = #35745#21010#21333#21495#65306
Caption = #23458#25143#35746#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
@ -92,38 +92,12 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 641
Top = 41
Width = 66
Height = 12
Caption = #21512' '#21516' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 642
Top = 15
object Label14: TLabel
Left = 31
Top = 38
Width = 65
Height = 12
Caption = #21046#21333#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 57
Top = 41
Width = 39
Height = 12
Caption = #23458#25143#65306
Caption = #23458#25143#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
@ -132,8 +106,8 @@ object frmDyePlanInPut: TfrmDyePlanInPut
ParentFont = False
end
object Label12: TLabel
Left = 233
Top = 67
Left = 461
Top = 101
Width = 65
Height = 12
Caption = #25104#21697#38376#24133#65306
@ -144,25 +118,12 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 435
Top = 67
Width = 65
Height = 12
Caption = #25104#21697#20811#37325#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 31
Top = 67
Top = 101
Width = 65
Height = 12
Caption = #20135#21697#21517#31216#65306
Caption = #29289#26009#20195#30721#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
@ -170,38 +131,12 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 31
Top = 212
Width = 65
Height = 12
Caption = #23450#22411#35201#27714#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label25: TLabel
Left = 435
Top = 41
Width = 65
Height = 12
Caption = #20132#36135#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label42: TLabel
Left = 31
Top = 156
Top = 172
Width = 65
Height = 12
Caption = #21518#25972#35201#27714#65306
Caption = #21518#25972#25551#36848#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -210,8 +145,8 @@ object frmDyePlanInPut: TfrmDyePlanInPut
ParentFont = False
end
object Label43: TLabel
Left = 246
Top = 41
Left = 461
Top = 38
Width = 52
Height = 12
Caption = #19994#21153#21592#65306
@ -224,7 +159,7 @@ object frmDyePlanInPut: TfrmDyePlanInPut
end
object Label23: TLabel
Left = 31
Top = 268
Top = 247
Width = 65
Height = 12
Caption = #20854#20182#35201#27714#65306
@ -235,343 +170,330 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 233
Top = 15
Width = 65
Height = 12
Caption = #29983#20135#31867#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 435
Top = 15
Width = 65
Height = 12
Caption = #29983#20135#36710#38388#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label21: TLabel
Left = 233
Top = 92
Width = 65
Height = 12
Caption = #22383#24067#25209#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label27: TLabel
Left = 31
Top = 92
Width = 65
Height = 12
Caption = #22383#24067#26126#32454#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label66: TLabel
Left = 668
Top = 92
Width = 39
Height = 12
Caption = #24211#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label67: TLabel
Left = 259
Top = 116
Width = 39
Height = 12
Caption = #21305#37325#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 668
Top = 67
Width = 39
Left = 239
Top = 38
Width = 65
Height = 12
Caption = #35268#26684#65306
Caption = #23458#25143#32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 654
Top = 116
Width = 53
Left = 657
Top = 38
Width = 52
Height = 12
Caption = #24211#23384'ID'#65306
Caption = #36319#21333#21592#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 239
Top = 69
Width = 39
Height = 12
Caption = #21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 461
Top = 69
Width = 39
Height = 12
Caption = #23450#38271#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 239
Top = 101
Width = 91
Height = 12
Caption = #23458#25143#29289#26009#20195#30721#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 657
Top = 69
Width = 65
Height = 12
Caption = #21046#21333#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 657
Top = 101
Width = 65
Height = 12
Caption = #20132#36135#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 865
Top = 38
Width = 65
Height = 12
Caption = #25104#21697#21697#21517#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label8: TLabel
Left = 44
Top = 116
object Label10: TLabel
Left = 865
Top = 68
Width = 53
Height = 12
Caption = #24211#23384'ID'#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label13: TLabel
Left = 865
Top = 99
Width = 52
Height = 12
Caption = #24635#21305#25968#65306
Caption = #36319#21333#21592#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label15: TLabel
Left = 31
Top = 127
Width = 65
Height = 12
Caption = #35745#21010#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrderNo: TEdit
object CustOrderNo: TEdit
Tag = 2
Left = 93
Top = 12
Left = 103
Top = 65
Width = 120
Height = 18
TabOrder = 0
end
object ConNo: TEdit
Tag = 2
Left = 702
Top = 38
Width = 120
Height = 18
TabOrder = 1
end
object OrdDate: TDateTimePicker
Tag = 2
Left = 702
Top = 11
Width = 120
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
TabOrder = 2
end
object CustName: TBtnEditC
Tag = 2
Left = 93
Top = 37
Left = 103
Top = 34
Width = 120
Height = 20
ReadOnly = True
TabOrder = 3
TabOrder = 1
OnBtnUpClick = CustNameBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
object C_Width: TBtnEditC
Tag = 2
Left = 295
Top = 63
Left = 523
Top = 95
Width = 120
Height = 20
Hint = 'MPRTMF/'#38376#24133
TabOrder = 4
TabOrder = 2
OnBtnDnClick = CustNameBtnDnClick
end
object C_GramWeight: TBtnEditC
object C_Code: TBtnEditC
Tag = 2
Left = 496
Top = 63
Width = 120
Height = 20
Hint = 'MPRTKZ/'#20811#37325
TabOrder = 5
OnBtnDnClick = CustNameBtnDnClick
end
object C_Name: TBtnEditC
Tag = 2
Left = 93
Top = 63
Left = 103
Top = 95
Width = 120
Height = 20
Hint = 'C_Name/'#21697#21517
TabOrder = 6
OnBtnUpClick = C_NameBtnUpClick
TabOrder = 3
OnBtnUpClick = C_CodeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
object DLYDate: TDateTimePicker
Tag = 2
Left = 496
Top = 37
Width = 120
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
ShowCheckbox = True
TabOrder = 7
end
object Saleser: TBtnEditC
Tag = 2
Left = 295
Top = 37
Left = 523
Top = 34
Width = 120
Height = 20
Hint = 'Saleser'
Enabled = False
TabOrder = 8
TabOrder = 4
OnBtnDnClick = CustNameBtnDnClick
end
object Need_Packing: TMemo
Tag = 2
Left = 93
Top = 193
Width = 728
Height = 50
Hint = 'MPRTBZNote/'#21253#35013#35201#27714
ScrollBars = ssVertical
TabOrder = 9
OnDblClick = Need_ProductionDblClick
end
object Need_Production: TMemo
Tag = 2
Left = 93
Top = 137
Top = 157
Width = 728
Height = 50
Hint = 'MPRTSCTeBieNote/'#29983#20135#29305#21035#25552#31034
ScrollBars = ssVertical
TabOrder = 10
TabOrder = 5
OnDblClick = Need_ProductionDblClick
end
object Need_Other: TMemo
Tag = 2
Left = 93
Top = 249
Top = 228
Width = 728
Height = 50
ScrollBars = ssVertical
TabOrder = 11
TabOrder = 6
end
object Workshop: TEdit
object CustNo: TEdit
Tag = 2
Left = 496
Top = 12
Left = 325
Top = 34
Width = 120
Height = 18
Enabled = False
TabOrder = 12
Visible = False
TabOrder = 7
end
object OrdType: TComboBox
object follower: TEdit
Tag = 2
Left = 295
Top = 11
Left = 719
Top = 34
Width = 120
Height = 20
Style = csDropDownList
ItemIndex = 0
TabOrder = 13
Text = #27491#24120#21333
Items.Strings = (
#27491#24120#21333
#22238#20462#21333)
Height = 18
TabOrder = 8
end
object GC_Piece: TBtnEditC
object djUnit: TComboBox
Tag = 2
Left = 93
Top = 88
Left = 325
Top = 63
Width = 121
Height = 20
TabOrder = 14
OnBtnUpClick = GC_PieceBtnUpClick
ItemIndex = 1
TabOrder = 9
Text = 'M'
Items.Strings = (
''
'M')
end
object GC_BatchNo: TEdit
object DingChang: TEdit
Tag = 2
Left = 295
Top = 89
Width = 317
Height = 18
TabOrder = 15
OnMouseMove = GC_BatchNoMouseMove
end
object GC_Position: TEdit
Tag = 2
Left = 702
Top = 89
Left = 523
Top = 65
Width = 120
Height = 18
ReadOnly = True
TabOrder = 16
TabOrder = 10
end
object GC_PieceWeight: TEdit
object cusC_Code: TEdit
Tag = 2
Left = 295
Top = 113
Left = 325
Top = 95
Width = 120
Height = 18
TabOrder = 17
TabOrder = 11
end
object C_Spec: TBtnEditC
object OrdDate: TDateTimePicker
Tag = 2
Left = 702
Left = 719
Top = 63
Width = 120
Height = 20
Hint = 'C_Spec/'#35268#26684
TabOrder = 18
OnBtnDnClick = CustNameBtnDnClick
Date = 45863.000000000000000000
Time = 0.802643206021457400
TabOrder = 12
end
object DlyDate: TDateTimePicker
Tag = 2
Left = 719
Top = 95
Width = 120
Height = 20
Date = 45863.000000000000000000
Time = 0.802855150461255100
TabOrder = 13
end
object C_Name: TEdit
Tag = 2
Left = 927
Top = 34
Width = 120
Height = 18
TabOrder = 14
Visible = False
end
object GC_STKID: TEdit
Tag = 2
Left = 702
Top = 113
Left = 927
Top = 64
Width = 120
Height = 18
ReadOnly = True
TabOrder = 19
TabOrder = 15
Visible = False
end
object GC_TotalPiece: TEdit
Tag = 2
Left = 93
Top = 113
object Edit3: TEdit
Left = 927
Top = 95
Width = 120
Height = 18
TabOrder = 20
TabOrder = 16
Visible = False
end
object OrderNo: TEdit
Tag = 2
Left = 103
Top = 123
Width = 120
Height = 18
Enabled = False
TabOrder = 17
Text = #33258#21160#29983#25104
end
end
object cxPageControl1: TcxPageControl
Left = 0
Top = 391
Top = 359
Width = 1376
Height = 406
Height = 438
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -582,14 +504,14 @@ object frmDyePlanInPut: TfrmDyePlanInPut
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
ClientRectBottom = 406
ClientRectBottom = 438
ClientRectRight = 1376
ClientRectTop = 0
end
object ToolBar2: TToolBar
Tag = 1
Left = 0
Top = 353
Top = 321
Width = 1376
Height = 38
AutoSize = True
@ -617,6 +539,7 @@ object frmDyePlanInPut: TfrmDyePlanInPut
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
Visible = False
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
@ -625,6 +548,7 @@ object frmDyePlanInPut: TfrmDyePlanInPut
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
Visible = False
OnClick = ToolButton2Click
end
object ToolButton3: TToolButton
@ -632,14 +556,15 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Top = 0
Caption = #19968#38190#26367#25442
ImageIndex = 13
Visible = False
OnClick = ToolButton3Click
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 391
Top = 359
Width = 1376
Height = 406
Height = 438
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -648,7 +573,6 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Font.Style = []
ParentFont = False
TabOrder = 4
ExplicitTop = 397
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -702,6 +626,7 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
@ -710,6 +635,7 @@ object frmDyePlanInPut: TfrmDyePlanInPut
DataBinding.FieldName = 'C_Colorno'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_DyePlan.Default
Width = 89
@ -726,20 +652,28 @@ object frmDyePlanInPut: TfrmDyePlanInPut
end>
Properties.ReadOnly = False
Properties.OnButtonClick = v1PRTColorPropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_DyePlan.handBlack
Width = 102
end
object Tv1OrdPiece: TcxGridDBColumn
Caption = #35745#21010#21305#25968
DataBinding.FieldName = 'OrdPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object v1PRTORDQTY: TcxGridDBColumn
Caption = #35746#36135#37327
Caption = #35745#21010#31859#25968
DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_DyePlan.FontBlue
Styles.Footer = DataLink_DyePlan.FontBlue
Styles.Header = DataLink_DyePlan.FontBlue
Width = 84
Width = 103
end
object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
@ -754,13 +688,14 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_DyePlan.Default
Width = 70
Width = 84
end
object v1Column3: TcxGridDBColumn
Caption = #25237#22383#21305#25968
DataBinding.FieldName = 'AntcpPiece'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
@ -768,6 +703,7 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Caption = #25237#22383#25968#37327
DataBinding.FieldName = 'AntcpQty'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
@ -781,6 +717,7 @@ object frmDyePlanInPut: TfrmDyePlanInPut
''
'M'
'Kg')
Visible = False
HeaderAlignmentHorz = taCenter
Width = 92
end
@ -791,13 +728,6 @@ object frmDyePlanInPut: TfrmDyePlanInPut
HeaderAlignmentHorz = taCenter
Width = 135
end
object Tv1Column2: TcxGridDBColumn
Caption = #21253#35013#21333#20301
DataBinding.FieldName = 'BZUNIT'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

181
F02染色计划单/U_DyePlanInPut.pas
View File

@ -21,49 +21,25 @@ type
TBClose: TToolButton;
ScrollBox1: TScrollBox;
Label1: TLabel;
OrderNo: TEdit;
CustOrderNo: TEdit;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
Label10: TLabel;
ConNo: TEdit;
Label3: TLabel;
Label14: TLabel;
Label12: TLabel;
Label13: TLabel;
OrdDate: TDateTimePicker;
CustName: TBtnEditC;
C_Width: TBtnEditC;
C_GramWeight: TBtnEditC;
Label2: TLabel;
C_Name: TBtnEditC;
Label19: TLabel;
Label25: TLabel;
DLYDate: TDateTimePicker;
C_Code: TBtnEditC;
Label42: TLabel;
Label43: TLabel;
Saleser: TBtnEditC;
Need_Packing: TMemo;
Need_Production: TMemo;
Need_Other: TMemo;
Label23: TLabel;
Label4: TLabel;
Label7: TLabel;
Workshop: TEdit;
OrdType: TComboBox;
GPM_1: TcxGridPopupMenu;
Label21: TLabel;
Label27: TLabel;
GC_Piece: TBtnEditC;
GC_BatchNo: TEdit;
Label66: TLabel;
GC_Position: TEdit;
Label67: TLabel;
GC_PieceWeight: TEdit;
ToolButton4: TToolButton;
Label5: TLabel;
C_Spec: TBtnEditC;
cxPageControl1: TcxPageControl;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
@ -81,11 +57,29 @@ type
v1Column5: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label5: TLabel;
CustNo: TEdit;
Label6: TLabel;
GC_STKID: TEdit;
follower: TEdit;
djUnit: TComboBox;
Label8: TLabel;
GC_TotalPiece: TEdit;
Tv1Column2: TcxGridDBColumn;
Label9: TLabel;
DingChang: TEdit;
Label11: TLabel;
cusC_Code: TEdit;
OrdDate: TDateTimePicker;
DlyDate: TDateTimePicker;
Label3: TLabel;
Label4: TLabel;
Tv1OrdPiece: TcxGridDBColumn;
Label7: TLabel;
C_Name: TEdit;
Label10: TLabel;
GC_STKID: TEdit;
Label13: TLabel;
Edit3: TEdit;
Label15: TLabel;
OrderNo: TEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -94,7 +88,7 @@ type
procedure ToolButton2Click(Sender: TObject);
procedure CustNameBtnUpClick(Sender: TObject);
procedure CustNameBtnDnClick(Sender: TObject);
procedure C_NameBtnUpClick(Sender: TObject);
procedure C_CodeBtnUpClick(Sender: TObject);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton3Click(Sender: TObject);
@ -164,12 +158,12 @@ begin
PState := 0;
FMainId := '';
OrderNo.Text := '自动生成';
GC_Piece.Text := '';
GC_BatchNo.Text := '';
GC_Position.Text := '';
GC_STKID.Text := '';
OrdDate.DateTime := SGetServerDateTime(ADOTemp);
DlyDate.DateTime := OrdDate.DateTime;
// GC_Piece.Text := '';
// GC_BatchNo.Text := '';
// GC_Position.Text := '';
// GC_STKID.Text := '';
// OrdDate.DateTime := SGetServerDateTime(ADOTemp);
// DlyDate.DateTime := OrdDate.DateTime;
with CDS_1 do
begin
First;
@ -198,9 +192,9 @@ var
forderNo: string;
begin
readCxGrid(Trim(Self.Caption), Tv1, '染整计划管理');
OrdDate.DateTime := SGetServerDateTime(ADOTemp);
DlyDate.DateTime := OrdDate.DateTime;
Workshop.text := trim(FWorkshop);
// OrdDate.DateTime := SGetServerDateTime(ADOTemp);
// DlyDate.DateTime := OrdDate.DateTime;
// Workshop.text := trim(FWorkshop);
fFlileFlag := UserDataFlag + 'HX';
InitData();
@ -252,6 +246,7 @@ begin
RTSetsavedata(ADOCmd, 'Dye_Plan_Main', ScrollBox1, 2);
FieldByName('MainId').Value := Trim(maxno);
FieldByName('Workshop').Value := Trim(FWorkshop);
FieldByName('Saleser').Value := Trim(Saleser.Text);
FieldByName('CustNo').Value := CustName.TxtCode;
FieldByName('status').Value := '9';
@ -326,20 +321,20 @@ end;
procedure TfrmDyePlanInPut.TBSaveClick(Sender: TObject);
begin
OrdDate.SetFocus;
// OrdDate.SetFocus;
try
// if Trim(OrderNo.Text) = '' then
// raise Exception.Create('计划单号不能为空！');
if Trim(OrdType.Text) = '' then
raise Exception.Create('订单类型不能为空！');
// if Trim(OrdType.Text) = '' then
// raise Exception.Create('订单类型不能为空！');
if Trim(CustName.Text) = '' then
raise Exception.Create('客户不能为空！');
if Trim(C_Name.Text) = '' then
raise Exception.Create('产品名称不能为空！');
// if Trim(C_Name.Text) = '' then
// raise Exception.Create('产品名称不能为空！');
if CDS_1.IsEmpty then
raise Exception.Create('明细不能为空！');
@ -469,6 +464,7 @@ begin
begin
CustName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
CustNo.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.Saleser.Text := Trim(CDS_1.fieldbyname('Saleser').AsString);
end;
end;
@ -483,46 +479,51 @@ begin
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmDyePlanInPut.C_NameBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
procedure TfrmDyePlanInPut.C_CodeBtnUpClick(Sender: TObject);
begin
try
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do
begin
if ShowModal = 1 then
begin
SELF.C_name.Text := trim(CDS_1.FieldByName('c_name').AsString);
SELF.C_GramWeight.Text := trim(CDS_1.FieldByName('C_GramWeight').AsString);
SELF.C_Width.Text := trim(CDS_1.FieldByName('C_Width').AsString);
end;
end;
finally
frmClothInfoSel.Free;
if trim(CustName.Text) = '' then
begin
Application.MessageBox('客户不能为空!', '提示', 0);
Exit;
end;
// fsj := Trim(TEdit(Sender).Hint);
// FWZ := Pos('/', fsj);
// try
// frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
// with frmZDYHelpSel do
// begin
// flag := Copy(fsj, 1, FWZ - 1);
// flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
// MainType := 'DyePlan';
// if ShowModal = 1 then
// begin
// TEdit(Sender).Text := ReturnStr;
// end;
// end;
// finally
// frmZDYHelpSel.Free;
// end;
frmDyeGreyClothStkSel := TfrmDyeGreyClothStkSel.create(self);
with frmDyeGreyClothStkSel do
begin
FromCoNo.Text := trim(self.CustName.TxtCode);
FromCoNo.Enabled := False;
if showmodal = 1 then
begin
CDS_Main.DisableControls;
Self.C_Code.Text := trim(CDS_Main.FieldByName('C_Code').AsString);
Self.C_Name.Text := trim(CDS_Main.FieldByName('C_Name').AsString);
// Self.C_Spec.Text := trim(CDS_Main.FieldByName('C_spec').AsString);
Self.C_Width.Text := trim(CDS_Main.FieldByName('C_Width').AsString);
// Self.C_GramWeight.Text := trim(CDS_Main.FieldByName('C_GramWeight').AsString);
Self.Saleser.Text := trim(CDS_Main.FieldByName('Saleser').AsString);
Self.GC_STKID.Text := trim(CDS_Main.FieldByName('StkID').AsString);
// Self.Saleser.Text := trim(CDS_Main.FieldByName('Saleser').AsString);
with CDS_1 do
begin
if CDS_1.IsEmpty then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('OrdQty').Value := trim(CDS_Main.FieldByName('StkPiece').AsString);
FieldByName('OrdPiece').Value := trim(CDS_Main.FieldByName('STKQty').AsString);
FieldByName('OrdUnit').Value := 'M';
end;
end;
CDS_Main.EnableControls;
end;
frmDyeGreyClothStkSel.free;
end;
procedure TfrmDyePlanInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -663,12 +664,12 @@ begin
MGC_STKID := MGC_STKID + trim(CDS_Main.FieldByName('STKID').AsString) + ';';
MGC_Position := MGC_Position + trim(CDS_Main.FieldByName('StkPosition').AsString) + ';';
Self.C_Name.Text := trim(CDS_Main.FieldByName('C_Name').AsString);
Self.C_Spec.Text := trim(CDS_Main.FieldByName('C_spec').AsString);
// Self.C_Name.Text := trim(CDS_Main.FieldByName('C_Name').AsString);
CustName.TxtCode := trim(CDS_Main.FieldByName('FromCoNo').AsString);
CustName.Text := trim(CDS_Main.FieldByName('FromCoName').AsString);
Self.C_Width.Text := trim(CDS_Main.FieldByName('C_Width').AsString);
Self.C_GramWeight.Text := trim(CDS_Main.FieldByName('C_GramWeight').AsString);
// Self.C_GramWeight.Text := trim(CDS_Main.FieldByName('C_GramWeight').AsString);
Self.Saleser.Text := trim(CDS_Main.FieldByName('Saleser').AsString);
// Self.Saleser.Text := trim(CDS_Main.FieldByName('Saleser').AsString);
@ -686,11 +687,11 @@ begin
MGC_Piece := copy(MGC_Piece, 1, Length(MGC_Piece) - 1);
MGC_STKID := copy(MGC_STKID, 1, Length(MGC_STKID) - 1);
MGC_Position := copy(MGC_Position, 1, Length(MGC_Position) - 1);
GC_TotalPiece.text := inttostr(fRollNum);
GC_BatchNo.Text := MGC_BatchNo;
GC_Piece.Text := MGC_Piece;
GC_STKID.Text := MGC_STKID;
GC_Position.Text := MGC_Position;
// GC_TotalPiece.text := inttostr(fRollNum);
// GC_BatchNo.Text := MGC_BatchNo;
// GC_Piece.Text := MGC_Piece;
// GC_STKID.Text := MGC_STKID;
// GC_Position.Text := MGC_Position;
// end;
end;

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

@ -579,6 +579,8 @@ inherited frmDyePlanList: TfrmDyePlanList
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
ExplicitLeft = -280
ExplicitTop = 501
end
object cxTabControl1: TcxTabControl [4]
Left = 0

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

@ -358,7 +358,7 @@ begin
end;
sql.Add(' and OrdDate>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
sql.Add(' and OrdDate<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
sql.Add(' and A.Workshop=''' + trim(FWorkshop) + ''' ');
// sql.Add(' and A.Workshop=''' + trim(FWorkshop) + ''' ');
if Trim(canshu1) = '¼Èë' then
sql.Add('and Filler=' + QuotedStr(Trim(DName)));
// ShowMessage(sql.Text);

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

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

99
F02染色计划单/U_DyeProcessList.dfm
View File

@ -15,7 +15,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
Height = 76
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonWidth = 127
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_DyePlan.ImageList_new32
@ -24,7 +24,6 @@ inherited frmDyeProcessList: TfrmDyeProcessList
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = 2
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -45,61 +44,77 @@ inherited frmDyeProcessList: TfrmDyeProcessList
Left = 142
Top = 0
AutoSize = True
Caption = #32763#24067
Caption = #26032#22686#32763#24067
ImageIndex = 9
OnClick = TbAdd_FBClick
end
object TbAdd_QX: TToolButton
Left = 213
object TbAdd_zm: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #26032#22686#28165#27927
Caption = #26032#22686#36711#27611
ImageIndex = 9
OnClick = TbAdd_QXClick
OnClick = TbAdd_zmClick
end
object TbAdd_DX: TToolButton
Left = 308
object TbAdd_ccqx: TToolButton
Left = 332
Top = 0
AutoSize = True
Caption = #26032#22686#23450#22411
Caption = #26032#22686#38271#36710#28165#27927
ImageIndex = 9
OnClick = TbAdd_DXClick
OnClick = TbAdd_ccqxClick
end
object TbAdd_FS: TToolButton
Left = 403
object TbAdd_rgqx: TToolButton
Left = 451
Top = 0
AutoSize = True
Caption = #26032#22686#21367#26579#32568#28165#27927
ImageIndex = 9
OnClick = TbAdd_rgqxClick
end
object TbAdd_jgqx: TToolButton
Left = 582
Top = 0
AutoSize = True
Caption = #26032#22686#26426#32568#28165#27927
ImageIndex = 9
OnClick = TbAdd_jgqxClick
end
object TbAdd_dx: TToolButton
Left = 701
Top = 0
AutoSize = True
Caption = #26032#22686#24178#23450#22411
ImageIndex = 9
OnClick = TbAdd_dxClick
end
object TbAdd_fs: TToolButton
Left = 808
Top = 0
AutoSize = True
Caption = #26032#22686#38450#27700
ImageIndex = 9
OnClick = TbAdd_FSClick
OnClick = TbAdd_fsClick
end
object TbAdd_FP: TToolButton
Left = 498
object TbAdd_gj: TToolButton
Left = 903
Top = 0
AutoSize = True
Caption = #26032#22686#21038#33014
ImageIndex = 9
OnClick = TbAdd_gjClick
end
object TbAdd_fp: TToolButton
Left = 998
Top = 0
AutoSize = True
Caption = #26032#22686#21457#27873
ImageIndex = 9
Wrap = True
OnClick = TbAdd_FPClick
end
object TbAdd_GJ: TToolButton
Left = 0
Top = 38
AutoSize = True
Caption = #26032#22686#21038#33014
ImageIndex = 9
OnClick = TbAdd_GJClick
end
object TbAdd_ZM: TToolButton
Left = 95
Top = 38
AutoSize = True
Caption = #26032#22686#36711#27611
ImageIndex = 9
OnClick = TbAdd_ZMClick
OnClick = TbAdd_fpClick
end
object TbEdit: TToolButton
Left = 190
Left = 0
Top = 38
AutoSize = True
Caption = #20462#25913
@ -107,7 +122,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
OnClick = TbEditClick
end
object TbLook: TToolButton
Left = 261
Left = 71
Top = 38
AutoSize = True
Caption = #26597#30475
@ -115,7 +130,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
OnClick = TbLookClick
end
object TBDel: TToolButton
Left = 332
Left = 142
Top = 38
AutoSize = True
Caption = #21024#38500
@ -123,7 +138,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
OnClick = TBDelClick
end
object ToolButton1: TToolButton
Left = 403
Left = 213
Top = 38
AutoSize = True
Caption = #23548#20986
@ -131,7 +146,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 474
Left = 284
Top = 38
AutoSize = True
Caption = #20851#38381
@ -207,7 +222,6 @@ inherited frmDyeProcessList: TfrmDyeProcessList
Height = 455
Align = alClient
TabOrder = 2
ExplicitTop = 110
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -300,6 +314,13 @@ inherited frmDyeProcessList: TfrmDyeProcessList
HeaderAlignmentHorz = taCenter
Width = 86
end
object TV2Filler: TcxGridDBColumn
Caption = #24405#20837#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 84
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV2

127
F02染色计划单/U_DyeProcessList.pas
View File

@ -30,7 +30,7 @@ type
ToolButton1: TToolButton;
DS_1: TDataSource;
CDS_1: TClientDataSet;
TbAdd_QX: TToolButton;
TbAdd_zm: TToolButton;
TbEdit: TToolButton;
Label5: TLabel;
WorkHour: TEdit;
@ -44,17 +44,20 @@ type
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
TbAdd_DX: TToolButton;
TbAdd_FS: TToolButton;
TbAdd_FP: TToolButton;
TbAdd_GJ: TToolButton;
TbAdd_ZM: TToolButton;
TbAdd_ccqx: TToolButton;
TbAdd_rgqx: TToolButton;
TbAdd_jgqx: TToolButton;
TbAdd_dx: TToolButton;
TbAdd_fs: TToolButton;
Label2: TLabel;
MachineName: TEdit;
TV2MachineName: TcxGridDBColumn;
TV2WorkHour: TcxGridDBColumn;
TbLook: TToolButton;
TbAdd_FB: TToolButton;
TbAdd_gj: TToolButton;
TbAdd_fp: TToolButton;
TV2Filler: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -65,15 +68,17 @@ type
procedure ZdyNameChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TbEditClick(Sender: TObject);
procedure TbAdd_QXClick(Sender: TObject);
procedure TbAdd_zmClick(Sender: TObject);
procedure Tv2DblClick(Sender: TObject);
procedure TbAdd_DXClick(Sender: TObject);
procedure TbAdd_FSClick(Sender: TObject);
procedure TbAdd_FPClick(Sender: TObject);
procedure TbAdd_GJClick(Sender: TObject);
procedure TbAdd_ZMClick(Sender: TObject);
procedure TbAdd_ccqxClick(Sender: TObject);
procedure TbAdd_rgqxClick(Sender: TObject);
procedure TbAdd_jgqxClick(Sender: TObject);
procedure TbAdd_dxClick(Sender: TObject);
procedure TbAdd_fsClick(Sender: TObject);
procedure TbLookClick(Sender: TObject);
procedure TbAdd_FBClick(Sender: TObject);
procedure TbAdd_fpClick(Sender: TObject);
procedure TbAdd_gjClick(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
@ -188,6 +193,26 @@ begin
end;
end;
procedure TfrmDyeProcessList.TbAdd_fpClick(Sender: TObject);
begin
try
frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
with frmDyeProcessDefin do
begin
BtnInt := 0;
FPSType := '랙텟';
FPSID := '';
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
frmDyeProcessDefin.Free;
end;
end;
procedure TfrmDyeProcessList.TbAdd_FBClick(Sender: TObject);
begin
try
@ -260,14 +285,14 @@ begin
end;
end;
procedure TfrmDyeProcessList.TbAdd_DXClick(Sender: TObject);
procedure TfrmDyeProcessList.TbAdd_ccqxClick(Sender: TObject);
begin
try
frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
with frmDyeProcessDefin do
begin
BtnInt := 0;
FPSType := '¶¨ÐÍ';
FPSType := '낀났헌求';
FPSID := '';
if ShowModal = 1 then
begin
@ -279,14 +304,14 @@ begin
end;
end;
procedure TfrmDyeProcessList.TbAdd_FPClick(Sender: TObject);
procedure TfrmDyeProcessList.TbAdd_jgqxClick(Sender: TObject);
begin
try
frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
with frmDyeProcessDefin do
begin
BtnInt := 0;
FPSType := '·¢ÅÝ';
FPSType := '샙멂헌求';
FPSID := '';
if ShowModal = 1 then
begin
@ -298,14 +323,14 @@ begin
end;
end;
procedure TfrmDyeProcessList.TbAdd_FSClick(Sender: TObject);
procedure TfrmDyeProcessList.TbAdd_rgqxClick(Sender: TObject);
begin
try
frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
with frmDyeProcessDefin do
begin
BtnInt := 0;
FPSType := '·ÀË®';
FPSType := '얩횡멂헌求';
FPSID := '';
if ShowModal = 1 then
begin
@ -317,14 +342,14 @@ begin
end;
end;
procedure TfrmDyeProcessList.TbAdd_GJClick(Sender: TObject);
procedure TfrmDyeProcessList.TbAdd_dxClick(Sender: TObject);
begin
try
frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
with frmDyeProcessDefin do
begin
BtnInt := 0;
FPSType := '¹Î½º';
FPSType := '맴땍謹';
FPSID := '';
if ShowModal = 1 then
begin
@ -336,27 +361,7 @@ begin
end;
end;
procedure TfrmDyeProcessList.TbAdd_QXClick(Sender: TObject);
begin
try
frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
with frmDyeProcessDefin do
begin
BtnInt := 0;
FPSType := 'ÇåÏ´';
FPSID := '';
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
frmDyeProcessDefin.Free;
end;
end;
procedure TfrmDyeProcessList.TbAdd_ZMClick(Sender: TObject);
procedure TfrmDyeProcessList.TbAdd_zmClick(Sender: TObject);
begin
try
frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
@ -370,6 +375,46 @@ begin
TBRafresh.Click;
end;
end;
finally
frmDyeProcessDefin.Free;
end;
end;
procedure TfrmDyeProcessList.TbAdd_fsClick(Sender: TObject);
begin
try
frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
with frmDyeProcessDefin do
begin
BtnInt := 0;
FPSType := '苟彊땍謹';
FPSID := '';
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
frmDyeProcessDefin.Free;
end;
end;
procedure TfrmDyeProcessList.TbAdd_gjClick(Sender: TObject);
begin
try
frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
with frmDyeProcessDefin do
begin
BtnInt := 0;
FPSType := '민스';
FPSID := '';
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
frmDyeProcessDefin.Free;
end;

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

@ -30,8 +30,6 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Height = 553
Align = alClient
TabOrder = 0
ExplicitLeft = -119
ExplicitTop = 175
object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick
Navigator.Buttons.CustomButtons = <>
@ -158,8 +156,6 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Align = alClient
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = 201
ExplicitTop = 261
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False

11
F04染色刷卡/U_DyeOutputList.dfm
View File

@ -35,6 +35,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = 2
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -110,7 +111,6 @@ inherited frmDyeOutputList: TfrmDyeOutputList
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitTop = 32
object Label3: TLabel
Left = 252
Top = 36
@ -324,7 +324,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList
Height = 482
Align = alClient
TabOrder = 2
ExplicitTop = 97
ExplicitTop = 108
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -502,6 +502,13 @@ inherited frmDyeOutputList: TfrmDyeOutputList
HeaderAlignmentHorz = taCenter
Width = 106
end
object Tv1Column17: TcxGridDBColumn
Caption = #36710#23614#38376#24133
DataBinding.FieldName = 'sk_WidthAmplitude'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1

1
F04染色刷卡/U_DyeOutputList.pas
View File

@ -88,6 +88,7 @@ type
Button2: TButton;
Edit1: TEdit;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);

11
F04染色刷卡/U_GetDllForm.pas
View File

@ -69,13 +69,10 @@ begin
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
dtbase := 'yilaibuyidata';
// dtbase := 'huafuData';
// dtbase := 'xingruiData';
user := 'rtsa';
pswd := 'rightsoft@5740';
server := '112.14.44.145';
dtbase := 'yilanbuyidata';
user := 'yilansa';
pswd := 'yilanbuyi@123';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// DParameters1:='高权限';