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

11

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-07-09 16:55:19 +08:00
parent c011567d90
commit ca2a7d5d28
15 changed files with 6625 additions and 1789 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,9 +42,9 @@
<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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>2025/06/13 15:31:04.000.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>2025/06/13 15:43:57.000.936,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
</Transactions>

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

@ -184,6 +184,7 @@ type
public
dFdDy: array[0..20] of FdDy; //客户端连接数组
FTechnicsID : string;
{ Public declarations }
end;
@ -629,7 +630,8 @@ begin
begin
CopyInt := 0;
FBCIID := '';
FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
FTechnicsID := '';
// FCTID := Trim(Self.CDS_Tree.fieldbyname('TechnicsID').AsString);
if ShowModal = 1 then
begin

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

@ -336,43 +336,42 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 1074
Height = 346
Align = alBottom
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 29
ExplicitTop = 337
object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_GX
DataController.DataSource = DS_GY
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
OptionsView.Indicator = True
object cxGridDBColumn1: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'serialno'
object TV4GYNO: TcxGridDBColumn
Caption = #24037#33402#32534#21495
DataBinding.FieldName = 'DTMNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
Width = 80
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #21407#26009#21517#31216
DataBinding.FieldName = 'GXName'
object TV4GYName: TcxGridDBColumn
Caption = #24037#33402#21517#31216
DataBinding.FieldName = 'DTMName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
Width = 80
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'NOTE'
object TV4GYGX: TcxGridDBColumn
Caption = #24037#24207
DataBinding.FieldName = 'DTMPSlist'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 142
Width = 455
end
object TV4DTMID: TcxGridDBColumn
Caption = #24037#33402#20027#38190
DataBinding.FieldName = 'DTMID'
DataBinding.IsNullValueType = True
Visible = False
end
end
object cxGridLevel4: TcxGridLevel
@ -426,7 +425,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Top = 7
Width = 84
Height = 20
Caption = #24037#24207#20449#24687
Caption = #24037#33402#20449#24687
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -20
@ -439,7 +438,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Tag = 1
Left = 185
Top = 1
Width = 572
Width = 643
Height = 39
Align = alLeft
AutoSize = True
@ -466,7 +465,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Top = 0
Caption = #32763#24067
ImageIndex = 2
OnClick = TbFBClick
Visible = False
end
object TbQX: TToolButton
Left = 75
@ -474,7 +473,7 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #28165#27927
ImageIndex = 2
OnClick = TbQXClick
Visible = False
end
object TbDX: TToolButton
Left = 146
@ -482,7 +481,7 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #23450#22411
ImageIndex = 2
OnClick = TbDXClick
Visible = False
end
object TbFS: TToolButton
Left = 217
@ -490,7 +489,7 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #38450#27700
ImageIndex = 2
OnClick = TbFSClick
Visible = False
end
object TbFP: TToolButton
Left = 288
@ -498,7 +497,7 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #21457#27873
ImageIndex = 2
OnClick = TbFPClick
Visible = False
end
object TbGJ: TToolButton
Left = 359
@ -506,7 +505,7 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #21038#33014
ImageIndex = 2
OnClick = TbGJClick
Visible = False
end
object TbZM: TToolButton
Left = 430
@ -514,15 +513,22 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #36711#27611
ImageIndex = 2
OnClick = TbZMClick
Visible = False
end
object TbAdd: TToolButton
Left = 501
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = TbAddClick
end
object TbDelete: TToolButton
Left = 501
Left = 572
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 6
OnClick = TbDeleteClick
end
end
end
@ -800,7 +806,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#26367#25442
TabOrder = 28
OnClick = TbCPReplaceClick
end
object cxButton2: TcxButton
Left = 168
@ -809,7 +814,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#28165#31354
TabOrder = 29
OnClick = cxButton2Click
end
end
end
@ -1245,7 +1249,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#26367#25442
TabOrder = 48
OnClick = TbDXReplaceClick
end
object TbDXClear: TcxButton
Left = 182
@ -1254,7 +1257,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#28165#31354
TabOrder = 49
OnClick = TbDXClearClick
end
end
end
@ -1684,7 +1686,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#26367#25442
TabOrder = 48
OnClick = TbDX2ReplaceClick
end
object TbDX2Clear: TcxButton
Left = 182
@ -1693,7 +1694,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#28165#31354
TabOrder = 49
OnClick = TbDX2ClearClick
end
end
end
@ -2123,7 +2123,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#26367#25442
TabOrder = 48
OnClick = TbDX3ReplaceClick
end
object TbDX3Clear: TcxButton
Left = 182
@ -2132,7 +2131,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#28165#31354
TabOrder = 49
OnClick = TbDX3ClearClick
end
end
end
@ -2695,7 +2693,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Tag = 2
Left = 116
Top = 187
Properties.OnChange = fs_meterPropertiesChange
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
@ -2742,7 +2739,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Tag = 2
Left = 430
Top = 186
Properties.OnChange = fs_meterPropertiesChange
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
@ -2757,7 +2753,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#26367#25442
TabOrder = 63
OnClick = TbFSReplaceClick
end
object cxButton1: TcxButton
Left = 176
@ -2766,7 +2761,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#28165#31354
TabOrder = 64
OnClick = cxButton1Click
end
end
object ToolBar4: TToolBar
@ -2789,7 +2783,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = TbAdd1Click
end
object TbDel1: TToolButton
Left = 71
@ -2797,7 +2790,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = TbDel1Click
end
end
end
@ -3456,7 +3448,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#26367#25442
TabOrder = 66
OnClick = TbFPReplaceClick
end
object cxButton4: TcxButton
Left = 173
@ -3465,7 +3456,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#28165#31354
TabOrder = 67
OnClick = cxButton4Click
end
end
object ToolBar3: TToolBar
@ -3488,7 +3478,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = TbAdd2Click
end
object TbDel21: TToolButton
Left = 71
@ -3496,7 +3485,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = TbDel2Click
end
end
end
@ -3516,6 +3504,8 @@ object frmClothInfoInput: TfrmClothInfoInput
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitLeft = 200
ExplicitTop = 520
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -3558,7 +3548,6 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'gj_unit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv3gj_unitPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
@ -3567,7 +3556,6 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'gj_rate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv3gj_unitPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
@ -4092,7 +4080,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#26367#25442
TabOrder = 57
OnClick = TbGJReplaceClick
end
object TbGJClear: TcxButton
Left = 171
@ -4101,7 +4088,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#28165#31354
TabOrder = 58
OnClick = TbGJClearClick
end
end
object ToolBar5: TToolBar
@ -4124,7 +4110,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = TbAdd3Click
end
object TbDel3: TToolButton
Left = 79
@ -4132,7 +4117,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = TbDel3Click
end
end
end
@ -4631,7 +4615,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#26367#25442
TabOrder = 57
OnClick = TbGJ2ReplaceClick
end
object TbGJ2Clear: TcxButton
Left = 171
@ -4640,7 +4623,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#28165#31354
TabOrder = 58
OnClick = TbGJ2ClearClick
end
end
object ToolBar6: TToolBar
@ -4663,7 +4645,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 79
@ -4671,7 +4652,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton2Click
end
end
object cxGrid5: TcxGrid
@ -4713,7 +4693,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = cxGridDBColumn4PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
@ -4729,7 +4708,6 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'gj_unit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = cxGridDBColumn6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
@ -4738,7 +4716,6 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'gj_rate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = cxGridDBColumn6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
@ -5267,7 +5244,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#26367#25442
TabOrder = 57
OnClick = TbGJ3ReplaceClick
end
object TbGJ3Clear: TcxButton
Left = 171
@ -5276,7 +5252,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25
Caption = #19968#38190#28165#31354
TabOrder = 58
OnClick = TbGJ3ClearClick
end
end
object ToolBar7: TToolBar
@ -5299,7 +5274,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 79
@ -5307,7 +5281,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton4Click
end
end
object cxGrid6: TcxGrid
@ -5349,7 +5322,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = cxGridDBColumn14PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
@ -5365,7 +5337,6 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'gj_unit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = cxGridDBColumn19PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
@ -5374,7 +5345,6 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'gj_rate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = cxGridDBColumn19PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
@ -5644,17 +5614,16 @@ object frmClothInfoInput: TfrmClothInfoInput
Left = 776
Top = 596
end
object DS_GX: TDataSource
DataSet = cds_gx
Left = 667
Top = 524
object DS_GY: TDataSource
DataSet = CDS_GY
Left = 555
Top = 420
end
object cds_gx: TClientDataSet
object CDS_GY: TClientDataSet
Aggregates = <>
IndexFieldNames = 'SerialNo'
Params = <>
Left = 667
Top = 580
Left = 619
Top = 444
end
object DS_3_2: TDataSource
DataSet = CDS_3_2

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

