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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/> <File Path="..\..\D10sxYilanbuyi"/>

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