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

9.8sahngchuan

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-09-08 14:31:40 +08:00
parent d0820db5ea
commit 5a688bd9e3
66 changed files with 6133 additions and 4580 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,7 +10,6 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -126
ExplicitWidth = 1501
ExplicitHeight = 650
PixelsPerInch = 96
@ -271,60 +270,72 @@ inherited frmClothInfoSel: TfrmClothInfoSel
HeaderAlignmentHorz = taCenter
Width = 116
end
object Tv1Column11: TcxGridDBColumn
Caption = #33521#25991#21697#21517
DataBinding.FieldName = 'C_EName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
object Tv1Material: TcxGridDBColumn
Caption = #26448#36136
DataBinding.FieldName = 'Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column1: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object Tv1Column3: TcxGridDBColumn
Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'C_FromCode'
object Tv1FinishingStandards: TcxGridDBColumn
Caption = #21518#25972#29702#26631#20934
DataBinding.FieldName = 'FinishingStandards'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
object Tv1Column8: TcxGridDBColumn
Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object Tv1Column2: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
Caption = #39068#33394
DataBinding.FieldName = 'C_COLOR'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
object Tv1Column8: TcxGridDBColumn
Caption = #25104#21697#38376#24133
DataBinding.FieldName = 'C_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 58
Options.Editing = False
Width = 81
end
object Tv1Column1: TcxGridDBColumn
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'F_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1filler: TcxGridDBColumn
Caption = #24314#31435#20154
DataBinding.FieldName = 'filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1FILLTIME: TcxGridDBColumn
Caption = #24314#31435#26102#38388
DataBinding.FieldName = 'FILLTIME'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1editer: TcxGridDBColumn
Caption = #26368#21518#20462#25913#20154
DataBinding.FieldName = 'editer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1edittime: TcxGridDBColumn
Caption = #26368#21518#20462#25913#26102#38388
DataBinding.FieldName = 'edittime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
end
object cxGrid1Level1: TcxGridLevel
@ -346,28 +357,28 @@ inherited frmClothInfoSel: TfrmClothInfoSel
Top = 15
Width = 48
Height = 12
Caption = #20135#21697#32534#21495
Caption = #25104#21697#32534#21495
end
object Label4: TLabel
Left = 199
Top = 15
Width = 48
Height = 12
Caption = #20135#21697#21517#31216
Caption = #25104#21697#21517#31216
end
object Label9: TLabel
Left = 509
Left = 535
Top = 15
Width = 24
Width = 48
Height = 12
Caption = #20811#37325
Caption = #22383#24067#38376#24133
end
object Label8: TLabel
Left = 357
Top = 15
Width = 24
Width = 48
Height = 12
Caption = #38376#24133
Caption = #25104#21697#38376#24133
end
object C_Code: TEdit
Tag = 2
@ -388,9 +399,9 @@ inherited frmClothInfoSel: TfrmClothInfoSel
TabOrder = 1
OnChange = C_NameChange
end
object C_GramWeight: TEdit
object F_Width: TEdit
Tag = 2
Left = 536
Left = 590
Top = 11
Width = 89
Height = 20
@ -399,7 +410,7 @@ inherited frmClothInfoSel: TfrmClothInfoSel
end
object C_Width: TEdit
Tag = 2
Left = 384
Left = 413
Top = 11
Width = 89
Height = 20

12
A00通用窗体/U_ClothInfoSel.pas
View File

@ -48,7 +48,7 @@ type
Label8: TLabel;
C_Code: TEdit;
C_Name: TEdit;
C_GramWeight: TEdit;
F_Width: TEdit;
C_Width: TEdit;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
@ -71,14 +71,16 @@ type
v1Column12: TcxGridDBColumn;
v1CYNo: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Material: TcxGridDBColumn;
Tv1FinishingStandards: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Tv1filler: TcxGridDBColumn;
Tv1FILLTIME: TcxGridDBColumn;
Tv1editer: TcxGridDBColumn;
Tv1edittime: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);

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

@ -1,7 +1,7 @@
inherited frmProductInfoSel: TfrmProductInfoSel
Left = 372
Top = 106
Caption = #21333#20301#21517#31216#36873#25321
Caption = #21161#21058#36873#25321
ClientHeight = 558
ClientWidth = 893
Color = clWhite
@ -94,6 +94,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel
Height = 476
Align = alClient
TabOrder = 2
ExplicitTop = 76
object Tv1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>
@ -165,6 +166,13 @@ inherited frmProductInfoSel: TfrmProductInfoSel
HeaderAlignmentHorz = taCenter
Width = 85
end
object Tv1Column4: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'P_Type'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
@ -174,32 +182,19 @@ inherited frmProductInfoSel: TfrmProductInfoSel
HeaderGlyphAlignmentHorz = taCenter
Width = 65
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Width = 88
end
object v1Column9: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
object Tv1Column3: TcxGridDBColumn
Caption = #39046#26009#21333#20301
DataBinding.FieldName = 'TakeUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
Width = 106
end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 102
end
end

4
A00通用窗体/U_ProductInfoSel.pas
View File

@ -51,10 +51,10 @@ type
Tv1Column1: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);

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

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

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

@ -211,14 +211,14 @@ inherited frmClothInfo: TfrmClothInfo
Top = 15
Width = 24
Height = 12
Caption = #20811#37325
Caption = #26448#36136
end
object Label8: TLabel
Left = 357
Top = 15
Width = 24
Height = 12
Caption = #38376#24133
Caption = #31867#21035
end
object C_Code: TEdit
Tag = 2
@ -238,7 +238,7 @@ inherited frmClothInfo: TfrmClothInfo
TabOrder = 1
OnKeyPress = C_CodeKeyPress
end
object C_GramWeight: TEdit
object Material: TEdit
Tag = 2
Left = 536
Top = 11
@ -247,7 +247,7 @@ inherited frmClothInfo: TfrmClothInfo
TabOrder = 3
OnKeyPress = C_CodeKeyPress
end
object C_Width: TEdit
object CTName: TEdit
Tag = 2
Left = 384
Top = 11
@ -392,93 +392,52 @@ inherited frmClothInfo: TfrmClothInfo
HeaderAlignmentHorz = taCenter
Width = 96
end
object Tv1CINote: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'CINote'
object Tv1Material: TcxGridDBColumn
Caption = #26448#36136
DataBinding.FieldName = 'Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object v1Column1: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object Tv1Column8: TcxGridDBColumn
Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object v1Column11: TcxGridDBColumn
Caption = #22270#29255
DataBinding.FieldName = 'IsImg'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 57
Width = 80
end
object Tv1Column5: TcxGridDBColumn
Caption = #22635#21333#20154
Caption = #24314#31435#20154
DataBinding.FieldName = 'filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object Tv1Column6: TcxGridDBColumn
Caption = #20462#25913#20154
DataBinding.FieldName = 'editer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
end
object Tv1Column7: TcxGridDBColumn
Caption = #20462#25913#26102#38388
DataBinding.FieldName = 'edittime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object Tv1Chker: TcxGridDBColumn
Caption = #23457#26680#20154
DataBinding.FieldName = 'Chker'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column1: TcxGridDBColumn
Caption = #23457#26680#26102#38388
DataBinding.FieldName = 'ChkTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column9: TcxGridDBColumn
Caption = #24405#20837#26102#38388
Caption = #24314#31435#26102#38388
DataBinding.FieldName = 'FILLTIME'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column6: TcxGridDBColumn
Caption = #26368#21518#20462#25913#20154
DataBinding.FieldName = 'editer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
object Tv1Column7: TcxGridDBColumn
Caption = #26368#21518#20462#25913#26102#38388
DataBinding.FieldName = 'edittime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 115
end
object Tv1CINote: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'CINote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

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