File diff suppressed because it is too large Load Diff

4591
A02基础产品管理/U_CraftSel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

177
A02基础产品管理/U_CraftSel.pas Normal file
View File

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

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

@ -1,61 +1,61 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.188,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.037,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_Cust_Cloth_PSC.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.362,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.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.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.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.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.577,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.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.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.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.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.819,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeInspSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>2025/07/02 16:47:08.000.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.pas</Transaction>
<Transaction>2025/07/03 16:45:14.000.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction>
</Transactions>

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

@ -70,7 +70,6 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
TabOrder = 0
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
ExplicitTop = 72
ClientRectBottom = 671
ClientRectLeft = 2
ClientRectRight = 1145
@ -883,7 +882,6 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Height = 453
Align = alClient
TabOrder = 1
ExplicitTop = -6
object cxLabel100: TcxLabel
Left = 260
Top = 310
@ -2271,7 +2269,6 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Font.Style = []
ParentFont = False
TabOrder = 1
ExplicitTop = -6
object cxLabel116: TcxLabel
Left = 258
Top = 274
@ -2965,7 +2962,6 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Height = 37
Align = alClient
TabOrder = 2
ExplicitTop = 32
object Label5: TLabel
Left = 193
Top = 9
@ -2980,6 +2976,13 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Height = 12
Caption = #26426#21488#21517
end
object Label1: TLabel
Left = 469
Top = 9
Width = 24
Height = 12
Caption = #22791#27880
end
object PSName: TcxTextEdit
Tag = 2
Left = 87
@ -3012,6 +3015,14 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Height = 20
TabOrder = 3
end
object note: TEdit
Tag = 2
Left = 498
Top = 8
Width = 90
Height = 20
TabOrder = 4
end
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DyePlan.ADOLink

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

