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

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

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

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

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

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

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

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

@ -1,50 +1,50 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.936,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions> </Transactions>

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

@ -211,14 +211,14 @@ inherited frmClothInfo: TfrmClothInfo
Top = 15 Top = 15
Width = 24 Width = 24
Height = 12 Height = 12
Caption = #20811#37325 Caption = #26448#36136
end end
object Label8: TLabel object Label8: TLabel
Left = 357 Left = 357
Top = 15 Top = 15
Width = 24 Width = 24
Height = 12 Height = 12
Caption = #38376#24133 Caption = #31867#21035
end end
object C_Code: TEdit object C_Code: TEdit
Tag = 2 Tag = 2
@ -238,7 +238,7 @@ inherited frmClothInfo: TfrmClothInfo
TabOrder = 1 TabOrder = 1
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
end end
object C_GramWeight: TEdit object Material: TEdit
Tag = 2 Tag = 2
Left = 536 Left = 536
Top = 11 Top = 11
@ -247,7 +247,7 @@ inherited frmClothInfo: TfrmClothInfo
TabOrder = 3 TabOrder = 3
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
end end
object C_Width: TEdit object CTName: TEdit
Tag = 2 Tag = 2
Left = 384 Left = 384
Top = 11 Top = 11
@ -392,93 +392,52 @@ inherited frmClothInfo: TfrmClothInfo
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 96 Width = 96
end end
object Tv1CINote: TcxGridDBColumn object Tv1Material: TcxGridDBColumn
Caption = #22791#27880 Caption = #26448#36136
DataBinding.FieldName = 'CINote' DataBinding.FieldName = 'Material'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 80
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
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #22635#21333#20154 Caption = #24314#31435#20154
DataBinding.FieldName = 'filler' DataBinding.FieldName = 'filler'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 71 Width = 71
end 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 object Tv1Column9: TcxGridDBColumn
Caption = #24405#20837#26102#38388 Caption = #24314#31435#26102#38388
DataBinding.FieldName = 'FILLTIME' DataBinding.FieldName = 'FILLTIME'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end 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 end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

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

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

@ -446,6 +446,13 @@ object frmClothInfoInput: TfrmClothInfoInput
DataController.Summary.FooterSummaryItems = <> DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False 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 object TV4GYNO: TcxGridDBColumn
Caption = #24037#33402#32534#21495 Caption = #24037#33402#32534#21495
DataBinding.FieldName = 'DTMNO' DataBinding.FieldName = 'DTMNO'

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

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

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

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

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

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

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.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.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.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.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.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
@ -80,10 +80,10 @@
<File Path="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/> <File Path="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
<File Path="U_DataLink.pas"/> <File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/> <File Path="U_DataLink.dfm"/>
<File Path="U_GetDllForm.pas"/>
<File Path="U_iniParam.pas"/>
<File Path="U_BSPrtDyeInList.pas"/> <File Path="U_BSPrtDyeInList.pas"/>
<File Path="U_BSPrtDyeInList.dfm"/> <File Path="U_BSPrtDyeInList.dfm"/>
<File Path="U_iniParam.pas"/>
<File Path="U_GetDllForm.pas"/>
<File Path="U_PrtDyeInfoInPut.pas"/> <File Path="U_PrtDyeInfoInPut.pas"/>
<File Path="U_PrtDyeInfoInPut.dfm"/> <File Path="U_PrtDyeInfoInPut.dfm"/>
</ProjectSortOrder> </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 Height = 425
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitTop = 44
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -55,6 +57,7 @@ inherited frmBSPrtDyeInEdit: TfrmBSPrtDyeInEdit
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20837#24211#21333#21495 Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BPIOID' DataBinding.FieldName = 'BPIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 83 Width = 83
@ -62,15 +65,14 @@ inherited frmBSPrtDyeInEdit: TfrmBSPrtDyeInEdit
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
PropertiesClassName = 'TcxDateEditProperties' DataBinding.IsNullValueType = True
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 100 Width = 100
end end
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.DropDownRows = 20 Properties.DropDownRows = 20
@ -81,9 +83,64 @@ inherited frmBSPrtDyeInEdit: TfrmBSPrtDyeInEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 87 Width = 87
end 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 object v1FactoryName: TcxGridDBColumn
Caption = #26469#33258#21333#20301 Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = < Properties.Buttons = <
@ -93,12 +150,14 @@ inherited frmBSPrtDyeInEdit: TfrmBSPrtDyeInEdit
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = v1Column14PropertiesButtonClick Properties.OnButtonClick = v1Column14PropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 93 Width = 93
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName' DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -107,87 +166,18 @@ inherited frmBSPrtDyeInEdit: TfrmBSPrtDyeInEdit
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column1PropertiesButtonClick Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 81 Width = 81
end 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 object v1SPName: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'P_Name' DataBinding.FieldName = 'P_Name'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 101 Width = 101
end 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 end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

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

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