@ -57,7 +57,6 @@ type
Panel1: TPanel;
TBFilter: TToolButton;
v1CYNo: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
DS_1: TDataSource;
ADOQueryMain: TADOQuery;
CDS_1: TClientDataSet;
@ -83,7 +82,6 @@ type
Label12: TLabel;
Panel3: TPanel;
adoqueryPicture: TADOQuery;
v1Column1: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
Label4: TLabel;
C_Name: TEdit;
@ -92,13 +90,12 @@ type
TBMLEdit: TToolButton;
OpenDialog1: TOpenDialog;
Label9: TLabel;
C_GramWeight: TEdit;
Material: TEdit;
Label8: TLabel;
C_Width: TEdit;
CTName: TEdit;
PM_1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
v1Column11: TcxGridDBColumn;
Panel7: TPanel;
Panel4: TPanel;
Label14: TLabel;
@ -128,13 +125,11 @@ type
ADOQueryPrint: TADOQuery;
CDS_Label: TClientDataSet;
ToolButton3: TToolButton;
Tv1Column8: TcxGridDBColumn;
TbCheck: TToolButton;
TbUndoCheck: TToolButton;
cxTabControl1: TcxTabControl;
Tv1Chker: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1CINote: TcxGridDBColumn;
Tv1Material: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
@ -406,23 +401,23 @@ begin
begin
Close;
SQL.Clear;
sql.Add('delete BS_Cloth_GY_Main where PSID=''' + Trim(CDS_1.fieldbyname('BCIID').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('delete BS_Cloth_GY_Sub where PSID=''' + Trim(CDS_1.fieldbyname('BCIID').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('delete BS_Cloth_GX where BCIID=''' + Trim(CDS_1.fieldbyname('BCIID').AsString) + '''');
sql.Add('delete BS_Cloth_Dye_Technics where C_Code=''' + Trim(CDS_1.fieldbyname('C_Code').AsString) + '''');
ExecSQL;
end;
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('delete BS_Cloth_GY_Sub where PSID=''' + Trim(CDS_1.fieldbyname('BCIID').AsString) + '''');
// ExecSQL;
// end;
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('delete BS_Cloth_GX where BCIID=''' + Trim(CDS_1.fieldbyname('BCIID').AsString) + '''');
// ExecSQL;
// end;
end;
CDS_1.Delete;
end;

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

@ -446,6 +446,13 @@ object frmClothInfoInput: TfrmClothInfoInput
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
object TV4F_Code: TcxGridDBColumn
Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object TV4GYNO: TcxGridDBColumn
Caption = #24037#33402#32534#21495
DataBinding.FieldName = 'DTMNO'

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

@ -704,6 +704,7 @@ type
cxLabel273: TcxLabel;
cxLabel42: TcxLabel;
C_washWidth: TcxTextEdit;
TV4F_Code: TcxGridDBColumn;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TbSaveClick(Sender: TObject);

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

@ -92,7 +92,6 @@ inherited frmCraftSel: TfrmCraftSel
ParentFont = False
ShowCaptions = True
TabOrder = 1
ExplicitTop = 6
object ToolButton1: TToolButton
Left = 0
Top = 0
@ -127,7 +126,6 @@ inherited frmCraftSel: TfrmCraftSel
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
ExplicitTop = 32
object Label1: TLabel
Left = 18
Top = 17

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

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

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

@ -34,8 +34,8 @@
<Transaction>1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.686,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.997,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.943,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
@ -80,10 +80,10 @@
<File Path="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/>
<File Path="U_GetDllForm.pas"/>
<File Path="U_iniParam.pas"/>
<File Path="U_BSPrtDyeInList.pas"/>
<File Path="U_BSPrtDyeInList.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="U_GetDllForm.pas"/>
<File Path="U_PrtDyeInfoInPut.pas"/>
<File Path="U_PrtDyeInfoInPut.dfm"/>
</ProjectSortOrder>

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

Binary file not shown.

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

Binary file not shown.

140
B03基础物料仓库/U_BSPrtDyeInEdit.dfm
View File

@ -22,8 +22,10 @@ inherited frmBSPrtDyeInEdit: TfrmBSPrtDyeInEdit
Height = 425
Align = alClient
TabOrder = 0
ExplicitTop = 44
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
@ -55,6 +57,7 @@ inherited frmBSPrtDyeInEdit: TfrmBSPrtDyeInEdit
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BPIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
@ -62,15 +65,14 @@ inherited frmBSPrtDyeInEdit: TfrmBSPrtDyeInEdit
object v1Column2: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 100
end
object v1Column4: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.DropDownRows = 20
@ -81,9 +83,64 @@ inherited frmBSPrtDyeInEdit: TfrmBSPrtDyeInEdit
HeaderAlignmentHorz = taCenter
Width = 87
end
object Tv1Column2: TcxGridDBColumn
Caption = #21161#21058#32534#21495
DataBinding.FieldName = 'P_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column2PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 75
end
object v1SPSpec: TcxGridDBColumn
Caption = #21161#21058#31867#22411
DataBinding.FieldName = 'P_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 112
end
object v1Column1: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 92
end
object v2Column6: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1Column5: TcxGridDBColumn
Caption = #39046#26009#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column12: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1FactoryName: TcxGridDBColumn
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
@ -93,12 +150,14 @@ inherited frmBSPrtDyeInEdit: TfrmBSPrtDyeInEdit
end>
Properties.ReadOnly = True
Properties.OnButtonClick = v1Column14PropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter
Width = 93
end
object Tv1Column1: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -107,87 +166,18 @@ inherited frmBSPrtDyeInEdit: TfrmBSPrtDyeInEdit
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1Column2: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'P_Code'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column2PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 75
end
object v1SPName: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'P_Name'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 101
end
object v1SPSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'P_Spec'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 112
end
object v1Column1: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 92
end
object v2Column6: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 81
end
object v1QtyUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
HeaderAlignmentHorz = taCenter
Width = 64
end
object v1Column5: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = v1Column5PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1Column12: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'price'
HeaderAlignmentHorz = taCenter
Width = 67
end
object Tv1Column4: TcxGridDBColumn
Caption = #31246#29575#27604#20363
DataBinding.FieldName = 'shuilv'
HeaderAlignmentHorz = taCenter
Width = 66
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

84
B03基础物料仓库/U_BSPrtDyeInEdit.pas
View File

@ -11,7 +11,7 @@ uses
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput,
System.ImageList, Vcl.ImgList, ComObj;
System.ImageList, Vcl.ImgList, ComObj, dxScrollbarAnnotations;
type
TfrmBSPrtDyeInEdit = class(TfrmBaseInput)
@ -37,8 +37,6 @@ type
v1FactoryName: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1SPSpec: TcxGridDBColumn;
v1QtyUnit: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
@ -46,8 +44,7 @@ type
CDS_LM: TClientDataSet;
OpenDialog1: TOpenDialog;
ToolButton2: TToolButton;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -93,7 +90,7 @@ begin
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('StkCoNo').Value := '本厂仓库';
FieldByName('StkCoName').Value := '本厂仓库';
FieldByName('QtyUnit').Value := '件';
FieldByName('QtyUnit').Value := '';
FieldByName('IOType').Value := '采购入库';
Post;
end;
@ -211,28 +208,52 @@ begin
FieldByName('IOQtyFlag').Value := 1;
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update BS_Product_IO Set StkQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Product_IO A where A.STKID=BS_Product_IO.BPIOID )');
sql.Add(' where BPIOID=''' + Trim(Maxno) + '''');
ExecSQL;
end;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('Update BS_Product_IO Set StkQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Product_IO A where A.STKID=BS_Product_IO.BPIOID )');
// sql.Add(' where BPIOID=''' + Trim(Maxno) + '''');
// ExecSQL;
// end;
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select stkQty from BS_Product_IO where BPIOID=''' + Trim(Maxno) + '''');
// Open;
// end;
// if ADOQueryTemp.FieldByName('stkQty').Value < 0 then
// raise Exception.Create('入库数量小于出库数量不能保存!');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select stkQty from BS_Product_IO where BPIOID=''' + Trim(Maxno) + '''');
Open;
sql.Add(' SELECT isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''') ');
SQL.Add(',sum(IOQtyFlag*qty)qty FROM BS_Product_IO WHERE ');
sql.Add(' isnull(stkName,'''')=''' + Trim(FstkName) + '''');
SQL.Add('AND p_Code=' + QuotedStr(CDS_Sub.fieldbyname('p_Code').AsString));
SQL.Add('AND P_Spec=' + QuotedStr(CDS_Sub.fieldbyname('P_Spec').AsString));
SQL.Add('AND BatchNo=' + QuotedStr(CDS_Sub.fieldbyname('BatchNo').AsString));
SQL.Add('AND QtyUnit=' + QuotedStr(CDS_Sub.fieldbyname('QtyUnit').AsString));
SQL.Add(' group by isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''')');
SQL.Add(' having sum(IOQtyFlag*qty)<0 ');
// showMessage(SQL.Text);
OPEN;
end;
if ADOQueryTemp.IsEmpty = False then
begin
CDS_Sub.EnableControls;
raise Exception.Create('出库数量大于入库数量不能保存！');
end;
if ADOQueryTemp.FieldByName('stkQty').Value < 0 then
raise Exception.Create('入库数量小于出库数量不能保存!');
Edit;
FieldByName('BPIOID').Value := Trim(Maxno);
Post;
Next;
CDS_Sub.Edit;
CDS_Sub.FieldByName('BPIOID').Value := Trim(Maxno);
CDS_Sub.Post;
CDS_Sub.Next;
end;
end;
@ -339,11 +360,11 @@ begin
Application.MessageBox('入库类型不能为空!', '提示', 0);
Exit;
end;
if CDS_Sub.Locate('P_Name', null, []) = True then
begin
Application.MessageBox('品名不能为空!', '提示', 0);
Exit;
end;
// if CDS_Sub.Locate('P_Name', null, []) = True then
// begin
// Application.MessageBox('品名不能为空!', '提示', 0);
// Exit;
// end;
if CDS_Sub.Locate('Qty', null, []) = True then
begin
@ -352,7 +373,7 @@ begin
end;
if CDS_Sub.Locate('QtyUnit', null, []) = True then
begin
Application.MessageBox('数量单位不能为空!', '提示', 0);
Application.MessageBox('领料单位不能为空!', '提示', 0);
Exit;
end;
@ -515,9 +536,10 @@ begin
Edit;
FieldByName('P_Code').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Code').value;
FieldByName('P_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
FieldByName('P_Spec').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value;
FieldByName('QtyUnit').Value := frmProductInfoSel.CDS_1.fieldbyname('QtyUnit').value;
FieldByName('Price').Value := frmProductInfoSel.CDS_1.fieldbyname('Price').value;
FieldByName('P_Spec').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Type').value; //助剂类型
FieldByName('QtyUnit').Value := frmProductInfoSel.CDS_1.fieldbyname('TakeUnit').value; //数量单位作为领料单位
// FieldByName('Price').Value := frmProductInfoSel.CDS_1.fieldbyname('Price').value;
// FieldByName('TakeUnit').Value := frmProductInfoSel.CDS_1.fieldbyname('TakeUnit').value; //领料单位
end;
end;
end;

120
B03基础物料仓库/U_BSPrtDyeInList.dfm
View File

@ -2,10 +2,10 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Left = 165
Top = 111
Caption = #21161#21058#20837#24211#21015#34920
ClientHeight = 478
ClientHeight = 637
ClientWidth = 1284
ExplicitWidth = 1300
ExplicitHeight = 517
ExplicitHeight = 676
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
@ -123,16 +123,9 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
object Label3: TLabel
Left = 351
Top = 12
Width = 24
Height = 12
Caption = #21697#21517
end
object Label4: TLabel
Left = 492
Top = 12
Width = 48
Height = 12
Caption = #26469#33258#21333#20301
Caption = #21161#21058#32534#21495
end
object Label5: TLabel
Left = 178
@ -144,9 +137,9 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
object Label8: TLabel
Left = 351
Top = 37
Width = 24
Width = 48
Height = 12
Caption = #35268#26684
Caption = #21161#21058#31867#22411
end
object Label12: TLabel
Left = 178
@ -156,8 +149,8 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Caption = #20837#24211#31867#22411
end
object Label10: TLabel
Left = 492
Top = 37
Left = 514
Top = 12
Width = 48
Height = 12
Caption = #25209' '#21495
@ -180,31 +173,22 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Time = 0.458268587972270300
TabOrder = 1
end
object P_name: TEdit
object P_Code: TEdit
Tag = 2
Left = 378
Left = 400
Top = 8
Width = 100
Height = 20
TabOrder = 2
OnChange = TBFindClick
end
object FromCoName: TEdit
Tag = 2
Left = 542
Top = 8
Width = 100
Height = 20
TabOrder = 3
OnChange = FromCoNameChange
end
object P_spec: TEdit
Tag = 2
Left = 378
Left = 400
Top = 33
Width = 100
Height = 20
TabOrder = 4
TabOrder = 3
OnChange = P_specChange
end
object IOType: TComboBox
@ -215,7 +199,7 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Height = 20
Style = csDropDownList
DropDownCount = 20
TabOrder = 5
TabOrder = 4
OnChange = TBFindClick
Items.Strings = (
''
@ -225,11 +209,11 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
end
object BatchNo: TEdit
Tag = 2
Left = 542
Top = 33
Left = 564
Top = 8
Width = 100
Height = 20
TabOrder = 6
TabOrder = 5
OnChange = FromCoNameChange
end
object BPIOID: TEdit
@ -238,7 +222,7 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Top = 8
Width = 109
Height = 20
TabOrder = 7
TabOrder = 6
OnChange = TBFindClick
end
end
@ -246,11 +230,13 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Left = 0
Top = 96
Width = 1284
Height = 382
Height = 541
Align = alClient
TabOrder = 2
ExplicitTop = 97
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -292,6 +278,7 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BPIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
@ -300,6 +287,7 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Tag = 2
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'ioTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
@ -310,6 +298,7 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Tag = 2
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
@ -319,10 +308,19 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
HeaderAlignmentHorz = taCenter
Width = 81
end
object v1Column20: TcxGridDBColumn
Caption = #21161#21058#32534#21495
DataBinding.FieldName = 'P_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
@ -331,33 +329,30 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 116
end
object v1Column20: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'P_Code'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'P_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Visible = False
HeaderAlignmentHorz = taCenter
Width = 99
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
Caption = #21161#21058#31867#22411
DataBinding.FieldName = 'P_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 79
@ -365,6 +360,7 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
VisibleForCustomization = False
Width = 89
@ -373,56 +369,26 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Tag = 2
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 85
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
object Tv1Column1: TcxGridDBColumn
Caption = #39046#26009#21333#20301
DataBinding.FieldName = 'QtyUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column5: TcxGridDBColumn
Tag = 2
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 79
Width = 80
end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column1: TcxGridDBColumn
Caption = #31246#29575
DataBinding.FieldName = 'shuilv'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column2: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'price'
HeaderAlignmentHorz = taCenter
Width = 66
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1

58
B03基础物料仓库/U_BSPrtDyeInList.pas
View File

@ -12,7 +12,8 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations;
type
TfrmBSPrtDyeInList = class(TfrmBaseList)
@ -45,12 +46,10 @@ type
TBAdd: TToolButton;
TBEdit: TToolButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label8: TLabel;
Label12: TLabel;
P_name: TEdit;
FromCoName: TEdit;
P_Code: TEdit;
P_spec: TEdit;
IOType: TComboBox;
cxGrid2: TcxGrid;
@ -62,8 +61,6 @@ type
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
v1Column10: TcxGridDBColumn;
@ -73,7 +70,6 @@ type
ToolButton1: TToolButton;
BPIOID: TEdit;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -224,18 +220,50 @@ begin
try
ADOQueryCmd.Connection.BeginTrans;
// with ADOQueryCmd do
// begin
// Close;
// Sql.Clear;
// Sql.Add('exec P_BS_Product_In_Del ');
// Sql.Add(' @BPIOIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BPIOID').AsString)));
// Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
// Sql.Add(',@DName=' + quotedstr(Trim(DName)));
// Open;
// end;
// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_BS_Product_In_Del ');
Sql.Add(' @BPIOIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BPIOID').AsString)));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open;
sql.Clear;
sql.Add(' SELECT isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''') ');
SQL.Add(',sum(IOQtyFlag*qty)qty FROM BS_Product_IO WHERE ');
sql.Add(' isnull(stkName,'''')=''' + Trim(FstkName) + '''');
SQL.Add('AND p_Code=' + QuotedStr(CDS_Main.fieldbyname('p_Code').AsString));
SQL.Add('AND BatchNo=' + QuotedStr(CDS_Main.fieldbyname('BatchNo').AsString));
SQL.Add(' group by isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''')');
// showMessage(SQL.Text);
OPEN;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
if ADOQueryCmd.FieldByName('Qty').Value < CDS_Main.FieldByName('Qty').Value then
begin
raise Exception.Create('入库数量大于库存数量不能删除！');
end
else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('insert into BS_Product_IO_Del select * from BS_Product_IO where BPIOID = ' + QuotedStr(Trim(CDS_Main.FieldByName('BPIOID').value)));
SQL.Add('Delete BS_Product_IO where BPIOID = ' + QuotedStr(Trim(CDS_Main.FieldByName('BPIOID').value)));
ExecSQL;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
CDS_Main.Delete;
except

53
B03基础物料仓库/U_BSPrtDyeOutEdit.dfm
View File

@ -2,7 +2,7 @@ inherited frmBSPrtDyeOutEdit: TfrmBSPrtDyeOutEdit
Left = 65
Top = 113
Caption = #20986#24211#30331#35760
ClientHeight = 449
ClientHeight = 546
ClientWidth = 1406
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -11,7 +11,7 @@ inherited frmBSPrtDyeOutEdit: TfrmBSPrtDyeOutEdit
Position = poMainFormCenter
OnClose = FormClose
ExplicitWidth = 1422
ExplicitHeight = 488
ExplicitHeight = 585
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
@ -81,12 +81,13 @@ inherited frmBSPrtDyeOutEdit: TfrmBSPrtDyeOutEdit
Left = 0
Top = 38
Width = 1406
Height = 411
Height = 508
Align = alClient
TabOrder = 1
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource3
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
@ -120,6 +121,7 @@ inherited frmBSPrtDyeOutEdit: TfrmBSPrtDyeOutEdit
object v1Column6: TcxGridDBColumn
Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'BPIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 91
@ -127,6 +129,7 @@ inherited frmBSPrtDyeOutEdit: TfrmBSPrtDyeOutEdit
object v1Column2: TcxGridDBColumn
Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
@ -136,6 +139,7 @@ inherited frmBSPrtDyeOutEdit: TfrmBSPrtDyeOutEdit
object v1CRType: TcxGridDBColumn
Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.DropDownRows = 20
@ -149,6 +153,7 @@ inherited frmBSPrtDyeOutEdit: TfrmBSPrtDyeOutEdit
object v1Column1: TcxGridDBColumn
Caption = #37319#36141#21152#24037#21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -165,6 +170,7 @@ inherited frmBSPrtDyeOutEdit: TfrmBSPrtDyeOutEdit
object Tv1Column2: TcxGridDBColumn
Caption = #20986#21040#21333#20301
DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -173,54 +179,57 @@ inherited frmBSPrtDyeOutEdit: TfrmBSPrtDyeOutEdit
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column2PropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column3: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
Width = 76
end
object v1Column5: TcxGridDBColumn
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object v1Column10: TcxGridDBColumn
Caption = #32534#21495
Caption = #21161#21058#32534#21495
DataBinding.FieldName = 'P_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
Width = 78
end
object v2Column1: TcxGridDBColumn
object Tv1Column1: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'p_name'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
DataBinding.FieldName = 'P_Name'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 97
Width = 80
end
object v1Column8: TcxGridDBColumn
Caption = #35268#26684
Caption = #21161#21058#31867#22411
DataBinding.FieldName = 'P_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 65
Width = 81
end
object v1Column7: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -228,20 +237,24 @@ inherited frmBSPrtDyeOutEdit: TfrmBSPrtDyeOutEdit
object v2Column6: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 85
end
object v1Column3: TcxGridDBColumn
Caption = #21333#20301
Caption = #39046#26009#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 88
end
object v1Column12: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
end

82
B03基础物料仓库/U_BSPrtDyeOutEdit.pas
View File

@ -11,7 +11,7 @@ uses
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit,
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
U_BaseInput, System.ImageList, Vcl.ImgList;
U_BaseInput, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations;
type
TfrmBSPrtDyeOutEdit = class(TfrmBaseInput)
@ -31,7 +31,6 @@ type
v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1CRType: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
@ -44,6 +43,7 @@ type
ToolButton1: TToolButton;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -96,22 +96,23 @@ begin
begin
Append;
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
FieldByName('STKID').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('BPIOID').Value;
// FieldByName('STKID').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('BPIOID').Value;
FieldByName('IOType').Value := '车间领用';
FieldByName('FromCoNo').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('FromCoNo').Value;
FieldByName('FromCoName').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('FromCoName').Value;
FieldByName('StkCoNo').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('StkCoNo').Value;
FieldByName('StkCoName').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('StkCoName').Value;
FieldByName('ToCoNo').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('StkCoNo').Value;
FieldByName('ToCoName').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('StkCoName').Value;
FieldByName('P_Name').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('P_Name').Value;
// FieldByName('FromCoNo').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('FromCoNo').Value;
// FieldByName('FromCoName').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('FromCoName').Value;
// FieldByName('StkCoNo').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('StkCoNo').Value;
// FieldByName('StkCoName').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('StkCoName').Value;
// FieldByName('ToCoNo').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('StkCoNo').Value;
// FieldByName('ToCoName').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('StkCoName').Value;
// FieldByName('P_Name').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('P_Name').Value;
FieldByName('P_Code').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('P_Code').Value;
FieldByName('P_Spec').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('P_Spec').Value;
FieldByName('QtyUnit').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('QtyUnit').Value;
FieldByName('Qty').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('STKQTY').Value;
FieldByName('BatchNo').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('BatchNo').Value;
FieldByName('FromOrdNo').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('FromOrdNo').Value;
FieldByName('Workshop').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('Workshop').Value;
// FieldByName('FromOrdNo').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('FromOrdNo').Value;
// FieldByName('Workshop').Value := frmBSPrtDyeStkSel.CDS_Main.fieldbyname('Workshop').Value;
end;
frmBSPrtDyeStkSel.CDS_Main.Delete;
end;
@ -179,31 +180,54 @@ begin
FieldByName('BPIOID').Value := Trim(Maxno);
FieldByName('IOFlag').Value := '出库';
FieldByName('IOQtyFlag').Value := -1;
FieldByName('STKID').Value := CDS_Sub.fieldbyname('STKID').Value;
FieldByName('FromCoNo').Value := CDS_Sub.fieldbyname('FromCoNo').Value;
FieldByName('FromCoName').Value := CDS_Sub.fieldbyname('FromCoName').Value;
FieldByName('StkCoNo').Value := CDS_Sub.fieldbyname('StkCoNo').Value;
FieldByName('ToCoNo').Value := CDS_Sub.fieldbyname('ToCoNo').Value;
// FieldByName('STKID').Value := CDS_Sub.fieldbyname('STKID').Value;
// FieldByName('FromCoNo').Value := CDS_Sub.fieldbyname('FromCoNo').Value;
// FieldByName('FromCoName').Value := CDS_Sub.fieldbyname('FromCoName').Value;
// FieldByName('StkCoNo').Value := CDS_Sub.fieldbyname('StkCoNo').Value;
// FieldByName('ToCoNo').Value := CDS_Sub.fieldbyname('ToCoNo').Value;
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update BS_Product_IO Set STKQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Product_IO A where A.STKID=BS_Product_IO.BPIOID )');
sql.Add('where BPIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + '''');
ExecSQL;
end;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('Update BS_Product_IO Set STKQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Product_IO A where A.STKID=BS_Product_IO.BPIOID )');
// sql.Add('where BPIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + '''');
// ExecSQL;
// end;
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from BS_Product_IO where BPIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + '''');
// Open;
// end;
//
// if ADOQueryTemp.FieldByName('STKQty').Value < 0 then
// raise Exception.Create('出库数量大于入库数量不能保存！');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Product_IO where BPIOID=''' + Trim(CDS_Sub.fieldbyname('STKID').AsString) + '''');
Open;
sql.Add(' SELECT isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''') ');
SQL.Add(',sum(IOQtyFlag*qty)qty FROM BS_Product_IO WHERE ');
sql.Add(' isnull(stkName,'''')=''' + Trim(FstkName) + '''');
SQL.Add('AND p_Code=' + QuotedStr(CDS_Sub.fieldbyname('p_Code').AsString));
SQL.Add('AND P_Spec=' + QuotedStr(CDS_Sub.fieldbyname('P_Spec').AsString));
SQL.Add('AND BatchNo=' + QuotedStr(CDS_Sub.fieldbyname('BatchNo').AsString));
SQL.Add('AND QtyUnit=' + QuotedStr(CDS_Sub.fieldbyname('QtyUnit').AsString));
SQL.Add(' group by isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''')');
SQL.Add(' having sum(IOQtyFlag*qty)<0 ');
// showMessage(SQL.Text);
OPEN;
end;
if ADOQueryTemp.FieldByName('STKQty').Value < 0 then
if ADOQueryTemp.IsEmpty = False then
begin
CDS_Sub.EnableControls;
raise Exception.Create('出库数量大于入库数量不能保存！');
end;
Edit;
FieldByName('BPIOID').Value := Trim(Maxno);

46
B03基础物料仓库/U_BSPrtDyeOutList.dfm
View File

@ -122,11 +122,11 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Caption = #33267
end
object Label3: TLabel
Left = 321
Left = 326
Top = 10
Width = 24
Width = 48
Height = 12
Caption = #21697#21517
Caption = #21161#21058#32534#21495
end
object Label5: TLabel
Left = 178
@ -136,11 +136,11 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Caption = #20986#24211#21333#21495
end
object Label8: TLabel
Left = 321
Left = 326
Top = 37
Width = 24
Width = 48
Height = 12
Caption = #35268#26684
Caption = #21161#21058#31867#22411
end
object Label12: TLabel
Left = 179
@ -167,9 +167,9 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Time = 0.458268587972270300
TabOrder = 1
end
object P_Name: TEdit
object P_Code: TEdit
Tag = 2
Left = 348
Left = 378
Top = 6
Width = 80
Height = 20
@ -187,7 +187,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
end
object P_spec: TEdit
Tag = 2
Left = 348
Left = 378
Top = 33
Width = 80
Height = 20
@ -219,6 +219,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -263,6 +264,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
object v1Column6: TcxGridDBColumn
Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'BPIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
@ -271,6 +273,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Tag = 2
Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
@ -281,6 +284,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Tag = 2
Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
@ -294,6 +298,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Tag = 2
Caption = #25152#23646#31867#22411
DataBinding.FieldName = 'SSType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
@ -308,6 +313,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
object v1Column1: TcxGridDBColumn
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -318,6 +324,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
@ -333,18 +340,21 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
object Tv1Column1: TcxGridDBColumn
Caption = #20986#21040#21333#20301
DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1Column16: TcxGridDBColumn
Caption = #32534#21495
Caption = #21161#21058#32534#21495
DataBinding.FieldName = 'P_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object v1Column17: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'SXPinPai'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -355,12 +365,14 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'P_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
@ -368,6 +380,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
object v1Column20: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'SPCode'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -376,8 +389,9 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
Caption = #21161#21058#31867#22411
DataBinding.FieldName = 'P_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
@ -386,6 +400,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -395,6 +410,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
object v1Column7: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
@ -403,22 +419,26 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Tag = 2
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 76
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
Caption = #39046#26009#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 58
Width = 91
end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
end

53
B03基础物料仓库/U_BSPrtDyeOutList.pas
View File

@ -12,7 +12,8 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations;
type
TfrmBSPrtDyeOutList = class(TfrmBaseList)
@ -61,7 +62,7 @@ type
Label5: TLabel;
Label8: TLabel;
Label12: TLabel;
P_Name: TEdit;
P_Code: TEdit;
BPIOID: TEdit;
P_spec: TEdit;
IOType: TComboBox;
@ -227,18 +228,50 @@ begin
try
ADOQueryCmd.Connection.BeginTrans;
// with ADOQueryCmd do
// begin
// Close;
// Sql.Clear;
// Sql.Add('exec P_BS_Product_Out_Del ');
// Sql.Add(' @BPIOIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BPIOID').AsString)));
// Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
// Sql.Add(',@DName=' + quotedstr(Trim(DName)));
// Open;
// end;
// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_BS_Product_Out_Del ');
Sql.Add(' @BPIOIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BPIOID').AsString)));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open;
sql.Clear;
sql.Add(' SELECT isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''') ');
SQL.Add(',sum(IOQtyFlag*qty)qty FROM BS_Product_IO WHERE ');
sql.Add(' isnull(stkName,'''')=''' + Trim(FstkName) + '''');
SQL.Add('AND p_Code=' + QuotedStr(CDS_Main.fieldbyname('p_Code').AsString));
SQL.Add('AND BatchNo=' + QuotedStr(CDS_Main.fieldbyname('BatchNo').AsString));
SQL.Add(' group by isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''')');
// showMessage(SQL.Text);
OPEN;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
if ADOQueryCmd.FieldByName('Qty').Value < CDS_Main.FieldByName('Qty').Value then
begin
raise Exception.Create('入库数量大于库存数量不能删除！');
end
else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('insert into BS_Product_IO_Del select * from BS_Product_IO where BPIOID = ' + QuotedStr(Trim(CDS_Main.FieldByName('BPIOID').value)));
SQL.Add('Delete BS_Product_IO where BPIOID = ' + QuotedStr(Trim(CDS_Main.FieldByName('BPIOID').value)));
ExecSQL;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
CDS_Main.Delete;
except

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

@ -2,11 +2,11 @@ inherited frmBSPrtDyeStkList: TfrmBSPrtDyeStkList
Left = 105
Top = 131
Caption = #24211#23384#36873#25321#21015#34920
ClientHeight = 472
ClientHeight = 538
ClientWidth = 1400
Position = poDefault
ExplicitWidth = 1416
ExplicitHeight = 511
ExplicitHeight = 577
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
@ -154,12 +154,14 @@ inherited frmBSPrtDyeStkList: TfrmBSPrtDyeStkList
Left = 0
Top = 74
Width = 1400
Height = 398
Height = 464
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 72
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -220,85 +222,53 @@ inherited frmBSPrtDyeStkList: TfrmBSPrtDyeStkList
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
object v1Column5: TcxGridDBColumn
Caption = #32534#21495
Caption = #21161#21058#32534#21495
DataBinding.FieldName = 'P_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'P_Name'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
Caption = #21161#21058#31867#22411
DataBinding.FieldName = 'P_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 131
end
object Tv1Column1: TcxGridDBColumn
Caption = #39046#26009#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
Width = 108
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'StkQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 51
Width = 98
end
end
object cxGrid2Level1: TcxGridLevel

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