@ -400,6 +400,8 @@ type
WorkHour: TEdit;
Label2: TLabel;
MachineName: TEdit;
Label1: TLabel;
note: TEdit;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TbSaveClick(Sender: TObject);
@ -551,7 +553,7 @@ begin
Close;
sql.Clear;
sql.Add('select A.* from Bs_Cloth_GY_sub A ');
sql.Add(' where gytype=''·ÀË®'' and A.BCIID=''' + Trim(FPSID) + '''');
sql.Add(' where gytype=''·ÀË®'' and A.PSID=''' + Trim(FPSID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_1);
@ -562,7 +564,7 @@ begin
Close;
sql.Clear;
sql.Add('select A.* from Bs_Cloth_GY_sub A ');
sql.Add(' where gytype=''·¢ÅÝ'' and A.BCIID=''' + Trim(FPSID) + '''');
sql.Add(' where gytype=''·¢ÅÝ'' and A.PSID=''' + Trim(FPSID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
@ -573,7 +575,7 @@ begin
Close;
sql.Clear;
sql.Add('select A.* from Bs_Cloth_GY_sub A ');
sql.Add(' where gytype=''¹Î½º'' and A.BCIID=''' + Trim(FPSID) + '''');
sql.Add(' where gytype=''¹Î½º'' and A.PSID=''' + Trim(FPSID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_3);
@ -587,7 +589,7 @@ end;
procedure TfrmDyeProcessDefin.FormShow(Sender: TObject);
var
MaxBCIID, MaxProcessID, MaxBCPID: string;
MaxPSID, MaxProcessID, MaxBCPID: string;
Maxid1, maxid2, maxid3, maxgx: string;
begin
InitGrid();
@ -611,7 +613,7 @@ begin
begin
Close;
SQL.Clear;
SQL.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(FPSID) + '''');
SQL.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(FPSID) + '''');
Open;
end;
@ -656,7 +658,7 @@ begin
begin
Close;
SQL.Clear;
SQL.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(FPSID) + '''');
SQL.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(FPSID) + '''');
Open;
end;
@ -793,7 +795,6 @@ begin
ADOQueryCmd.Connection.BeginTrans;
///////////////////////////±£´æÖ÷±íDye_process////////////////////////////
with ADOQueryCmd do
begin
Filtered := False;
@ -854,7 +855,7 @@ begin
begin
Close;
SQL.Clear;
sql.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(maxId) + '''');
sql.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(maxId) + '''');
Open;
end;
with ADOQueryCmd do
@ -867,7 +868,7 @@ begin
begin
Edit;
end;
FieldByName('BCIID').Value := Trim(maxId);
FieldByName('PSID').Value := Trim(maxId);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel2, 2);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel3, 2);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel4, 2);
@ -922,15 +923,14 @@ begin
end;
FieldByName('GYType').Value := '·ÀË®';
FieldByName('BCIID').Value := Trim(maxId);
FieldByName('PSID').Value := Trim(maxId);
FieldByName('BCPID').Value := Trim(maxid1);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_GY_Sub', 0);
Post;
end;
CDS_1.Edit;
CDS_1.FieldByName('BCIID').Value := Trim(maxId);
CDS_1.FieldByName('PSID').Value := Trim(maxId);
CDS_1.FieldByName('BCPID').Value := Trim(maxid1);
Next;
end;
end;
@ -976,14 +976,14 @@ begin
end;
FieldByName('GYType').Value := '·¢ÅÝ';
FieldByName('BCIID').Value := Trim(maxId);
FieldByName('BCPID').Value := Trim(maxid2);
FieldByName('PSID').Value := Trim(maxId);
FieldByName('PSID').Value := Trim(maxid2);
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_2, 'Bs_Cloth_GY_Sub', 0);
Post;
end;
CDS_2.Edit;
CDS_2.FieldByName('BCIID').Value := Trim(maxId);
CDS_2.FieldByName('BCPID').Value := Trim(maxid2);
CDS_2.FieldByName('PSID').Value := Trim(maxId);
CDS_2.FieldByName('PSID').Value := Trim(maxid2);
Next;
end;
@ -1030,14 +1030,14 @@ begin
end;
FieldByName('GYType').Value := '¹Î½º';
FieldByName('BCIID').Value := Trim(maxId);
FieldByName('BCPID').Value := Trim(maxid3);
FieldByName('PSID').Value := Trim(maxId);
FieldByName('PSID').Value := Trim(maxid3);
RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3, 'Bs_Cloth_GY_Sub', 0);
Post;
end;
CDS_3.Edit;
CDS_3.FieldByName('BCIID').Value := Trim(maxId);
CDS_3.FieldByName('BCPID').Value := Trim(maxid3);
CDS_3.FieldByName('PSID').Value := Trim(maxId);
CDS_3.FieldByName('PSID').Value := Trim(maxid3);
Next;
end;

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