@ -2,10 +2,10 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Left = 165 Left = 165
Top = 111 Top = 111
Caption = #21161#21058#20837#24211#21015#34920 Caption = #21161#21058#20837#24211#21015#34920
ClientHeight = 478 ClientHeight = 637
ClientWidth = 1284 ClientWidth = 1284
ExplicitWidth = 1300 ExplicitWidth = 1300
ExplicitHeight = 517 ExplicitHeight = 676
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -123,16 +123,9 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
object Label3: TLabel object Label3: TLabel
Left = 351 Left = 351
Top = 12 Top = 12
Width = 24
Height = 12
Caption = #21697#21517
end
object Label4: TLabel
Left = 492
Top = 12
Width = 48 Width = 48
Height = 12 Height = 12
Caption = #26469#33258#21333#20301 Caption = #21161#21058#32534#21495
end end
object Label5: TLabel object Label5: TLabel
Left = 178 Left = 178
@ -144,9 +137,9 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
object Label8: TLabel object Label8: TLabel
Left = 351 Left = 351
Top = 37 Top = 37
Width = 24 Width = 48
Height = 12 Height = 12
Caption = #35268#26684 Caption = #21161#21058#31867#22411
end end
object Label12: TLabel object Label12: TLabel
Left = 178 Left = 178
@ -156,8 +149,8 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
end end
object Label10: TLabel object Label10: TLabel
Left = 492 Left = 514
Top = 37 Top = 12
Width = 48 Width = 48
Height = 12 Height = 12
Caption = #25209' '#21495 Caption = #25209' '#21495
@ -180,31 +173,22 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Time = 0.458268587972270300 Time = 0.458268587972270300
TabOrder = 1 TabOrder = 1
end end
object P_name: TEdit object P_Code: TEdit
Tag = 2 Tag = 2
Left = 378 Left = 400
Top = 8 Top = 8
Width = 100 Width = 100
Height = 20 Height = 20
TabOrder = 2 TabOrder = 2
OnChange = TBFindClick OnChange = TBFindClick
end end
object FromCoName: TEdit
Tag = 2
Left = 542
Top = 8
Width = 100
Height = 20
TabOrder = 3
OnChange = FromCoNameChange
end
object P_spec: TEdit object P_spec: TEdit
Tag = 2 Tag = 2
Left = 378 Left = 400
Top = 33 Top = 33
Width = 100 Width = 100
Height = 20 Height = 20
TabOrder = 4 TabOrder = 3
OnChange = P_specChange OnChange = P_specChange
end end
object IOType: TComboBox object IOType: TComboBox
@ -215,7 +199,7 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Height = 20 Height = 20
Style = csDropDownList Style = csDropDownList
DropDownCount = 20 DropDownCount = 20
TabOrder = 5 TabOrder = 4
OnChange = TBFindClick OnChange = TBFindClick
Items.Strings = ( Items.Strings = (
'' ''
@ -225,11 +209,11 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
end end
object BatchNo: TEdit object BatchNo: TEdit
Tag = 2 Tag = 2
Left = 542 Left = 564
Top = 33 Top = 8
Width = 100 Width = 100
Height = 20 Height = 20
TabOrder = 6 TabOrder = 5
OnChange = FromCoNameChange OnChange = FromCoNameChange
end end
object BPIOID: TEdit object BPIOID: TEdit
@ -238,7 +222,7 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Top = 8 Top = 8
Width = 109 Width = 109
Height = 20 Height = 20
TabOrder = 7 TabOrder = 6
OnChange = TBFindClick OnChange = TBFindClick
end end
end end
@ -246,11 +230,13 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Left = 0 Left = 0
Top = 96 Top = 96
Width = 1284 Width = 1284
Height = 382 Height = 541
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 97
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -292,6 +278,7 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20837#24211#21333#21495 Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BPIOID' DataBinding.FieldName = 'BPIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 83 Width = 83
@ -300,6 +287,7 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Tag = 2 Tag = 2
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'ioTime' DataBinding.FieldName = 'ioTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False Properties.SaveTime = False
Properties.ShowTime = False Properties.ShowTime = False
@ -310,6 +298,7 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Tag = 2 Tag = 2
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -319,10 +308,19 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 81 Width = 81
end 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 object v1Column14: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #26469#33258#21333#20301 Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = < Properties.Buttons = <
@ -331,33 +329,30 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 116 Width = 116
end end
object v1Column20: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'P_Code'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'P_Name' DataBinding.FieldName = 'P_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 99 Width = 99
end end
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #35268#26684 Caption = #21161#21058#31867#22411
DataBinding.FieldName = 'P_Spec' DataBinding.FieldName = 'P_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 79 Width = 79
@ -365,6 +360,7 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
VisibleForCustomization = False VisibleForCustomization = False
Width = 89 Width = 89
@ -373,56 +369,26 @@ inherited frmBSPrtDyeInList: TfrmBSPrtDyeInList
Tag = 2 Tag = 2
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 85 Width = 85
end end
object v1Column3: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Tag = 2 Caption = #39046#26009#21333#20301
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
PropertiesClassName = 'TcxComboBoxProperties' DataBinding.IsNullValueType = True
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 80
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
end end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end 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 end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 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, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations;
type type
TfrmBSPrtDyeInList = class(TfrmBaseList) TfrmBSPrtDyeInList = class(TfrmBaseList)
@ -45,12 +46,10 @@ type
TBAdd: TToolButton; TBAdd: TToolButton;
TBEdit: TToolButton; TBEdit: TToolButton;
Label3: TLabel; Label3: TLabel;
Label4: TLabel;
Label5: TLabel; Label5: TLabel;
Label8: TLabel; Label8: TLabel;
Label12: TLabel; Label12: TLabel;
P_name: TEdit; P_Code: TEdit;
FromCoName: TEdit;
P_spec: TEdit; P_spec: TEdit;
IOType: TComboBox; IOType: TComboBox;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
@ -62,8 +61,6 @@ type
v2Column1: TcxGridDBColumn; v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn; v1Column8: TcxGridDBColumn;
v2Column6: TcxGridDBColumn; v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column12: TcxGridDBColumn; v1Column12: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel; cxGrid2Level1: TcxGridLevel;
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
@ -73,7 +70,6 @@ type
ToolButton1: TToolButton; ToolButton1: TToolButton;
BPIOID: TEdit; BPIOID: TEdit;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -224,18 +220,50 @@ begin
try try
ADOQueryCmd.Connection.BeginTrans; 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 with ADOQueryCmd do
begin begin
Close; Close;
Sql.Clear; sql.Clear;
Sql.Add('exec P_BS_Product_In_Del '); sql.Add(' SELECT isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''') ');
Sql.Add(' @BPIOIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BPIOID').AsString))); SQL.Add(',sum(IOQtyFlag*qty)qty FROM BS_Product_IO WHERE ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); sql.Add(' isnull(stkName,'''')=''' + Trim(FstkName) + '''');
Sql.Add(',@DName=' + quotedstr(Trim(DName))); SQL.Add('AND p_Code=' + QuotedStr(CDS_Main.fieldbyname('p_Code').AsString));
Open; 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; end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('Qty').Value < CDS_Main.FieldByName('Qty').Value then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); 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; ADOQueryCmd.Connection.CommitTrans;
CDS_Main.Delete; CDS_Main.Delete;
except except

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

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

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

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

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

@ -122,11 +122,11 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Caption = #33267 Caption = #33267
end end
object Label3: TLabel object Label3: TLabel
Left = 321 Left = 326
Top = 10 Top = 10
Width = 24 Width = 48
Height = 12 Height = 12
Caption = #21697#21517 Caption = #21161#21058#32534#21495
end end
object Label5: TLabel object Label5: TLabel
Left = 178 Left = 178
@ -136,11 +136,11 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Caption = #20986#24211#21333#21495 Caption = #20986#24211#21333#21495
end end
object Label8: TLabel object Label8: TLabel
Left = 321 Left = 326
Top = 37 Top = 37
Width = 24 Width = 48
Height = 12 Height = 12
Caption = #35268#26684 Caption = #21161#21058#31867#22411
end end
object Label12: TLabel object Label12: TLabel
Left = 179 Left = 179
@ -167,9 +167,9 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Time = 0.458268587972270300 Time = 0.458268587972270300
TabOrder = 1 TabOrder = 1
end end
object P_Name: TEdit object P_Code: TEdit
Tag = 2 Tag = 2
Left = 348 Left = 378
Top = 6 Top = 6
Width = 80 Width = 80
Height = 20 Height = 20
@ -187,7 +187,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
end end
object P_spec: TEdit object P_spec: TEdit
Tag = 2 Tag = 2
Left = 348 Left = 378
Top = 33 Top = 33
Width = 80 Width = 80
Height = 20 Height = 20
@ -219,6 +219,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -263,6 +264,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20986#24211#21333#21495 Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'BPIOID' DataBinding.FieldName = 'BPIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 83 Width = 83
@ -271,6 +273,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Tag = 2 Tag = 2
Caption = #20986#24211#26102#38388 Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False Properties.SaveTime = False
Properties.ShowTime = False Properties.ShowTime = False
@ -281,6 +284,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Tag = 2 Tag = 2
Caption = #20986#24211#31867#22411 Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -294,6 +298,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Tag = 2 Tag = 2
Caption = #25152#23646#31867#22411 Caption = #25152#23646#31867#22411
DataBinding.FieldName = 'SSType' DataBinding.FieldName = 'SSType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -308,6 +313,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #37319#36141#21333#21495 Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -318,6 +324,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Tag = 2 Tag = 2
Caption = #26469#33258#21333#20301 Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = < Properties.Buttons = <
@ -333,18 +340,21 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #20986#21040#21333#20301 Caption = #20986#21040#21333#20301
DataBinding.FieldName = 'ToCoName' DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
object v1Column16: TcxGridDBColumn object v1Column16: TcxGridDBColumn
Caption = #32534#21495 Caption = #21161#21058#32534#21495
DataBinding.FieldName = 'P_Code' DataBinding.FieldName = 'P_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
end end
object v1Column17: TcxGridDBColumn object v1Column17: TcxGridDBColumn
Caption = #21697#29260 Caption = #21697#29260
DataBinding.FieldName = 'SXPinPai' DataBinding.FieldName = 'SXPinPai'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -355,12 +365,14 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'P_Name' DataBinding.FieldName = 'P_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100 Width = 100
@ -368,6 +380,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
object v1Column20: TcxGridDBColumn object v1Column20: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'SPCode' DataBinding.FieldName = 'SPCode'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -376,8 +389,9 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
end end
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #35268#26684 Caption = #21161#21058#31867#22411
DataBinding.FieldName = 'P_Spec' DataBinding.FieldName = 'P_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -386,6 +400,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -395,6 +410,7 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 68 Width = 68
@ -403,22 +419,26 @@ inherited frmBSPrtDyeOutList: TfrmBSPrtDyeOutList
Tag = 2 Tag = 2
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 76 Width = 76
end end
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21333#20301 Caption = #39046#26009#21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 58 Width = 91
end end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
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, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations;
type type
TfrmBSPrtDyeOutList = class(TfrmBaseList) TfrmBSPrtDyeOutList = class(TfrmBaseList)
@ -61,7 +62,7 @@ type
Label5: TLabel; Label5: TLabel;
Label8: TLabel; Label8: TLabel;
Label12: TLabel; Label12: TLabel;
P_Name: TEdit; P_Code: TEdit;
BPIOID: TEdit; BPIOID: TEdit;
P_spec: TEdit; P_spec: TEdit;
IOType: TComboBox; IOType: TComboBox;
@ -227,18 +228,50 @@ begin
try try
ADOQueryCmd.Connection.BeginTrans; 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 with ADOQueryCmd do
begin begin
Close; Close;
Sql.Clear; sql.Clear;
Sql.Add('exec P_BS_Product_Out_Del '); sql.Add(' SELECT isnull(P_Code,''''),isnull(P_Spec,''''), isnull(BatchNo,''''),isnull(QtyUnit,'''') ');
Sql.Add(' @BPIOIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BPIOID').AsString))); SQL.Add(',sum(IOQtyFlag*qty)qty FROM BS_Product_IO WHERE ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); sql.Add(' isnull(stkName,'''')=''' + Trim(FstkName) + '''');
Sql.Add(',@DName=' + quotedstr(Trim(DName))); SQL.Add('AND p_Code=' + QuotedStr(CDS_Main.fieldbyname('p_Code').AsString));
Open; 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; end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then if ADOQueryCmd.FieldByName('Qty').Value < CDS_Main.FieldByName('Qty').Value then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); 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; ADOQueryCmd.Connection.CommitTrans;
CDS_Main.Delete; CDS_Main.Delete;
except except

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

@ -2,11 +2,11 @@ inherited frmBSPrtDyeStkList: TfrmBSPrtDyeStkList
Left = 105 Left = 105
Top = 131 Top = 131
Caption = #24211#23384#36873#25321#21015#34920 Caption = #24211#23384#36873#25321#21015#34920
ClientHeight = 472 ClientHeight = 538
ClientWidth = 1400 ClientWidth = 1400
Position = poDefault Position = poDefault
ExplicitWidth = 1416 ExplicitWidth = 1416
ExplicitHeight = 511 ExplicitHeight = 577
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -154,12 +154,14 @@ inherited frmBSPrtDyeStkList: TfrmBSPrtDyeStkList
Left = 0 Left = 0
Top = 74 Top = 74
Width = 1400 Width = 1400
Height = 398 Height = 464
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 72
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -220,85 +222,53 @@ inherited frmBSPrtDyeStkList: TfrmBSPrtDyeStkList
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 87 Width = 87
end 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 object v1Column5: TcxGridDBColumn
Caption = #32534#21495 Caption = #21161#21058#32534#21495
DataBinding.FieldName = 'P_Code' DataBinding.FieldName = 'P_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end 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 object v1Column8: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #35268#26684 Caption = #21161#21058#31867#22411
DataBinding.FieldName = 'P_Spec' DataBinding.FieldName = 'P_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 131 Width = 131
end end
object Tv1Column1: TcxGridDBColumn
Caption = #39046#26009#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 124 Width = 108
end end
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #24211#23384#25968#37327 Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'StkQty' DataBinding.FieldName = 'StkQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 74 Width = 98
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 end
end end
object cxGrid2Level1: TcxGridLevel 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, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations;
type type
TfrmBSPrtDyeStkList = class(TfrmBaseList) TfrmBSPrtDyeStkList = class(TfrmBaseList)
@ -32,13 +33,10 @@ type
ToolButton1: TToolButton; ToolButton1: TToolButton;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn; v1Column8: TcxGridDBColumn;
v1Column5: TcxGridDBColumn; v1Column5: TcxGridDBColumn;
v1Column10: TcxGridDBColumn; v1Column10: TcxGridDBColumn;
v2Column6: TcxGridDBColumn; v2Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel; cxGrid2Level1: TcxGridLevel;
Label3: TLabel; Label3: TLabel;
Label4: TLabel; Label4: TLabel;
@ -50,6 +48,7 @@ type
BatchNo: TEdit; BatchNo: TEdit;
v1Column6: TcxGridDBColumn; v1Column6: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Tv1Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -106,15 +105,37 @@ procedure TfrmBSPrtDyeStkList.InitGrid();
begin begin
try try
ADOQueryMain.DisableControls; 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 with ADOQueryMain do
begin begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; SQL.Clear;
sql.Add(' select A.* '); SQL.Add('SELECT ');
sql.Add(' from BS_Product_IO A '); SQL.Add(' A.P_Code, ');
SQL.Add(' where A.IOFlag=''Èë¿â'' and isnull(StkQty,0)>0 '); SQL.Add(' A.P_Spec, ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); 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; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_Main); SCreateCDS(ADOQueryMain, CDS_Main);

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

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

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

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp, System.ImageList, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseHelp, System.ImageList,
Vcl.ImgList; Vcl.ImgList, dxScrollbarAnnotations;
type type
TfrmBSPrtDyeStkSel = class(TfrmBaseHelp) TfrmBSPrtDyeStkSel = class(TfrmBaseHelp)
@ -36,7 +36,6 @@ type
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column17: TcxGridDBColumn; v1Column17: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v2Column1: TcxGridDBColumn; v2Column1: TcxGridDBColumn;
v1Column8: TcxGridDBColumn; v1Column8: TcxGridDBColumn;
v1Column4: TcxGridDBColumn; v1Column4: TcxGridDBColumn;
@ -54,8 +53,6 @@ type
BatchNo: TEdit; BatchNo: TEdit;
v1Column6: TcxGridDBColumn; v1Column6: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -110,9 +107,29 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select A.* ');
sql.Add(' from BS_Product_IO A where A.IOFlag=''Èë¿â'' and isnull(STkQty,0)>0 '); SQL.Add('SELECT ');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + ''''); 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; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_Main); SCreateCDS(ADOQueryMain, CDS_Main);

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

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

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

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

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

@ -44,7 +44,7 @@ type
Label3: TLabel; Label3: TLabel;
Label8: TLabel; Label8: TLabel;
P_Name: TEdit; P_Name: TEdit;
P_Spec: TEdit; P_Type: TEdit;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v2Column1: TcxGridDBColumn; 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_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint}, U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_DyePlanForCardSel in 'U_DyePlanForCardSel.pas' {frmProductOrderListSel};
{$R *.res} {$R *.res}

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

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

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

@ -1,46 +1,47 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.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.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/> <File Path="..\..\D10sxYilanbuyi"/>
@ -86,5 +87,7 @@
<File Path="U_DataLink.dfm"/> <File Path="U_DataLink.dfm"/>
<File Path="U_GetDllForm.pas"/> <File Path="U_GetDllForm.pas"/>
<File Path="U_iniParam.pas"/> <File Path="U_iniParam.pas"/>
<File Path="U_DyePlanForCardSel.pas"/>
<File Path="U_DyePlanForCardSel.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </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 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -489
ExplicitWidth = 1356 ExplicitWidth = 1356
ExplicitHeight = 585 ExplicitHeight = 585
PixelsPerInch = 96 PixelsPerInch = 96
@ -78,7 +77,7 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Width = 80 Width = 80
end end
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #21152#24037#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'ioType' DataBinding.FieldName = 'ioType'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
@ -94,9 +93,9 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 87 Width = 87
end end
object v1YWY: TcxGridDBColumn object Tv1OrderNo: TcxGridDBColumn
Caption = #36319#21333#21592 Caption = #29983#20135#35746#21333#21495
DataBinding.FieldName = 'follower' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
@ -104,15 +103,9 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.OnButtonClick = Tv1OrderNoPropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 67 Width = 90
end
object Tv1OrderNo: TcxGridDBColumn
Caption = #29983#20135#35746#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #25104#21697#32534#21495 Caption = #25104#21697#32534#21495
@ -128,19 +121,12 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 72 Width = 72
end end
object v1SPMF: TcxGridDBColumn object Tv1C_Name: TcxGridDBColumn
Caption = #25104#21697#38376#24133 Caption = #25104#21697#21517#31216
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 75 Width = 80
end
object Tv1Column3: TcxGridDBColumn
Caption = #21518#25972#29702#25551#36848
DataBinding.FieldName = 'finishDescription'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 90
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #22383#24067#32534#21495 Caption = #22383#24067#32534#21495
@ -149,6 +135,36 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end 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 object Tv1Column1: TcxGridDBColumn
Caption = #22383#24067#38376#24133 Caption = #22383#24067#38376#24133
DataBinding.FieldName = 'F_Width' DataBinding.FieldName = 'F_Width'
@ -163,44 +179,20 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1Column7: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #31859#25968 Caption = #21518#25972#29702#25551#36848
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'finishDescription'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 90
end
object v1Column9: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 58
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #35201#27714#20132#26399 Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate' DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end 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 object Tv1Column8: TcxGridDBColumn
Caption = #26469#33258#21333#20301 Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName' DataBinding.FieldName = 'FromCoName'
@ -222,14 +214,6 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end 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 object Tv1StkCoName: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName' DataBinding.FieldName = 'StkCoName'
@ -246,14 +230,6 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1QtyUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

@ -32,10 +32,8 @@ type
cxGridPopupMenu2: TcxGridPopupMenu; cxGridPopupMenu2: TcxGridPopupMenu;
v1Column12: TcxGridDBColumn; v1Column12: TcxGridDBColumn;
v1Column6: TcxGridDBColumn; v1Column6: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1SPMF: TcxGridDBColumn; v1SPMF: TcxGridDBColumn;
v1Column9: TcxGridDBColumn; v1Column9: TcxGridDBColumn;
v1YWY: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
@ -79,6 +77,7 @@ type
procedure ToolButton7Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject);
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1OrderNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
function SaveCKData(): Boolean; function SaveCKData(): Boolean;
@ -95,7 +94,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_DyePlanCardSel, U_CompanySel, U_DataLink, U_RTFun, U_ZDYHelp, U_DyePlanCardSel, U_CompanySel,
U_GreyClothStkSel, U_GreyClothHXSel, U_GreyClothDYSel, U_GreyClothDJHXSel, U_GreyClothStkSel, U_GreyClothHXSel, U_GreyClothDYSel, U_GreyClothDJHXSel,
U_GreyClothHXDJSel, U_ClothInfoSel; U_GreyClothHXDJSel, U_ClothInfoSel, U_DyePlanForCardSel;
{$R *.dfm} {$R *.dfm}
@ -163,6 +162,51 @@ begin
begin begin
Maxno := Trim(MBCIOID); Maxno := Trim(MBCIOID);
end; 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 with ADOQueryCmd do
begin begin
Close; Close;
@ -170,6 +214,7 @@ begin
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + ''''); sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + '''');
Open; Open;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
if Trim(MBCIOID) = '' then if Trim(MBCIOID) = '' then
@ -345,8 +390,7 @@ begin
if SaveCKData() then if SaveCKData() then
begin begin
Application.MessageBox('±£´æ³É¹¦!', 'Ìáʾ', 0); Application.MessageBox('±£´æ³É¹¦!', 'Ìáʾ', 0);
//ModalResult:=1; close;
Exit;
end; end;
end; end;
@ -721,6 +765,32 @@ begin
end; end;
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); procedure TfrmDyeGreyClothInEdit.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin

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