@ -12,7 +12,8 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations;
type
TfrmBSPrtDyeStkList = class(TfrmBaseList)
@ -32,13 +33,10 @@ type
ToolButton1: TToolButton;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
Label3: TLabel;
Label4: TLabel;
@ -50,6 +48,7 @@ type
BatchNo: TEdit;
v1Column6: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -106,15 +105,37 @@ procedure TfrmBSPrtDyeStkList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
// with ADOQueryMain do
// begin
// Filtered := False;
// Close;
// sql.Clear;
// sql.Add(' select A.* ');
// sql.Add(' from BS_Product_IO A ');
// SQL.Add(' where A.IOFlag=''Èë¿â'' and isnull(StkQty,0)>0 ');
// sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
// Open;
// end;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from BS_Product_IO A ');
SQL.Add(' where A.IOFlag=''Èë¿â'' and isnull(StkQty,0)>0 ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
SQL.Clear;
SQL.Add('SELECT ');
SQL.Add(' A.P_Code, ');
SQL.Add(' A.P_Spec, ');
SQL.Add(' A.BatchNo, ');
SQL.Add(' A.FromCoName, ');
SQL.Add(' A.QtyUnit, ');
SQL.Add(' SUM(IOQtyFlag*qty) as StkQty, ');
SQL.Add(' MAX(A.IOTime) as IOTime, ');
SQL.Add(' MAX(A.P_Name) as P_Name ');
SQL.Add('FROM BS_Product_IO A ');
SQL.Add('WHERE ');
SQL.Add(' ISNULL(A.stkName,'''')=''' + Trim(FstkName) + '''');
SQL.Add('GROUP BY A.P_Code, A.P_Spec, A.BatchNo, FromCoName, QtyUnit');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Main);

60
B03基础物料仓库/U_BSPrtDyeStkSel.dfm
View File

@ -2,7 +2,7 @@ inherited frmBSPrtDyeStkSel: TfrmBSPrtDyeStkSel
Left = 105
Top = 131
Caption = #21161#21058#24211#23384#36873#25321#21015#34920
ClientHeight = 472
ClientHeight = 536
ClientWidth = 1165
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -11,7 +11,7 @@ inherited frmBSPrtDyeStkSel: TfrmBSPrtDyeStkSel
Position = poMainFormCenter
OnClose = FormClose
ExplicitWidth = 1181
ExplicitHeight = 511
ExplicitHeight = 575
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
@ -158,12 +158,13 @@ inherited frmBSPrtDyeStkSel: TfrmBSPrtDyeStkSel
Left = 0
Top = 74
Width = 1165
Height = 398
Height = 462
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
@ -224,6 +225,7 @@ inherited frmBSPrtDyeStkSel: TfrmBSPrtDyeStkSel
object v1Column17: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@ -233,76 +235,68 @@ inherited frmBSPrtDyeStkSel: TfrmBSPrtDyeStkSel
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
end
object v1Column4: TcxGridDBColumn
Caption = #32534#21495
Caption = #21161#21058#32534#21495
DataBinding.FieldName = 'P_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 96
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'P_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
Caption = #21161#21058#31867#22411
DataBinding.FieldName = 'P_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 131
Width = 95
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
Width = 88
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'StkQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
Width = 82
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
Caption = #39046#26009#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
@ -311,19 +305,7 @@ inherited frmBSPrtDyeStkSel: TfrmBSPrtDyeStkSel
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 51
end
object Tv1Column1: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'price'
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column2: TcxGridDBColumn
Caption = #31246#29575
DataBinding.FieldName = 'shuilv'
HeaderAlignmentHorz = taCenter
Width = 60
Width = 100
end
end
object cxGrid2Level1: TcxGridLevel

31
B03基础物料仓库/U_BSPrtDyeStkSel.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp, System.ImageList,
Vcl.ImgList;
Vcl.ImgList, dxScrollbarAnnotations;
type
TfrmBSPrtDyeStkSel = class(TfrmBaseHelp)
@ -36,7 +36,6 @@ type
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column17: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
@ -54,8 +53,6 @@ type
BatchNo: TEdit;
v1Column6: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -110,9 +107,29 @@ begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from BS_Product_IO A where A.IOFlag=''Èë¿â'' and isnull(STkQty,0)>0 ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
SQL.Add('SELECT ');
SQL.Add(' A.P_Code, ');
SQL.Add(' A.P_Spec, ');
SQL.Add(' A.BatchNo, ');
// SQL.Add(' A.FromCoName, ');
SQL.Add(' A.QtyUnit, ');
SQL.Add(' SUM(IOQtyFlag*qty) as StkQty, ');
SQL.Add(' MAX(A.IOTime) as IOTime, ');
SQL.Add(' MAX(A.P_Name) as P_Name ');
SQL.Add('FROM BS_Product_IO A ');
SQL.Add('WHERE ');
SQL.Add(' ISNULL(A.stkName,'''')=''' + Trim(FstkName) + '''');
SQL.Add('GROUP BY A.P_Code, A.P_Spec, A.BatchNo, QtyUnit');
SQL.Add(' having sum(IOQtyFlag*qty)>0 ');
// SQL.Add('SELECT A.* ');
//
// SQL.Add('FROM BS_Product_IO A ');
// SQL.Add('WHERE A.IOFlag=''Èë¿â'' AND ISNULL(A.StkQty,0)>0 ');
// SQL.Add('AND ISNULL(A.stkName,'''')=''' + Trim(FstkName) + '''');
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Main);

9
B03基础物料仓库/U_GetDllForm.pas
View File

@ -72,11 +72,10 @@ begin
if trim(DataBaseStr) = '' then
begin
server := '101.132.143.144,7781';
dtbase := 'yilaibuyiData';
user := 'rtsa';
pswd := 'rightsoft@5740';
server := '112.14.44.145';
dtbase := 'yilanbuyidata';
user := 'yilansa';
pswd := 'yilanbuyi@123';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// Parameters1 := '管理';
Parameters2 := '助剂';

5
B03基础物料仓库/U_PrtDyeInfoList.dfm
View File

@ -119,7 +119,7 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
Top = 15
Width = 24
Height = 12
Caption = #35268#26684
Caption = #31867#22411
end
object Label1: TLabel
Left = 60
@ -137,7 +137,7 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
TabOrder = 0
OnChange = TBFindClick
end
object P_Spec: TEdit
object P_Type: TEdit
Tag = 2
Left = 399
Top = 11
@ -326,6 +326,7 @@ inherited frmPrtDyeInfoList: TfrmPrtDyeInfoList
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 102
end
end

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

@ -44,7 +44,7 @@ type
Label3: TLabel;
Label8: TLabel;
P_Name: TEdit;
P_Spec: TEdit;
P_Type: TEdit;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v2Column1: TcxGridDBColumn;

BIN
B03基础物料仓库/testDll.res
View File

Binary file not shown.

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

@ -27,7 +27,8 @@ uses
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_DyePlanForCardSel in 'U_DyePlanForCardSel.pas' {frmProductOrderListSel};
{$R *.res}

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

@ -147,6 +147,10 @@
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<DCCReference Include="U_DyePlanForCardSel.pas">
<Form>frmProductOrderListSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

@ -1,46 +1,47 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.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.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.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.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.278,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.278,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm</Transaction>
<Transaction>2025/08/29 17:00:58.000.253,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F01染色坯布仓库\U_DyePlanForCardSel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/>
@ -86,5 +87,7 @@
<File Path="U_DataLink.dfm"/>
<File Path="U_GetDllForm.pas"/>
<File Path="U_iniParam.pas"/>
<File Path="U_DyePlanForCardSel.pas"/>
<File Path="U_DyePlanForCardSel.dfm"/>
</ProjectSortOrder>
</BorlandProject>

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

Binary file not shown.

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

@ -10,7 +10,6 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitLeft = -489
ExplicitWidth = 1356
ExplicitHeight = 585
PixelsPerInch = 96
@ -78,7 +77,7 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Width = 80
end
object v1Column4: TcxGridDBColumn
Caption = #21152#24037#31867#22411
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'ioType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
@ -94,9 +93,9 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter
Width = 87
end
object v1YWY: TcxGridDBColumn
Caption = #36319#21333#21592
DataBinding.FieldName = 'follower'
object Tv1OrderNo: TcxGridDBColumn
Caption = #29983#20135#35746#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
@ -104,15 +103,9 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1OrderNoPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 67
end
object Tv1OrderNo: TcxGridDBColumn
Caption = #29983#20135#35746#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Width = 90
end
object Tv1Column4: TcxGridDBColumn
Caption = #25104#21697#32534#21495
@ -128,19 +121,12 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter
Width = 72
end
object v1SPMF: TcxGridDBColumn
Caption = #25104#21697#38376#24133
DataBinding.FieldName = 'C_Width'
object Tv1C_Name: TcxGridDBColumn
Caption = #25104#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object Tv1Column3: TcxGridDBColumn
Caption = #21518#25972#29702#25551#36848
DataBinding.FieldName = 'finishDescription'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
Width = 80
end
object Tv1Column2: TcxGridDBColumn
Caption = #22383#24067#32534#21495
@ -149,6 +135,36 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column9: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 58
end
object Tv1QtyUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1SPMF: TcxGridDBColumn
Caption = #25104#21697#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 75
end
object Tv1Column1: TcxGridDBColumn
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'F_Width'
@ -163,44 +179,20 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Qty'
object Tv1Column3: TcxGridDBColumn
Caption = #21518#25972#29702#25551#36848
DataBinding.FieldName = 'finishDescription'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column9: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 58
Width = 90
end
object Tv1Column5: TcxGridDBColumn
Caption = #35201#27714#20132#26399
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column5: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
Properties.OnButtonClick = v1Column5PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 79
end
object Tv1Column8: TcxGridDBColumn
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
@ -222,14 +214,6 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1C_Name: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1StkCoName: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
@ -246,14 +230,6 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1QtyUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1

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

@ -32,10 +32,8 @@ type
cxGridPopupMenu2: TcxGridPopupMenu;
v1Column12: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1SPMF: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1YWY: TcxGridDBColumn;
ToolButton1: TToolButton;
Tv1Column4: TcxGridDBColumn;
ToolButton2: TToolButton;
@ -79,6 +77,7 @@ type
procedure ToolButton7Click(Sender: TObject);
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
{ Private declarations }
function SaveCKData(): Boolean;
@ -95,7 +94,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_DyePlanCardSel, U_CompanySel,
U_GreyClothStkSel, U_GreyClothHXSel, U_GreyClothDYSel, U_GreyClothDJHXSel,
U_GreyClothHXDJSel, U_ClothInfoSel;
U_GreyClothHXDJSel, U_ClothInfoSel, U_DyePlanForCardSel;
{$R *.dfm}
@ -163,6 +162,51 @@ begin
begin
Maxno := Trim(MBCIOID);
end;
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('select * from Dye_Plan_Main where OrderNo = ' + QuotedStr(Trim(CDS_Sub.FieldByName('OrderNo').Value)));
// Open;
// end;
// if (ADOQueryCmd.FieldByName('GC_STKID').Value <> '') and (ADOQueryCmd.FieldByName('GC_STKID').Value <> null) then
// begin
//
// if Pos(',' + Trim(Maxno) + ',', ',' + Trim(ADOQueryCmd.FieldByName('GC_STKID').AsString) + ',') > 0 then
// begin
//
// end
// else
// begin
// with ADOQueryCmd do
// begin
// Edit;
// FieldByName('GC_STKID').Value := FieldByName('GC_STKID').value + ',' + Maxno;
// Post;
// end;
//
// end;
//
// end
// else
// begin
// with ADOQueryCmd do
// begin
// edit;
// FieldByName('GC_STKID').Value := Maxno;
// Post;
// end;
// end;
with ADOQueryCmd do
begin
Close;
@ -170,6 +214,7 @@ begin
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(MBCIOID) = '' then
@ -345,8 +390,7 @@ begin
if SaveCKData() then
begin
Application.MessageBox('±£´æ³É¹¦!', 'Ìáʾ', 0);
//ModalResult:=1;
Exit;
close;
end;
end;
@ -721,6 +765,32 @@ begin
end;
end;
procedure TfrmDyeGreyClothInEdit.Tv1OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('exec P_OrderCR');
// ShowMessage(sql.Text);
execsql;
end;
frmProductOrderListSel := TfrmProductOrderListSel.create(self);
with frmProductOrderListSel do
begin
FWorkshop := self.FWorkshop;
if ShowModal = 1 then
begin
Self.CDS_Sub.Edit;
Self.CDS_Sub.FieldByName('OrderNo').Value := Order_Main.fieldbyname('OrderNo').asstring;
// initGlide();
end;
free;
end;
end;
procedure TfrmDyeGreyClothInEdit.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin

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

@ -30,7 +30,6 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = 1
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -116,7 +115,6 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 32
object Label1: TLabel
Left = 28
Top = 12
@ -328,7 +326,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 97
ExplicitTop = 95
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -388,6 +386,13 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
HeaderAlignmentHorz = taCenter
Width = 41
end
object Tv1lzckordno: TcxGridDBColumn
Caption = #26469#36135#21333#21495
DataBinding.FieldName = 'lzckordno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BCIOID'
@ -423,6 +428,112 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Options.Editing = False
Width = 81
end
object Tv1OrderNo: TcxGridDBColumn
Caption = #29983#20135#35746#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Column4: TcxGridDBColumn
Caption = #25104#21697#32534#21495
DataBinding.FieldName = 'C_COde'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1F_Code: TcxGridDBColumn
Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #25104#21697#21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
object v1Column15: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object v1Column13: TcxGridDBColumn
Caption = #25104#21697#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object Tv1F_Width: TcxGridDBColumn
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'F_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Material: TcxGridDBColumn
Caption = #26448#36136
DataBinding.FieldName = 'Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1finishDescription: TcxGridDBColumn
Caption = #21518#25972#29702#25551#36848
DataBinding.FieldName = 'finishDescription'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1DlyDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#21333#20301
@ -440,154 +551,6 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Options.Editing = False
Width = 116
end
object Tv1Column4: TcxGridDBColumn
Caption = #24067#31181#32534#21495
DataBinding.FieldName = 'C_COde'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 81
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v1Column9: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object v1Column13: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object v1Column11: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column15: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column5: TcxGridDBColumn
Tag = 2
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v1Column19: TcxGridDBColumn
Caption = #36710#38388
DataBinding.FieldName = 'Workshop'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object Tv1Column6: TcxGridDBColumn
Caption = #22411#21495
DataBinding.FieldName = 'C_XINHAO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column7: TcxGridDBColumn
Caption = #24037#33402
DataBinding.FieldName = 'C_GONGYI'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column8: 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
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
@ -597,46 +560,6 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Options.Editing = False
Width = 79
end
object v1Column20: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
object Tv1Column3: TcxGridDBColumn
Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column5: TcxGridDBColumn
Caption = #30721#23610
DataBinding.FieldName = 'Yardstick'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1

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

@ -62,33 +62,18 @@ type
v1Column4: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
Label10: TLabel;
BatchNo: TEdit;
v1Column9: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column2: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Label6: TLabel;
Label7: TLabel;
C_Width: TEdit;
@ -97,6 +82,13 @@ type
Label11: TLabel;
C_XINHAO: TEdit;
C_ColorDepth: TEdit;
Tv1lzckordno: TcxGridDBColumn;
Tv1F_Code: TcxGridDBColumn;
Tv1OrderNo: TcxGridDBColumn;
Tv1F_Width: TcxGridDBColumn;
Tv1Material: TcxGridDBColumn;
Tv1finishDescription: TcxGridDBColumn;
Tv1DlyDate: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);

343
F01染色坯布仓库/U_DyeGreyClothOutEdit.dfm
View File

@ -2,7 +2,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Left = 65
Top = 113
Caption = #20986#24211#30331#35760
ClientHeight = 486
ClientHeight = 546
ClientWidth = 1406
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -10,9 +10,8 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Font.Name = #23435#20307
Position = poMainFormCenter
OnClose = FormClose
ExplicitLeft = -538
ExplicitWidth = 1422
ExplicitHeight = 525
ExplicitHeight = 585
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
@ -82,15 +81,22 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Left = 0
Top = 38
Width = 1406
Height = 448
Height = 508
Align = alClient
TabOrder = 1
ExplicitTop = 44
ExplicitLeft = -91
ExplicitTop = 96
ExplicitWidth = 1284
ExplicitHeight = 447
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource3
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
@ -110,7 +116,18 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
end
item
Kind = skSum
Column = v1Column14
end
item
Kind = skSum
end
item
Format = #26465#25968#65306'0'
Kind = skCount
Column = v1Column6
end
item
Kind = skSum
Column = v1Column15
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -120,243 +137,192 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Styles.Header = DataLink_DyeGreyClothStk.Default
Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe
Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe
object v1Column13: TcxGridDBColumn
Tag = 2
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
object Tv1Column2: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 94
Width = 41
end
object v1Column6: TcxGridDBColumn
Tag = 2
Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 91
Width = 83
end
object v1Column2: TcxGridDBColumn
Tag = 2
Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.FieldName = 'ioTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Width = 100
Options.Editing = False
Width = 93
end
object v1CRType: TcxGridDBColumn
object v1Column4: TcxGridDBColumn
Tag = 2
Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.DropDownRows = 20
Properties.Items.Strings = (
#21152#24037#20986#24211
#36864#36824)
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1Column1: TcxGridDBColumn
Tag = 2
Caption = #37319#36141#21152#24037#21512#21516#21495
DataBinding.FieldName = 'ConNo'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Visible = False
#27491#24120#20837#24211
#29983#20135#36864#22238
#26399#21021#20837#24211)
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 99
Width = 81
end
object Tv1Column2: TcxGridDBColumn
Caption = #20986#21040#21333#20301
DataBinding.FieldName = 'ToCoName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column2PropertiesButtonClick
object Tv1OrderNo: TcxGridDBColumn
Tag = 2
Caption = #29983#20135#35746#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Column4: TcxGridDBColumn
Tag = 2
Caption = #25104#21697#32534#21495
DataBinding.FieldName = 'C_COde'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1F_Code: TcxGridDBColumn
Tag = 2
Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column3: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object v1Column5: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_name'
Caption = #25104#21697#21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 97
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object v1Column10: TcxGridDBColumn
Tag = 2
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object v1Column11: TcxGridDBColumn
Tag = 2
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column7: TcxGridDBColumn
Tag = 2
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object v1CheJian: TcxGridDBColumn
Tag = 2
Caption = #36710#38388
DataBinding.FieldName = 'Workshop'
PropertiesClassName = 'TcxComboBoxProperties'
HeaderAlignmentHorz = taCenter
Width = 69
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Tag = 2
Caption = #22411#21495
DataBinding.FieldName = 'C_XINHAO'
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column7: TcxGridDBColumn
Tag = 2
Caption = #24037#33402
DataBinding.FieldName = 'C_Gongyi'
HeaderAlignmentHorz = taCenter
Width = 68
end
object Tv1Column8: TcxGridDBColumn
Tag = 2
Caption = #26426#21488
DataBinding.FieldName = 'c_Jitai'
HeaderAlignmentHorz = taCenter
Width = 70
Width = 99
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
object v1Column15: TcxGridDBColumn
Tag = 2
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
Width = 75
end
object v1Column13: TcxGridDBColumn
Tag = 2
Caption = #25104#21697#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object Tv1F_Width: TcxGridDBColumn
Tag = 2
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'F_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Material: TcxGridDBColumn
Tag = 2
Caption = #26448#36136
DataBinding.FieldName = 'Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1finishDescription: TcxGridDBColumn
Tag = 2
Caption = #21518#25972#29702#25551#36848
DataBinding.FieldName = 'finishDescription'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1DlyDate: TcxGridDBColumn
Tag = 2
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column14: TcxGridDBColumn
Tag = 2
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
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 116
end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object Tv1Column1: TcxGridDBColumn
Tag = 2
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object Tv1Column6: TcxGridDBColumn
Tag = 2
Caption = #24067#31181#32534#21495
DataBinding.FieldName = 'C_COde'
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column10: TcxGridDBColumn
Tag = 2
Caption = #35013#26694
DataBinding.FieldName = 'C_ZHUANGKUANG'
HeaderAlignmentHorz = taCenter
Width = 68
end
object Tv1Column11: TcxGridDBColumn
Tag = 2
Caption = #21152#24613
DataBinding.FieldName = 'C_JIAJI'
HeaderAlignmentHorz = taCenter
Width = 67
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
@ -402,11 +368,10 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Connection = DataLink_DyeGreyClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 352
Top = 176
Left = 376
Top = 184
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 464
Top = 104

133
F01染色坯布仓库/U_DyeGreyClothOutEdit.pas
View File

@ -11,7 +11,7 @@ uses
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit,
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
U_BaseInput, System.ImageList, Vcl.ImgList;
U_BaseInput, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations, cxCheckBox;
type
TfrmDyeGreyClothOutEdit = class(TfrmBaseInput)
@ -26,37 +26,28 @@ type
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
cxGridPopupMenu2: TcxGridPopupMenu;
ToolButton1: TToolButton;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
Tv1Column2: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1CRType: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
Tv1OrderNo: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1F_Code: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
Tv1F_Width: TcxGridDBColumn;
Tv1Material: TcxGridDBColumn;
Tv1finishDescription: TcxGridDBColumn;
Tv1DlyDate: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
v1Column1: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1CheJian: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
ToolButton1: TToolButton;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
@ -66,6 +57,7 @@ type
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
{ Private declarations }
function SaveCKData(): Boolean;
@ -80,7 +72,8 @@ var
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_DyeGreyClothStkSel, U_CompanySel;
U_DataLink, U_RTFun, U_ZDYHelp, U_DyeGreyClothStkSel, U_CompanySel,
U_DyePlanForCardSel;
{$R *.dfm}
@ -117,10 +110,11 @@ begin
FieldByName('StkCoName').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('StkCoName').Value;
FieldByName('ToCoNo').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('StkCoNo').Value;
FieldByName('ToCoName').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('StkCoName').Value;
FieldByName('F_Code').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('F_Code').Value;
FieldByName('C_Name').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_Name').Value;
FieldByName('C_code').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_code').Value;
FieldByName('C_Spec').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_Spec').Value;
FieldByName('OrderNo').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('OrderNo').Value;
FieldByName('QtyUnit').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('QtyUnit').Value;
FieldByName('Qty').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('STKQTY').Value;
FieldByName('Piece').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('StkPiece').Value;
@ -128,18 +122,14 @@ begin
FieldByName('C_Width').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_Width').Value;
FieldByName('C_GramWeight').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_GramWeight').Value;
FieldByName('FromOrdNo').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('FromOrdNo').Value;
FieldByName('Workshop').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('Workshop').Value;
FieldByName('PieceWeight').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('PieceWeight').Value;
FieldByName('C_ColorDepth').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_ColorDepth').Value;
FieldByName('F_Width').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('F_Width').Value;
FieldByName('finishDescription').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('finishDescription').Value;
FieldByName('Material').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('Material').Value;
FieldByName('C_Color').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_Color').Value;
FieldByName('C_XINHAO').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_XINHAO').Value;
FieldByName('C_GONGYI').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_GONGYI').Value;
FieldByName('DlyDate').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('DlyDate').Value;
FieldByName('C_JITAI').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_JITAI').Value;
FieldByName('C_ZHUANGKUANG').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_ZHUANGKUANG').Value;
FieldByName('C_JIAJI').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('C_JIAJI').Value;
FieldByName('Note').Value := frmDyeGreyClothStkSel.CDS_Main.fieldbyname('Note').Value;
end;
frmDyeGreyClothStkSel.CDS_Main.Delete;
@ -183,6 +173,7 @@ begin
begin
Maxno := Trim(MBCIOID);
end;
with ADOQueryCmd do
begin
Close;
@ -346,6 +337,11 @@ begin
Application.MessageBox('数量不能为空!', '提示', 0);
Exit;
end;
if CDS_Sub.Locate('OrderNo', null, []) = True then
begin
Application.MessageBox('¼Æ»®µ¥ºÅ²»ÄÜΪ¿Õ!', 'Ìáʾ', 0);
Exit;
end;
if SaveCKData() then
begin
Application.MessageBox('保存成功!', '提示', 0);
@ -391,30 +387,55 @@ procedure TfrmDyeGreyClothOutEdit.Tv1MouseDown(Sender: TObject; Button: TMouseBu
var
FFSPID: string;
begin
if CDS_Sub.IsEmpty then
Exit;
if Trim(CDS_Sub.fieldbyname('BCIOID').AsString) <> '' then
// if CDS_Sub.IsEmpty then
// Exit;
// if Trim(CDS_Sub.fieldbyname('BCIOID').AsString) <> '' then
// begin
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(CDS_Sub.fieldbyname('BCIOID').AsString) + '''');
// Open;
// end;
// FFSPID := Trim(ADOQueryTemp.fieldbyname('BCIOID').AsString);
// if Trim(FFSPID) <> '' then
// begin
// v1CRType.Options.Editing := False;
// end
// else
// begin
// v1CRType.Options.Editing := True;
// end;
// end
// else
// begin
// v1CRType.Options.Editing := True;
// end;
end;
procedure TfrmDyeGreyClothOutEdit.v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
with ADOQueryTemp do
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(CDS_Sub.fieldbyname('BCIOID').AsString) + '''');
Open;
end;
FFSPID := Trim(ADOQueryTemp.fieldbyname('BCIOID').AsString);
if Trim(FFSPID) <> '' then
begin
v1CRType.Options.Editing := False;
end
else
begin
v1CRType.Options.Editing := True;
end;
end
else
close;
sql.Clear;
sql.Add('exec P_OrderCR');
// ShowMessage(sql.Text);
execsql;
end;
frmProductOrderListSel := TfrmProductOrderListSel.create(self);
with frmProductOrderListSel do
begin
v1CRType.Options.Editing := True;
FWorkshop := self.FWorkshop;
if ShowModal = 1 then
begin
Self.CDS_Sub.FieldByName('OrderNo').Value := Order_Main.fieldbyname('OrderNo').asstring;
// initGlide();
end;
free;
end;
end;

342
F01染色坯布仓库/U_DyeGreyClothOutList.dfm
View File

@ -336,7 +336,11 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Width = 1193
Height = 447
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitLeft = -91
ExplicitTop = 96
ExplicitWidth = 1284
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -345,11 +349,6 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
item
Kind = skSum
Position = spFooter
Column = v1Column19
end
item
Kind = skSum
Column = v1Column19
end>
DataController.Summary.FooterSummaryItems = <
item
@ -370,15 +369,18 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
end
item
Kind = skSum
Column = v1Column19
end
item
Kind = skSum
end
item
Format = #26465#25968':0'
Format = #26465#25968#65306'0'
Kind = skCount
Column = v1Column6
end
item
Kind = skSum
Column = v1Column15
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -388,13 +390,14 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Styles.Header = DataLink_DyeGreyClothStk.Default
Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe
Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe
object Tv1Column6: TcxGridDBColumn
object Tv1Column2: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 41
end
object v1Column6: TcxGridDBColumn
Caption = #20986#24211#21333#21495
@ -407,13 +410,14 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
object v1Column2: TcxGridDBColumn
Tag = 2
Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.FieldName = 'ioTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Width = 100
Options.Editing = False
Width = 93
end
object v1Column4: TcxGridDBColumn
Tag = 2
@ -423,37 +427,118 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#21152#24037#20986#24211
#24179#31227#20986#24211
#36864#36135)
#27491#24120#20837#24211
#29983#20135#36864#22238
#26399#21021#20837#24211)
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object Tv1OrderNo: TcxGridDBColumn
Caption = #29983#20135#35746#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Column4: TcxGridDBColumn
Caption = #25104#21697#32534#21495
DataBinding.FieldName = 'C_COde'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 81
end
object v1Column15: TcxGridDBColumn
object Tv1F_Code: TcxGridDBColumn
Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #25152#23646#31867#22411
DataBinding.FieldName = 'SSType'
Caption = #25104#21697#21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
object v1Column15: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#33258#24049
#23458#25143)
Visible = False
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 75
end
object v1Column1: TcxGridDBColumn
Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'ConNo'
object v1Column13: TcxGridDBColumn
Caption = #25104#21697#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 85
Width = 67
end
object Tv1F_Width: TcxGridDBColumn
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'F_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Material: TcxGridDBColumn
Caption = #26448#36136
DataBinding.FieldName = 'Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1finishDescription: TcxGridDBColumn
Caption = #21518#25972#29702#25551#36848
DataBinding.FieldName = 'finishDescription'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1DlyDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column14: TcxGridDBColumn
Tag = 2
@ -470,215 +555,17 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
end
object v1Column13: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object v1Column16: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object v1Column17: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'SXPinPai'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 98
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v1Column20: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'SPCode'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 92
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 74
end
object Tv1Column1: TcxGridDBColumn
Caption = #27969#31243#21495
DataBinding.FieldName = 'ToPCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1Column7: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
end
object Tv1Column5: TcxGridDBColumn
Caption = #20986#21040#21333#20301
DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
end
object v1Column18: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 82
end
object v1Column5: TcxGridDBColumn
Caption = #36710#38388
DataBinding.FieldName = 'Workshop'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object v1Column19: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 51
end
object Tv1Column8: TcxGridDBColumn
Caption = #22411#21495
DataBinding.FieldName = 'C_XINHAO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column9: TcxGridDBColumn
Caption = #24037#33402
DataBinding.FieldName = 'C_GONGYI'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object Tv1Column10: TcxGridDBColumn
Caption = #26426#21488
DataBinding.FieldName = 'C_JITAI'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object Tv1Column11: TcxGridDBColumn
Caption = #35013#26694
DataBinding.FieldName = 'C_ZHUANGKUANG'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 68
end
object Tv1Column12: TcxGridDBColumn
Caption = #21152#24613
DataBinding.FieldName = 'C_JIAJI'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 68
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 76
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 58
end
object Tv1Column2: TcxGridDBColumn
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
Width = 116
end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object Tv1Column7: TcxGridDBColumn
Caption = #24067#31181#32534#21495
DataBinding.FieldName = 'C_COde'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object Tv1Column3: TcxGridDBColumn
Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
@ -720,7 +607,6 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Top = 152
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 1104
Top = 168

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

@ -45,19 +45,6 @@ type
N2: TMenuItem;
TBAdd: TToolButton;
TBEdit: TToolButton;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
@ -68,42 +55,41 @@ type
BCIOID: TEdit;
C_spec: TEdit;
IOType: TComboBox;
v1Column20: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
Label9: TLabel;
C_XINHAO: TEdit;
v1Column5: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
Label6: TLabel;
OrderNo: TEdit;
Label7: TLabel;
FTYNo: TEdit;
Tv1Column2: TcxGridDBColumn;
ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
ToolButton2: TToolButton;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Label10: TLabel;
Label11: TLabel;
C_Width: TEdit;
C_GramWeight: TEdit;
Label14: TLabel;
C_ColorDepth: TEdit;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
Tv1Column2: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
Tv1OrderNo: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1F_Code: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
Tv1F_Width: TcxGridDBColumn;
Tv1Material: TcxGridDBColumn;
Tv1finishDescription: TcxGridDBColumn;
Tv1DlyDate: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);

336
F01染色坯布仓库/U_DyeGreyClothStkSel.dfm
View File

@ -10,7 +10,6 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Font.Name = #23435#20307
Position = poMainFormCenter
OnClose = FormClose
ExplicitLeft = -1
ExplicitWidth = 1181
ExplicitHeight = 511
PixelsPerInch = 96
@ -179,38 +178,15 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitLeft = -320
ExplicitTop = 80
ExplicitTop = 71
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
Column = v1Column1
end
item
Kind = skSum
Column = v1Column1
end
item
Kind = skSum
Position = spFooter
Column = v1Column7
end
item
Kind = skSum
Position = spFooter
Column = v1Column9
end
item
Kind = skSum
Column = v1Column7
end
item
Kind = skSum
Column = v1Column9
end>
DataController.Summary.FooterSummaryItems = <
item
@ -231,15 +207,18 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
end
item
Kind = skSum
Column = v1Column1
end
item
Kind = skSum
Column = v1Column7
end
item
Format = #26465#25968#65306'0'
Kind = skCount
Column = v1Column6
end
item
Kind = skSum
Column = v1Column9
Column = v1Column15
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -249,33 +228,168 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Styles.Header = DataLink_DyeGreyClothStk.Default
Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe
Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe
object v1Column17: TcxGridDBColumn
object Tv1Column2: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 49
Width = 41
end
object v1Column11: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'FromOrdNo'
object Tv1lzckordno: TcxGridDBColumn
Caption = #26469#36135#21333#21495
DataBinding.FieldName = 'lzckordno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
Width = 80
end
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
Width = 83
end
object v1Column2: TcxGridDBColumn
Tag = 2
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'ioTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 93
end
object v1Column4: TcxGridDBColumn
Tag = 2
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#27491#24120#20837#24211
#29983#20135#36864#22238
#26399#21021#20837#24211)
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object Tv1OrderNo: TcxGridDBColumn
Caption = #29983#20135#35746#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Column4: TcxGridDBColumn
Caption = #25104#21697#32534#21495
DataBinding.FieldName = 'C_COde'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1F_Code: TcxGridDBColumn
Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #25104#21697#21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
object v1Column15: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object v1Column13: TcxGridDBColumn
Caption = #25104#21697#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object Tv1F_Width: TcxGridDBColumn
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'F_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Material: TcxGridDBColumn
Caption = #26448#36136
DataBinding.FieldName = 'Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1finishDescription: TcxGridDBColumn
Caption = #21518#25972#29702#25551#36848
DataBinding.FieldName = 'finishDescription'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1DlyDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
@ -286,144 +400,16 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 108
Width = 116
end
object v2Column1: TcxGridDBColumn
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 131
end
object v1Column4: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object Tv1Column4: TcxGridDBColumn
Caption = #22411#21495
DataBinding.FieldName = 'C_XINHAO'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column5: TcxGridDBColumn
Caption = #24037#33402
DataBinding.FieldName = 'C_GONGYI'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column6: TcxGridDBColumn
Caption = #26426#21488
DataBinding.FieldName = 'C_JITAI'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column7: TcxGridDBColumn
Caption = #35013#26694
DataBinding.FieldName = 'C_ZHUANGKUANG'
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column8: TcxGridDBColumn
Caption = #21152#24613
DataBinding.FieldName = 'C_JIAJI'
HeaderAlignmentHorz = taCenter
Width = 69
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object v1Column7: TcxGridDBColumn
Caption = #20837#24211#21305#25968
DataBinding.FieldName = 'Piece'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
end
object v1Column9: TcxGridDBColumn
Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'Qty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
object Tv1Column1: TcxGridDBColumn
Tag = 2
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
HeaderAlignmentHorz = taCenter
Width = 71
end
object v1Column1: TcxGridDBColumn
Caption = #24211#23384#21305#25968
DataBinding.FieldName = 'StkPiece'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'STkQty'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 51
end
object Tv1Column2: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
HeaderAlignmentHorz = taCenter
Width = 76
end
object Tv1Column3: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 59
Options.Editing = False
Width = 79
end
end
object cxGrid2Level1: TcxGridLevel

45
F01染色坯布仓库/U_DyeGreyClothStkSel.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp, System.ImageList,
Vcl.ImgList;
Vcl.ImgList, dxScrollbarAnnotations;
type
TfrmDyeGreyClothStkSel = class(TfrmBaseHelp)
@ -33,19 +33,6 @@ type
N1: TMenuItem;
N2: TMenuItem;
ToolButton1: TToolButton;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column17: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
Label3: TLabel;
Label4: TLabel;
Label8: TLabel;
@ -54,21 +41,31 @@ type
FromCoName: TEdit;
C_Spec: TEdit;
C_XINHAO: TEdit;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
Label5: TLabel;
OrderNo: TEdit;
Tv1Column1: TcxGridDBColumn;
ToolButton2: TToolButton;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1lzckordno: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
Tv1OrderNo: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1F_Code: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
Tv1F_Width: TcxGridDBColumn;
Tv1Material: TcxGridDBColumn;
Tv1finishDescription: TcxGridDBColumn;
Tv1DlyDate: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);

374
F01染色坯布仓库/U_DyePlanForCardSel.dfm Normal file
View File

@ -0,0 +1,374 @@
object frmProductOrderListSel: TfrmProductOrderListSel
Left = -8
Top = -8
Caption = #35745#21010#21333#36873#25321
ClientHeight = 613
ClientWidth = 1370
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
WindowState = wsMaximized
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Tag = 1
Left = 0
Top = 0
Width = 1370
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_DyeGreyClothStk.ImageList_new32
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_DyeGreyClothStk.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
Visible = False
OnClick = TBFindClick
end
object ToolButton3: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #36873#25321
ImageIndex = 12
OnClick = ToolButton3Click
end
object ToolButton1: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 308
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 38
Width = 1370
Height = 43
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label3: TLabel
Left = 292
Top = 14
Width = 52
Height = 12
Caption = #35745#21010#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 23
Top = 14
Width = 52
Height = 12
Caption = #21046#21333#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 164
Top = 14
Width = 6
Height = 12
Caption = '-'
end
object Label4: TLabel
Left = 524
Top = 14
Width = 52
Height = 12
Caption = #25104#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrderNo: TEdit
Tag = 2
Left = 349
Top = 10
Width = 149
Height = 20
TabOrder = 0
OnKeyPress = OrderNoKeyPress
end
object BegDate: TDateTimePicker
Left = 76
Top = 10
Width = 85
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
TabOrder = 1
end
object EndDate: TDateTimePicker
Left = 176
Top = 10
Width = 86
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
TabOrder = 2
end
object C_Name: TEdit
Tag = 2
Left = 581
Top = 10
Width = 149
Height = 20
TabOrder = 3
OnKeyPress = OrderNoKeyPress
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 103
Width = 1370
Height = 510
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1QtyOrder
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.IncSearch = DataLink_DyeGreyClothStk.SHuangSe
Styles.Header = DataLink_DyeGreyClothStk.Default
Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe
Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe
object v1Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 44
end
object Tv1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DyeGreyClothStk.Default
Width = 72
end
object Tv1C_CodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DyeGreyClothStk.Default
Width = 82
end
object Tv1F_Name: TcxGridDBColumn
Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DyeGreyClothStk.Default
Width = 82
end
object v1Column3: TcxGridDBColumn
Caption = #20844#26020#25968
DataBinding.FieldName = 'PRTOrderKgQty'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 52
end
object Tv1OrdDate: TcxGridDBColumn
Caption = #35746#21333#26085#26399
DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1QtyOrder: TcxGridDBColumn
Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'QtyOrder'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DyeGreyClothStk.Default
Width = 86
end
object Tv1DlyDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1C_PlanQty: TcxGridDBColumn
Caption = #35745#21010#25968#37327
DataBinding.FieldName = 'C_PlanQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1F_description: TcxGridDBColumn
Caption = #22383#24067#25551#36848
DataBinding.FieldName = 'F_description'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column16: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'ORDNOTE'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxTabControl1: TcxTabControl
Left = 0
Top = 81
Width = 1370
Height = 22
Align = alTop
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#24320#21345
#24050#24320#21345
#20840#37096)
OnChange = cxTabControl1Change
ClientRectBottom = 22
ClientRectRight = 1370
ClientRectTop = 19
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 544
Top = 176
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
Parameters = <>
Left = 344
Top = 312
end
object ADOQueryMain: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 432
Top = 326
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_DyeGreyClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 224
Top = 296
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 464
Top = 168
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 760
Top = 232
end
object PopupMenu1: TPopupMenu
Left = 640
Top = 192
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
end

251
F01染色坯布仓库/U_DyePlanForCardSel.pas Normal file
View File

@ -0,0 +1,251 @@
unit U_DyePlanForCardSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxPC, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxScrollbarAnnotations;
type
TfrmProductOrderListSel = class(TForm)
ToolBar1: TToolBar;
TBClose: TToolButton;
Panel1: TPanel;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
OrderNo: TEdit;
Tv1OrderNo: TcxGridDBColumn;
Tv1F_Name: TcxGridDBColumn;
Order_Main: TClientDataSet;
Tv1C_CodeName: TcxGridDBColumn;
Tv1QtyOrder: TcxGridDBColumn;
ToolButton3: TToolButton;
v1Column4: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
Tv1DlyDate: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Tv1OrdDate: TcxGridDBColumn;
TBRafresh: TToolButton;
TBFind: TToolButton;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
cxTabControl1: TcxTabControl;
Tv1C_PlanQty: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
ToolButton1: TToolButton;
Label4: TLabel;
C_Name: TEdit;
Tv1F_description: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
// procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
procedure Tv1DblClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
private
DQdate: TDateTime;
procedure InitGrid();
procedure InitForm();
{ Private declarations }
public
FFInt, FCloth: Integer;
fWorkshop: string;
{ Public declarations }
end;
var
frmProductOrderListSel: TfrmProductOrderListSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmProductOrderListSel.FormDestroy(Sender: TObject);
begin
frmProductOrderListSel := nil;
end;
procedure TfrmProductOrderListSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmProductOrderListSel.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmProductOrderListSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
Filtered := False;
sql.Clear;
sql.Add('select A.* ');
sql.add('from Dye_Plan_Main A');
// sql.Add('inner join Dye_Plan_Main B on B.mainID=A.mainID ');
sql.Add('where A.OrdDate>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add('and A.OrdDate<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
// sql.Add('and B.Workshop=' + quotedstr(fWorkshop));
// sql.Add('and isnull(B.status,''0'')=''9''');
if OrderNo.Text <> '' then
begin
SQL.Add('AND A.OrderNo like ''' + '%' + Trim(OrderNo.Text) + '%' + '''');
end;
if C_Name.Text <> '' then
begin
SQL.Add('AND A.C_Name like ''' + '%' + Trim(C_Name.Text) + '%' + '''');
end;
if cxTabControl1.TabIndex = 0 then
sql.Add('and not exists(select PCID from Dye_Plan_Card X where X.MainID=A.MainID)');
if cxTabControl1.TabIndex = 1 then
sql.Add('and exists(select PCID from Dye_Plan_Card X where X.MainID=A.MainID)');
// ShowMessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
Tbfind.Click;
end;
end;
procedure TfrmProductOrderListSel.InitForm();
begin
ReadCxGrid('指示单列表选择', Tv1, '生产指示单管理');
BegDate.DateTime := SGetServerDate(ADOQueryTemp);
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
InitGrid();
end;
procedure TfrmProductOrderListSel.FormShow(Sender: TObject);
begin
InitForm();
if FFInt = 1 then
begin
v1Column4.Visible := False;
v1Column4.Hidden := True;
end;
// InitGrid();
end;
procedure TfrmProductOrderListSel.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid('指示单列表选择', Tv1, '生产指示单管理');
end;
procedure TfrmProductOrderListSel.ToolButton3Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
ModalResult := 1;
end;
//procedure TfrmProductOrderListSel.OrderNoKeyPress(Sender: TObject; var Key: Char);
//begin
// if Key = #13 then
// begin
// if Length(Trim(OrderNo.Text)) < 3 then
// Exit;
// try
// ADOQueryMain.DisableControls;
// with ADOQueryMain do
// begin
//
// Close;
// Filtered := False;
// sql.Clear;
// sql.Add('select B.*,A.*,A.OrderNo orderNoM ');
// sql.add('from Dye_Plan_sub A');
// sql.Add('inner join Dye_Plan_Main B on B.mainID=A.mainID ');
// // sql.Add('left join Dye_PlanCon_Main C on C.conNO=B.conNO ');
// SQL.Add('where B.OrderNo like ''' + '%' + Trim(OrderNo.Text) + '%' + '''');
// Open;
// end;
// SCreateCDS(ADOQueryMain, Order_Main);
// SInitCDSData(ADOQueryMain, Order_Main);
// finally
// ADOQueryMain.EnableControls;
// end;
// end;
//end;
procedure TfrmProductOrderListSel.Tv1DblClick(Sender: TObject);
begin
ToolButton3.Click;
end;
procedure TfrmProductOrderListSel.N1Click(Sender: TObject);
begin
SelOKNo(Order_Main, True);
end;
procedure TfrmProductOrderListSel.N2Click(Sender: TObject);
begin
SelOKNo(Order_Main, false);
end;
procedure TfrmProductOrderListSel.OrderNoKeyPress(Sender: TObject;
var Key: Char);
begin
InitGrid();
end;
procedure TfrmProductOrderListSel.TBRafreshClick(Sender: TObject);
begin
initgrid();
end;
procedure TfrmProductOrderListSel.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmProductOrderListSel.cxTabControl1Change(Sender: TObject);
begin
TBRafresh.Click;
end;
end.

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

@ -511,6 +511,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
PopupMenu = PM_2
TabOrder = 2
object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
@ -529,50 +530,18 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
item
Kind = skSum
Position = spFooter
Column = v1Column7
end
item
Kind = skSum
Position = spFooter
Column = v1Column9
end
item
Kind = skSum
Column = v1Column7
end
item
Kind = skSum
Column = v1Column9
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
Column = v2Column6
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn5
end
item
Kind = skSum
Column = v1Column7
end
item
Kind = skSum
Column = v1Column9
end>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
@ -581,30 +550,50 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Styles.Header = DataLink_DyePlan.Default
Styles.Inactive = DataLink_DyePlan.SHuangSe
Styles.Selection = DataLink_DyePlan.SHuangSe
object v1Column14: TcxGridDBColumn
object cxGridDBColumn1: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object TV2Column1: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1OrderNo: TcxGridDBColumn
Caption = #29983#20135#35746#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #23458#25143#21517#31216
DataBinding.FieldName = 'FromCoName'
Caption = #25104#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 93
Width = 124
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
object cxGridDBColumn2: TcxGridDBColumn
Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'F_Code '
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
Width = 84
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #21305#25968
@ -643,101 +632,32 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Options.Editing = False
Width = 51
end
object Tv1Column9: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'StkPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 124
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #23458#25143#32534#21495
DataBinding.FieldName = 'FromCoNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 131
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #38376#24133
Caption = #25104#21697#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'F_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
Caption = #26448#36136
DataBinding.FieldName = 'Material'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column7: TcxGridDBColumn
Caption = #20837#24211#21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object v1Column9: TcxGridDBColumn
Caption = #20837#24211#25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
object Tv1Column8: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column11: TcxGridDBColumn
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
end
object cxGrid2Level1: TcxGridLevel
GridView = TV2
@ -1396,7 +1316,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
object TV1Column2: TcxGridDBColumn
Tag = 7
Caption = #24037#24207
DataBinding.FieldName = 'GlideList'
DataBinding.FieldName = 'DTMPSlist'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_DyePlan.FontBlue
@ -1638,4 +1558,10 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Left = 216
Top = 169
end
object ADO_PB: TADOQuery
Connection = DataLink_DyePlan.ADOLink
Parameters = <>
Left = 308
Top = 148
end
end

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

@ -131,22 +131,16 @@ type
pnlOrder: TPanel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
v1Column14: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1OrderNo: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
Label23: TLabel;
OrderNo: TBtnEditA;
@ -170,6 +164,8 @@ type
DTMPSlist: TBtnEditA;
Label5: TLabel;
C_Name: TEdit;
ADO_PB: TADOQuery;
TV2Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -191,8 +187,9 @@ type
procedure C_ColorChange(Sender: TObject);
procedure TV3Column1PropertiesEditValueChanged(Sender: TObject);
procedure DTMPSlistBtnClick(Sender: TObject);
procedure TV2DblClick(Sender: TObject);
private
FMainID, FC_Code: string;
FC_Code: string;
FRollNum: integer;
FGC_BatchNo, FGC_Piece, FGC_STKID, FGC_Position: string;
FFromCoNo, FFromCoName, FSaleser, FC_Name, fbzunit: string;
@ -203,7 +200,7 @@ type
procedure InitRepairCard(PPCID: string);
{ Private declarations }
public
FWorkshop, FPCIDS: string;
FWorkshop, FPCIDS, FMainID: string;
@ -267,9 +264,9 @@ begin
begin
close;
sql.Clear;
sql.Add('select A.*,B.*');
sql.Add('select A.*');
sql.Add('from Dye_Plan_Main A ');
sql.Add('inner join Dye_Plan_Sub B on A.MainID=B.mainID ');
// sql.Add('inner join Dye_Plan_Sub B on A.MainID=B.mainID ');
sql.Add('where A.MainID=''' + trim(FMainID) + ''' ');
// ShowMessage(sql.Text);
@ -280,10 +277,10 @@ begin
if not Ado_Order.IsEmpty then
begin
fsj := 'select distinct(C_Color) name from Dye_Plan_sub where mainid= ' + QuotedStr(Trim(FMainID));
SInitComBoxBySql(ADOQueryTmp, C_COLOR, False, fsj);
SCSHData(Ado_Order, pnlOrder, 2);
// fsj := 'select distinct(C_Color) name from Dye_Plan_sub where mainid= ' + QuotedStr(Trim(FMainID));
// SInitComBoxBySql(ADOQueryTmp, C_COLOR, False, fsj);
// SCSHData(Ado_Order, pnlOrder, 2);
OrderNo.Text := Trim(Ado_Order.FieldByName('OrderNo').AsString);
FC_Name := Trim(Ado_Order.FieldByName('C_Name').AsString);
FFromCoNo := Trim(Ado_Order.FieldByName('CustNo').AsString);
FFromCoName := Trim(Ado_Order.FieldByName('CustName').AsString);
@ -291,7 +288,7 @@ begin
FGC_Piece := Trim(Ado_Order.FieldByName('GC_Piece').AsString);
FGC_STKID := Trim(Ado_Order.FieldByName('GC_STKID').AsString);
FGC_Position := Trim(Ado_Order.FieldByName('GC_Position').AsString);
fbzunit := Trim(Ado_Order.FieldByName('bzunit').AsString);
// fbzunit := Trim(Ado_Order.FieldByName('bzunit').AsString);
// FRollNum :=Trim(Ado_Order.FieldByName('').AsString);
end;
end;
@ -328,8 +325,26 @@ end;
procedure TfrmDyePlanCardInput.InitGreyClothStk();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
ADO_PB.DisableControls;
with ADO_PB do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select OrderNo, C_Name, F_Code, QtyUnit, Material,SUM(StkQty) as StkQty, SUM(StkPiece) as StkPiece ');
sql.Add(' ,IOTime = min(IOTime) ,IOType = min(ioType) ,C_Width = min(C_Width) ,F_Width = min(F_Width)');
sql.Add(' from BS_Cloth_IO A where isnull(STKName,'''')=''染色坯布'' ');
SQL.Add(' and A.IOFlag=''入库'' ');
// SQL.Add(' and EXISTS(select * from [dbo].[F_Tool_SplitString](' + quotedstr(FGC_STKID) + ','','' ) X where X.RTValue=A.StkId AND ISNULL(RTValue,'''')<>'''') ');
SQL.Add(' and A.OrderNo= ' + QuotedStr(trim(OrderNo.Text)));
SQL.Add(' group by OrderNo, C_Name, F_Code, QtyUnit, Material ');
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS(ADO_PB, CDS_2);
SInitCDSData(ADO_PB, CDS_2);
with ADO_PB do
begin
Filtered := False;
Close;
@ -337,14 +352,28 @@ begin
sql.Add(' select A.* ');
sql.Add(' from BS_Cloth_IO A where isnull(STKName,'''')=''染色坯布'' ');
SQL.Add(' and A.IOFlag=''入库'' ');
SQL.Add(' and EXISTS(select * from [dbo].[F_Tool_SplitString](' + quotedstr(FGC_STKID) + ','';'' ) X where X.RTValue=A.StkId) ');
// SQL.Add(' and EXISTS(select * from [dbo].[F_Tool_SplitString](' + quotedstr(FGC_STKID) + ','','' ) X where X.RTValue=A.StkId AND ISNULL(RTValue,'''')<>'''') ');
SQL.Add(' and A.OrderNo= ' + QuotedStr(trim(OrderNo.Text)));
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
ADO_PB.First;
while not ADO_PB.Eof do
begin
if (FGC_STKID <> '') and (FGC_STKID <> null) then
begin
FGC_STKID := ADO_PB.FieldByName('StkID').AsString + ',' + FGC_STKID;
end
else
begin
FGC_STKID := ADO_PB.FieldByName('StkID').AsString;
end;
ADO_PB.Next;
end;
finally
ADOQueryMain.EnableControls;
ADO_PB.EnableControls;
end;
end;
@ -391,8 +420,10 @@ begin
if ShowModal = 1 then
begin
fmainID := Order_Main.fieldbyname('mainID').asstring;
fC_Code := Order_Main.fieldbyname('C_Code').asstring;
fC_name := Order_Main.fieldbyname('C_name').asstring;
// fC_Code := Order_Main.fieldbyname('C_Code').asstring;
// fC_name := Order_Main.fieldbyname('C_name').asstring;
InitOrder();
InitGreyClothStk();
InitCard();
@ -567,12 +598,11 @@ var
maxId, maxno: string;
begin
// if trim(C_GramWeight.Text) = '' then
// begin
// application.MessageBox('克重不能为空！', '提示信息', MB_ICONERROR);
// exit;
// end;
if trim(C_Name.Text) = '' then
begin
application.MessageBox('产品名称不能为空！', '提示信息', MB_ICONERROR);
exit;
end;
if (StrToFloatDef(PCPiece.Text, 0) + StrToFloatDef(PCQty.Text, 0)) = 0 then
begin
application.MessageBox('开卡匹数、数量不能都为零！', '提示信息', MB_OK);
@ -598,6 +628,10 @@ begin
Exit;
end;
FPCIDS := FPCIDS + maxId + ';';
if not GetLSNo(ADOQueryCmd, maxno, 'PC', 'BS_Cloth_IO', 3, 1) then
raise Exception.Create('取染色坯布出库编号失败！');
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
@ -608,8 +642,9 @@ begin
Open;
Append;
FieldByName('OrderNo').Value := OrderNo.Text;
FieldByName('SubId').Value := CDS_Color.FieldByName('SubId').Value;
// FieldByName('SubId').Value := CDS_Color.FieldByName('SubId').Value;
FieldByName('Mainid').Value := FMainid;
FieldByName('BCIOID').Value := maxno;
FieldByName('Filler').Value := trim(DName);
FieldByName('Workshop').Value := trim(FWorkshop);
FieldByName('PCType').Value := trim(PCType.Text);
@ -619,6 +654,7 @@ begin
FieldByName('GC_Piece').Value := trim(FGC_Piece);
FieldByName('GC_STKID').Value := trim(FGC_STKID);
FieldByName('GC_Position').Value := trim(FGC_Position);
FieldByName('DTMPSlist').Value := trim(DTMPSlist.Text);
FieldByName('bzunit').Value := trim(Fbzunit);
// FieldByName('STATUS').Value := '9';
@ -635,23 +671,25 @@ begin
FieldByName('C_ColorNo').Value := trim(C_ColorNo.Text);
FieldByName('PCPiece').Value := StrtoIntDef(PCPiece.Text, 0);
FieldByName('PCQty').Value := StrtoFloatDef(PCQty.Text, 0);
// ShowMessage(FieldByName('PCQty').Value);
FieldByName('batchno').Value := INTTOSTR(k) + '-' + INTTOSTR(i);
post;
end;
// with ADOQueryCmd do
// begin
// Close;
// Sql.Clear;
// Sql.Add('exec P_Dye_GreyCloth_Out ');
// Sql.Add('@PCID=' + quotedstr(trim(maxId)));
// Sql.Add(',@Filler=' + quotedstr(trim(DName)));
// Open;
// end;
// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
// begin
// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
// end;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_Dye_GreyCloth_Out ');
Sql.Add('@PCID=' + quotedstr(trim(maxId)));
Sql.Add(',@Filler=' + quotedstr(trim(DName)));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
@ -663,144 +701,11 @@ begin
Sql.Clear;
Sql.Add('exec P_Dye_Cloth_GX @carno=' + QuotedStr(trim(maxId)));
sql.add(',@dname=' + QuotedStr(trim(dname)));
SQL.Add(',@C_code=' + QuotedStr(Trim(fC_Code)));
SQL.Add(',@C_Name=' + QuotedStr(Trim(C_Name.Text)));
SQL.Add(',@OrderNo=' + QuotedStr(Trim(OrderNo.Text)));
execsql;
end;
// with ADOQueryCmd do
// begin
// Close;
// Sql.Clear;
// Sql.Add('select * from Dye_Plan_Glide A where 1=2');
// Open;
// Append;
// if GetLSNo(ADOQueryTmp, maxno, 'CG', 'Dye_Plan_Glide', 4, 1) = False then
// Application.MessageBox('取最大号失败!', '提示', 0);
// fieldbyname('Filler').Value := trim(DName);
// FieldByName('GlideID').Value := trim(maxno);
// FieldByName('PCID').Value := trim(maxId);
// FieldByName('GlideNo').Value := trim('1');
// FieldByName('GlideName').Value := trim('白坯翻布');
// POST;
// Append;
// if GetLSNo(ADOQueryTmp, maxno, 'CG', 'Dye_Plan_Glide', 4, 1) = False then
// Application.MessageBox('取最大号失败!', '提示', 0);
// fieldbyname('Filler').Value := trim(DName);
// FieldByName('GlideID').Value := trim(maxno);
// FieldByName('PCID').Value := trim(maxId);
// FieldByName('GlideNo').Value := trim('2');
// FieldByName('GlideName').Value := trim('白坯缝头');
// POST;
// Append;
// if GetLSNo(ADOQueryTmp, maxno, 'CG', 'Dye_Plan_Glide', 4, 1) = False then
// Application.MessageBox('取最大号失败!', '提示', 0);
// fieldbyname('Filler').Value := trim(DName);
// FieldByName('GlideID').Value := trim(maxno);
// FieldByName('PCID').Value := trim(maxId);
// FieldByName('GlideNo').Value := trim('3');
// FieldByName('GlideName').Value := trim('出水');
// POST;
// Append;
// if GetLSNo(ADOQueryTmp, maxno, 'CG', 'Dye_Plan_Glide', 4, 1) = False then
// Application.MessageBox('取最大号失败!', '提示', 0);
// fieldbyname('Filler').Value := trim(DName);
// FieldByName('GlideID').Value := trim(maxno);
// FieldByName('PCID').Value := trim(maxId);
// FieldByName('GlideNo').Value := trim('4');
// FieldByName('GlideName').Value := trim('预定');
// POST;
// Append;
// if GetLSNo(ADOQueryTmp, maxno, 'CG', 'Dye_Plan_Glide', 4, 1) = False then
// Application.MessageBox('取最大号失败!', '提示', 0);
// fieldbyname('Filler').Value := trim(DName);
// FieldByName('GlideID').Value := trim(maxno);
// FieldByName('PCID').Value := trim(maxId);
// FieldByName('GlideNo').Value := trim('5');
// FieldByName('GlideName').Value := trim('前处理');
// POST;
// Append;
// if GetLSNo(ADOQueryTmp, maxno, 'CG', 'Dye_Plan_Glide', 4, 1) = False then
// Application.MessageBox('取最大号失败!', '提示', 0);
// fieldbyname('Filler').Value := trim(DName);
// FieldByName('GlideID').Value := trim(maxno);
// FieldByName('PCID').Value := trim(maxId);
// FieldByName('GlideNo').Value := trim('6');
// FieldByName('GlideName').Value := trim('称料工');
// POST;
// Append;
// if GetLSNo(ADOQueryTmp, maxno, 'CG', 'Dye_Plan_Glide', 4, 1) = False then
// Application.MessageBox('取最大号失败!', '提示', 0);
// fieldbyname('Filler').Value := trim(DName);
// FieldByName('GlideID').Value := trim(maxno);
// FieldByName('PCID').Value := trim(maxId);
// FieldByName('GlideNo').Value := trim('7');
// FieldByName('GlideName').Value := trim('染色');
// POST;
// Append;
// if GetLSNo(ADOQueryTmp, maxno, 'CG', 'Dye_Plan_Glide', 4, 1) = False then
// Application.MessageBox('取最大号失败!', '提示', 0);
// fieldbyname('Filler').Value := trim(DName);
// FieldByName('GlideID').Value := trim(maxno);
// FieldByName('PCID').Value := trim(maxId);
// FieldByName('GlideNo').Value := trim('8');
// FieldByName('GlideName').Value := trim('对样员');
// POST;
// Append;
// if GetLSNo(ADOQueryTmp, maxno, 'CG', 'Dye_Plan_Glide', 4, 1) = False then
// Application.MessageBox('取最大号失败!', '提示', 0);
// fieldbyname('Filler').Value := trim(DName);
// FieldByName('GlideID').Value := trim(maxno);
// FieldByName('PCID').Value := trim(maxId);
// FieldByName('GlideNo').Value := trim('9');
// FieldByName('GlideName').Value := trim('脱水工');
// POST;
// Append;
// if GetLSNo(ADOQueryTmp, maxno, 'CG', 'Dye_Plan_Glide', 4, 1) = False then
// Application.MessageBox('取最大号失败!', '提示', 0);
// fieldbyname('Filler').Value := trim(DName);
// FieldByName('GlideID').Value := trim(maxno);
// FieldByName('PCID').Value := trim(maxId);
// FieldByName('GlideNo').Value := trim('10');
// FieldByName('GlideName').Value := trim('开幅理布');
// POST;
// Append;
// if GetLSNo(ADOQueryTmp, maxno, 'CG', 'Dye_Plan_Glide', 4, 1) = False then
// Application.MessageBox('取最大号失败!', '提示', 0);
// fieldbyname('Filler').Value := trim(DName);
// FieldByName('GlideID').Value := trim(maxno);
// FieldByName('PCID').Value := trim(maxId);
// FieldByName('GlideNo').Value := trim('11');
// FieldByName('GlideName').Value := trim('烘干');
// POST;
// Append;
// if GetLSNo(ADOQueryTmp, maxno, 'CG', 'Dye_Plan_Glide', 4, 1) = False then
// Application.MessageBox('取最大号失败!', '提示', 0);
// fieldbyname('Filler').Value := trim(DName);
// FieldByName('GlideID').Value := trim(maxno);
// FieldByName('PCID').Value := trim(maxId);
// FieldByName('GlideNo').Value := trim('12');
// FieldByName('GlideName').Value := trim('成定');
// POST;
// Append;
// if GetLSNo(ADOQueryTmp, maxno, 'CG', 'Dye_Plan_Glide', 4, 1) = False then
// Application.MessageBox('取最大号失败!', '提示', 0);
// fieldbyname('Filler').Value := trim(DName);
// FieldByName('GlideID').Value := trim(maxno);
// FieldByName('PCID').Value := trim(maxId);
// FieldByName('GlideNo').Value := trim('13');
// FieldByName('GlideName').Value := trim('码布');
// POST;
// Append;
// if GetLSNo(ADOQueryTmp, maxno, 'CG', 'Dye_Plan_Glide', 4, 1) = False then
// Application.MessageBox('取最大号失败!', '提示', 0);
// fieldbyname('Filler').Value := trim(DName);
// FieldByName('GlideID').Value := trim(maxno);
// FieldByName('PCID').Value := trim(maxId);
// FieldByName('GlideNo').Value := trim('14');
// FieldByName('GlideName').Value := trim('进仓');
//
// post;
//
// end;
end;
InitCard();
@ -811,8 +716,8 @@ procedure TfrmDyePlanCardInput.C_ColorChange(Sender: TObject);
begin
CDS_Color.Locate('C_Color', C_Color.Text, []);
C_COLOR.Text := CDS_Color.FieldByName('C_COLOR').AsString;
OrdQty.Text := CDS_Color.FieldByName('OrdQty').AsString;
OrdUnit.Text := CDS_Color.FieldByName('OrdUnit').AsString;
OrdQty.Text := CDS_Color.FieldByName('C_PlanQty').AsString;
OrdUnit.Text := CDS_Color.FieldByName('C_Unit').AsString;
C_COLORNO.Text := CDS_Color.FieldByName('C_COLORNO').AsString;
end;
@ -935,27 +840,49 @@ begin
begin
Close;
Sql.Clear;
Sql.Add('exec P_Dye_Card_Del ');
Sql.Add('@PCIDS=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Sql.Add('exec P_BS_Cloth_Out_Del ');
Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_1.fieldbyname('BCIOID').AsString)));
Sql.Add(',@DCode=' + quotedstr(Trim(CDS_1.fieldbyname('C_Code').AsString)));
Sql.Add(',@DName=' + quotedstr(Trim(CDS_1.fieldbyname('C_Name').AsString)));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_Dye_Card_Del ');
Sql.Add('@PCIDS=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
Sql.Add(',@DCode=' + quotedstr(Trim(CDS_1.fieldbyname('C_Code').AsString)));
Sql.Add(',@DName=' + quotedstr(Trim(CDS_1.fieldbyname('C_Name').AsString)));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('delete from Dye_Plan_glide where PCID = ' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
ExecSQL;
end;
if (Trim(CDS_1.fieldbyname('PCType').AsString) = '正常卡') or (Trim(CDS_1.fieldbyname('PCType').AsString) = '前道卡') then
begin
// with ADOQueryCmd do
// begin
// Close;
// Sql.Clear;
// Sql.Add('exec P_Dye_GreyCloth_Out_Del ');
// Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
// Open;
// end;
// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_Dye_GreyCloth_Out_Del ');
Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end
else
begin
@ -1076,6 +1003,27 @@ begin
end;
procedure TfrmDyePlanCardInput.TV2DblClick(Sender: TObject);
begin
inherited;
with ADOQueryTmp do
begin
Close;
sql.Clear;
SQL.Add(' select * from BS_Cloth_info where C_Name = ' + QuotedStr(Trim(CDS_2.FieldByName('C_Name').Value)));
Open;
end;
C_Width.Text := ADOQueryTmp.FieldByName('C_Width').AsString;
C_GramWeight.Text := ADOQueryTmp.FieldByName('C_GramWeight').AsString;
C_Color.Text := ADOQueryTmp.FieldByName('C_Color').AsString;
C_COLORNO.Text := ADOQueryTmp.FieldByName('C_COLORNO').AsString;
C_Name.Text := ADOQueryTmp.FieldByName('C_Name').AsString;
FC_Code := ADOQueryTmp.FieldByName('C_Code').AsString;
// C_Width.Text := ADOQueryTmp.FieldByName('C_Width').Value;
// C_Width.Text := ADOQueryTmp.FieldByName('C_Width').Value;
end;
procedure TfrmDyePlanCardInput.TV3Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;

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

@ -386,8 +386,6 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitLeft = -8
ExplicitTop = 125
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

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

@ -326,8 +326,8 @@ begin
end;
end;
if trim(FWorkshop) <> '' then
sql.Add(' and C.Workshop=''' + trim(FWorkshop) + ''' ');
// if trim(FWorkshop) <> '' then
// sql.Add(' and C.Workshop=''' + trim(FWorkshop) + ''' ');
if Trim(canshu1) = '' then
sql.Add(' and A.Filler=''' + trim(DName) + ''' ');
@ -407,6 +407,19 @@ begin
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_BS_Cloth_Out_Del ');
Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_1.fieldbyname('BCIOID').AsString)));
Sql.Add(',@DCode=' + quotedstr(Trim(CDS_1.fieldbyname('C_Code').AsString)));
Sql.Add(',@DName=' + quotedstr(Trim(CDS_1.fieldbyname('C_Name').AsString)));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with ADOQueryCmd do
begin
Close;
@ -420,18 +433,26 @@ begin
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('delete from Dye_Plan_glide where PCID = ' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
ExecSQL;
end;
if (Trim(CDS_1.fieldbyname('PCType').AsString) = 'Õý³£¿¨') or (Trim(CDS_1.fieldbyname('PCType').AsString) = 'Ç°µÀ¿¨') then
begin
// with ADOQueryCmd do
// begin
// Close;
// Sql.Clear;
// Sql.Add('exec P_Dye_GreyCloth_Out_Del ');
// Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
// Open;
// end;
// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
with ADOQueryCmd do
begin
Close;
Sql.Clear;
Sql.Add('exec P_Dye_GreyCloth_Out_Del ');
Sql.Add('@PCID=' + quotedstr(Trim(CDS_1.fieldbyname('PCID').AsString)));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
end
else
begin
@ -567,19 +588,48 @@ end;
procedure TfrmDyePlanCardList.tbeditClick(Sender: TObject);
var
MPCIDS : string;
MPCIDS: string;
I, j: Integer;
Column: TcxGridDBColumn;
firstCurrentValue, CurrentValue: string;
begin
I := 0;
j := 0;//第一个被选中的
with CDS_1 do
begin
DisableControls;
First;
Column := Tv1.GetColumnByFieldName('OrderNo');
while not Eof do
begin
if Fieldbyname('Ssel').AsBoolean then
begin
MPCIDS := MPCIDS + trim(CDS_1.FieldByName('PCID').AsString) + ';';
if j = 0 then
begin
firstCurrentValue := VarToStr(Tv1.DataController.Values[0, Column.Index]);
j := 1;//第一个选中值执行其余不执行
end;
if (Column = nil) or (Tv1.DataController.RecordCount = 0) then
begin
Exit;
end;
CurrentValue := VarToStr(Tv1.DataController.Values[I, Column.Index]);
if CurrentValue <> firstCurrentValue then
begin
application.MessageBox('列内容不一致', '提示信息', MB_OK);
EnableControls;
Exit;
end;
end;
I := I + 1;
Next;
end;
EnableControls;
@ -591,7 +641,7 @@ begin
begin
FPCIDS := MPCIDS;
FWorkshop := self.FWorkshop;
fmainID := SELF.CDS_1.fieldbyname('mainID').asstring;
if ShowModal = 1 then
begin
InitGrid();

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

@ -93,7 +93,6 @@ object frmProductOrderListSel: TfrmProductOrderListSel
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitTop = 44
object Label3: TLabel
Left = 292
Top = 14
@ -112,7 +111,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Top = 14
Width = 52
Height = 12
Caption = #21046#21333#26085#26399
Caption = #35746#21333#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -132,7 +131,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Top = 14
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Caption = #25104#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -187,6 +186,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 109
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
@ -197,7 +197,6 @@ object frmProductOrderListSel: TfrmProductOrderListSel
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1AnticipateQTY
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -218,6 +217,12 @@ object frmProductOrderListSel: TfrmProductOrderListSel
HeaderAlignmentHorz = taCenter
Width = 44
end
object Tv1Column1: TcxGridDBColumn
DataBinding.FieldName = 'GC_STKID'
DataBinding.IsNullValueType = True
Visible = False
Width = 88
end
object Tv1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
@ -228,7 +233,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Width = 72
end
object Tv1C_CodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
Caption = #25104#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
@ -236,48 +241,6 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default
Width = 82
end
object Tv1CustNoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1C_Width: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DyePlan.Default
Width = 70
end
object Tv1C_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 72
end
object Tv1C_COLOR: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_COLOR'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DyePlan.Default
Width = 82
end
object Tv1C_COLORNO: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_COLORNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
object v1Column3: TcxGridDBColumn
Caption = #20844#26020#25968
DataBinding.FieldName = 'PRTOrderKgQty'
@ -287,52 +250,28 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Options.Editing = False
Width = 52
end
object Tv1C_Pattern: TcxGridDBColumn
Caption = #33457#22411#21495
DataBinding.FieldName = 'C_Pattern'
object Tv1F_Name: TcxGridDBColumn
Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
Width = 90
end
object Tv1AnticipateQTY: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'AntcpQty'
object Tv1OrdDate: TcxGridDBColumn
Caption = #35746#21333#26085#26399
DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DyePlan.Default
Width = 86
Width = 90
end
object Tv1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'AntcpUnit'
object Tv1QtyOrder: TcxGridDBColumn
Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'QtyOrder'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
Width = 90
end
object Tv1Column11: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'GC_Position'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column13: TcxGridDBColumn
Caption = #24037#33402#31867#22411
DataBinding.FieldName = 'processtype'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column14: TcxGridDBColumn
Caption = #30333#22383#25209#21495
DataBinding.FieldName = 'Clothnumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1DeliveryDate: TcxGridDBColumn
object Tv1DlyDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
@ -343,12 +282,19 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default
Width = 93
end
object Tv1Column15: TcxGridDBColumn
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
object Tv1C_PlanQty: TcxGridDBColumn
Caption = #35745#21010#25968#37327
DataBinding.FieldName = 'C_PlanQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
Width = 90
end
object Tv1F_description: TcxGridDBColumn
Caption = #22383#24067#25551#36848
DataBinding.FieldName = 'F_description'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end
object Tv1Column16: TcxGridDBColumn
Caption = #22791#27880

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

@ -29,22 +29,15 @@ type
Label3: TLabel;
OrderNo: TEdit;
Tv1OrderNo: TcxGridDBColumn;
Tv1DeliveryDate: TcxGridDBColumn;
Tv1C_COLOR: TcxGridDBColumn;
Tv1DlyDate: TcxGridDBColumn;
Order_Main: TClientDataSet;
Tv1C_CodeName: TcxGridDBColumn;
Tv1C_Width: TcxGridDBColumn;
Tv1AnticipateQTY: TcxGridDBColumn;
Tv1C_GramWeight: TcxGridDBColumn;
ToolButton3: TToolButton;
v1Column4: TcxGridDBColumn;
Tv1C_COLORNO: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
Tv1OrderUnit: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Tv1C_Pattern: TcxGridDBColumn;
TBRafresh: TToolButton;
TBFind: TToolButton;
BegDate: TDateTimePicker;
@ -52,15 +45,16 @@ type
Label1: TLabel;
Label2: TLabel;
cxTabControl1: TcxTabControl;
Tv1CustNoName: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
ToolButton1: TToolButton;
Label4: TLabel;
C_Name: TEdit;
Tv1Column1: TcxGridDBColumn;
Tv1QtyOrder: TcxGridDBColumn;
Tv1C_PlanQty: TcxGridDBColumn;
Tv1F_Name: TcxGridDBColumn;
Tv1F_description: TcxGridDBColumn;
Tv1OrdDate: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -121,27 +115,26 @@ begin
Close;
Filtered := False;
sql.Clear;
sql.Add('select B.*,A.* ');
sql.add('from Dye_Plan_sub A');
sql.Add('inner join Dye_Plan_Main B on B.mainID=A.mainID ');
sql.Add('where B.OrdDate>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add('and B.OrdDate<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
sql.Add('select A.* ');
sql.add('from Dye_Plan_Main A');
// sql.Add('inner join Dye_Plan_Main B on B.mainID=A.mainID ');
sql.Add('where A.OrdDate>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add('and A.OrdDate<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
// sql.Add('and B.Workshop=' + quotedstr(fWorkshop));
// sql.Add('and isnull(B.status,''0'')=''9''');
if OrderNo.Text <> '' then
begin
SQL.Add('AND B.OrderNo like ''' + '%' + Trim(OrderNo.Text) + '%' + '''');
SQL.Add('AND A.OrderNo like ''' + '%' + Trim(OrderNo.Text) + '%' + '''');
end;
if C_Name.Text <> '' then
begin
SQL.Add('AND B.C_Name like ''' + '%' + Trim(C_Name.Text) + '%' + '''');
SQL.Add('AND A.C_Name like ''' + '%' + Trim(C_Name.Text) + '%' + '''');
end;
if cxTabControl1.TabIndex = 0 then
sql.Add('and not exists(select PCID from Dye_Plan_Card X where X.subID=A.subID)');
sql.Add('and not exists(select PCID from Dye_Plan_Card X where X.MainID=A.MainID)');
if cxTabControl1.TabIndex = 1 then
sql.Add('and exists(select PCID from Dye_Plan_Card X where X.subID=A.subID)');
sql.Add('and exists(select PCID from Dye_Plan_Card X where X.MainID=A.MainID)');
// ShowMessage(sql.text);
Open;
end;

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

@ -80,24 +80,11 @@ object frmDyePlanInPut: TfrmDyePlanInPut
ParentCtl3D = False
TabOrder = 1
object Label1: TLabel
Left = 31
Top = 69
Width = 78
Height = 12
Caption = #23458#25143#35746#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 31
Top = 38
Left = 304
Top = 132
Width = 65
Height = 12
Caption = #23458#25143#21517#31216#65306
Caption = #22383#24067#25551#36848#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
@ -105,51 +92,12 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 461
Top = 101
Width = 65
Height = 12
Caption = #25104#21697#38376#24133#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 31
Top = 101
Left = 304
Top = 93
Width = 65
Height = 12
Caption = #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 Label42: TLabel
Left = 31
Top = 172
Width = 65
Height = 12
Caption = #21518#25972#25551#36848#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label43: TLabel
Left = 461
Top = 38
Width = 52
Height = 12
Caption = #19994#21153#21592#65306
Caption = #35746#21333#25968#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
@ -158,11 +106,11 @@ object frmDyePlanInPut: TfrmDyePlanInPut
ParentFont = False
end
object Label23: TLabel
Left = 31
Top = 247
Left = 23
Top = 199
Width = 65
Height = 12
Caption = #20854#20182#35201#27714#65306
Caption = #24037#33402#35201#27714#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -170,25 +118,12 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 239
Top = 38
object Label6: TLabel
Left = 40
Top = 132
Width = 65
Height = 12
Caption = #23458#25143#32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 657
Top = 38
Width = 52
Height = 12
Caption = #36319#21333#21592#65306
Caption = #22383#24067#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
@ -197,11 +132,11 @@ object frmDyePlanInPut: TfrmDyePlanInPut
ParentFont = False
end
object Label8: TLabel
Left = 239
Top = 69
Left = 304
Top = 53
Width = 39
Height = 12
Caption = #21333#20301#65306
Caption = #29366#24577#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -209,25 +144,12 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 461
Top = 69
Width = 39
Height = 12
Caption = #23450#38271#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 239
Top = 101
Width = 91
Left = 529
Top = 93
Width = 65
Height = 12
Caption = #23458#25143#29289#26009#20195#30721#65306
Caption = #35745#21010#25968#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
@ -236,11 +158,11 @@ object frmDyePlanInPut: TfrmDyePlanInPut
ParentFont = False
end
object Label3: TLabel
Left = 657
Top = 69
Left = 529
Top = 53
Width = 65
Height = 12
Caption = #21046#21333#26085#26399#65306
Caption = #35746#21333#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -249,8 +171,8 @@ object frmDyePlanInPut: TfrmDyePlanInPut
ParentFont = False
end
object Label4: TLabel
Left = 657
Top = 101
Left = 529
Top = 132
Width = 65
Height = 12
Caption = #20132#36135#26085#26399#65306
@ -262,36 +184,21 @@ object frmDyePlanInPut: TfrmDyePlanInPut
ParentFont = False
end
object Label7: TLabel
Left = 865
Top = 38
Left = 40
Top = 93
Width = 65
Height = 12
Caption = #25104#21697#21697#21517#65306
Caption = #25104#21697#21517#31216#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 = 39
Height = 12
Caption = #20811#37325#65306
Font.Charset = GB2312_CHARSET
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
Left = 40
Top = 53
Width = 65
Height = 12
Caption = #35745#21010#21333#21495#65306
@ -302,192 +209,99 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 865
Top = 123
Width = 65
Height = 12
Caption = #20135#21697#39068#33394#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object CustOrderNo: TEdit
object F_description: TEdit
Tag = 2
Left = 103
Top = 65
Left = 370
Top = 130
Width = 120
Height = 18
TabOrder = 0
end
object CustName: TBtnEditC
object C_description: TMemo
Tag = 2
Left = 103
Top = 34
Width = 120
Height = 20
ReadOnly = True
Left = 85
Top = 180
Width = 728
Height = 50
ScrollBars = ssVertical
TabOrder = 1
OnBtnUpClick = CustNameBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
object C_Width: TBtnEditC
object F_Name: TEdit
Tag = 2
Left = 523
Top = 95
Width = 120
Height = 20
Hint = 'MPRTMF/'#38376#24133
Left = 111
Top = 130
Width = 150
Height = 18
TabOrder = 2
OnBtnDnClick = CustNameBtnDnClick
end
object C_Code: TBtnEditC
Tag = 2
Left = 103
Top = 95
Width = 120
Height = 20
Hint = 'C_Name/'#21697#21517
TabOrder = 3
OnBtnUpClick = C_CodeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
object Saleser: TBtnEditC
Tag = 2
Left = 523
Top = 34
Width = 120
Height = 20
Hint = 'Saleser'
TabOrder = 4
OnBtnDnClick = CustNameBtnDnClick
end
object Need_Production: TMemo
Tag = 2
Left = 93
Top = 157
Width = 728
Height = 50
Hint = 'MPRTSCTeBieNote/'#29983#20135#29305#21035#25552#31034
ScrollBars = ssVertical
TabOrder = 5
OnDblClick = Need_ProductionDblClick
end
object Need_Other: TMemo
Tag = 2
Left = 93
Top = 228
Width = 728
Height = 50
ScrollBars = ssVertical
TabOrder = 6
end
object CustNo: TEdit
Tag = 2
Left = 325
Top = 34
Width = 120
Height = 18
Enabled = False
TabOrder = 7
end
object follower: TEdit
Tag = 2
Left = 719
Top = 34
Width = 120
Height = 18
TabOrder = 8
end
object djUnit: TComboBox
Tag = 2
Left = 325
Top = 63
Left = 370
Top = 51
Width = 121
Height = 20
ItemIndex = 1
TabOrder = 9
TabOrder = 3
Text = 'M'
Items.Strings = (
''
'M')
end
object DingChang: TEdit
object C_PlanQty: TEdit
Tag = 2
Left = 523
Top = 65
Left = 591
Top = 91
Width = 120
Height = 18
TabOrder = 10
end
object cusC_Code: TEdit
Tag = 2
Left = 325
Top = 95
Width = 120
Height = 18
TabOrder = 11
TabOrder = 4
end
object OrdDate: TDateTimePicker
Tag = 2
Left = 719
Top = 63
Left = 591
Top = 51
Width = 120
Height = 20
Date = 45863.000000000000000000
Time = 0.802643206021457400
TabOrder = 12
TabOrder = 5
end
object DlyDate: TDateTimePicker
Tag = 2
Left = 719
Top = 95
Left = 591
Top = 130
Width = 120
Height = 20
Date = 45863.000000000000000000
Time = 0.802855150461255100
TabOrder = 13
end
object C_Name: TEdit
Tag = 2
Left = 927
Top = 40
Width = 120
Height = 18
TabOrder = 14
Visible = False
end
object C_GramWeight: TEdit
Tag = 2
Left = 927
Top = 95
Width = 120
Height = 18
TabOrder = 15
Visible = False
TabOrder = 6
end
object OrderNo: TEdit
Tag = 2
Left = 103
Top = 123
Width = 120
Left = 111
Top = 51
Width = 150
Height = 18
Enabled = False
TabOrder = 16
TabOrder = 7
Text = #33258#21160#29983#25104
end
object C_Color: TEdit
object QtyOrder: TEdit
Tag = 2
Left = 927
Top = 119
Left = 370
Top = 91
Width = 120
Height = 18
TabOrder = 17
Visible = False
TabOrder = 8
end
object C_Name: TBtnEditA
Tag = 2
Left = 111
Top = 91
Width = 150
Height = 20
TabOrder = 9
OnDblClick = C_NameDblClick
OnBtnClick = C_NameBtnClick
end
end
object cxPageControl1: TcxPageControl

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

@ -21,22 +21,13 @@ type
TBClose: TToolButton;
ScrollBox1: TScrollBox;
Label1: TLabel;
CustOrderNo: TEdit;
F_description: TEdit;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
Label14: TLabel;
Label12: TLabel;
CustName: TBtnEditC;
C_Width: TBtnEditC;
Label2: TLabel;
C_Code: TBtnEditC;
Label42: TLabel;
Label43: TLabel;
Saleser: TBtnEditC;
Need_Production: TMemo;
Need_Other: TMemo;
C_description: TMemo;
Label23: TLabel;
GPM_1: TcxGridPopupMenu;
ToolButton4: TToolButton;
@ -57,46 +48,40 @@ type
v1Column5: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label5: TLabel;
CustNo: TEdit;
Label6: TLabel;
follower: TEdit;
F_Name: TEdit;
djUnit: TComboBox;
Label8: TLabel;
Label9: TLabel;
DingChang: TEdit;
Label11: TLabel;
cusC_Code: TEdit;
C_PlanQty: TEdit;
OrdDate: TDateTimePicker;
DlyDate: TDateTimePicker;
Label3: TLabel;
Label4: TLabel;
Tv1OrdPiece: TcxGridDBColumn;
Label7: TLabel;
C_Name: TEdit;
Label13: TLabel;
C_GramWeight: TEdit;
Label15: TLabel;
OrderNo: TEdit;
Label16: TLabel;
C_Color: TEdit;
Tv1Column2: TcxGridDBColumn;
QtyOrder: TEdit;
C_Name: TBtnEditA;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure CustNameBtnUpClick(Sender: TObject);
procedure CustNameBtnDnClick(Sender: TObject);
procedure C_CodeBtnUpClick(Sender: TObject);
// procedure C_CodeBtnUpClick(Sender: TObject);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton3Click(Sender: TObject);
procedure Need_ProductionDblClick(Sender: TObject);
procedure GC_PieceBtnUpClick(Sender: TObject);
procedure GC_BatchNoMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure ToolButton4Click(Sender: TObject);
procedure C_NameDblClick(Sender: TObject);
procedure C_NameBtnClick(Sender: TObject);
private
procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
@ -139,7 +124,7 @@ begin
Open;
end;
SCSHData(ADOTemp, ScrollBox1, 2);
CustName.TxtCode := ADOTemp.FieldByName('CustNo').asstring;
with ADOTemp do
begin
@ -188,13 +173,37 @@ var
begin
end;
procedure TfrmDyePlanInPut.C_NameBtnClick(Sender: TObject);
begin
frmClothInfoSel := TfrmClothInfoSel.create(self);
with frmClothInfoSel do
begin
if showmodal = 1 then
begin
CDS_1.DisableControls;
Self.C_Name.Text := trim(CDS_1.FieldByName('C_Name').AsString);
end;
CDS_1.EnableControls;
end;
frmClothInfoSel.free;
end;
procedure TfrmDyePlanInPut.C_NameDblClick(Sender: TObject);
begin
C_Name.Text := '';
end;
procedure TfrmDyePlanInPut.FormShow(Sender: TObject);
var
forderNo: string;
begin
readCxGrid(Trim(Self.Caption), Tv1, '染整计划管理');
// OrdDate.DateTime := SGetServerDateTime(ADOTemp);
// DlyDate.DateTime := OrdDate.DateTime;
OrdDate.DateTime := SGetServerDateTime(ADOTemp);
DlyDate.DateTime := OrdDate.DateTime;
// Workshop.text := trim(FWorkshop);
fFlileFlag := UserDataFlag + 'HX';
InitData();
@ -248,8 +257,6 @@ begin
RTSetsavedata(ADOCmd, 'Dye_Plan_Main', ScrollBox1, 2);
FieldByName('MainId').Value := Trim(maxno);
FieldByName('Workshop').Value := Trim(FWorkshop);
FieldByName('Saleser').Value := Trim(Saleser.Text);
FieldByName('CustNo').Value := CustName.TxtCode;
FieldByName('status').Value := '9';
Post;
end;
@ -316,7 +323,7 @@ begin
sql.Add('UPDATE Dye_Plan_Main SET GC_STKID= ');
SQL.Add(' STUFF(( SELECT '','' +CAST(STKID AS VARCHAR) FROM Dye_Plan_Sub c where c.MAINID = Dye_Plan_Main.MAINID FOR XML PATH('''')), 1, 1, '''')');
sql.Add(' where MainId=''' + Trim(FMainId) + '''');
ShowMessage(sql.Text);
// ShowMessage(sql.Text);
EXECSQL;
end;
/////////////// 保存子表 ///////////////
@ -341,14 +348,12 @@ begin
// if Trim(OrdType.Text) = '' then
// raise Exception.Create('订单类型不能为空！');
if Trim(CustName.Text) = '' then
raise Exception.Create('客户不能为空！');
// if Trim(C_Name.Text) = '' then
// raise Exception.Create('产品名称不能为空！');
if CDS_1.IsEmpty then
raise Exception.Create('明细不能为空！');
// if CDS_1.IsEmpty then
// raise Exception.Create('明细不能为空！');
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
@ -464,77 +469,57 @@ begin
CDS_1.Delete;
end;
procedure TfrmDyePlanInPut.CustNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '客户';
if ShowModal = 1 then
begin
CustName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
CustNo.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
Self.Saleser.Text := Trim(CDS_1.fieldbyname('Saleser').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmDyePlanInPut.CustNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmDyePlanInPut.C_CodeBtnUpClick(Sender: TObject);
begin
if trim(CustName.Text) = '' then
begin
Application.MessageBox('客户不能为空!', '提示', 0);
Exit;
end;
frmDyeGreyClothStkSel := TfrmDyeGreyClothStkSel.create(self);
with frmDyeGreyClothStkSel do
begin
FromCoNo.Text := trim(self.CustName.TxtCode);
FromCoNo.Enabled := False;
if showmodal = 1 then
begin
CDS_Main.DisableControls;
Self.C_Code.Text := trim(CDS_Main.FieldByName('C_Code').AsString);
Self.C_Name.Text := trim(CDS_Main.FieldByName('C_Name').AsString);
// Self.C_Spec.Text := trim(CDS_Main.FieldByName('C_spec').AsString);
Self.C_Width.Text := trim(CDS_Main.FieldByName('C_Width').AsString);
// Self.C_GramWeight.Text := trim(CDS_Main.FieldByName('C_GramWeight').AsString);
Self.Saleser.Text := trim(CDS_Main.FieldByName('Saleser').AsString);
with CDS_1 do
begin
if CDS_1.IsEmpty then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('stkid').Value := trim(CDS_Main.FieldByName('stkid').AsString);
FieldByName('OrdQty').Value := trim(CDS_Main.FieldByName('StkPiece').AsString);
FieldByName('OrdPiece').Value := trim(CDS_Main.FieldByName('STKQty').AsString);
FieldByName('OrdUnit').Value := 'M';
end;
end;
CDS_Main.EnableControls;
end;
frmDyeGreyClothStkSel.free;
end;
//procedure TfrmDyePlanInPut.C_CodeBtnUpClick(Sender: TObject);
//begin
// if trim(CustName.Text) = '' then
// begin
// Application.MessageBox('客户不能为空!', '提示', 0);
// Exit;
// end;
//
// frmDyeGreyClothStkSel := TfrmDyeGreyClothStkSel.create(self);
// with frmDyeGreyClothStkSel do
// begin
// FromCoNo.Text := trim(self.CustName.TxtCode);
// FromCoNo.Enabled := False;
// if showmodal = 1 then
// begin
// CDS_Main.DisableControls;
//
// Self.C_Code.Text := trim(CDS_Main.FieldByName('C_Code').AsString);
// Self.C_Name.Text := trim(CDS_Main.FieldByName('C_Name').AsString);
//// Self.C_Spec.Text := trim(CDS_Main.FieldByName('C_spec').AsString);
// Self.C_Width.Text := trim(CDS_Main.FieldByName('C_Width').AsString);
//// Self.C_GramWeight.Text := trim(CDS_Main.FieldByName('C_GramWeight').AsString);
// Self.Saleser.Text := trim(CDS_Main.FieldByName('Saleser').AsString);
//
// with CDS_1 do
// begin
// if CDS_1.IsEmpty then
// begin
// Append;
// end
// else
// begin
// Edit;
// end;
// FieldByName('stkid').Value := trim(CDS_Main.FieldByName('stkid').AsString);
// FieldByName('OrdQty').Value := trim(CDS_Main.FieldByName('StkPiece').AsString);
// FieldByName('OrdPiece').Value := trim(CDS_Main.FieldByName('STKQty').AsString);
// FieldByName('OrdUnit').Value := 'M';
// end;
//
// end;
// CDS_Main.EnableControls;
// end;
// frmDyeGreyClothStkSel.free;
//end;
procedure TfrmDyePlanInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
@ -639,72 +624,7 @@ begin
Application.Hint := TEdit(Sender).Name;
end;
procedure TfrmDyePlanInPut.GC_PieceBtnUpClick(Sender: TObject);
var
fRollNum: integer;
MGC_BatchNo, MGC_Piece, MGC_STKID, MGC_Position: string;
begin
MGC_BatchNo := '';
MGC_Piece := '';
MGC_STKID := '';
MGC_Position := '';
fRollNum := 0;
if trim(CustName.Text) = '' then
begin
Application.MessageBox('客户不能为空!', '提示', 0);
Exit;
end;
frmDyeGreyClothStkSel := TfrmDyeGreyClothStkSel.create(self);
with frmDyeGreyClothStkSel do
begin
FromCoNo.Text := trim(self.CustName.TxtCode);
FromCoNo.Enabled := False;
if showmodal = 1 then
begin
CDS_Main.DisableControls;
CDS_Main.First;
while not CDS_Main.eof do
begin
if CDS_Main.FieldByName('ssel').AsBoolean then
begin
MGC_BatchNo := MGC_BatchNo + trim(CDS_Main.FieldByName('BatchNo').AsString) + '+';
fRollNum := fRollNum + CDS_Main.FieldByName('STKPIECE').AsInteger;
MGC_Piece := MGC_Piece + trim(CDS_Main.FieldByName('STKPIECE').AsString) + ',';
MGC_STKID := MGC_STKID + trim(CDS_Main.FieldByName('STKID').AsString) + ';';
MGC_Position := MGC_Position + trim(CDS_Main.FieldByName('StkPosition').AsString) + ';';
// Self.C_Name.Text := trim(CDS_Main.FieldByName('C_Name').AsString);
CustName.TxtCode := trim(CDS_Main.FieldByName('FromCoNo').AsString);
CustName.Text := trim(CDS_Main.FieldByName('FromCoName').AsString);
Self.C_Width.Text := trim(CDS_Main.FieldByName('C_Width').AsString);
// Self.C_GramWeight.Text := trim(CDS_Main.FieldByName('C_GramWeight').AsString);
Self.Saleser.Text := trim(CDS_Main.FieldByName('Saleser').AsString);
// Self.Saleser.Text := trim(CDS_Main.FieldByName('Saleser').AsString);
end;
CDS_Main.Next;
end;
CDS_Main.EnableControls;
end;
free;
end;
// if length(MGC_BatchNo) > 0 then
// begin
MGC_BatchNo := copy(MGC_BatchNo, 1, Length(MGC_BatchNo) - 1);
MGC_Piece := copy(MGC_Piece, 1, Length(MGC_Piece) - 1);
MGC_STKID := copy(MGC_STKID, 1, Length(MGC_STKID) - 1);
MGC_Position := copy(MGC_Position, 1, Length(MGC_Position) - 1);
// GC_TotalPiece.text := inttostr(fRollNum);
// GC_BatchNo.Text := MGC_BatchNo;
// GC_Piece.Text := MGC_Piece;
// GC_STKID.Text := MGC_STKID;
// GC_Position.Text := MGC_Position;
// end;
end;
end.

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

@ -195,52 +195,12 @@ inherited frmDyePlanList: TfrmDyePlanList
ParentFont = False
OnDblClick = Label3DblClick
end
object Label4: TLabel
Left = 436
Top = 17
Width = 26
Height = 12
Caption = #23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 628
Left = 404
Top = 17
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 223
Top = 39
Width = 53
Height = 12
Caption = #21512' '#21516' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
OnDblClick = Label9DblClick
end
object Label10: TLabel
Left = 436
Top = 39
Width = 26
Height = 12
Caption = #35268#26684
Caption = #25104#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -249,11 +209,11 @@ inherited frmDyePlanList: TfrmDyePlanList
ParentFont = False
end
object Label11: TLabel
Left = 628
Top = 39
Left = 223
Top = 43
Width = 52
Height = 12
Caption = #20135#21697#32534#21495
Caption = #22383#24067#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -303,58 +263,31 @@ inherited frmDyePlanList: TfrmDyePlanList
TabOrder = 2
OnChange = OrderNoChange
end
object CustName: TEdit
object C_Name: TEdit
Tag = 2
Left = 468
Left = 462
Top = 13
Width = 100
Height = 20
TabOrder = 3
OnChange = OrderNoChange
end
object C_Name: TEdit
object F_Name: TEdit
Tag = 2
Left = 686
Top = 13
Left = 281
Top = 39
Width = 100
Height = 20
TabOrder = 4
OnChange = OrderNoChange
end
object ConNo: TEdit
Tag = 2
Left = 281
Top = 35
Width = 100
Height = 20
TabOrder = 5
OnChange = OrderNoChange
end
object C_Spec: TEdit
Tag = 2
Left = 468
Top = 35
Width = 100
Height = 20
TabOrder = 6
OnChange = OrderNoChange
end
object C_Code: TEdit
Tag = 2
Left = 686
Top = 35
Width = 100
Height = 20
TabOrder = 7
OnChange = OrderNoChange
end
object MPRTKZ: TEdit
Tag = 2
Left = 654
Top = 99
Width = 56
Height = 20
TabOrder = 8
TabOrder = 5
OnChange = OrderNoChange
end
end
@ -366,7 +299,6 @@ inherited frmDyePlanList: TfrmDyePlanList
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 127
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -379,12 +311,10 @@ inherited frmDyePlanList: TfrmDyePlanList
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1Column2
end
item
Format = #20849' 0 '#34892
Kind = skCount
Column = v1ConNo
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -414,59 +344,68 @@ inherited frmDyePlanList: TfrmDyePlanList
Styles.Header = DataLink_DyePlan.FontBlue
Width = 92
end
object Tv1Column2: TcxGridDBColumn
Caption = #23458#25143#32534#21495
DataBinding.FieldName = 'CustNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object v1CustomerNoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
object v1MPRTCodeName: TcxGridDBColumn
Caption = #25104#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_DyePlan.FontBlue
Styles.Footer = DataLink_DyePlan.FontBlue
Styles.Header = DataLink_DyePlan.FontBlue
Width = 94
Width = 76
end
object v1ConNo: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
object v1Column6: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column14: TcxGridDBColumn
Caption = #24037#33402#35201#27714
DataBinding.FieldName = 'C_description'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1MPRTMF: TcxGridDBColumn
Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_DyePlan.Default
Width = 80
Width = 81
end
object v1Column5: TcxGridDBColumn
Caption = #29983#20135#31867#22411
DataBinding.FieldName = 'OrdType'
object Tv1F_description: TcxGridDBColumn
Caption = #22383#24067#25551#36848
DataBinding.FieldName = 'F_description'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column4: TcxGridDBColumn
Caption = #38144#21806#31867#22411
DataBinding.FieldName = 'Salestype'
object Tv1QtyOrder: TcxGridDBColumn
Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'QtyOrder'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column1: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
object Tv1C_PlanQty: TcxGridDBColumn
Caption = #35745#21010#25968#37327
DataBinding.FieldName = 'C_PlanQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1OrdDate: TcxGridDBColumn
Caption = #21046#21333#26085#26399
Caption = #35746#21333#26085#26399
DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
@ -488,86 +427,6 @@ inherited frmDyePlanList: TfrmDyePlanList
Styles.Header = DataLink_DyePlan.Default
Width = 80
end
object v1Column6: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1MPRTCodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_DyePlan.FontBlue
Styles.Footer = DataLink_DyePlan.FontBlue
Styles.Header = DataLink_DyePlan.FontBlue
Width = 76
end
object v1MPRTSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_DyePlan.Default
Width = 80
end
object v1MPRTMF: TcxGridDBColumn
Caption = #25104#21697#38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_DyePlan.Default
Width = 81
end
object v1MPRTKZ: TcxGridDBColumn
Caption = #25104#21697#20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object Tv1Column14: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'GC_Position'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column2: TcxGridDBColumn
Caption = #24635#21305#25968
DataBinding.FieldName = 'GC_TotalPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_DyePlan.FontBlue
Styles.Footer = DataLink_DyePlan.FontBlue
Styles.Header = DataLink_DyePlan.FontBlue
Width = 80
end
object Tv1Column8: TcxGridDBColumn
Caption = #25805#20316#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column16: TcxGridDBColumn
Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

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

@ -45,12 +45,7 @@ type
v1OrderNo: TcxGridDBColumn;
v1OrdDate: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
v1MPRTSpec: TcxGridDBColumn;
Order_Main: TClientDataSet;
v1CustomerNoName: TcxGridDBColumn;
Label4: TLabel;
CustName: TEdit;
v1MPRTCodeName: TcxGridDBColumn;
v1MPRTMF: TcxGridDBColumn;
PM_1: TPopupMenu;
@ -58,18 +53,12 @@ type
ToolButton1: TToolButton;
Label8: TLabel;
C_Name: TEdit;
Label9: TLabel;
ConNo: TEdit;
v1MPRTKZ: TcxGridDBColumn;
Label10: TLabel;
C_Spec: TEdit;
Tv1F_description: TcxGridDBColumn;
Label11: TLabel;
C_Code: TEdit;
F_Name: TEdit;
Label12: TLabel;
MPRTKZ: TEdit;
TBcopy: TToolButton;
v1Column1: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
cxSplitter1: TcxSplitter;
DS_2: TDataSource;
cxTabControl1: TcxTabControl;
@ -82,12 +71,9 @@ type
ADOQueryImage: TADOQuery;
DSImage: TDataSource;
IdFTP1: TIdFTP;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cxGridPopupMenu2: TcxGridPopupMenu;
Tv1Column8: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1QtyOrder: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
ToolButton2: TToolButton;
N1: TMenuItem;
@ -105,9 +91,9 @@ type
Tv1Column3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Tv1Column2: TcxGridDBColumn;
ToolButton3: TToolButton;
TV2Column1: TcxGridDBColumn;
Tv1C_PlanQty: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -338,9 +324,9 @@ begin
Close;
Filtered := False;
sql.Clear;
sql.Add('select A.*, B.*');
sql.Add('select A.* ');
sql.Add('from Dye_Plan_MAIN A');
sql.Add('inner join Dye_Plan_Sub B on B.MainId=A.MainId');
// sql.Add('inner join Dye_Plan_Sub B on B.MainId=A.MainId');
sql.Add(' where 1=1');
case cxTabControl1.TabIndex of
0:
@ -400,7 +386,6 @@ begin
canshu1 := self.canshu1;
canshu2 := self.canshu2;
FWorkshop := self.FWorkshop;
conNo.Enabled := false;
if ShowModal = 1 then
begin

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

File diff suppressed because it is too large Load Diff

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

File diff suppressed because it is too large Load Diff

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

@ -4,7 +4,6 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Caption = #24037#33402#30331#35760
ClientHeight = 593
ClientWidth = 1455
ExplicitLeft = -604
ExplicitWidth = 1471
ExplicitHeight = 632
PixelsPerInch = 96
@ -118,7 +117,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 186
Left = 316
Top = 13
Width = 48
Height = 12
@ -133,9 +132,9 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
end
object DTMName: TEdit
Tag = 2
Left = 236
Left = 366
Top = 9
Width = 90
Width = 180
Height = 20
TabOrder = 0
OnChange = DTMNoChange
@ -144,7 +143,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Tag = 2
Left = 78
Top = 9
Width = 89
Width = 180
Height = 20
TabOrder = 1
OnChange = DTMNoChange
@ -157,6 +156,8 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Height = 494
Align = alLeft
TabOrder = 2
ExplicitLeft = -6
ExplicitTop = 105
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -257,8 +258,6 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Height = 494
Align = alClient
TabOrder = 4
ExplicitLeft = 1160
ExplicitWidth = 295
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -300,9 +299,17 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 141
end
object TV1PSID: TcxGridDBColumn
Caption = #24037#24207#20027#38190
DataBinding.FieldName = 'PSID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV1
@ -315,7 +322,6 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Height = 494
AlignSplitter = salRight
Control = cxGrid2
ExplicitLeft = 1065
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_DyePlan.ADOLink

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

@ -58,6 +58,7 @@ type
ToolButton1: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
TV1PSID: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -75,6 +76,7 @@ type
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
{ Private declarations }
@ -91,7 +93,7 @@ var
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_DyeTechnicsinput;
U_DataLink, U_RTFun, U_ZDYHelp, U_DyeTechnicsinput, U_DyeProcessDefin;
{$R *.dfm}
procedure TfrmDyeTechnicsList.InitGlide();
@ -212,8 +214,24 @@ begin
sql.Clear;
sql.Add('delete Dye_Technics_Main where DTMID=''' + Trim(CDS_2.fieldbyname('DTMID').AsString) + '''');
sql.Add('delete Dye_Technics_Sub where DTMID=''' + Trim(CDS_2.fieldbyname('DTMID').AsString) + '''');
execsql;
end;
CDS_1.First;
while not CDS_1.Eof do
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('delete Dye_Process where PSID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + '''');
sql.Add('delete BS_Cloth_GY_Sub where PSID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + '''');
sql.Add('delete BS_Cloth_GY_Main where PSID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + '''');
execsql;
end;
CDS_1.Next;
end;
end;
next;
end;
@ -254,7 +272,7 @@ begin
FDTMID := '';
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
@ -288,7 +306,7 @@ begin
FDTMID := Trim(self.CDS_2.fieldbyname('DTMID').AsString);
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
@ -306,7 +324,7 @@ begin
FDTMID := Trim(self.CDS_2.fieldbyname('DTMID').AsString);
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
@ -404,6 +422,28 @@ begin
end;
end;
procedure TfrmDyeTechnicsList.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
with frmDyeProcessDefin do
begin
FPSType := self.CDS_1.FieldByName('PSType').Value;
FPSID := Self.CDS_1.FieldByName('PSID').Value;
BtnInt := 3;//²é¿´
TbSave.visible := false;
TbUpFile.Visible := False;
if ShowModal = 1 then
begin
end;
end;
finally
frmDyeProcessDefin.Free;
end;
end;
procedure TfrmDyeTechnicsList.cxTabControl1Change(Sender: TObject);
begin
SetStatus();

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

@ -3,13 +3,13 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Top = 106
Caption = #24037#33402#30331#35760
ClientHeight = 593
ClientWidth = 1455
ExplicitWidth = 1471
ClientWidth = 1034
ExplicitWidth = 1050
ExplicitHeight = 632
PixelsPerInch = 96
TextHeight = 13
object cxSplitter1: TcxSplitter [0]
Left = 1447
Left = 1026
Top = 0
Width = 8
Height = 593
@ -18,7 +18,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object Panel2: TPanel [1]
Left = 0
Top = 0
Width = 753
Width = 313
Height = 593
Align = alLeft
Caption = 'Panel2'
@ -26,9 +26,9 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object cxGrid2: TcxGrid
Left = 1
Top = 39
Width = 296
Width = 15
Height = 553
Align = alLeft
Align = alClient
TabOrder = 0
object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick
@ -76,6 +76,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 112
end
@ -87,14 +88,13 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object Panel1: TPanel
Left = 1
Top = 1
Width = 751
Width = 311
Height = 38
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitWidth = 431
object Label5: TLabel
Left = 23
Top = 15
@ -106,21 +106,20 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Tag = 2
Left = 73
Top = 11
Width = 89
Width = 200
Height = 21
TabOrder = 0
OnKeyPress = PSNameKeyPress
end
end
object cxGrid3: TcxGrid
Left = 297
Left = -120
Top = 39
Width = 455
Width = 432
Height = 553
Align = alClient
Align = alRight
TabOrder = 2
ExplicitLeft = 293
ExplicitTop = 36
Visible = False
object Tv3: TcxGridDBTableView
OnDblClick = Tv3DblClick
Navigator.Buttons.CustomButtons = <>
@ -130,6 +129,13 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
object Tv3DTMName: TcxGridDBColumn
Caption = #24037#33402#21517#31216
DataBinding.FieldName = 'DTMName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 138
end
object Tv3PSID: TcxGridDBColumn
Caption = #24037#24207'ID'
DataBinding.FieldName = 'PSID'
@ -153,25 +159,21 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
end
end
object Panel3: TPanel [2]
Left = 753
Left = 313
Top = 0
Width = 694
Width = 713
Height = 593
Align = alClient
Caption = 'Panel3'
TabOrder = 2
ExplicitLeft = 433
ExplicitWidth = 1014
object cxGrid1: TcxGrid
Left = 1
Top = 77
Width = 692
Width = 711
Height = 515
Align = alClient
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = 5
ExplicitTop = 83
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -200,7 +202,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
Width = 32
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #24037#24207#31867#22411
@ -214,7 +216,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
end>
Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 113
Width = 180
end
object TV1PSName: TcxGridDBColumn
Caption = #24037#24207#21517#31216
@ -222,7 +224,29 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 116
Width = 229
end
object TV1DTMID: TcxGridDBColumn
Caption = #24037#33402#20027#38190
DataBinding.FieldName = 'DTMID'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 127
end
object TV1DTMName: TcxGridDBColumn
Caption = #24037#33402#21517#31216
DataBinding.FieldName = 'DTMName'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 130
end
object TV1Column1: TcxGridDBColumn
DataBinding.FieldName = 'PSID'
DataBinding.IsNullValueType = True
Visible = False
Width = 183
end
end
object cxGridLevel2: TcxGridLevel
@ -233,7 +257,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Tag = 1
Left = 1
Top = 1
Width = 692
Width = 711
Height = 38
AutoSize = True
ButtonHeight = 38
@ -290,16 +314,15 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object Panel4: TPanel
Left = 1
Top = 39
Width = 692
Width = 711
Height = 38
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
ExplicitWidth = 1012
object Label2: TLabel
Left = 186
Left = 295
Top = 9
Width = 48
Height = 13
@ -314,7 +337,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
end
object DTMName: TEdit
Tag = 2
Left = 240
Left = 349
Top = 6
Width = 189
Height = 21
@ -324,11 +347,29 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Tag = 2
Left = 84
Top = 6
Width = 89
Width = 189
Height = 21
TabOrder = 1
end
end
object TbMoveUp: TcxButton
Left = 461
Top = 140
Width = 75
Height = 25
Caption = #19978#31227
TabOrder = 3
OnClick = TbMoveUpClick
end
object btnMoveDown: TcxButton
Left = 461
Top = 192
Width = 75
Height = 25
Caption = #19979#31227
TabOrder = 4
OnClick = btnMoveDownClick
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_DyePlan.ADOLink

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

@ -15,7 +15,7 @@ uses
cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, Menus, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters,
U_BaseInput, dxDateRanges, dxScrollbarAnnotations, System.ImageList,
Vcl.ImgList;
Vcl.ImgList, cxButtons;
type
TfrmDyeTechnicsinput = class(TfrmBaseinput)
@ -66,6 +66,12 @@ type
Tv3Column2: TcxGridDBColumn;
CDS_3: TClientDataSet;
DS_3: TDataSource;
TbMoveUp: TcxButton;
btnMoveDown: TcxButton;
TV1DTMID: TcxGridDBColumn;
TV1DTMName: TcxGridDBColumn;
Tv3DTMName: TcxGridDBColumn;
TV1Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -84,6 +90,8 @@ type
procedure TbDeleteClick(Sender: TObject);
procedure Tv3DblClick(Sender: TObject);
procedure PSNameKeyPress(Sender: TObject; var Key: Char);
procedure TbMoveUpClick(Sender: TObject);
procedure btnMoveDownClick(Sender: TObject);
private
{ Private declarations }
@ -95,6 +103,7 @@ type
procedure CheckData();
procedure InitGridSub();
public
fPSIDList: string;
FDTMID, PState: string;
{ Public declarations }
RKFlag, FCYID, fmanage: string;
@ -152,6 +161,8 @@ begin
end;
procedure TfrmDyeTechnicsinput.InitGlide();
var
maxNo: string;
begin
with ADOQueryTemp do
begin
@ -174,23 +185,58 @@ begin
SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1);
CheckData();
end;
procedure TfrmDyeTechnicsinput.CheckData();
begin
if PState = '¸´ÖÆ' then
begin
CDS_1.First;
while not CDS_1.Eof do
begin
CDS_1.Edit;
CDS_1.FieldByName('PSName').Value := '';
CDS_1.Post;
CDS_1.Next;
end;
FDTMID := '';
end;
if GetLSNo(ADOQueryCmd, maxNo, 'JP', 'Dye_Process', 4, 1) = False then
begin
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add('exec P_CopyDyeProcess ');
SQL.Add(' @PSID = ' + QuotedStr(Trim(CDS_1.fieldbyname('PSID').AsString)));
SQL.Add(' ,@maxNo = ' + QuotedStr(Trim(maxNo)));
SQL.Add(' ,@DName = ' + QuotedStr(Trim(DName)));
// SQL.Add(' ,@DTMID = ' + QuotedStr(Trim(DTMID.Text)));
Open;
end;
CDS_1.Edit;
CDS_1.FieldByName('PSID').asstring := maxNo;
CDS_1.FieldByName('DTMID').asstring := '';
CDS_1.Post;
CDS_1.next;
end;
end;
end;
procedure TfrmDyeTechnicsinput.CheckData();
var
maxno: string;
begin
if PState = '复制' then
begin
DTMNo.Text := '';
DTMName.Text := '';
// FDTMID := '';
if GetLSNo(ADOQueryCmd, maxno, 'GY', 'Dye_Technics_Main', 3, 1) = False then
raise Exception.Create('取最大号失败！');
FDTMID := maxno;
end;
// if ((PState = '新增') or (PState = '复制')) and (FDTMID = '') then
// begin
// if GetLSNo(ADOQueryCmd, maxno, 'GY', 'Dye_Technics_Main', 3, 1) = False then
// raise Exception.Create('取最大号失败！');
// FDTMID := maxno;
// DTMID.Text := FDTMID;
// end;
end;
function TfrmDyeTechnicsinput.SaveData(): boolean;
@ -211,6 +257,90 @@ begin
maxno := FDTMID;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Technics_Main where DTMNo=''' + Trim(DTMNo.Text) + '''');
sql.Add(' and DTMID <> ''' + Trim(maxno) + '''');
Open;
end;
if ADOQueryCmd.RecordCount > 0 then
raise Exception.Create('工艺编号重复!');
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Technics_Main where DTMName=''' + Trim(DTMName.Text) + '''');
sql.Add(' and DTMID <> ''' + Trim(maxno) + '''');
Open;
end;
if ADOQueryCmd.RecordCount > 0 then
raise Exception.Create('工艺名称重复!');
with ADOQueryCmd do
begin
Close;
sql.Clear;
// sql.Add('SELECT PSName,COUNT(*) AS DuplicateCount FROM Dye_Process WHERE DTMNo =''' + Trim(DTMNo.Text) + '''');
// sql.Add(' GROUP BY PSName HAVING COUNT(*) > 1 ORDER BY DuplicateCount DESC;');
sql.Add('SELECT STRING_AGG(PSName, '', '') AS DuplicatePSNames,');
sql.Add('COUNT(*) AS TotalPSName');
sql.Add('FROM (SELECT PSName');
sql.Add('FROM Dye_Process');
sql.Add('WHERE DTMID = ''' + Trim(maxno) + '''');
sql.Add('GROUP BY PSName');
sql.Add('HAVING COUNT(*) > 1) AS Duplicates HAVING Count(*)>0;');
Open;
// showMessage(sql.Text);
end;
if ADOQueryCmd.RecordCount > 0 then
raise Exception.Create('工序' + ADOQueryCmd.FieldByName('DuplicatePSNames').AsString + '重复!');
if fPSIDList <> '' then
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Text := 'DELETE FROM Dye_Process WHERE PSID IN (' + fPSIDList + ')';
// ShowMessage(sql.Text);
try
ExecSQL;
except
on E: Exception do
ShowMessage('删除失败: ' + E.Message);
end;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Text := 'DELETE FROM BS_Cloth_GG_Main WHERE PSID IN (' + fPSIDList + ')';
// ShowMessage(sql.Text);
try
ExecSQL;
except
on E: Exception do
ShowMessage('删除失败: ' + E.Message);
end;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Text := 'DELETE FROM BS_Cloth_GG_Sub WHERE PSID IN (' + fPSIDList + ')';
// ShowMessage(sql.Text);
try
ExecSQL;
except
on E: Exception do
ShowMessage('删除失败: ' + E.Message);
end;
end;
end;
with ADOQueryCmd do
begin
Close;
@ -248,6 +378,21 @@ begin
begin
DTMPSlist := DTMPSlist + '¡ú' + Trim(CDS_1.fieldbyname('PSNO').AsString) + '.' + Trim(CDS_1.fieldbyname('PSName').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM Dye_Process WHERE PSID = ' + QuotedStr(Trim(CDS_1.fieldbyname('PSId').AsString)));
Open;
end;
with ADOQueryCmd do
begin
Edit;
FieldByName('DTMName').Value := Trim(DTMName.Text);
FieldByName('DTMID').Value := Trim(maxno);
Post;
end;
Next;
end;
end;
@ -274,7 +419,6 @@ begin
end;
RTSetsavedata(ADOQueryCmd, 'Dye_Technics_Main', Panel4, 2);
FieldByName('DTMPSlist').Value := Trim(DTMPSlist);
Post;
end;
@ -351,8 +495,8 @@ end;
procedure TfrmDyeTechnicsinput.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '工艺管理');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '工艺管理');
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '工艺录入');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '工艺录入');
InitGrid();
InitGlide();
InitGridSub();
@ -370,24 +514,87 @@ begin
if Trim(CDS_1.fieldbyname('PSId').AsString) <> '' then
begin
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do
if (Trim(CDS_1.fieldbyname('DTMID').AsString) = '') or CDS_1.fieldbyname('DTMID').isNull then
begin
Close;
sql.Clear;
sql.Add('delete Dye_Process where PSId=''' + Trim(CDS_1.fieldbyname('PSId').AsString) + '''');
ExecSQL;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Dye_Process where PSId=''' + Trim(CDS_1.fieldbyname('PSId').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete BS_Cloth_GY_Main where PSId=''' + Trim(CDS_1.fieldbyname('PSId').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete BS_Cloth_GY_Sub where PSId=''' + Trim(CDS_1.fieldbyname('PSId').AsString) + '''');
ExecSQL;
end;
end;
if fPSIDlist = '' then
begin
fPSIDlist := QuotedStr(Trim(CDS_1.fieldbyname('PSID').AsString));
end
else
begin
fPSIDlist := fPSIDlist + ',' + QuotedStr(Trim(CDS_1.fieldbyname('PSID').AsString));
end;
end;
CDS_1.Delete;
SetXH();
end;
procedure TfrmDyeTechnicsinput.TbMoveUpClick(Sender: TObject);
var
test: string;
ACurrentRow, APrevRow: Integer;
begin
ACurrentRow := Tv1.DataController.FocusedRowIndex + 1;//当前行位置（从1开始）
if ACurrentRow = 1 then // 已经是第一条记录
Exit;
APrevRow := ACurrentRow - 1;
CDS_1.DisableControls;
try
// 交换当前记录和上一条记录的顺序值
CDS_1.RecNo := ACurrentRow;
CDS_1.Edit;
CDS_1.FieldByName('PSNo').AsInteger := APrevRow;
test := CDS_1.FieldByName('PSName').AsString;
CDS_1.Post;
CDS_1.RecNo := APrevRow;
CDS_1.Edit;
CDS_1.FieldByName('PSNo').AsInteger := ACurrentRow;
test := CDS_1.FieldByName('PSName').AsString;
CDS_1.Post;
// 刷新数据
// CDS_1.Refresh;
CDS_1.IndexFieldNames := 'PSNo';
// 重新定位到移动后的记录
Tv1.DataController.FocusedRowIndex := APrevRow - 1;
finally
CDS_1.EnableControls;
end;
end;
procedure TfrmDyeTechnicsinput.ToolButton2Click(Sender: TObject);
begin
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '工艺管理');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '工艺管理');
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '工艺录入');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '工艺录入');
end;
@ -481,6 +688,45 @@ begin
end;
end;
procedure TfrmDyeTechnicsinput.btnMoveDownClick(Sender: TObject);
var
test: string;
ACurrentRow, APrevRow: Integer;
begin
ACurrentRow := Tv1.DataController.FocusedRowIndex + 1;//当前行位置（从1开始）
if ACurrentRow = CDS_1.RecordCount then // 已经是第一条记录
Exit;
APrevRow := ACurrentRow + 1;
CDS_1.DisableControls;
try
// 交换当前记录和上一条记录的顺序值
CDS_1.RecNo := APrevRow;
CDS_1.Edit;
CDS_1.FieldByName('PSNo').AsInteger := ACurrentRow;
test := CDS_1.FieldByName('PSName').AsString;
CDS_1.Post;
CDS_1.RecNo := ACurrentRow;
CDS_1.Edit;
CDS_1.FieldByName('PSNo').AsInteger := APrevRow;
test := CDS_1.FieldByName('PSName').AsString;
CDS_1.Post;
// 刷新数据
// CDS_1.Refresh;
CDS_1.IndexFieldNames := 'PSNo';
Tv1.DataController.FocusedRowIndex := ACurrentRow - 1;
finally
CDS_1.EnableControls;
end;
end;
procedure TfrmDyeTechnicsinput.btnSaveClick(Sender: TObject);
begin
if trim(DTMNo.Text) = '' then
@ -499,32 +745,11 @@ begin
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Technics_Main where DTMNo=''' + Trim(DTMNo.Text) + '''');
sql.Add(' and DTMID <> ''' + Trim(FDTMID) + '''');
Open;
end;
if ADOQueryCmd.RecordCount > 0 then
raise Exception.Create('工艺编号重复!');
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Technics_Main where DTMName=''' + Trim(DTMName.Text) + '''');
sql.Add(' and DTMID <> ''' + Trim(FDTMID) + '''');
Open;
end;
if ADOQueryCmd.RecordCount > 0 then
raise Exception.Create('工艺名称重复!');
if SaveData() then
begin
Application.MessageBox('±£´æ³É¹¦£¡', 'Ìáʾ', 0);
end;
close;
end;
procedure TfrmDyeTechnicsinput.v2Column2PropertiesEditValueChanged(Sender: TObject);
@ -568,6 +793,7 @@ end;
procedure TfrmDyeTechnicsinput.Tv2DblClick(Sender: TObject);
begin
with CDS_1 do
begin
Append;
@ -585,13 +811,34 @@ begin
end;
procedure TfrmDyeTechnicsinput.Tv3DblClick(Sender: TObject);
var
maxNo: string;
begin
if GetLSNo(ADOQueryCmd, maxNo, 'JP', 'Dye_Process', 4, 1) = False then
begin
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add('exec P_CopyDyeProcess ');
SQL.Add(' @PSID = ' + QuotedStr(Trim(CDS_3.fieldbyname('PSID').AsString)));
SQL.Add(' ,@maxNo = ' + QuotedStr(Trim(maxNo)));
SQL.Add(' ,@DName = ' + QuotedStr(Trim(DName)));
// SQL.Add(' ,@DTMID = ' + QuotedStr(Trim(DTMID.Text)));
Open;
end;
with CDS_1 do
begin
Append;
FieldByName('PSNO').Value := CDS_1.RecordCount + 1;
FieldByName('PSType').Value := CDS_2.fieldbyname('PSType').AsString;
FieldByName('PSId').Value := CDS_3.fieldbyname('PSID').AsString;
FieldByName('PSId').Value := maxNo;
FieldByName('PSName').Value := CDS_3.fieldbyname('PSName').AsString;
post;
end;

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

@ -1,27 +1,27 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.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.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>2025-06-28 17:17:29.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>2025-08-01 15:46:35.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.pas</Transaction>
<Transaction>2025-08-01 15:46:35.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/>

5
F04染色刷卡/DyeProcess.skincfg Normal file
View File

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

20
F04染色刷卡/U_DyePCList.dfm
View File

@ -20,7 +20,7 @@ inherited frmDyePCList: TfrmDyePCList
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 96
ButtonWidth = 97
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_DyeProcess.ImageList_new32
@ -68,7 +68,7 @@ inherited frmDyePCList: TfrmDyePCList
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 313
Left = 314
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -76,7 +76,7 @@ inherited frmDyePCList: TfrmDyePCList
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 408
Left = 409
Top = 0
AutoSize = True
Caption = #20851#38381
@ -326,9 +326,7 @@ inherited frmDyePCList: TfrmDyePCList
TabOrder = 3
LookAndFeel.ScrollbarMode = sbmHybrid
LookAndFeel.ScrollMode = scmDefault
ExplicitLeft = -218
ExplicitTop = 99
ExplicitWidth = 1363
ExplicitTop = 108
object tv1: TcxGridDBTableView
Tag = 9999
DragMode = dmAutomatic
@ -568,15 +566,19 @@ inherited frmDyePCList: TfrmDyePCList
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_DyeProcess.ADOLink
Left = 225
Top = 328
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_DyeProcess.ADOLink
Left = 81
Top = 329
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DyeProcess.ADOLink
Parameters = <>
Left = 788
Top = 168
Left = 652
Top = 280
end
object ADOQueryMain: TADOQuery
Connection = DataLink_DyeProcess.ADOLink
@ -624,7 +626,7 @@ inherited frmDyePCList: TfrmDyePCList
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 720
Top = 136
Top = 56
ReportData = {}
end
end

BIN
F04染色刷卡/testDll.res
View File

Binary file not shown.