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

产品录入修改

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-06-10 17:34:06 +08:00
parent 42c1c13f95
commit 6af0df4cf4
3 changed files with 1092 additions and 612 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,7 +7,7 @@
<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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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>
@ -34,17 +34,17 @@
<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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/>

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

File diff suppressed because it is too large Load Diff

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

@ -32,11 +32,11 @@ uses
type
TfrmClothInfoInput = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
TbSave: TToolButton;
TBClose: TToolButton;
ADOQueryCmd: TADOQuery;
ADOQueryTemp: TADOQuery;
ToolButton6: TToolButton;
TbUpFile: TToolButton;
CDS_1: TClientDataSet;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
@ -46,50 +46,50 @@ type
cxTabSheet3: TcxTabSheet;
cxTabSheet4: TcxTabSheet;
cxGrid2: TcxGrid;
cxGridDBTableView1: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
Tv1: TcxGridDBTableView;
Tv11fs_Name: TcxGridDBColumn;
Tv11fs_spel: TcxGridDBColumn;
Tv11fs_unit: TcxGridDBColumn;
Tv11fs_rate: TcxGridDBColumn;
Tv11fs_precautions: TcxGridDBColumn;
Tv11fs_meter: TcxGridDBColumn;
Tv11fs_useGlub: TcxGridDBColumn;
Tv11fs_waterDistribution: TcxGridDBColumn;
Tv11fs_useOneMeter: TcxGridDBColumn;
Tv11fs_useOneGlub: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxTabSheet5: TcxTabSheet;
cxGrid1: TcxGrid;
cxGridDBTableView2: TcxGridDBTableView;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
Tv2: TcxGridDBTableView;
Tv2fp_Name: TcxGridDBColumn;
Tv2fp_spel: TcxGridDBColumn;
Tv2fp_unit: TcxGridDBColumn;
Tv2fp_rate: TcxGridDBColumn;
Tv2fp_precautions: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
Tv2fp_useOneMeter: TcxGridDBColumn;
Tv2fp_useOneGlub: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
cxTabSheet6: TcxTabSheet;
cxGrid3: TcxGrid;
cxGridDBTableView3: TcxGridDBTableView;
cxGridDBColumn21: TcxGridDBColumn;
cxGridDBColumn22: TcxGridDBColumn;
cxGridDBColumn23: TcxGridDBColumn;
cxGridDBColumn24: TcxGridDBColumn;
cxGridDBColumn25: TcxGridDBColumn;
Tv3: TcxGridDBTableView;
Tv3gj_Name: TcxGridDBColumn;
Tv3gj_spel: TcxGridDBColumn;
Tv3gj_unit: TcxGridDBColumn;
TV3gj_rate: TcxGridDBColumn;
Tv3gj_precautions: TcxGridDBColumn;
cxGridDBColumn26: TcxGridDBColumn;
cxGridDBColumn27: TcxGridDBColumn;
cxGridDBColumn28: TcxGridDBColumn;
cxGridDBColumn29: TcxGridDBColumn;
cxGridDBColumn30: TcxGridDBColumn;
Tv3gj_useOneMeter: TcxGridDBColumn;
Tv3gj_useOneGlub: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
Panel1: TPanel;
C_GramWeight: TcxTextEdit;
C_Name: TcxTextEdit;
C_Width: TcxTextEdit;
F_Width: TcxTextEdit;
cxLabel37: TcxLabel;
cxLabel38: TcxLabel;
cxLabel39: TcxLabel;
@ -102,15 +102,15 @@ type
cxLabel46: TcxLabel;
cxLabel47: TcxLabel;
cxLabel48: TcxLabel;
cxTextEdit38: TcxTextEdit;
cxTextEdit39: TcxTextEdit;
cxTextEdit40: TcxTextEdit;
cxTextEdit42: TcxTextEdit;
cxTextEdit44: TcxTextEdit;
cxTextEdit45: TcxTextEdit;
cxTextEdit46: TcxTextEdit;
cxTextEdit47: TcxTextEdit;
cxTextEdit48: TcxTextEdit;
Material: TcxTextEdit;
LatitudeSlope: TcxTextEdit;
FinishingStandards: TcxTextEdit;
F_Name: TcxTextEdit;
C_FinishLongitudeDensity: TcxTextEdit;
C_Width: TcxTextEdit;
F_GramWeight: TcxTextEdit;
C_FinishLatitudeDensity: TcxTextEdit;
Finishingtype: TcxTextEdit;
Panel2: TPanel;
cxLabel10: TcxLabel;
cxLabel11: TcxLabel;
@ -126,18 +126,18 @@ type
cxLabel7: TcxLabel;
cxLabel8: TcxLabel;
cxLabel9: TcxLabel;
cxTextEdit10: TcxTextEdit;
cxTextEdit11: TcxTextEdit;
cxTextEdit12: TcxTextEdit;
cxTextEdit13: TcxTextEdit;
cxTextEdit14: TcxTextEdit;
cxTextEdit15: TcxTextEdit;
cxTextEdit16: TcxTextEdit;
cxTextEdit17: TcxTextEdit;
cxTextEdit18: TcxTextEdit;
cxTextEdit7: TcxTextEdit;
cxTextEdit8: TcxTextEdit;
cxTextEdit9: TcxTextEdit;
qx_WaterContent: TcxTextEdit;
qx_RollMethod: TcxTextEdit;
qx_Add_Name: TcxTextEdit;
qx_Precautions: TcxTextEdit;
qx_temperature4: TcxTextEdit;
qx_temperature2: TcxTextEdit;
qx_temperature1: TcxTextEdit;
qx_temperature3: TcxTextEdit;
qx_temperature5: TcxTextEdit;
qx_UnpackingMethod: TcxTextEdit;
qx_speed: TcxTextEdit;
qx_ReduceAmplitude: TcxTextEdit;
Panel3: TPanel;
cxLabel1: TcxLabel;
cxLabel2: TcxLabel;
@ -164,29 +164,29 @@ type
cxLabel63: TcxLabel;
cxLabel64: TcxLabel;
cxLabel65: TcxLabel;
cxTextEdit1: TcxTextEdit;
cxTextEdit19: TcxTextEdit;
cxTextEdit2: TcxTextEdit;
cxTextEdit20: TcxTextEdit;
cxTextEdit21: TcxTextEdit;
cxTextEdit22: TcxTextEdit;
cxTextEdit23: TcxTextEdit;
cxTextEdit24: TcxTextEdit;
cxTextEdit3: TcxTextEdit;
cxTextEdit37: TcxTextEdit;
cxTextEdit4: TcxTextEdit;
cxTextEdit41: TcxTextEdit;
cxTextEdit43: TcxTextEdit;
cxTextEdit49: TcxTextEdit;
cxTextEdit5: TcxTextEdit;
cxTextEdit50: TcxTextEdit;
cxTextEdit51: TcxTextEdit;
cxTextEdit52: TcxTextEdit;
cxTextEdit53: TcxTextEdit;
cxTextEdit54: TcxTextEdit;
cxTextEdit55: TcxTextEdit;
cxTextEdit56: TcxTextEdit;
cxTextEdit6: TcxTextEdit;
dx_OutFanSpeed: TcxTextEdit;
dx_temperature1: TcxTextEdit;
dx_WidthAmplitude: TcxTextEdit;
dx_temperature5: TcxTextEdit;
dx_temperature9: TcxTextEdit;
dx_UnpackingMethod: TcxTextEdit;
dx_OpenAmplitude: TcxTextEdit;
dx_RosePower: TcxTextEdit;
dx_RollMethod: TcxTextEdit;
dx_BrushSuperRate: TcxTextEdit;
dx_Precautions: TcxTextEdit;
dx_UpSuperRate: TcxTextEdit;
dx_speed: TcxTextEdit;
dx_TubePress: TcxTextEdit;
dx_temperature6: TcxTextEdit;
dx_CycleFanSpeed: TcxTextEdit;
dx_DownSuperRate: TcxTextEdit;
dx_temperature3: TcxTextEdit;
dx_temperature4: TcxTextEdit;
dx_temperature7: TcxTextEdit;
dx_temperature8: TcxTextEdit;
dx_temperature10: TcxTextEdit;
dx_temperature2: TcxTextEdit;
Panel4: TPanel;
cxLabel100: TcxLabel;
cxLabel101: TcxLabel;
@ -216,31 +216,31 @@ type
cxLabel97: TcxLabel;
cxLabel98: TcxLabel;
cxLabel99: TcxLabel;
cxTextEdit72: TcxTextEdit;
cxTextEdit73: TcxTextEdit;
cxTextEdit74: TcxTextEdit;
cxTextEdit75: TcxTextEdit;
cxTextEdit76: TcxTextEdit;
cxTextEdit77: TcxTextEdit;
cxTextEdit78: TcxTextEdit;
cxTextEdit79: TcxTextEdit;
cxTextEdit80: TcxTextEdit;
cxTextEdit81: TcxTextEdit;
cxTextEdit82: TcxTextEdit;
cxTextEdit83: TcxTextEdit;
cxTextEdit84: TcxTextEdit;
cxTextEdit85: TcxTextEdit;
cxTextEdit86: TcxTextEdit;
cxTextEdit87: TcxTextEdit;
cxTextEdit88: TcxTextEdit;
cxTextEdit89: TcxTextEdit;
cxTextEdit90: TcxTextEdit;
cxTextEdit91: TcxTextEdit;
cxTextEdit92: TcxTextEdit;
cxTextEdit93: TcxTextEdit;
cxTextEdit94: TcxTextEdit;
cxTextEdit97: TcxTextEdit;
cxTextEdit98: TcxTextEdit;
fs_OutFanSpeed: TcxTextEdit;
fs_temperature1: TcxTextEdit;
fs_WidthAmplitude: TcxTextEdit;
fs_temperature5: TcxTextEdit;
fs_temperature9: TcxTextEdit;
fs_UnpackingMethod: TcxTextEdit;
fs_OpenAmplitude: TcxTextEdit;
fs_RosePower: TcxTextEdit;
fs_RollMethod: TcxTextEdit;
fs_BrushSuperRate: TcxTextEdit;
fs_Precautions: TcxTextEdit;
fs_UpSuperRate: TcxTextEdit;
fs_speed: TcxTextEdit;
fs_TubePress: TcxTextEdit;
fs_temperature6: TcxTextEdit;
fs_CycleFanSpeed: TcxTextEdit;
fs_DownSuperRate: TcxTextEdit;
fs_temperature3: TcxTextEdit;
fs_temperature4: TcxTextEdit;
fs_temperature7: TcxTextEdit;
fs_temperature8: TcxTextEdit;
fs_temperature10: TcxTextEdit;
fs_temperature2: TcxTextEdit;
fs_CarPress: TcxTextEdit;
fs_PressWaterContent: TcxTextEdit;
Panel5: TPanel;
cxLabel107: TcxLabel;
cxLabel108: TcxLabel;
@ -275,35 +275,35 @@ type
cxLabel79: TcxLabel;
cxLabel80: TcxLabel;
cxLabel81: TcxLabel;
cxTextEdit25: TcxTextEdit;
cxTextEdit26: TcxTextEdit;
cxTextEdit27: TcxTextEdit;
cxTextEdit28: TcxTextEdit;
cxTextEdit29: TcxTextEdit;
cxTextEdit30: TcxTextEdit;
cxTextEdit31: TcxTextEdit;
cxTextEdit32: TcxTextEdit;
cxTextEdit33: TcxTextEdit;
cxTextEdit34: TcxTextEdit;
cxTextEdit35: TcxTextEdit;
cxTextEdit36: TcxTextEdit;
cxTextEdit57: TcxTextEdit;
cxTextEdit58: TcxTextEdit;
cxTextEdit59: TcxTextEdit;
cxTextEdit60: TcxTextEdit;
cxTextEdit61: TcxTextEdit;
cxTextEdit62: TcxTextEdit;
cxTextEdit63: TcxTextEdit;
cxTextEdit64: TcxTextEdit;
cxTextEdit65: TcxTextEdit;
cxTextEdit66: TcxTextEdit;
cxTextEdit67: TcxTextEdit;
cxTextEdit68: TcxTextEdit;
cxTextEdit69: TcxTextEdit;
cxTextEdit70: TcxTextEdit;
cxTextEdit71: TcxTextEdit;
cxTextEdit95: TcxTextEdit;
cxTextEdit96: TcxTextEdit;
fp_OutFanSpeed: TcxTextEdit;
fp_temperature1: TcxTextEdit;
fp_WidthAmplitude: TcxTextEdit;
fp_temperature5: TcxTextEdit;
fp_temperature9: TcxTextEdit;
fp_UnpackingMethod: TcxTextEdit;
fp_OpenAmplitude: TcxTextEdit;
fp_RosePower: TcxTextEdit;
fp_RollMethod: TcxTextEdit;
fp_BrushSuperRate: TcxTextEdit;
fp_Precautions: TcxTextEdit;
fp_UpSuperRate: TcxTextEdit;
fp_speed: TcxTextEdit;
fp_TubePress: TcxTextEdit;
fp_temperature6: TcxTextEdit;
fp_CycleFanSpeed: TcxTextEdit;
fp_DownSuperRate: TcxTextEdit;
fp_temperature3: TcxTextEdit;
fp_temperature4: TcxTextEdit;
fp_temperature7: TcxTextEdit;
fp_temperature8: TcxTextEdit;
fp_temperature10: TcxTextEdit;
fp_temperature2: TcxTextEdit;
fp_LeftHeight: TcxTextEdit;
fp_RightHeight: TcxTextEdit;
fp_PumbMixElectricFrequency: TcxTextEdit;
fp_SystemPress: TcxTextEdit;
fp_MixElectricFrequency: TcxTextEdit;
fp_GasFlow: TcxTextEdit;
Panel6: TPanel;
cxLabel116: TcxLabel;
cxLabel117: TcxLabel;
@ -333,39 +333,66 @@ type
cxLabel141: TcxLabel;
cxLabel142: TcxLabel;
cxLabel143: TcxLabel;
cxTextEdit100: TcxTextEdit;
cxTextEdit101: TcxTextEdit;
cxTextEdit102: TcxTextEdit;
cxTextEdit103: TcxTextEdit;
cxTextEdit104: TcxTextEdit;
cxTextEdit105: TcxTextEdit;
cxTextEdit106: TcxTextEdit;
cxTextEdit107: TcxTextEdit;
cxTextEdit108: TcxTextEdit;
cxTextEdit109: TcxTextEdit;
cxTextEdit110: TcxTextEdit;
cxTextEdit111: TcxTextEdit;
cxTextEdit112: TcxTextEdit;
cxTextEdit113: TcxTextEdit;
cxTextEdit114: TcxTextEdit;
cxTextEdit115: TcxTextEdit;
cxTextEdit116: TcxTextEdit;
cxTextEdit117: TcxTextEdit;
cxTextEdit118: TcxTextEdit;
cxTextEdit119: TcxTextEdit;
cxTextEdit120: TcxTextEdit;
cxTextEdit121: TcxTextEdit;
cxTextEdit122: TcxTextEdit;
cxTextEdit123: TcxTextEdit;
cxTextEdit99: TcxTextEdit;
gj_temperature1: TcxTextEdit;
gj_WidthAmplitude: TcxTextEdit;
gj_temperature5: TcxTextEdit;
gj_temperature9: TcxTextEdit;
gj_UnpackingMethod: TcxTextEdit;
gj_OpenAmplitude: TcxTextEdit;
gj_RosePower: TcxTextEdit;
gj_RollMethod: TcxTextEdit;
gj_BrushSuperRate: TcxTextEdit;
gj_Precautions: TcxTextEdit;
gj_UpSuperRate: TcxTextEdit;
gj_speed: TcxTextEdit;
gj_TubePress: TcxTextEdit;
gj_temperature6: TcxTextEdit;
gj_CycleFanSpeed: TcxTextEdit;
gj_DownSuperRate: TcxTextEdit;
gj_temperature3: TcxTextEdit;
gj_temperature4: TcxTextEdit;
gj_temperature7: TcxTextEdit;
gj_temperature8: TcxTextEdit;
gj_temperature10: TcxTextEdit;
gj_temperature2: TcxTextEdit;
gj_LeftHeight: TcxTextEdit;
gj_RightHeight: TcxTextEdit;
gj_OutFanSpeed: TcxTextEdit;
轧毛工艺: TcxTabSheet;
cxLabel113: TcxLabel;
cxLabel114: TcxLabel;
F_FinishLongitudeDensity: TcxTextEdit;
F_FinishLatitudeDensity: TcxTextEdit;
panel7: TPanel;
cxLabel115: TcxLabel;
cxLabel144: TcxLabel;
cxLabel145: TcxLabel;
cxLabel146: TcxLabel;
cxLabel147: TcxLabel;
cxLabel154: TcxLabel;
cxLabel155: TcxLabel;
cxLabel156: TcxLabel;
zm_RollMethod: TcxTextEdit;
zm_inoutSpeed: TcxTextEdit;
zm_needle: TcxTextEdit;
zm_Precautions: TcxTextEdit;
zm_UnpackingMethod: TcxTextEdit;
zm_frequency: TcxTextEdit;
zm_wagCloth: TcxTextEdit;
zm_WidthAmplitude: TcxTextEdit;
cxLabel148: TcxLabel;
qx_Add_Number: TcxTextEdit;
cxLabel149: TcxLabel;
cxLabel150: TcxLabel;
C_Code: TcxTextEdit;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TbSaveClick(Sender: TObject);
procedure CYColorKeyPress(Sender: TObject; var Key: Char);
procedure CYJGGYBtnDnClick(Sender: TObject);
procedure C_WidthBtnDnClick(Sender: TObject);
procedure C_WidthBtnUpClick(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure TbUpFileClick(Sender: TObject);
procedure C_FromNameBtnUpClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure SetXH();
@ -378,7 +405,7 @@ type
function SaveData(): Boolean;
{ Private declarations }
public
FBCIID, FCTID: string;
FBCIID, FCTID, FProcessID: string;
CopyInt: Integer;
{ Public declarations }
@ -445,10 +472,10 @@ begin
Open;
end;
SCSHData(ADOQueryTemp, ScrollBox1, 2);
SCSHData(ADOQueryTemp, ScrollBox1, 0);
C_FromName.TxtCode := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString);
C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString);
SCSHData(ADOQueryTemp, panel1, 2);
SCSHData(ADOQueryTemp, Panel1, 0);
// C_FromName.TxtCode := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString);
// C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString);
with ADOQueryTemp do
begin
@ -467,12 +494,12 @@ end;
procedure TfrmClothInfoInput.FormShow(Sender: TObject);
begin
InitGrid();
if CopyInt = 1 then
begin
FBCIID := '';
BCIID.text := '';
C_Code.text := '';
end;
// if CopyInt = 1 then
// begin
// FBCIID := '';
// BCIID.text := '';
// C_Code.text := '';
// end;
end;
procedure TfrmClothInfoInput.TBCloseClick(Sender: TObject);
@ -482,7 +509,7 @@ end;
function TfrmClothInfoInput.SaveData(): Boolean;
var
MaxBCIID, MaxBCPID: string;
MaxBCIID, MaxProcessID, MaxBCPID: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
@ -496,8 +523,6 @@ begin
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
BCIID.Text := trim(MaxBCIID);
end
else
begin
@ -529,31 +554,31 @@ begin
FieldByName('BCIID').Value := Trim(MaxBCIID);
if trim(C_Code.Text) = '' then
C_Code.Text := Trim(MaxBCIID);
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', ScrollBox1, 2);
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel1, 2);
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('delete BS_Cloth_Info_Link where ToID=''' + Trim(MaxBCIID) + '''');
ExecSQL;
end;
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('delete BS_Cloth_Info_Link where ToID=''' + Trim(MaxBCIID) + '''');
// ExecSQL;
// end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_Cloth_Info_Link where 1=2');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('ToID').Value := Trim(MaxBCIID);
FieldByName('FromID').Value := Trim(C_FromName.TxtCode);
Post;
end;
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('select * from BS_Cloth_Info_Link where 1=2');
// Open;
// end;
// with ADOQueryCmd do
// begin
// Append;
// FieldByName('ToID').Value := Trim(MaxBCIID);
// FieldByName('FromID').Value := Trim(C_FromName.TxtCode);
// Post;
// end;
with ADOQueryTemp do
begin
@ -569,9 +594,49 @@ begin
Exit;
end;
end;
if Trim(FProcessID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxProcessID, 'GY', 'Bs_Cloth_GY_Main', 4, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
end
else
begin
MaxProcessID := Trim(FProcessID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Bs_Cloth_GY_Main where ProcessID=''' + Trim(FProcessID) + '''');
Open;
end;
with ADOQueryCmd do
begin
FieldByName('ProcessID').Value := Trim(MaxProcessID);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel2, 2);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel3, 2);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel4, 2);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel5, 2);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel6, 2);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel7, 2);
Post;
end;
//////////////// 保存主表 //////////////////////
///
//////////////// 保存子表 //////////////////////
////////////////// 保存子表 //////////////////////
with CDS_1 do
begin
First;
@ -579,7 +644,7 @@ begin
begin
if Trim(CDS_1.fieldbyname('BCPID').AsString) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxBCPID, 'P', 'Bs_Cloth_Process', 4, 1) = False then
if GetLSNo(ADOQueryCmd, MaxBCPID, 'P', 'Bs_Cloth_GY_Sub', 4, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
@ -595,7 +660,7 @@ begin
begin
Close;
SQL.Clear;
sql.Add('select * from Bs_Cloth_Process where BCPID=''' + Trim(MaxBCPID) + '''');
sql.Add('select * from Bs_Cloth_GY_Sub where BCPID=''' + Trim(MaxBCPID) + '''');
Open;
end;
with ADOQueryCmd do
@ -604,7 +669,9 @@ begin
Append
else
Edit;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_Process', 0);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_GY_Sub', 0);
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_1, 'Bs_Cloth_GY_Sub', 0);
RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_1, 'Bs_Cloth_GY_Sub', 0);
FieldByName('BCPID').Value := Trim(MaxBCPID);
FieldByName('BCIID').Value := Trim(MaxBCIID);
@ -638,7 +705,7 @@ begin
TBtnEditC(Sender).Text := '';
end;
procedure TfrmClothInfoInput.ToolButton1Click(Sender: TObject);
procedure TfrmClothInfoInput.TbSaveClick(Sender: TObject);
var
MC_Code: string;
begin
@ -647,17 +714,17 @@ begin
Application.MessageBox('产品名称不能为空！', '提示', 0);
Exit;
end;
if trim(C_Code.Text) = '' then
begin
if GetLSNo(ADOQueryCmd, MC_Code, 'C', 'BS_Cloth_Info', 4, 0) = False then
begin
Application.MessageBox('取最成品编号失败!', '提示', 0);
Exit;
end;
C_Code.Text := MC_Code;
end;
// if trim(C_Code.Text) = '' then
// begin
//
// if GetLSNo(ADOQueryCmd, MC_Code, 'C', 'BS_Cloth_Info', 4, 0) = False then
// begin
// Application.MessageBox('取最成品编号失败!', '提示', 0);
// Exit;
// end;
// C_Code.Text := MC_Code;
//
// end;
SetXH();
if SaveData() then
begin
@ -673,7 +740,7 @@ begin
i := CDS_1.RecordCount; //当前的dataset有多少行记录
i := i + 1;
CopyAddRow(Tv1, CDS_1);
// CopyAddRow(Tv1, CDS_1);
with CDS_1 do
begin
Edit;
@ -708,20 +775,20 @@ end;
procedure TfrmClothInfoInput.C_FromNameBtnUpClick(Sender: TObject);
begin
try
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do
begin
FCTType := '坯布';
if ShowModal = 1 then
begin
C_FromName.TxtCode := Trim(CDS_1.fieldbyname('BCIID').AsString);
C_FromName.Text := Trim(CDS_1.fieldbyname('C_Name').AsString);
end;
end;
finally
frmClothInfoSel.Free;
end;
// try
// frmClothInfoSel := TfrmClothInfoSel.Create(Application);
// with frmClothInfoSel do
// begin
// FCTType := '坯布';
// if ShowModal = 1 then
// begin
// C_FromName.TxtCode := Trim(CDS_1.fieldbyname('BCIID').AsString);
// C_FromName.Text := Trim(CDS_1.fieldbyname('C_Name').AsString);
// end;
// end;
// finally
// frmClothInfoSel.Free;
// end;
end;
procedure TfrmClothInfoInput.CYColorKeyPress(Sender: TObject; var Key: Char);
@ -762,46 +829,46 @@ begin
end;
end;
procedure TfrmClothInfoInput.ToolButton6Click(Sender: TObject);
procedure TfrmClothInfoInput.TbUpFileClick(Sender: TObject);
begin
if trim(C_Code.Text) = '' then
Exit;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
begin
FEditAuthority := True;
fkeyNO := trim(C_Code.Text);
fType := '产品品档案';
if ShowModal = 1 then
begin
end;
end;
finally
frmAttachmentUpload.Free;
end;
// if trim(C_Code.Text) = '' then
// Exit;
// try
// frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
// with frmAttachmentUpload do
// begin
// FEditAuthority := True;
// fkeyNO := trim(C_Code.Text);
// fType := '产品品档案';
// if ShowModal = 1 then
// begin
//
// end;
// end;
// finally
// frmAttachmentUpload.Free;
// end;
end;
procedure TfrmClothInfoInput.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'FtyType';
flagname := '类型';
if ShowModal = 1 then
begin
CDS_1.Edit;
CDS_1.fieldbyname('FtyType').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
CDS_1.Post;
end;
end;
finally
frmZDYHelp.Free;
end;
tv1.Controller.EditingController.ShowEdit();
// try
// frmZDYHelp := TfrmZDYHelp.Create(Application);
// with frmZDYHelp do
// begin
// flag := 'FtyType';
// flagname := '类型';
// if ShowModal = 1 then
// begin
// CDS_1.Edit;
// CDS_1.fieldbyname('FtyType').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
// CDS_1.Post;
// end;
// end;
// finally
// frmZDYHelp.Free;
// end;
// tv1.Controller.EditingController.ShowEdit();
end;
end.