@ -30,7 +30,6 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = 1
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -116,7 +115,6 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object Label1: TLabel object Label1: TLabel
Left = 28 Left = 28
Top = 12 Top = 12
@ -328,7 +326,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 97 ExplicitTop = 95
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -388,6 +386,13 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 41 Width = 41
end end
object Tv1lzckordno: TcxGridDBColumn
Caption = #26469#36135#21333#21495
DataBinding.FieldName = 'lzckordno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20837#24211#21333#21495 Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BCIOID' DataBinding.FieldName = 'BCIOID'
@ -423,6 +428,112 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Options.Editing = False Options.Editing = False
Width = 81 Width = 81
end 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 object v1Column14: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #26469#33258#21333#20301 Caption = #26469#33258#21333#20301
@ -440,154 +551,6 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Options.Editing = False Options.Editing = False
Width = 116 Width = 116
end 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 object v1Column12: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
@ -597,46 +560,6 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Options.Editing = False Options.Editing = False
Width = 79 Width = 79
end 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 end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

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

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

@ -2,7 +2,7 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Left = 65 Left = 65
Top = 113 Top = 113
Caption = #20986#24211#30331#35760 Caption = #20986#24211#30331#35760
ClientHeight = 486 ClientHeight = 546
ClientWidth = 1406 ClientWidth = 1406
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -10,9 +10,8 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -538
ExplicitWidth = 1422 ExplicitWidth = 1422
ExplicitHeight = 525 ExplicitHeight = 585
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -82,15 +81,22 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1406 Width = 1406
Height = 448 Height = 508
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitTop = 44 ExplicitLeft = -91
ExplicitTop = 96
ExplicitWidth = 1284
ExplicitHeight = 447
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource3 DataController.DataSource = DataSource3
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skCount Kind = skCount
@ -110,7 +116,18 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
end end
item item
Kind = skSum 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> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -120,243 +137,192 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Styles.Header = DataLink_DyeGreyClothStk.Default Styles.Header = DataLink_DyeGreyClothStk.Default
Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe
Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe
object v1Column13: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Tag = 2 Caption = #36873#25321
Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'ssel'
DataBinding.FieldName = 'OrderNo' DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.Buttons = < Properties.ImmediatePost = True
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 94 Width = 41
end end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Tag = 2
Caption = #20986#24211#21333#21495 Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'BCIOID' DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 91 Width = 83
end end
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20986#24211#26102#38388 Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'ioTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False Properties.SaveTime = False
Properties.ShowTime = False Properties.ShowTime = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 100 Options.Editing = False
Width = 93
end end
object v1CRType: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20986#24211#31867#22411 Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.DropDownRows = 20
Properties.Items.Strings = ( Properties.Items.Strings = (
#21152#24037#20986#24211 #27491#24120#20837#24211
#36864#36824) #29983#20135#36864#22238
HeaderAlignmentHorz = taCenter #26399#21021#20837#24211)
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
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
VisibleForCustomization = False Width = 81
Width = 99
end end
object Tv1Column2: TcxGridDBColumn object Tv1OrderNo: TcxGridDBColumn
Caption = #20986#21040#21333#20301 Tag = 2
DataBinding.FieldName = 'ToCoName' Caption = #29983#20135#35746#21333#21495
PropertiesClassName = 'TcxButtonEditProperties' DataBinding.FieldName = 'OrderNo'
Properties.Buttons = < DataBinding.IsNullValueType = True
item HeaderAlignmentHorz = taCenter
Default = True Width = 90
Kind = bkEllipsis end
end> object Tv1Column4: TcxGridDBColumn
Properties.ReadOnly = True Tag = 2
Properties.OnButtonClick = Tv1Column2PropertiesButtonClick 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 HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end 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 object v2Column1: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #25104#21697#21697#21517
DataBinding.FieldName = 'C_name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 97 Width = 99
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
end end
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85 Width = 85
end 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 object v1Column3: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #21333#20301 Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False 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 end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79 Width = 79
end 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 end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -402,11 +368,10 @@ inherited frmDyeGreyClothOutEdit: TfrmDyeGreyClothOutEdit
Connection = DataLink_DyeGreyClothStk.ADOLink Connection = DataLink_DyeGreyClothStk.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 352 Left = 376
Top = 176 Top = 184
end end
object cxGridPopupMenu2: TcxGridPopupMenu object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <> PopupMenus = <>
Left = 464 Left = 464
Top = 104 Top = 104

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

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

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

@ -336,7 +336,11 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Width = 1193 Width = 1193
Height = 447 Height = 447
Align = alClient Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitLeft = -91
ExplicitTop = 96
ExplicitWidth = 1284
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -345,11 +349,6 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
item item
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = v1Column19
end
item
Kind = skSum
Column = v1Column19
end> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -370,15 +369,18 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
end end
item item
Kind = skSum Kind = skSum
Column = v1Column19
end end
item item
Kind = skSum Kind = skSum
end end
item item
Format = #26465#25968':0' Format = #26465#25968#65306'0'
Kind = skCount Kind = skCount
Column = v1Column6 Column = v1Column6
end
item
Kind = skSum
Column = v1Column15
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -388,13 +390,14 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Styles.Header = DataLink_DyeGreyClothStk.Default Styles.Header = DataLink_DyeGreyClothStk.Default
Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe
Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe
object Tv1Column6: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'ssel' DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 41
end end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20986#24211#21333#21495 Caption = #20986#24211#21333#21495
@ -407,13 +410,14 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #20986#24211#26102#38388 Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'ioTime'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False Properties.SaveTime = False
Properties.ShowTime = False Properties.ShowTime = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 100 Options.Editing = False
Width = 93
end end
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Tag = 2 Tag = 2
@ -423,37 +427,118 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
#21152#24037#20986#24211 #27491#24120#20837#24211
#24179#31227#20986#24211 #29983#20135#36864#22238
#36864#36135) #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 HeaderAlignmentHorz = taCenter
Width = 81 Width = 81
end 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 Tag = 2
Caption = #25152#23646#31867#22411 Caption = #25104#21697#21697#21517
DataBinding.FieldName = 'SSType' 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 DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
#33258#24049 'Kg'
#23458#25143) 'M'
Visible = False 'Y')
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
VisibleForCustomization = False
Width = 75 Width = 75
end end
object v1Column1: TcxGridDBColumn object v1Column13: TcxGridDBColumn
Caption = #37319#36141#21333#21495 Caption = #25104#21697#38376#24133
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
VisibleForCustomization = False Width = 67
Width = 85 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 end
object v1Column14: TcxGridDBColumn object v1Column14: TcxGridDBColumn
Tag = 2 Tag = 2
@ -470,215 +555,17 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Properties.ReadOnly = True Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 89 Width = 116
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
end end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79 Width = 79
end 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 end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -720,7 +607,6 @@ inherited frmDyeGreyClothOutList: TfrmDyeGreyClothOutList
Top = 152 Top = 152
end end
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <> PopupMenus = <>
Left = 1104 Left = 1104
Top = 168 Top = 168

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

@ -45,19 +45,6 @@ type
N2: TMenuItem; N2: TMenuItem;
TBAdd: TToolButton; TBAdd: TToolButton;
TBEdit: 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; Label3: TLabel;
Label4: TLabel; Label4: TLabel;
Label5: TLabel; Label5: TLabel;
@ -68,42 +55,41 @@ type
BCIOID: TEdit; BCIOID: TEdit;
C_spec: TEdit; C_spec: TEdit;
IOType: TComboBox; IOType: TComboBox;
v1Column20: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
Label9: TLabel; Label9: TLabel;
C_XINHAO: TEdit; C_XINHAO: TEdit;
v1Column5: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
Label6: TLabel; Label6: TLabel;
OrderNo: TEdit; OrderNo: TEdit;
Label7: TLabel; Label7: TLabel;
FTYNo: TEdit; FTYNo: TEdit;
Tv1Column2: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Label10: TLabel; Label10: TLabel;
Label11: TLabel; Label11: TLabel;
C_Width: TEdit; C_Width: TEdit;
C_GramWeight: TEdit; C_GramWeight: TEdit;
Label14: TLabel; Label14: TLabel;
C_ColorDepth: TEdit; C_ColorDepth: TEdit;
Tv1Column11: TcxGridDBColumn; cxGrid2: TcxGrid;
Tv1Column12: TcxGridDBColumn; 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 FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

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

@ -10,7 +10,6 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -1
ExplicitWidth = 1181 ExplicitWidth = 1181
ExplicitHeight = 511 ExplicitHeight = 511
PixelsPerInch = 96 PixelsPerInch = 96
@ -179,38 +178,15 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitLeft = -320 ExplicitTop = 71
ExplicitTop = 80
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
Kind = skSum Kind = skSum
Position = spFooter 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> end>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
@ -231,15 +207,18 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
end end
item item
Kind = skSum Kind = skSum
Column = v1Column1
end end
item item
Kind = skSum Kind = skSum
Column = v1Column7 end
item
Format = #26465#25968#65306'0'
Kind = skCount
Column = v1Column6
end end
item item
Kind = skSum Kind = skSum
Column = v1Column9 Column = v1Column15
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -249,33 +228,168 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Styles.Header = DataLink_DyeGreyClothStk.Default Styles.Header = DataLink_DyeGreyClothStk.Default
Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe Styles.Inactive = DataLink_DyeGreyClothStk.SHuangSe
Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe Styles.Selection = DataLink_DyeGreyClothStk.SHuangSe
object v1Column17: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'ssel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 49 Width = 41
end end
object v1Column11: TcxGridDBColumn object Tv1lzckordno: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #26469#36135#21333#21495
DataBinding.FieldName = 'FromOrdNo' DataBinding.FieldName = 'lzckordno'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Width = 80
Width = 70
end end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False 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 end
object v1Column14: TcxGridDBColumn object v1Column14: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #26469#33258#21333#20301 Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = < Properties.Buttons = <
@ -286,144 +400,16 @@ inherited frmDyeGreyClothStkSel: TfrmDyeGreyClothStkSel
Properties.ReadOnly = True Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 108 Width = 116
end end
object v2Column1: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Tag = 2 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 Caption = #22791#27880
DataBinding.FieldName = 'note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 59 Options.Editing = False
Width = 79
end end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel

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

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

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 PopupMenu = PM_2
TabOrder = 2 TabOrder = 2
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2 DataController.DataSource = DS_2
@ -529,50 +530,18 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
item item
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = v1Column7
end end
item item
Kind = skSum Kind = skSum
Position = spFooter Position = spFooter
Column = v1Column9
end end
item item
Kind = skSum Kind = skSum
Column = v1Column7
end end
item item
Kind = skSum 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> end>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True OptionsView.Footer = True
@ -581,30 +550,50 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Styles.Header = DataLink_DyePlan.Default Styles.Header = DataLink_DyePlan.Default
Styles.Inactive = DataLink_DyePlan.SHuangSe Styles.Inactive = DataLink_DyePlan.SHuangSe
Styles.Selection = 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 Tag = 2
Caption = #23458#25143#21517#31216 Caption = #25104#21697#21517#31216
DataBinding.FieldName = 'FromCoName' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 93 Width = 124
end end
object v1Column10: TcxGridDBColumn object cxGridDBColumn2: TcxGridDBColumn
Caption = #25209#21495 Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'F_Code '
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100 Width = 84
end end
object cxGridDBColumn5: TcxGridDBColumn object cxGridDBColumn5: TcxGridDBColumn
Caption = #21305#25968 Caption = #21305#25968
@ -643,101 +632,32 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Options.Editing = False Options.Editing = False
Width = 51 Width = 51
end 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 object cxGridDBColumn3: TcxGridDBColumn
Caption = #38376#24133 Caption = #25104#21697#38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end 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 object cxGridDBColumn4: TcxGridDBColumn
Caption = #20811#37325 Caption = #26448#36136
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'Material'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
end 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 end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = TV2 GridView = TV2
@ -1396,7 +1316,7 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
object TV1Column2: TcxGridDBColumn object TV1Column2: TcxGridDBColumn
Tag = 7 Tag = 7
Caption = #24037#24207 Caption = #24037#24207
DataBinding.FieldName = 'GlideList' DataBinding.FieldName = 'DTMPSlist'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_DyePlan.FontBlue Styles.Content = DataLink_DyePlan.FontBlue
@ -1638,4 +1558,10 @@ inherited frmDyePlanCardInput: TfrmDyePlanCardInput
Left = 216 Left = 216
Top = 169 Top = 169
end end
object ADO_PB: TADOQuery
Connection = DataLink_DyePlan.ADOLink
Parameters = <>
Left = 308
Top = 148
end
end end

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -195,52 +195,12 @@ inherited frmDyePlanList: TfrmDyePlanList
ParentFont = False ParentFont = False
OnDblClick = Label3DblClick OnDblClick = Label3DblClick
end 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 object Label8: TLabel
Left = 628 Left = 404
Top = 17 Top = 17
Width = 52 Width = 52
Height = 12 Height = 12
Caption = #20135#21697#21517#31216 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 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
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -249,11 +209,11 @@ inherited frmDyePlanList: TfrmDyePlanList
ParentFont = False ParentFont = False
end end
object Label11: TLabel object Label11: TLabel
Left = 628 Left = 223
Top = 39 Top = 43
Width = 52 Width = 52
Height = 12 Height = 12
Caption = #20135#21697#32534#21495 Caption = #22383#24067#21517#31216
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -303,58 +263,31 @@ inherited frmDyePlanList: TfrmDyePlanList
TabOrder = 2 TabOrder = 2
OnChange = OrderNoChange OnChange = OrderNoChange
end end
object CustName: TEdit object C_Name: TEdit
Tag = 2 Tag = 2
Left = 468 Left = 462
Top = 13 Top = 13
Width = 100 Width = 100
Height = 20 Height = 20
TabOrder = 3 TabOrder = 3
OnChange = OrderNoChange OnChange = OrderNoChange
end end
object C_Name: TEdit object F_Name: TEdit
Tag = 2 Tag = 2
Left = 686 Left = 281
Top = 13 Top = 39
Width = 100 Width = 100
Height = 20 Height = 20
TabOrder = 4 TabOrder = 4
OnChange = OrderNoChange OnChange = OrderNoChange
end 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 object MPRTKZ: TEdit
Tag = 2 Tag = 2
Left = 654 Left = 654
Top = 99 Top = 99
Width = 56 Width = 56
Height = 20 Height = 20
TabOrder = 8 TabOrder = 5
OnChange = OrderNoChange OnChange = OrderNoChange
end end
end end
@ -366,7 +299,6 @@ inherited frmDyePlanList: TfrmDyePlanList
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 127
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -379,12 +311,10 @@ inherited frmDyePlanList: TfrmDyePlanList
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skSum Kind = skSum
Column = v1Column2
end end
item item
Format = #20849' 0 '#34892 Format = #20849' 0 '#34892
Kind = skCount Kind = skCount
Column = v1ConNo
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -414,59 +344,68 @@ inherited frmDyePlanList: TfrmDyePlanList
Styles.Header = DataLink_DyePlan.FontBlue Styles.Header = DataLink_DyePlan.FontBlue
Width = 92 Width = 92
end end
object Tv1Column2: TcxGridDBColumn object v1MPRTCodeName: TcxGridDBColumn
Caption = #23458#25143#32534#21495 Caption = #25104#21697#21517#31216
DataBinding.FieldName = 'CustNo' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object v1CustomerNoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Styles.Content = DataLink_DyePlan.FontBlue Styles.Content = DataLink_DyePlan.FontBlue
Styles.Footer = DataLink_DyePlan.FontBlue Styles.Footer = DataLink_DyePlan.FontBlue
Styles.Header = DataLink_DyePlan.FontBlue Styles.Header = DataLink_DyePlan.FontBlue
Width = 94 Width = 76
end end
object v1ConNo: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'ConNo' 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 DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Styles.Header = DataLink_DyePlan.Default Styles.Header = DataLink_DyePlan.Default
Width = 80 Width = 81
end end
object v1Column5: TcxGridDBColumn object Tv1F_description: TcxGridDBColumn
Caption = #29983#20135#31867#22411 Caption = #22383#24067#25551#36848
DataBinding.FieldName = 'OrdType' DataBinding.FieldName = 'F_description'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object v1Column4: TcxGridDBColumn object Tv1QtyOrder: TcxGridDBColumn
Caption = #38144#21806#31867#22411 Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'Salestype' DataBinding.FieldName = 'QtyOrder'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object v1Column1: TcxGridDBColumn object Tv1C_PlanQty: TcxGridDBColumn
Caption = #19994#21153#21592 Caption = #35745#21010#25968#37327
DataBinding.FieldName = 'Saleser' DataBinding.FieldName = 'C_PlanQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80 Width = 80
end end
object v1OrdDate: TcxGridDBColumn object v1OrdDate: TcxGridDBColumn
Caption = #21046#21333#26085#26399 Caption = #35746#21333#26085#26399
DataBinding.FieldName = 'OrdDate' DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
@ -488,86 +427,6 @@ inherited frmDyePlanList: TfrmDyePlanList
Styles.Header = DataLink_DyePlan.Default Styles.Header = DataLink_DyePlan.Default
Width = 80 Width = 80
end 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 end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1

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

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

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

File diff suppressed because it is too large Load Diff

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

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

@ -58,6 +58,7 @@ type
ToolButton1: TToolButton; ToolButton1: TToolButton;
ToolButton4: TToolButton; ToolButton4: TToolButton;
ToolButton5: TToolButton; ToolButton5: TToolButton;
TV1PSID: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -75,6 +76,7 @@ type
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private private
{ Private declarations } { Private declarations }
@ -91,7 +93,7 @@ var
implementation implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_DyeTechnicsinput; U_DataLink, U_RTFun, U_ZDYHelp, U_DyeTechnicsinput, U_DyeProcessDefin;
{$R *.dfm} {$R *.dfm}
procedure TfrmDyeTechnicsList.InitGlide(); procedure TfrmDyeTechnicsList.InitGlide();
@ -212,8 +214,24 @@ begin
sql.Clear; sql.Clear;
sql.Add('delete Dye_Technics_Main where DTMID=''' + Trim(CDS_2.fieldbyname('DTMID').AsString) + ''''); 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) + ''''); sql.Add('delete Dye_Technics_Sub where DTMID=''' + Trim(CDS_2.fieldbyname('DTMID').AsString) + '''');
execsql; execsql;
end; 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; end;
next; next;
end; end;
@ -254,7 +272,7 @@ begin
FDTMID := ''; FDTMID := '';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TBRafresh.Click;
end; end;
end; end;
finally finally
@ -288,7 +306,7 @@ begin
FDTMID := Trim(self.CDS_2.fieldbyname('DTMID').AsString); FDTMID := Trim(self.CDS_2.fieldbyname('DTMID').AsString);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TBRafresh.Click;
end; end;
end; end;
finally finally
@ -306,7 +324,7 @@ begin
FDTMID := Trim(self.CDS_2.fieldbyname('DTMID').AsString); FDTMID := Trim(self.CDS_2.fieldbyname('DTMID').AsString);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
TBRafresh.Click;
end; end;
end; end;
finally finally
@ -404,6 +422,28 @@ begin
end; end;
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); procedure TfrmDyeTechnicsList.cxTabControl1Change(Sender: TObject);
begin begin
SetStatus(); SetStatus();

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

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

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

@ -15,7 +15,7 @@ uses
cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, Menus, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters, dxBarBuiltInMenu, Menus, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters,
U_BaseInput, dxDateRanges, dxScrollbarAnnotations, System.ImageList, U_BaseInput, dxDateRanges, dxScrollbarAnnotations, System.ImageList,
Vcl.ImgList; Vcl.ImgList, cxButtons;
type type
TfrmDyeTechnicsinput = class(TfrmBaseinput) TfrmDyeTechnicsinput = class(TfrmBaseinput)
@ -66,6 +66,12 @@ type
Tv3Column2: TcxGridDBColumn; Tv3Column2: TcxGridDBColumn;
CDS_3: TClientDataSet; CDS_3: TClientDataSet;
DS_3: TDataSource; DS_3: TDataSource;
TbMoveUp: TcxButton;
btnMoveDown: TcxButton;
TV1DTMID: TcxGridDBColumn;
TV1DTMName: TcxGridDBColumn;
Tv3DTMName: TcxGridDBColumn;
TV1Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -84,6 +90,8 @@ type
procedure TbDeleteClick(Sender: TObject); procedure TbDeleteClick(Sender: TObject);
procedure Tv3DblClick(Sender: TObject); procedure Tv3DblClick(Sender: TObject);
procedure PSNameKeyPress(Sender: TObject; var Key: Char); procedure PSNameKeyPress(Sender: TObject; var Key: Char);
procedure TbMoveUpClick(Sender: TObject);
procedure btnMoveDownClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
@ -95,6 +103,7 @@ type
procedure CheckData(); procedure CheckData();
procedure InitGridSub(); procedure InitGridSub();
public public
fPSIDList: string;
FDTMID, PState: string; FDTMID, PState: string;
{ Public declarations } { Public declarations }
RKFlag, FCYID, fmanage: string; RKFlag, FCYID, fmanage: string;
@ -152,6 +161,8 @@ begin
end; end;
procedure TfrmDyeTechnicsinput.InitGlide(); procedure TfrmDyeTechnicsinput.InitGlide();
var
maxNo: string;
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin
@ -174,23 +185,58 @@ begin
SCreateCDS(ADOQueryTemp, CDS_1); SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1); SInitCDSData(ADOQueryTemp, CDS_1);
CheckData(); CheckData();
end;
procedure TfrmDyeTechnicsinput.CheckData();
begin
if PState = '复制' then if PState = '复制' then
begin begin
CDS_1.First; CDS_1.First;
while not CDS_1.Eof do while not CDS_1.Eof do
begin 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; end;
function TfrmDyeTechnicsinput.SaveData(): boolean; function TfrmDyeTechnicsinput.SaveData(): boolean;
@ -211,6 +257,90 @@ begin
maxno := FDTMID; maxno := FDTMID;
end; 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 with ADOQueryCmd do
begin begin
Close; Close;
@ -248,6 +378,21 @@ begin
begin begin
DTMPSlist := DTMPSlist + '→' + Trim(CDS_1.fieldbyname('PSNO').AsString) + '.' + Trim(CDS_1.fieldbyname('PSName').AsString); DTMPSlist := DTMPSlist + '→' + Trim(CDS_1.fieldbyname('PSNO').AsString) + '.' + Trim(CDS_1.fieldbyname('PSName').AsString);
end; 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; Next;
end; end;
end; end;
@ -274,7 +419,6 @@ begin
end; end;
RTSetsavedata(ADOQueryCmd, 'Dye_Technics_Main', Panel4, 2); RTSetsavedata(ADOQueryCmd, 'Dye_Technics_Main', Panel4, 2);
FieldByName('DTMPSlist').Value := Trim(DTMPSlist); FieldByName('DTMPSlist').Value := Trim(DTMPSlist);
Post; Post;
end; end;
@ -351,8 +495,8 @@ end;
procedure TfrmDyeTechnicsinput.FormShow(Sender: TObject); procedure TfrmDyeTechnicsinput.FormShow(Sender: TObject);
begin begin
inherited; inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '工艺管理'); ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '工艺录入');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '工艺管理'); ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '工艺录入');
InitGrid(); InitGrid();
InitGlide(); InitGlide();
InitGridSub(); InitGridSub();
@ -369,6 +513,8 @@ begin
Exit; Exit;
if Trim(CDS_1.fieldbyname('PSId').AsString) <> '' then if Trim(CDS_1.fieldbyname('PSId').AsString) <> '' then
begin
if (Trim(CDS_1.fieldbyname('DTMID').AsString) = '') or CDS_1.fieldbyname('DTMID').isNull then
begin begin
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit; Exit;
@ -379,15 +525,76 @@ begin
sql.Add('delete Dye_Process where PSId=''' + Trim(CDS_1.fieldbyname('PSId').AsString) + ''''); sql.Add('delete Dye_Process where PSId=''' + Trim(CDS_1.fieldbyname('PSId').AsString) + '''');
ExecSQL; ExecSQL;
end; 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; end;
CDS_1.Delete; CDS_1.Delete;
SetXH(); SetXH();
end; 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); procedure TfrmDyeTechnicsinput.ToolButton2Click(Sender: TObject);
begin begin
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '工艺管理'); WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '工艺录入');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '工艺管理'); WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '工艺录入');
end; end;
@ -481,6 +688,45 @@ begin
end; end;
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); procedure TfrmDyeTechnicsinput.btnSaveClick(Sender: TObject);
begin begin
if trim(DTMNo.Text) = '' then if trim(DTMNo.Text) = '' then
@ -499,32 +745,11 @@ begin
Exit; Exit;
end; 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 if SaveData() then
begin begin
Application.MessageBox('保存成功！', '提示', 0); Application.MessageBox('保存成功！', '提示', 0);
end; end;
close;
end; end;
procedure TfrmDyeTechnicsinput.v2Column2PropertiesEditValueChanged(Sender: TObject); procedure TfrmDyeTechnicsinput.v2Column2PropertiesEditValueChanged(Sender: TObject);
@ -568,6 +793,7 @@ end;
procedure TfrmDyeTechnicsinput.Tv2DblClick(Sender: TObject); procedure TfrmDyeTechnicsinput.Tv2DblClick(Sender: TObject);
begin begin
with CDS_1 do with CDS_1 do
begin begin
Append; Append;
@ -585,13 +811,34 @@ begin
end; end;
procedure TfrmDyeTechnicsinput.Tv3DblClick(Sender: TObject); procedure TfrmDyeTechnicsinput.Tv3DblClick(Sender: TObject);
var
maxNo: string;
begin 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 with CDS_1 do
begin begin
Append; Append;
FieldByName('PSNO').Value := CDS_1.RecordCount + 1; FieldByName('PSNO').Value := CDS_1.RecordCount + 1;
FieldByName('PSType').Value := CDS_2.fieldbyname('PSType').AsString; 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; post;
end; end;

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

@ -1,27 +1,27 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.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.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.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.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.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.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.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.dfm</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>2025-06-28 17:17:29.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/> <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 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
ButtonWidth = 96 ButtonWidth = 97
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
DisabledImages = DataLink_DyeProcess.ImageList_new32 DisabledImages = DataLink_DyeProcess.ImageList_new32
@ -68,7 +68,7 @@ inherited frmDyePCList: TfrmDyePCList
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 313 Left = 314
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -76,7 +76,7 @@ inherited frmDyePCList: TfrmDyePCList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 408 Left = 409
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -326,9 +326,7 @@ inherited frmDyePCList: TfrmDyePCList
TabOrder = 3 TabOrder = 3
LookAndFeel.ScrollbarMode = sbmHybrid LookAndFeel.ScrollbarMode = sbmHybrid
LookAndFeel.ScrollMode = scmDefault LookAndFeel.ScrollMode = scmDefault
ExplicitLeft = -218 ExplicitTop = 108
ExplicitTop = 99
ExplicitWidth = 1363
object tv1: TcxGridDBTableView object tv1: TcxGridDBTableView
Tag = 9999 Tag = 9999
DragMode = dmAutomatic DragMode = dmAutomatic
@ -568,15 +566,19 @@ inherited frmDyePCList: TfrmDyePCList
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_DyeProcess.ADOLink Connection = DataLink_DyeProcess.ADOLink
Left = 225
Top = 328
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_DyeProcess.ADOLink Connection = DataLink_DyeProcess.ADOLink
Left = 81
Top = 329
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_DyeProcess.ADOLink Connection = DataLink_DyeProcess.ADOLink
Parameters = <> Parameters = <>
Left = 788 Left = 652
Top = 168 Top = 280
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_DyeProcess.ADOLink Connection = DataLink_DyeProcess.ADOLink
@ -624,7 +626,7 @@ inherited frmDyePCList: TfrmDyePCList
LaterBuildEvents = True LaterBuildEvents = True
OnlyOwnerDataSet = False OnlyOwnerDataSet = False
Left = 720 Left = 720
Top = 136 Top = 56
ReportData = {} ReportData = {}
end end
end end

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

Binary file not shown.