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

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

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

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

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

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

@ -1,52 +1,52 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.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.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.518,=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.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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.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.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.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.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.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.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.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.187,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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.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.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.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.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.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.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>2025-06-13 15:31:04.000.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/> <File Path="..\..\D10sxYilanbuyi"/>

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

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

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

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

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

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

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

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

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

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp,
System.ImageList, Vcl.ImgList; System.ImageList, Vcl.ImgList, dxScrollbarAnnotations;
type type
TfrmDyeGreyClothStkSel = class(TfrmBaseHelp) 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.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.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.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/> <File Path="..\..\D10sxYilanbuyi"/>

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

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

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

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

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

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

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

@ -12,7 +12,8 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations;
type type
TfrmDyeGreyClothStkList = class(TfrmBaseList) TfrmDyeGreyClothStkList = class(TfrmBaseList)

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

@ -38,7 +38,8 @@ uses
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_DyeProcessDefin in 'U_DyeProcessDefin.pas' {frmDyeProcessDefin}, 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} {$R *.res}

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

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

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

@ -1,63 +1,64 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.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.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.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.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.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.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.188,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.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.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.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.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.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.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.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.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.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.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.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.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.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.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.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.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.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.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.571,=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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</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.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.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.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.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.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.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.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.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.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=</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.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.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.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm</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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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>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>2025-07-02 16:47:08.000.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/> <File Path="..\..\D10sxYilanbuyi"/>
@ -125,5 +126,7 @@
<File Path="U_DyeTechnicsinput.dfm"/> <File Path="U_DyeTechnicsinput.dfm"/>
<File Path="U_DyeProcessDefin.pas"/> <File Path="U_DyeProcessDefin.pas"/>
<File Path="U_DyeProcessDefin.dfm"/> <File Path="U_DyeProcessDefin.dfm"/>
<File Path="U_CraftSel.pas"/>
<File Path="U_CraftSel.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </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 end
object pnlOrder: TPanel object pnlOrder: TPanel
Left = 0 Left = 0
Top = 235 Top = 208
Width = 1444 Width = 1444
Height = 36 Height = 63
Align = alBottom Align = alBottom
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -301,7 +301,46 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Top = 11 Top = 11
Width = 52 Width = 52
Height = 12 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.Charset = GB2312_CHARSET
Font.Color = clMaroon Font.Color = clMaroon
Font.Height = -12 Font.Height = -12
@ -312,7 +351,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
object OrderNo: TBtnEditA object OrderNo: TBtnEditA
Tag = 2 Tag = 2
Left = 101 Left = 101
Top = 7 Top = 6
Width = 120 Width = 120
Height = 20 Height = 20
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -328,7 +367,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
object C_Width: TEdit object C_Width: TEdit
Tag = 2 Tag = 2
Left = 281 Left = 281
Top = 7 Top = 6
Width = 100 Width = 100
Height = 20 Height = 20
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -412,12 +451,56 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 6
end 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 end
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1444 Width = 1444
Height = 235 Height = 208
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1227,7 +1310,14 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
DataBinding.FieldName = 'PCPiece' DataBinding.FieldName = 'PCPiece'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 62 Width = 63
end
object V1Column3: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'PCQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end end
object TV1Column18: TcxGridDBColumn object TV1Column18: TcxGridDBColumn
Tag = 7 Tag = 7
@ -1237,13 +1327,6 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
end end
object V1Column3: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'PCQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object TV1Column19: TcxGridDBColumn object TV1Column19: TcxGridDBColumn
Tag = 7 Tag = 7
Caption = #19994#21153#21592 Caption = #19994#21153#21592
@ -1318,7 +1401,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_DyePlan.FontBlue Styles.Content = DataLink_DyePlan.FontBlue
Styles.Header = DataLink_DyePlan.FontBlue Styles.Header = DataLink_DyePlan.FontBlue
Width = 347 Width = 188
end end
object TV1Column12: TcxGridDBColumn object TV1Column12: TcxGridDBColumn
Tag = 7 Tag = 7

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -358,7 +358,7 @@ begin
end; end;
sql.Add(' and OrdDate>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); sql.Add(' and OrdDate>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
sql.Add(' and OrdDate<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); 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 if Trim(canshu1) = '¼Èë' then
sql.Add('and Filler=' + QuotedStr(Trim(DName))); sql.Add('and Filler=' + QuotedStr(Trim(DName)));
// ShowMessage(sql.Text); // 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 Height = 76
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
ButtonWidth = 91 ButtonWidth = 127
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
DisabledImages = DataLink_DyePlan.ImageList_new32 DisabledImages = DataLink_DyePlan.ImageList_new32
@ -24,7 +24,6 @@ inherited frmDyeProcessList: TfrmDyeProcessList
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = 2
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -45,61 +44,77 @@ inherited frmDyeProcessList: TfrmDyeProcessList
Left = 142 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #32763#24067 Caption = #26032#22686#32763#24067
ImageIndex = 9 ImageIndex = 9
OnClick = TbAdd_FBClick OnClick = TbAdd_FBClick
end end
object TbAdd_QX: TToolButton object TbAdd_zm: TToolButton
Left = 213 Left = 237
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686#28165#27927 Caption = #26032#22686#36711#27611
ImageIndex = 9 ImageIndex = 9
OnClick = TbAdd_QXClick OnClick = TbAdd_zmClick
end end
object TbAdd_DX: TToolButton object TbAdd_ccqx: TToolButton
Left = 308 Left = 332
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686#23450#22411 Caption = #26032#22686#38271#36710#28165#27927
ImageIndex = 9 ImageIndex = 9
OnClick = TbAdd_DXClick OnClick = TbAdd_ccqxClick
end end
object TbAdd_FS: TToolButton object TbAdd_rgqx: TToolButton
Left = 403 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 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686#38450#27700 Caption = #26032#22686#38450#27700
ImageIndex = 9 ImageIndex = 9
OnClick = TbAdd_FSClick OnClick = TbAdd_fsClick
end end
object TbAdd_FP: TToolButton object TbAdd_gj: TToolButton
Left = 498 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 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686#21457#27873 Caption = #26032#22686#21457#27873
ImageIndex = 9 ImageIndex = 9
Wrap = True Wrap = True
OnClick = TbAdd_FPClick 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
end end
object TbEdit: TToolButton object TbEdit: TToolButton
Left = 190 Left = 0
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -107,7 +122,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
OnClick = TbEditClick OnClick = TbEditClick
end end
object TbLook: TToolButton object TbLook: TToolButton
Left = 261 Left = 71
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
@ -115,7 +130,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
OnClick = TbLookClick OnClick = TbLookClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 332 Left = 142
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -123,7 +138,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
OnClick = TBDelClick OnClick = TBDelClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 403 Left = 213
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -131,7 +146,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 474 Left = 284
Top = 38 Top = 38
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -207,7 +222,6 @@ inherited frmDyeProcessList: TfrmDyeProcessList
Height = 455 Height = 455
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 110
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -300,6 +314,13 @@ inherited frmDyeProcessList: TfrmDyeProcessList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 86 Width = 86
end end
object TV2Filler: TcxGridDBColumn
Caption = #24405#20837#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 84
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = TV2 GridView = TV2

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

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

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

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

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

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

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

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

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

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