@ -3,7 +3,6 @@ inherited frmDyeProcessList: TfrmDyeProcessList
ClientHeight = 569
ClientWidth = 1126
WindowState = wsMaximized
ExplicitLeft = -275
ExplicitWidth = 1142
ExplicitHeight = 608
PixelsPerInch = 96
@ -13,7 +12,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
Left = 0
Top = 0
Width = 1126
Height = 38
Height = 76
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
@ -41,16 +40,24 @@ inherited frmDyeProcessList: TfrmDyeProcessList
ImageIndex = 0
OnClick = ToolButton2Click
end
object TbAdd_QX: TToolButton
object TbAdd_FB: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #32763#24067
ImageIndex = 9
OnClick = TbAdd_FBClick
end
object TbAdd_QX: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #26032#22686#28165#27927
ImageIndex = 9
OnClick = TbAdd_QXClick
end
object TbAdd_DX: TToolButton
Left = 237
Left = 308
Top = 0
AutoSize = True
Caption = #26032#22686#23450#22411
@ -58,7 +65,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
OnClick = TbAdd_DXClick
end
object TbAdd_FS: TToolButton
Left = 332
Left = 403
Top = 0
AutoSize = True
Caption = #26032#22686#38450#27700
@ -66,64 +73,65 @@ inherited frmDyeProcessList: TfrmDyeProcessList
OnClick = TbAdd_FSClick
end
object TbAdd_FP: TToolButton
Left = 427
Left = 498
Top = 0
AutoSize = True
Caption = #26032#22686#21457#27873
ImageIndex = 9
Wrap = True
OnClick = TbAdd_FPClick
end
object TbAdd_GJ: TToolButton
Left = 522
Top = 0
Left = 0
Top = 38
AutoSize = True
Caption = #26032#22686#21038#33014
ImageIndex = 9
OnClick = TbAdd_GJClick
end
object TbAdd_ZM: TToolButton
Left = 617
Top = 0
Left = 95
Top = 38
AutoSize = True
Caption = #26032#22686#36711#27611
ImageIndex = 9
OnClick = TbAdd_ZMClick
end
object TbEdit: TToolButton
Left = 712
Top = 0
Left = 190
Top = 38
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = TbEditClick
end
object TbLook: TToolButton
Left = 783
Top = 0
Left = 261
Top = 38
AutoSize = True
Caption = #26597#30475
ImageIndex = 8
OnClick = TbLookClick
end
object TBDel: TToolButton
Left = 854
Top = 0
Left = 332
Top = 38
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDelClick
end
object ToolButton1: TToolButton
Left = 925
Top = 0
Left = 403
Top = 38
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 996
Top = 0
Left = 474
Top = 38
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
@ -132,7 +140,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Top = 76
Width = 1126
Height = 38
Align = alTop
@ -140,7 +148,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitTop = 32
ExplicitTop = 38
object Label5: TLabel
Left = 191
Top = 12
@ -192,12 +200,12 @@ inherited frmDyeProcessList: TfrmDyeProcessList
end
object cxGrid2: TcxGrid [2]
Left = 0
Top = 76
Top = 114
Width = 1126
Height = 493
Height = 455
Align = alClient
TabOrder = 2
ExplicitTop = 72
ExplicitTop = 110
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False

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

@ -54,6 +54,7 @@ type
TV2MachineName: TcxGridDBColumn;
TV2WorkHour: TcxGridDBColumn;
TbLook: TToolButton;
TbAdd_FB: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -72,6 +73,7 @@ type
procedure TbAdd_GJClick(Sender: TObject);
procedure TbAdd_ZMClick(Sender: TObject);
procedure TbLookClick(Sender: TObject);
procedure TbAdd_FBClick(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
@ -186,6 +188,25 @@ begin
end;
end;
procedure TfrmDyeProcessList.TbAdd_FBClick(Sender: TObject);
begin
try
frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
with frmDyeProcessDefin do
begin
BtnInt := 0;
FPSType := '·­²¼';
FPSID := '';
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
frmDyeProcessDefin.Free;
end;
end;
procedure TfrmDyeProcessList.ZdyNameChange(Sender: TObject);
begin
ToolButton2.Click;

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

@ -108,6 +108,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitTop = 44
object Label1: TLabel
Left = 186
Top = 13
@ -148,6 +149,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Height = 494
Align = alLeft
TabOrder = 2
ExplicitLeft = -6
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -242,12 +244,14 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
ClientRectTop = 19
end
object cxGrid1: TcxGrid [4]
Left = 768
Left = 760
Top = 99
Width = 687
Width = 695
Height = 494
Align = alClient
TabOrder = 4
ExplicitLeft = 768
ExplicitWidth = 687
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -300,7 +304,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
object cxSplitter1: TcxSplitter [5]
Left = 760
Top = 99
Width = 8
Width = 0
Height = 494
AlignSplitter = salRight
Control = cxGrid2

BIN
T02贸易汇总仓库/TradeTotalClothStk.identcache
View File

Binary file not shown.

BIN
T02贸易汇总仓库/TradeTotalClothStk.res
View File

Binary file not shown.

BIN
T02贸易汇总仓库/testDll.res
View File

Binary file not shown.