Group_02/D10sxYilanbuyi
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
6aea5995c7
D10sxYilanbuyi/A02基础产品管理/U_ClothInfoInput.pas

2860 lines
80 KiB
ObjectPascal
Raw Normal View History

1234
2025-06-06 13:56:41 +08:00
unit U_ClothInfoInput;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit,
cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, U_BaseList,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
录入页面
2025-06-07 17:31:07 +08:00
cxNavigator, dxDateRanges, dxBarBuiltInMenu, cxCheckBox, cxDropDownEdit,
dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, cxContainer, cxLabel, cxPC,
11
2025-06-19 10:41:40 +08:00
dxScrollbarAnnotations, cxMaskEdit, Vcl.Menus, cxButtons;
1234
2025-06-06 13:56:41 +08:00
type
TfrmClothInfoInput = class(TForm)
ToolBar1: TToolBar;
产品录入修改
2025-06-10 17:34:06 +08:00
TbSave: TToolButton;
1234
2025-06-06 13:56:41 +08:00
TBClose: TToolButton;
ADOQueryCmd: TADOQuery;
ADOQueryTemp: TADOQuery;
产品录入修改
2025-06-10 17:34:06 +08:00
TbUpFile: TToolButton;
1234
2025-06-06 13:56:41 +08:00
CDS_1: TClientDataSet;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
录入页面
2025-06-07 17:31:07 +08:00
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
cxTabSheet3: TcxTabSheet;
cxTabSheet4: TcxTabSheet;
cxGrid2: TcxGrid;
产品录入修改
2025-06-10 17:34:06 +08:00
Tv1: TcxGridDBTableView;
Tv11fs_Name: TcxGridDBColumn;
Tv11fs_spel: TcxGridDBColumn;
1234
2025-06-16 13:48:11 +08:00
Tv1fs_unit: TcxGridDBColumn;
产品录入修改
2025-06-10 17:34:06 +08:00
Tv11fs_rate: TcxGridDBColumn;
Tv11fs_precautions: TcxGridDBColumn;
录入页面
2025-06-07 17:31:07 +08:00
cxGridLevel1: TcxGridLevel;
cxTabSheet5: TcxTabSheet;
cxGrid1: TcxGrid;
产品录入修改
2025-06-10 17:34:06 +08:00
Tv2: TcxGridDBTableView;
Tv2fp_Name: TcxGridDBColumn;
Tv2fp_spel: TcxGridDBColumn;
Tv2fp_unit: TcxGridDBColumn;
Tv2fp_rate: TcxGridDBColumn;
Tv2fp_precautions: TcxGridDBColumn;
录入页面
2025-06-07 17:31:07 +08:00
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
cxTabSheet6: TcxTabSheet;
cxGrid3: TcxGrid;
产品录入修改
2025-06-10 17:34:06 +08:00
Tv3: TcxGridDBTableView;
Tv3gj_Name: TcxGridDBColumn;
Tv3gj_spel: TcxGridDBColumn;
Tv3gj_unit: TcxGridDBColumn;
TV3gj_rate: TcxGridDBColumn;
Tv3gj_precautions: TcxGridDBColumn;
录入页面
2025-06-07 17:31:07 +08:00
cxGridDBColumn26: TcxGridDBColumn;
cxGridDBColumn27: TcxGridDBColumn;
cxGridDBColumn28: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
Panel1: TPanel;
C_GramWeight: TcxTextEdit;
产品录入修改
2025-06-10 17:34:06 +08:00
F_Width: TcxTextEdit;
录入页面
2025-06-07 17:31:07 +08:00
cxLabel37: TcxLabel;
cxLabel38: TcxLabel;
cxLabel39: TcxLabel;
cxLabel40: TcxLabel;
cxLabel41: TcxLabel;
cxLabel42: TcxLabel;
cxLabel43: TcxLabel;
cxLabel44: TcxLabel;
cxLabel45: TcxLabel;
cxLabel46: TcxLabel;
cxLabel47: TcxLabel;
cxLabel48: TcxLabel;
产品录入修改
2025-06-10 17:34:06 +08:00
Material: TcxTextEdit;
LatitudeSlope: TcxTextEdit;
FinishingStandards: TcxTextEdit;
F_Name: TcxTextEdit;
C_FinishLongitudeDensity: TcxTextEdit;
C_Width: TcxTextEdit;
F_GramWeight: TcxTextEdit;
C_FinishLatitudeDensity: TcxTextEdit;
Finishingtype: TcxTextEdit;
录入页面
2025-06-07 17:31:07 +08:00
Panel2: TPanel;
cxLabel10: TcxLabel;
cxLabel11: TcxLabel;
cxLabel12: TcxLabel;
cxLabel13: TcxLabel;
cxLabel14: TcxLabel;
cxLabel15: TcxLabel;
cxLabel16: TcxLabel;
cxLabel17: TcxLabel;
cxLabel18: TcxLabel;
cxLabel19: TcxLabel;
cxLabel20: TcxLabel;
cxLabel7: TcxLabel;
cxLabel8: TcxLabel;
cxLabel9: TcxLabel;
产品录入修改
2025-06-10 17:34:06 +08:00
qx_WaterContent: TcxTextEdit;
qx_Add_Name: TcxTextEdit;
qx_Precautions: TcxTextEdit;
qx_temperature4: TcxTextEdit;
qx_temperature2: TcxTextEdit;
qx_temperature1: TcxTextEdit;
qx_temperature3: TcxTextEdit;
qx_temperature5: TcxTextEdit;
qx_speed: TcxTextEdit;
qx_ReduceAmplitude: TcxTextEdit;
录入页面
2025-06-07 17:31:07 +08:00
Panel3: TPanel;
cxLabel1: TcxLabel;
cxLabel2: TcxLabel;
cxLabel21: TcxLabel;
cxLabel22: TcxLabel;
cxLabel23: TcxLabel;
cxLabel24: TcxLabel;
cxLabel25: TcxLabel;
cxLabel26: TcxLabel;
cxLabel27: TcxLabel;
cxLabel28: TcxLabel;
cxLabel3: TcxLabel;
cxLabel4: TcxLabel;
cxLabel5: TcxLabel;
cxLabel55: TcxLabel;
cxLabel56: TcxLabel;
cxLabel57: TcxLabel;
cxLabel58: TcxLabel;
cxLabel59: TcxLabel;
cxLabel6: TcxLabel;
cxLabel60: TcxLabel;
cxLabel61: TcxLabel;
cxLabel62: TcxLabel;
cxLabel63: TcxLabel;
cxLabel64: TcxLabel;
cxLabel65: TcxLabel;
产品录入修改
2025-06-10 17:34:06 +08:00
dx_OutFanSpeed: TcxTextEdit;
dx_temperature1: TcxTextEdit;
dx_WidthAmplitude: TcxTextEdit;
dx_temperature5: TcxTextEdit;
dx_temperature9: TcxTextEdit;
dx_RosePower: 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;
录入页面
2025-06-07 17:31:07 +08:00
Panel4: TPanel;
cxLabel100: TcxLabel;
cxLabel101: TcxLabel;
cxLabel102: TcxLabel;
cxLabel103: TcxLabel;
cxLabel104: TcxLabel;
cxLabel105: TcxLabel;
cxLabel106: TcxLabel;
cxLabel109: TcxLabel;
cxLabel110: TcxLabel;
cxLabel111: TcxLabel;
cxLabel82: TcxLabel;
cxLabel83: TcxLabel;
cxLabel84: TcxLabel;
cxLabel85: TcxLabel;
cxLabel86: TcxLabel;
cxLabel87: TcxLabel;
cxLabel88: TcxLabel;
cxLabel89: TcxLabel;
cxLabel90: TcxLabel;
cxLabel91: TcxLabel;
cxLabel92: TcxLabel;
cxLabel93: TcxLabel;
cxLabel94: TcxLabel;
cxLabel95: TcxLabel;
cxLabel96: TcxLabel;
cxLabel97: TcxLabel;
cxLabel98: TcxLabel;
cxLabel99: TcxLabel;
产品录入修改
2025-06-10 17:34:06 +08:00
fs_OutFanSpeed: TcxTextEdit;
fs_temperature1: TcxTextEdit;
fs_WidthAmplitude: TcxTextEdit;
fs_temperature5: TcxTextEdit;
fs_temperature9: TcxTextEdit;
fs_RosePower: 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;
录入页面
2025-06-07 17:31:07 +08:00
Panel5: TPanel;
cxLabel107: TcxLabel;
cxLabel108: TcxLabel;
cxLabel112: TcxLabel;
cxLabel29: TcxLabel;
cxLabel30: TcxLabel;
cxLabel31: TcxLabel;
cxLabel32: TcxLabel;
cxLabel33: TcxLabel;
cxLabel34: TcxLabel;
cxLabel35: TcxLabel;
cxLabel36: TcxLabel;
cxLabel49: TcxLabel;
cxLabel50: TcxLabel;
cxLabel51: TcxLabel;
cxLabel52: TcxLabel;
cxLabel53: TcxLabel;
cxLabel54: TcxLabel;
cxLabel66: TcxLabel;
cxLabel67: TcxLabel;
cxLabel68: TcxLabel;
cxLabel69: TcxLabel;
cxLabel70: TcxLabel;
cxLabel71: TcxLabel;
cxLabel72: TcxLabel;
cxLabel73: TcxLabel;
cxLabel74: TcxLabel;
cxLabel75: TcxLabel;
cxLabel76: TcxLabel;
cxLabel77: TcxLabel;
cxLabel78: TcxLabel;
cxLabel79: TcxLabel;
cxLabel80: TcxLabel;
cxLabel81: TcxLabel;
产品录入修改
2025-06-10 17:34:06 +08:00
fp_OutFanSpeed: TcxTextEdit;
fp_temperature1: TcxTextEdit;
fp_WidthAmplitude: TcxTextEdit;
fp_temperature5: TcxTextEdit;
fp_temperature9: TcxTextEdit;
fp_RosePower: 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;
录入页面
2025-06-07 17:31:07 +08:00
Panel6: TPanel;
cxLabel116: TcxLabel;
cxLabel117: TcxLabel;
cxLabel118: TcxLabel;
cxLabel119: TcxLabel;
cxLabel120: TcxLabel;
cxLabel121: TcxLabel;
cxLabel122: TcxLabel;
cxLabel123: TcxLabel;
cxLabel124: TcxLabel;
cxLabel125: TcxLabel;
cxLabel126: TcxLabel;
cxLabel127: TcxLabel;
cxLabel128: TcxLabel;
cxLabel129: TcxLabel;
cxLabel130: TcxLabel;
cxLabel131: TcxLabel;
cxLabel132: TcxLabel;
cxLabel133: TcxLabel;
cxLabel134: TcxLabel;
cxLabel135: TcxLabel;
cxLabel136: TcxLabel;
cxLabel137: TcxLabel;
cxLabel138: TcxLabel;
cxLabel139: TcxLabel;
cxLabel140: TcxLabel;
cxLabel141: TcxLabel;
cxLabel142: TcxLabel;
cxLabel143: TcxLabel;
产品录入修改
2025-06-10 17:34:06 +08:00
gj_temperature1: TcxTextEdit;
gj_WidthAmplitude: TcxTextEdit;
gj_temperature5: TcxTextEdit;
gj_temperature9: TcxTextEdit;
gj_RosePower: 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;
12345
2025-06-11 09:07:37 +08:00
cxtabsheet7: TcxTabSheet;
产品录入修改
2025-06-10 17:34:06 +08:00
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_inoutSpeed: TcxTextEdit;
zm_needle: TcxTextEdit;
zm_Precautions: TcxTextEdit;
zm_frequency: TcxTextEdit;
zm_WidthAmplitude: TcxTextEdit;
cxLabel148: TcxLabel;
qx_Add_Number: TcxTextEdit;
cxLabel149: TcxLabel;
cxLabel150: TcxLabel;
C_Code: TcxTextEdit;
12345
2025-06-11 09:07:37 +08:00
GPM_2: TcxGridPopupMenu;
DS_2: TDataSource;
cds_2: TClientDataSet;
GPM_3: TcxGridPopupMenu;
DS_3: TDataSource;
CDS_3: TClientDataSet;
Tv3Column1: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
cxGridLevel4: TcxGridLevel;
Panel8: TPanel;
Panel9: TPanel;
Label20: TLabel;
cxGridPopupMenu1: TcxGridPopupMenu;
11
2025-07-09 16:55:19 +08:00
DS_GY: TDataSource;
CDS_GY: TClientDataSet;
12345
2025-06-11 09:07:37 +08:00
Panel10: TPanel;
Panel11: TPanel;
Label1: TLabel;
ToolBar2: TToolBar;
11
2025-06-19 10:41:40 +08:00
TbQX: TToolButton;
TbDX: TToolButton;
TbFS: TToolButton;
TbFP: TToolButton;
TbGJ: TToolButton;
TbZM: TToolButton;
TbDelete: TToolButton;
1234
2025-06-16 13:48:11 +08:00
C_Name: TcxTextEdit;
dx_UnpackingMethod: TcxComboBox;
dx_OpenAmplitude: TcxComboBox;
dx_RollMethod: TcxComboBox;
fs_UnpackingMethod: TcxComboBox;
fs_OpenAmplitude: TcxComboBox;
fs_RollMethod: TcxComboBox;
zm_UnpackingMethod: TcxComboBox;
zm_RollMethod: TcxComboBox;
cxLabel151: TcxLabel;
cxLabel152: TcxLabel;
cxLabel153: TcxLabel;
cxLabel157: TcxLabel;
cxLabel158: TcxLabel;
fs_meter: TcxTextEdit;
fs_useGlub: TcxTextEdit;
fs_waterDistribution: TcxTextEdit;
fs_useOneGlub: TcxTextEdit;
fs_useOneMeter: TcxTextEdit;
cxLabel159: TcxLabel;
fp_useOneMeter: TcxTextEdit;
cxLabel160: TcxLabel;
fp_useOneGlub: TcxTextEdit;
cxLabel161: TcxLabel;
gj_useOneMeter: TcxTextEdit;
cxLabel162: TcxLabel;
gj_useOneGlub: TcxTextEdit;
qx_UnpackingMethod: TcxComboBox;
qx_RollMethod: TcxComboBox;
zm_wagCloth: TcxTextEdit;
fp_RollMethod: TcxComboBox;
fp_UnpackingMethod: TcxComboBox;
gj_RollMethod: TcxComboBox;
gj_UnpackingMethod: TcxComboBox;
fp_OpenAmplitude: TcxComboBox;
gj_OpenAmplitude: TcxComboBox;
ToolBar3: TToolBar;
TbAdd21: TToolButton;
TbDel21: TToolButton;
ToolBar4: TToolBar;
TbAdd1: TToolButton;
TbDel1: TToolButton;
ToolBar5: TToolBar;
TbAdd3: TToolButton;
TbDel3: TToolButton;
11
2025-06-19 10:41:40 +08:00
TbCPReplace: TcxButton;
TbDXReplace: TcxButton;
TbFSReplace: TcxButton;
TbFPReplace: TcxButton;
TbGJReplace: TcxButton;
cxButton1: TcxButton;
cxButton2: TcxButton;
1234
2025-06-27 15:51:06 +08:00
TbDXClear: TcxButton;
11
2025-06-19 10:41:40 +08:00
cxButton4: TcxButton;
1234
2025-06-27 15:51:06 +08:00
TbGJClear: TcxButton;
1
2025-06-26 17:31:40 +08:00
cxTabSheet8: TcxTabSheet;
cxTabSheet9: TcxTabSheet;
cxTabSheet10: TcxTabSheet;
cxTabSheet11: TcxTabSheet;
Panel12: TPanel;
cxLabel163: TcxLabel;
cxLabel164: TcxLabel;
cxLabel165: TcxLabel;
cxLabel166: TcxLabel;
cxLabel167: TcxLabel;
cxLabel168: TcxLabel;
cxLabel169: TcxLabel;
cxLabel170: TcxLabel;
cxLabel171: TcxLabel;
cxLabel172: TcxLabel;
cxLabel173: TcxLabel;
cxLabel174: TcxLabel;
cxLabel175: TcxLabel;
cxLabel176: TcxLabel;
cxLabel177: TcxLabel;
cxLabel178: TcxLabel;
cxLabel179: TcxLabel;
cxLabel180: TcxLabel;
cxLabel181: TcxLabel;
cxLabel182: TcxLabel;
cxLabel183: TcxLabel;
cxLabel184: TcxLabel;
cxLabel185: TcxLabel;
cxLabel186: TcxLabel;
cxLabel187: TcxLabel;
dx_OutFanSpeed2: TcxTextEdit;
dx_temperature12: TcxTextEdit;
dx_WidthAmplitude2: TcxTextEdit;
dx_temperature52: TcxTextEdit;
dx_temperature92: TcxTextEdit;
dx_RosePower2: TcxTextEdit;
dx_BrushSuperRate2: TcxTextEdit;
dx_Precautions2: TcxTextEdit;
dx_UpSuperRate2: TcxTextEdit;
dx_speed2: TcxTextEdit;
dx_TubePress2: TcxTextEdit;
dx_temperature62: TcxTextEdit;
dx_CycleFanSpeed2: TcxTextEdit;
dx_DownSuperRate2: TcxTextEdit;
dx_temperature32: TcxTextEdit;
dx_temperature42: TcxTextEdit;
dx_temperature72: TcxTextEdit;
dx_temperature82: TcxTextEdit;
dx_temperature102: TcxTextEdit;
dx_temperature22: TcxTextEdit;
dx_UnpackingMethod2: TcxComboBox;
dx_OpenAmplitude2: TcxComboBox;
dx_RollMethod2: TcxComboBox;
1234
2025-06-27 15:51:06 +08:00
TbDX2Replace: TcxButton;
TbDX2Clear: TcxButton;
1
2025-06-26 17:31:40 +08:00
Panel13: TPanel;
cxLabel188: TcxLabel;
cxLabel189: TcxLabel;
cxLabel190: TcxLabel;
cxLabel191: TcxLabel;
cxLabel192: TcxLabel;
cxLabel193: TcxLabel;
cxLabel194: TcxLabel;
cxLabel195: TcxLabel;
cxLabel196: TcxLabel;
cxLabel197: TcxLabel;
cxLabel198: TcxLabel;
cxLabel199: TcxLabel;
cxLabel200: TcxLabel;
cxLabel201: TcxLabel;
cxLabel202: TcxLabel;
cxLabel203: TcxLabel;
cxLabel204: TcxLabel;
cxLabel205: TcxLabel;
cxLabel206: TcxLabel;
cxLabel207: TcxLabel;
cxLabel208: TcxLabel;
cxLabel209: TcxLabel;
cxLabel210: TcxLabel;
cxLabel211: TcxLabel;
cxLabel212: TcxLabel;
dx_OutFanSpeed3: TcxTextEdit;
dx_temperature13: TcxTextEdit;
dx_WidthAmplitude3: TcxTextEdit;
dx_temperature53: TcxTextEdit;
dx_temperature93: TcxTextEdit;
dx_RosePower3: TcxTextEdit;
dx_BrushSuperRate3: TcxTextEdit;
dx_Precautions3: TcxTextEdit;
dx_UpSuperRate3: TcxTextEdit;
dx_speed3: TcxTextEdit;
dx_TubePress3: TcxTextEdit;
dx_temperature63: TcxTextEdit;
dx_CycleFanSpeed3: TcxTextEdit;
dx_DownSuperRate3: TcxTextEdit;
dx_temperature33: TcxTextEdit;
dx_temperature43: TcxTextEdit;
dx_temperature73: TcxTextEdit;
dx_temperature83: TcxTextEdit;
dx_temperature103: TcxTextEdit;
dx_temperature23: TcxTextEdit;
dx_UnpackingMethod3: TcxComboBox;
dx_OpenAmplitude3: TcxComboBox;
dx_RollMethod3: TcxComboBox;
1234
2025-06-27 15:51:06 +08:00
TbDX3Replace: TcxButton;
TbDX3Clear: TcxButton;
1
2025-06-26 17:31:40 +08:00
Panel14: TPanel;
cxLabel213: TcxLabel;
cxLabel214: TcxLabel;
cxLabel215: TcxLabel;
cxLabel216: TcxLabel;
cxLabel217: TcxLabel;
cxLabel218: TcxLabel;
cxLabel219: TcxLabel;
cxLabel220: TcxLabel;
cxLabel221: TcxLabel;
cxLabel222: TcxLabel;
cxLabel223: TcxLabel;
cxLabel224: TcxLabel;
cxLabel225: TcxLabel;
cxLabel226: TcxLabel;
cxLabel227: TcxLabel;
cxLabel228: TcxLabel;
cxLabel229: TcxLabel;
cxLabel230: TcxLabel;
cxLabel231: TcxLabel;
cxLabel232: TcxLabel;
cxLabel233: TcxLabel;
cxLabel234: TcxLabel;
cxLabel235: TcxLabel;
cxLabel236: TcxLabel;
cxLabel237: TcxLabel;
cxLabel238: TcxLabel;
cxLabel239: TcxLabel;
cxLabel240: TcxLabel;
gj_temperature12: TcxTextEdit;
gj_WidthAmplitude2: TcxTextEdit;
gj_temperature52: TcxTextEdit;
gj_temperature92: TcxTextEdit;
gj_RosePower2: TcxTextEdit;
gj_BrushSuperRate2: TcxTextEdit;
gj_Precautions2: TcxTextEdit;
gj_UpSuperRate2: TcxTextEdit;
gj_speed2: TcxTextEdit;
gj_TubePress2: TcxTextEdit;
gj_temperature62: TcxTextEdit;
gj_CycleFanSpeed2: TcxTextEdit;
gj_DownSuperRate2: TcxTextEdit;
gj_temperature32: TcxTextEdit;
gj_temperature42: TcxTextEdit;
gj_temperature72: TcxTextEdit;
gj_temperature82: TcxTextEdit;
gj_temperature102: TcxTextEdit;
gj_temperature22: TcxTextEdit;
gj_LeftHeight2: TcxTextEdit;
gj_RightHeight2: TcxTextEdit;
gj_OutFanSpeed2: TcxTextEdit;
cxLabel241: TcxLabel;
gj_useOneMeter2: TcxTextEdit;
cxLabel242: TcxLabel;
gj_useOneGlub2: TcxTextEdit;
gj_RollMethod2: TcxComboBox;
gj_UnpackingMethod2: TcxComboBox;
gj_OpenAmplitude2: TcxComboBox;
1234
2025-06-27 15:51:06 +08:00
TbGJ2Replace: TcxButton;
TbGJ2Clear: TcxButton;
1
2025-06-26 17:31:40 +08:00
ToolBar6: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
cxGrid5: TcxGrid;
1234
2025-06-27 15:51:06 +08:00
Tv5: TcxGridDBTableView;
1
2025-06-26 17:31:40 +08:00
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridLevel5: TcxGridLevel;
Panel15: TPanel;
cxLabel243: TcxLabel;
cxLabel244: TcxLabel;
cxLabel245: TcxLabel;
cxLabel246: TcxLabel;
cxLabel247: TcxLabel;
cxLabel248: TcxLabel;
cxLabel249: TcxLabel;
cxLabel250: TcxLabel;
cxLabel251: TcxLabel;
cxLabel252: TcxLabel;
cxLabel253: TcxLabel;
cxLabel254: TcxLabel;
cxLabel255: TcxLabel;
cxLabel256: TcxLabel;
cxLabel257: TcxLabel;
cxLabel258: TcxLabel;
cxLabel259: TcxLabel;
cxLabel260: TcxLabel;
cxLabel261: TcxLabel;
cxLabel262: TcxLabel;
cxLabel263: TcxLabel;
cxLabel264: TcxLabel;
cxLabel265: TcxLabel;
cxLabel266: TcxLabel;
cxLabel267: TcxLabel;
cxLabel268: TcxLabel;
cxLabel269: TcxLabel;
cxLabel270: TcxLabel;
gj_temperature13: TcxTextEdit;
gj_WidthAmplitude3: TcxTextEdit;
gj_temperature53: TcxTextEdit;
gj_temperature93: TcxTextEdit;
gj_RosePower3: TcxTextEdit;
gj_BrushSuperRate3: TcxTextEdit;
gj_Precautions3: TcxTextEdit;
gj_UpSuperRate3: TcxTextEdit;
gj_speed3: TcxTextEdit;
gj_TubePress3: TcxTextEdit;
gj_temperature63: TcxTextEdit;
gj_CycleFanSpeed3: TcxTextEdit;
gj_DownSuperRate3: TcxTextEdit;
gj_temperature33: TcxTextEdit;
gj_temperature43: TcxTextEdit;
gj_temperature73: TcxTextEdit;
gj_temperature83: TcxTextEdit;
gj_temperature103: TcxTextEdit;
gj_temperature23: TcxTextEdit;
gj_LeftHeight3: TcxTextEdit;
gj_RightHeight3: TcxTextEdit;
gj_OutFanSpeed3: TcxTextEdit;
cxLabel271: TcxLabel;
gj_useOneMeter3: TcxTextEdit;
cxLabel272: TcxLabel;
gj_useOneGlub3: TcxTextEdit;
gj_RollMethod3: TcxComboBox;
gj_UnpackingMethod3: TcxComboBox;
gj_OpenAmplitude3: TcxComboBox;
1234
2025-06-27 15:51:06 +08:00
TbGJ3Replace: TcxButton;
TbGJ3Clear: TcxButton;
1
2025-06-26 17:31:40 +08:00
ToolBar7: TToolBar;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
cxGrid6: TcxGrid;
1234
2025-06-27 15:51:06 +08:00
Tv6: TcxGridDBTableView;
1
2025-06-26 17:31:40 +08:00
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridDBColumn22: TcxGridDBColumn;
cxGridDBColumn23: TcxGridDBColumn;
cxGridDBColumn24: TcxGridDBColumn;
cxGridLevel6: TcxGridLevel;
1234
2025-06-27 15:51:06 +08:00
DS_3_2: TDataSource;
DS_3_3: TDataSource;
CDS_3_2: TClientDataSet;
CDS_3_3: TClientDataSet;
工艺部分要求实现
2025-07-05 10:17:25 +08:00
TbFB: TToolButton;
11
2025-07-09 16:55:19 +08:00
TbAdd: TToolButton;
TV4GYNO: TcxGridDBColumn;
TV4GYName: TcxGridDBColumn;
TV4GYGX: TcxGridDBColumn;
TV4DTMID: TcxGridDBColumn;
1234
2025-06-06 13:56:41 +08:00
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
产品录入修改
2025-06-10 17:34:06 +08:00
procedure TbSaveClick(Sender: TObject);
1234
2025-06-06 13:56:41 +08:00
procedure CYColorKeyPress(Sender: TObject; var Key: Char);
procedure CYJGGYBtnDnClick(Sender: TObject);
procedure C_WidthBtnDnClick(Sender: TObject);
procedure C_WidthBtnUpClick(Sender: TObject);
产品录入修改
2025-06-10 17:34:06 +08:00
procedure TbUpFileClick(Sender: TObject);
11
2025-07-09 16:55:19 +08:00
// procedure C_FromNameBtnUpClick(Sender: TObject);
// procedure TbQXClick(Sender: TObject);
// procedure TbDXClick(Sender: TObject);
1234
2025-06-06 13:56:41 +08:00
procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
11
2025-07-09 16:55:19 +08:00
// procedure TbDeleteClick(Sender: TObject);
// procedure TbFSClick(Sender: TObject);
// procedure TbFPClick(Sender: TObject);
// procedure TbGJClick(Sender: TObject);
// procedure TbZMClick(Sender: TObject);
1234
2025-06-16 13:48:11 +08:00
procedure Tv11fs_unitPropertiesEditValueChanged(Sender: TObject);
procedure Tv2fp_unitPropertiesEditValueChanged(Sender: TObject);
11
2025-07-09 16:55:19 +08:00
// procedure Tv3gj_unitPropertiesEditValueChanged(Sender: TObject);
// procedure fs_meterPropertiesChange(Sender: TObject);
// procedure TbAdd2Click(Sender: TObject);
// procedure TbDel2Click(Sender: TObject);
1234
2025-06-16 13:48:11 +08:00
procedure Tv2fp_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
11
2025-07-09 16:55:19 +08:00
// procedure TbAdd1Click(Sender: TObject);
// procedure TbDel1Click(Sender: TObject);
// procedure TbAdd3Click(Sender: TObject);
// procedure TbDel3Click(Sender: TObject);
1234
2025-06-16 13:48:11 +08:00
procedure Tv11fs_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv3gj_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
11
2025-07-09 16:55:19 +08:00
// procedure TbCPReplaceClick(Sender: TObject);
// procedure TbDXReplaceClick(Sender: TObject);
// procedure TbFSReplaceClick(Sender: TObject);
// procedure TbFPReplaceClick(Sender: TObject);
// procedure TbGJReplaceClick(Sender: TObject);
// procedure cxButton1Click(Sender: TObject);
// procedure cxButton2Click(Sender: TObject);
// procedure TbDXClearClick(Sender: TObject);
// procedure cxButton4Click(Sender: TObject);
// procedure TbGJClearClick(Sender: TObject);
// procedure TbDX2ReplaceClick(Sender: TObject);
// procedure TbDX2ClearClick(Sender: TObject);
// procedure TbDX3ReplaceClick(Sender: TObject);
// procedure TbDX3ClearClick(Sender: TObject);
// procedure TbGJ3ClearClick(Sender: TObject);
// procedure TbGJ2ClearClick(Sender: TObject);
// procedure ToolButton1Click(Sender: TObject);
// procedure ToolButton3Click(Sender: TObject);
// procedure ToolButton2Click(Sender: TObject);
// procedure ToolButton4Click(Sender: TObject);
// procedure cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
// procedure cxGridDBColumn14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
// procedure cxGridDBColumn6PropertiesEditValueChanged(Sender: TObject);
// procedure cxGridDBColumn19PropertiesEditValueChanged(Sender: TObject);
// procedure TbGJ2ReplaceClick(Sender: TObject);
// procedure TbGJ3ReplaceClick(Sender: TObject);
// procedure TbFBClick(Sender: TObject);
procedure TbAddClick(Sender: TObject);
1234
2025-06-06 13:56:41 +08:00
private
canshu1: string;
Fint: Integer;
procedure InitGrid();
12345
2025-06-11 09:07:37 +08:00
procedure ArrangeTabsByDataset;
1234
2025-06-06 13:56:41 +08:00
function SaveData(): Boolean;
11
2025-07-09 16:55:19 +08:00
// function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
// procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil);
// procedure ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
1234
2025-06-06 13:56:41 +08:00
{ Private declarations }
public
产品录入修改
2025-06-10 17:34:06 +08:00
FBCIID, FCTID, FProcessID: string;
1234
2025-06-06 13:56:41 +08:00
CopyInt: Integer;
{ Public declarations }
end;
var
frmClothInfoInput: TfrmClothInfoInput;
implementation
uses
1234
2025-06-16 13:48:11 +08:00
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel,
11
2025-07-09 16:55:19 +08:00
U_ProductInfoSel, U_CraftSel;
1234
2025-06-06 13:56:41 +08:00
{$R *.dfm}
12345
2025-06-11 09:07:37 +08:00
procedure TfrmClothInfoInput.ArrangeTabsByDataset;
var
I: Integer;
TabSheet: TcxTabSheet;
CurrentIndex: Integer;
begin
// <20>̶<EFBFBD><CCB6><EFBFBD>һ<EFBFBD><D2BB>ҳ<EFBFBD><D2B3> A
cxTabSheet1.PageIndex := 0;
cxTabSheet1.Visible := True;
// <20><>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҳ<EFBFBD><D2B3>
for I := 1 to cxPageControl1.PageCount - 1 do
cxPageControl1.Pages[I].TabVisible := False;
11
2025-07-09 16:55:19 +08:00
// // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݼ<EFBFBD><DDBC>Ƿ񼤻<C7B7>
// if not (CDS_GX.Active and (CDS_GX.RecordCount > 0)) then
// Exit;
//
// // <20><><EFBFBD>õ<EFBFBD>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1<EFBFBD><31>ʼ<EFBFBD><CABC>0<EFBFBD>ѱ<EFBFBD>Aռ<41>ã<EFBFBD>
// CurrentIndex := 1;
//
// // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݼ<EFBFBD>
// CDS_GX.IndexFieldNames := 'serialno';
// CDS_GX.First;
//
// // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݼ<EFBFBD><DDBC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҳ<EFBFBD><D2B3>
// while not CDS_GX.Eof do
// begin
// // <20><><EFBFBD>ݹ<EFBFBD><DDB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҷ<EFBFBD>Ӧ<EFBFBD><D3A6>ҳ<EFBFBD><D2B3>
// for I := 0 to cxPageControl1.PageCount - 1 do
// begin
// TabSheet := cxPageControl1.Pages[I] as TcxTabSheet;
// // ƥ<>乤<EFBFBD><E4B9A4><EFBFBD><EFBFBD><EFBFBD>Ҳ<EFBFBD><D2B2>ǵ<EFBFBD>һ<EFBFBD><D2BB><EFBFBD>̶<EFBFBD>ҳ<EFBFBD><D2B3>
// if (Trim(TabSheet.Caption) = CDS_GX.FieldByName('gxname').AsString) and (TabSheet <> cxTabSheet1) then
// begin
// TabSheet.PageIndex := CurrentIndex;
// TabSheet.TabVisible := True;
// Inc(CurrentIndex);
// Break;
// end;
// end;
// CDS_GX.Next;
// end;
// // ˢ<><CBA2>ҳ<EFBFBD><D2B3><EFBFBD>ؼ<EFBFBD>
// cxPageControl1.Invalidate;
12345
2025-06-11 09:07:37 +08:00
end;
1234
2025-06-06 13:56:41 +08:00
procedure TfrmClothInfoInput.InitGrid();
12345
2025-06-11 09:07:37 +08:00
var
i: integer;
1234
2025-06-06 13:56:41 +08:00
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
11
2025-07-09 16:55:19 +08:00
SQL.Add('select * from BS_Cloth_Dye_Technics where BCIID=''' + Trim(FBCIID) + '''');
1234
2025-06-06 13:56:41 +08:00
Open;
end;
11
2025-07-09 16:55:19 +08:00
SCreateCDS(ADOQueryTemp, CDS_GY);
SInitCDSData(ADOQueryTemp, CDS_GY);
1234
2025-06-06 13:56:41 +08:00
with ADOQueryTemp do
begin
Close;
SQL.Clear;
11
2025-07-09 16:55:19 +08:00
SQL.Add('select * from Bs_Cloth_info where BCIID=''' + Trim(FBCIID) + '''');
12345
2025-06-11 09:07:37 +08:00
Open;
end;
11
2025-07-09 16:55:19 +08:00
SCSHData(ADOQueryTemp, Panel1, 2);
// with ADOQueryTemp do
// begin
// Close;
// SQL.Clear;
// SQL.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(FBCIID) + '''');
// Open;
// end;
//
// SCSHData(ADOQueryTemp, Panel2, 2);
// SCSHData(ADOQueryTemp, Panel3, 2);
// SCSHData(ADOQueryTemp, Panel4, 2);
// SCSHData(ADOQueryTemp, Panel5, 2);
// SCSHData(ADOQueryTemp, Panel6, 2);
// SCSHData(ADOQueryTemp, Panel7, 2);
//
// SCSHData(ADOQueryTemp, Panel12, 2);
// SCSHData(ADOQueryTemp, Panel13, 2);
// SCSHData(ADOQueryTemp, Panel14, 2);
// SCSHData(ADOQueryTemp, Panel15, 2);
//
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select A.* from Bs_Cloth_GY_sub A ');
// sql.Add(' where gytype=''<27><>ˮ'' and A.BCIID=''' + Trim(FBCIID) + '''');
// Open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_1);
// SInitCDSData(ADOQueryTemp, CDS_1);
//
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select A.* from Bs_Cloth_GY_sub A ');
// sql.Add(' where gytype=''<27><><EFBFBD><EFBFBD>'' and A.BCIID=''' + Trim(FBCIID) + '''');
// Open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_2);
// SInitCDSData(ADOQueryTemp, CDS_2);
//
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select A.* from Bs_Cloth_GY_sub A ');
// sql.Add(' where gytype=''һ<>ιν<CEB9>'' and A.BCIID=''' + Trim(FBCIID) + '''');
// Open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_3);
// SInitCDSData(ADOQueryTemp, CDS_3);
//
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select A.* from Bs_Cloth_GY_sub A ');
// sql.Add(' where gytype=''<27><><EFBFBD>ιν<CEB9>'' and A.BCIID=''' + Trim(FBCIID) + '''');
// Open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_3_2);
// SInitCDSData(ADOQueryTemp, CDS_3_2);
//
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select A.* from Bs_Cloth_GY_sub A ');
// sql.Add(' where gytype=''<27><><EFBFBD>ιν<CEB9>'' and A.BCIID=''' + Trim(FBCIID) + '''');
// Open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_3_3);
// SInitCDSData(ADOQueryTemp, CDS_3_3);
//
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select A.* from Bs_Cloth_GX A ');
// sql.Add(' where A.BCIID=''' + Trim(FBCIID) + '''');
// Open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_GX);
// SInitCDSData(ADOQueryTemp, CDS_GX);
12345
2025-06-11 09:07:37 +08:00
// C_FromName.TxtCode := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString);
// C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString);
1234
2025-06-06 13:56:41 +08:00
end;
procedure TfrmClothInfoInput.FormShow(Sender: TObject);
11
2025-06-19 10:41:40 +08:00
var
11
2025-07-09 16:55:19 +08:00
MaxBCIID, TechnicsID, MaxBCPID: string;
// Maxid1, maxid2, maxid3, maxgx: string;
1234
2025-06-06 13:56:41 +08:00
begin
1234
2025-06-27 15:51:06 +08:00
InitGrid();
12345
2025-06-11 09:07:37 +08:00
ArrangeTabsByDataset;
1234
2025-06-27 15:51:06 +08:00
if CopyInt = 2 then //<2F><><EFBFBD><EFBFBD>
1234
2025-06-16 13:48:11 +08:00
begin
FBCIID := '';
11
2025-06-19 10:41:40 +08:00
C_Code.text := '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>';
11
2025-07-09 16:55:19 +08:00
with CDS_GY do
1234
2025-06-27 15:51:06 +08:00
begin
First;
while not Eof do
begin
Edit;
11
2025-07-09 16:55:19 +08:00
CDS_GY.fieldbyname('TechnicsID').AsString := '';
1234
2025-06-27 15:51:06 +08:00
Post;
Next;
end;
end;
11
2025-07-09 16:55:19 +08:00
// with CDS_1 do
// begin
// First;
// while not Eof do
// begin
// Edit;
// CDS_1.fieldbyname('BCPID').AsString := '';
// Post;
// Next;
// end;
// end;
// with CDS_2 do
// begin
// First;
// while not Eof do
// begin
// Edit;
// CDS_2.fieldbyname('BCPID').AsString := '';
// Post;
// Next;
// end;
// end;
// with CDS_3 do
// begin
// First;
// while not Eof do
// begin
// Edit;
// CDS_3.fieldbyname('BCPID').AsString := '';
// Post;
// Next;
// end;
// end;
// with CDS_3_2 do
// begin
// First;
// while not Eof do
// begin
// Edit;
// CDS_3_2.fieldbyname('BCPID').AsString := '';
// Post;
// Next;
// end;
// end;
// with CDS_3_3 do
// begin
// First;
// while not Eof do
// begin
// Edit;
// CDS_3_3.fieldbyname('BCPID').AsString := '';
// Post;
// Next;
// end;
// end;
1234
2025-06-27 15:51:06 +08:00
11
2025-06-19 10:41:40 +08:00
end;
if CopyInt = 1 then //<2F>鿴
begin
TbSave.Enabled := False;
TbUpFile.Enabled := False;
TbQX.Enabled := False;
TbDX.Enabled := False;
TbFS.Enabled := False;
TbFP.Enabled := False;
TbGJ.Enabled := False;
TbZM.Enabled := False;
TbDelete.Enabled := False;
end;
1234
2025-06-16 13:48:11 +08:00
end;
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.fs_meterPropertiesChange(Sender: TObject);
//var
// mfs_meter, mfs_useOneMeter, mfs_useGlub: Double;
//begin
// if fs_meter.Text <> '' then
// begin
// mfs_meter := StrToFloat(fs_meter.Text);
// end
// else
// begin
// fs_meter.Text := '0';
// mfs_meter := 0;
// end;
//
// if fs_useOneMeter.Text <> '' then
// begin
// mfs_useOneMeter := StrToFloat(fs_useOneMeter.Text);
// end
// else
// begin
// fs_useOneMeter.Text := '0';
// mfs_useOneMeter := 0;
// end;
// ///<2F><><EFBFBD>㲿<EFBFBD><E3B2BF>
// mfs_useGlub := mfs_meter * mfs_useOneMeter / 1000;
// fs_useGlub.Text := FloatToStr(mfs_useGlub);
//end;
1234
2025-06-06 13:56:41 +08:00
procedure TfrmClothInfoInput.TBCloseClick(Sender: TObject);
begin
Close;
end;
function TfrmClothInfoInput.SaveData(): Boolean;
var
11
2025-07-09 16:55:19 +08:00
// MaxBCIID, MaxProcessID, MaxBCPID: string;
// Maxid1, maxid2, maxid3, maxgx: string;
MaxBCIID, MaxTechnicsID: string;
1234
2025-06-06 13:56:41 +08:00
begin
try
ADOQueryCmd.Connection.BeginTrans;
//////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> //////////////////////
if Trim(FBCIID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxBCIID, 'Y', 'BS_Cloth_Info', 4, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
MaxBCIID := Trim(FBCIID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
11
2025-07-09 16:55:19 +08:00
sql.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(MaxBCIID) + '''');
1234
2025-06-06 13:56:41 +08:00
Open;
end;
with ADOQueryCmd do
begin
if Trim(FBCIID) = '' then
begin
Append;
FieldByName('FILLID').Value := Trim(DCode);
FieldByName('FILLER').Value := Trim(DName);
FieldByName('FILLTIME').Value := SGetServerDateTime(ADOQueryTemp);
end
else
begin
Edit;
FieldByName('EDITER').Value := Trim(DName);
FieldByName('EDITTIME').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('BCIID').Value := Trim(MaxBCIID);
1234
2025-06-16 13:48:11 +08:00
if trim(C_Code.Text) = '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>' then
1234
2025-06-06 13:56:41 +08:00
C_Code.Text := Trim(MaxBCIID);
产品录入修改
2025-06-10 17:34:06 +08:00
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel1, 2);
1234
2025-06-06 13:56:41 +08:00
Post;
end;
//////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> //////////////////////
///
11
2025-07-09 16:55:19 +08:00
/// //////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> //////////////////////
with CDS_GY do
12345
2025-06-11 09:07:37 +08:00
begin
First;
while not Eof do
begin
11
2025-07-09 16:55:19 +08:00
if Trim(CDS_GY.fieldbyname('TechnicsID').AsString) = '' then
12345
2025-06-11 09:07:37 +08:00
begin
11
2025-07-09 16:55:19 +08:00
if GetLSNo(ADOQueryTemp, MaxTechnicsID, 'GY', 'Bs_Cloth_Dye_Technics', 5, 1) = False then
12345
2025-06-11 09:07:37 +08:00
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
11
2025-07-09 16:55:19 +08:00
MaxTechnicsID := Trim(CDS_GY.fieldbyname('TechnicsID').AsString);
12345
2025-06-11 09:07:37 +08:00
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
11
2025-07-09 16:55:19 +08:00
sql.Add('select * from Bs_Cloth_Dye_Technics where ');
sql.Add(' TechnicsID=''' + Trim(MaxTechnicsID) + '''');
12345
2025-06-11 09:07:37 +08:00
Open;
end;
with ADOQueryCmd do
begin
11
2025-07-09 16:55:19 +08:00
if Trim(CDS_GY.fieldbyname('TechnicsID').AsString) = '' then
12345
2025-06-11 09:07:37 +08:00
begin
Append;
end
else
begin
Edit;
end;
FieldByName('BCIID').Value := Trim(MaxBCIID);
11
2025-07-09 16:55:19 +08:00
FieldByName('TechnicsID').Value := Trim(MaxTechnicsID);
RTSetSaveDataCDS(ADOQueryCmd, Tv4, CDS_GY, 'Bs_Cloth_Dye_Technics', 0);
12345
2025-06-11 09:07:37 +08:00
Post;
end;
11
2025-07-09 16:55:19 +08:00
CDS_GY.Edit;
CDS_GY.FieldByName('BCIID').Value := Trim(MaxBCIID);
CDS_GY.FieldByName('TechnicsID').Value := Trim(MaxTechnicsID);
12345
2025-06-11 09:07:37 +08:00
Next;
end;
end;
11
2025-07-09 16:55:19 +08:00
/// //////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> //////////////////////
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('delete BS_Cloth_Info_Link where ToID=''' + Trim(MaxBCIID) + '''');
// ExecSQL;
// end;
12345
2025-06-11 09:07:37 +08:00
11
2025-07-09 16:55:19 +08:00
// 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;
12345
2025-06-11 09:07:37 +08:00
11
2025-07-09 16:55:19 +08:00
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select count(*) as AA from BS_Cloth_Info where C_Code=''' + Trim(C_Code.Text) + '''');
// Open;
// if FieldByName('AA').AsInteger > 1 then
// begin
// ADOQueryCmd.Connection.RollbackTrans;
// Result := False;
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// end;
//
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(FBCIID) + '''');
// Open;
// end;
// with ADOQueryCmd do
// begin
// if Trim(FBCIID) = '' then
// begin
// Append;
//
// end
// else
// begin
// Edit;
//
// end;
// FieldByName('BCIID').Value := Trim(MaxBCIID);
// 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);
//
// RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel12, 2);
// RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel13, 2);
// RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel14, 2);
// RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel15, 2);
// Post;
// end;
12345
2025-06-11 09:07:37 +08:00
11
2025-07-09 16:55:19 +08:00
//////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> //////////////////////
1234
2025-06-06 13:56:41 +08:00
///
11
2025-07-09 16:55:19 +08:00
///
///
///
/// ///////////////// <20><><EFBFBD>湤<EFBFBD><E6B9A4><EFBFBD>ӱ<EFBFBD> //////////////////////
// with CDS_GY do
// begin
// First;
// while not Eof do
// begin
//
// if Trim(CDS_GY.fieldbyname('GXID').AsString) = '' then
// begin
// if GetLSNo(ADOQueryTemp, maxgx, 'GX', 'Bs_Cloth_GX', 5, 1) = False then
// begin
// ADOQueryCmd.Connection.RollbackTrans;
// Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// end
// else
// begin
// maxgx := Trim(CDS_GY.fieldbyname('GXID').AsString);
// end;
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('select * from Bs_Cloth_GX where ');
// sql.Add(' GXID=''' + Trim(maxgx) + '''');
// Open;
// end;
// with ADOQueryCmd do
// begin
// if Trim(CDS_GY.fieldbyname('GXID').AsString) = '' then
// begin
// Append;
//
// end
// else
// begin
// Edit;
// end;
//
// FieldByName('BCIID').Value := Trim(MaxBCIID);
// FieldByName('GXID').Value := Trim(maxgx);
// RTSetSaveDataCDS(ADOQueryCmd, Tv4, CDS_GY, 'Bs_Cloth_GX', 0);
// Post;
// end;
// CDS_GY.Edit;
// CDS_GY.FieldByName('BCIID').Value := Trim(MaxBCIID);
// CDS_GY.FieldByName('GXID').Value := Trim(maxgx);
//
// Next;
// end;
// end;
////////////////// <20><><EFBFBD>湤<EFBFBD><E6B9A4><EFBFBD>ӱ<EFBFBD> //////////////////////
//////////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD>ӱ<EFBFBD> //////////////////////
// with CDS_1 do
// begin
// First;
// while not Eof do
// begin
//
// if Trim(CDS_1.fieldbyname('BCPID').AsString) = '' then
// begin
// if GetLSNo(ADOQueryTemp, Maxid1, 'FS', 'Bs_Cloth_GY_Sub', 5, 1) = False then
// begin
// ADOQueryCmd.Connection.RollbackTrans;
// Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// end
// else
// begin
// Maxid1 := Trim(CDS_1.fieldbyname('BCPID').AsString);
// end;
//
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('select * from Bs_Cloth_GY_Sub where ');
// sql.Add(' BCPID=''' + Trim(Maxid1) + '''');
// Open;
// end;
// with ADOQueryCmd do
// begin
// if Trim(CDS_1.fieldbyname('BCPID').AsString) = '' then
// begin
// Append;
//
// end
// else
// begin
// Edit;
//
// end;
// FieldByName('GYType').Value := '<27><>ˮ';
// FieldByName('BCIID').Value := Trim(MaxBCIID);
// 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(MaxBCIID);
// CDS_1.FieldByName('BCPID').Value := Trim(Maxid1);
//
// Next;
// end;
// end;
////////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> //////////////////////
//////////////////// <20><><EFBFBD>淢<EFBFBD><E6B7A2><EFBFBD>ӱ<EFBFBD> //////////////////////
// with CDS_2 do
// begin
// First;
// while not Eof do
// begin
//
// if Trim(CDS_2.fieldbyname('BCPID').AsString) = '' then
// begin
// if GetLSNo(ADOQueryTemp, maxid2, 'FP', 'Bs_Cloth_GY_Sub', 5, 1) = False then
// begin
// ADOQueryCmd.Connection.RollbackTrans;
// Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// end
// else
// begin
// maxid2 := Trim(CDS_2.fieldbyname('BCPID').AsString);
// end;
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('select * from Bs_Cloth_GY_Sub where ');
// sql.Add(' BCPID=''' + Trim(maxid2) + '''');
// Open;
// end;
// with ADOQueryCmd do
// begin
// if Trim(CDS_2.fieldbyname('BCPID').AsString) = '' then
// begin
// Append;
//
// end
// else
// begin
// Edit;
//
// end;
// FieldByName('GYType').Value := '<27><><EFBFBD><EFBFBD>';
// FieldByName('BCIID').Value := Trim(MaxBCIID);
// FieldByName('BCPID').Value := Trim(maxid2);
// RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_2, 'Bs_Cloth_GY_Sub', 0);
// Post;
// end;
// CDS_2.Edit;
// CDS_2.FieldByName('BCIID').Value := Trim(MaxBCIID);
// CDS_2.FieldByName('BCPID').Value := Trim(maxid2);
//
// Next;
// end;
// end;
////////////////// <20><><EFBFBD>淢<EFBFBD><E6B7A2><EFBFBD>ӱ<EFBFBD> //////////////////////
/////
///// ////////////////// <20><><EFBFBD><EFBFBD>һ<EFBFBD>ιν<CEB9><CEBD>ӱ<EFBFBD> //////////////////////
// with CDS_3 do
// begin
// First;
// while not Eof do
// begin
//// if copyInt = 1 then
//// begin
//// CDS_3.Edit;
////// CDS_GX.fieldbyname('GXID').AsString := '';
////// CDS_1.fieldbyname('BCPID').AsString := '';
////// CDS_2.fieldbyname('BCPID').AsString := '';
//// CDS_3.fieldbyname('BCPID').AsString := '';
//// end;
// if Trim(CDS_3.fieldbyname('BCPID').AsString) = '' then
// begin
// if GetLSNo(ADOQueryTemp, maxid3, 'GJ', 'Bs_Cloth_GY_Sub', 5, 1) = False then
// begin
// ADOQueryCmd.Connection.RollbackTrans;
// Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// end
// else
// begin
// maxid3 := Trim(CDS_3.fieldbyname('BCPID').AsString);
// end;
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('select * from Bs_Cloth_GY_Sub where ');
// sql.Add(' BCPID=''' + Trim(maxid3) + '''');
// Open;
// end;
// with ADOQueryCmd do
// begin
// if Trim(CDS_3.fieldbyname('BCPID').AsString) = '' then
// begin
// Append;
//
// end
// else
// begin
// Edit;
//
// end;
// FieldByName('GYType').Value := 'һ<>ιν<CEB9>';
// FieldByName('BCIID').Value := Trim(MaxBCIID);
// FieldByName('BCPID').Value := Trim(maxid3);
// RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3, 'Bs_Cloth_GY_Sub', 0);
// Post;
// end;
// CDS_3.Edit;
// CDS_3.FieldByName('BCIID').Value := Trim(MaxBCIID);
// CDS_3.FieldByName('BCPID').Value := Trim(maxid3);
//
// Next;
// end;
// end;
////////////////// <20><><EFBFBD><EFBFBD>һ<EFBFBD>ιν<CEB9><CEBD>ӱ<EFBFBD> //////////////////////
///// ////////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ιν<CEB9><CEBD>ӱ<EFBFBD> //////////////////////
// with CDS_3_2 do
// begin
// First;
// while not Eof do
// begin
// if copyInt = 1 then
// begin
// CDS_3_2.Edit;
// CDS_3_2.fieldbyname('BCPID').AsString := '';
// end;
// if Trim(CDS_3_2.fieldbyname('BCPID').AsString) = '' then
// begin
// if GetLSNo(ADOQueryTemp, maxid3, 'GJ', 'Bs_Cloth_GY_Sub', 5, 1) = False then
// begin
// ADOQueryCmd.Connection.RollbackTrans;
// Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// end
// else
// begin
// maxid3 := Trim(CDS_3_2.fieldbyname('BCPID').AsString);
// end;
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('select * from Bs_Cloth_GY_Sub where ');
// sql.Add(' BCPID=''' + Trim(maxid3) + '''');
// Open;
// end;
// with ADOQueryCmd do
// begin
// if Trim(CDS_3_2.fieldbyname('BCPID').AsString) = '' then
// begin
// Append;
//
// end
// else
// begin
// Edit;
//
// end;
// FieldByName('GYType').Value := '<27><><EFBFBD>ιν<CEB9>';
// FieldByName('BCIID').Value := Trim(MaxBCIID);
// FieldByName('BCPID').Value := Trim(maxid3);
// RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3_2, 'Bs_Cloth_GY_Sub', 0);
// Post;
// end;
// CDS_3_2.Edit;
// CDS_3_2.FieldByName('BCIID').Value := Trim(MaxBCIID);
// CDS_3_2.FieldByName('BCPID').Value := Trim(maxid3);
//
// Next;
// end;
// end;
////////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ιν<CEB9><CEBD>ӱ<EFBFBD> //////////////////////
///// ////////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ιν<CEB9><CEBD>ӱ<EFBFBD> //////////////////////
// with CDS_3_3 do
// begin
// First;
// while not Eof do
// begin
1234
2025-06-27 15:51:06 +08:00
// if copyInt = 1 then
// begin
11
2025-07-09 16:55:19 +08:00
// CDS_3_3.Edit;
1234
2025-06-27 15:51:06 +08:00
//// CDS_GX.fieldbyname('GXID').AsString := '';
//// CDS_1.fieldbyname('BCPID').AsString := '';
//// CDS_2.fieldbyname('BCPID').AsString := '';
11
2025-07-09 16:55:19 +08:00
// CDS_3_3.fieldbyname('BCPID').AsString := '';
1234
2025-06-27 15:51:06 +08:00
// end;
11
2025-07-09 16:55:19 +08:00
// if Trim(CDS_3_3.fieldbyname('BCPID').AsString) = '' then
// begin
// if GetLSNo(ADOQueryTemp, maxid3, 'GJ', 'Bs_Cloth_GY_Sub', 5, 1) = False then
// begin
// ADOQueryCmd.Connection.RollbackTrans;
// Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// end
// else
// begin
// maxid3 := Trim(CDS_3_3.fieldbyname('BCPID').AsString);
// end;
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// sql.Add('select * from Bs_Cloth_GY_Sub where ');
// sql.Add(' BCPID=''' + Trim(maxid3) + '''');
// Open;
// end;
// with ADOQueryCmd do
// begin
// if Trim(CDS_3_3.fieldbyname('BCPID').AsString) = '' then
// begin
// Append;
产品录入修改
2025-06-10 17:34:06 +08:00
//
11
2025-07-09 16:55:19 +08:00
// end
// else
// begin
// Edit;
产品录入修改
2025-06-10 17:34:06 +08:00
//
11
2025-07-09 16:55:19 +08:00
// end;
// FieldByName('GYType').Value := '<27><><EFBFBD>ιν<CEB9>';
// FieldByName('BCIID').Value := Trim(MaxBCIID);
// FieldByName('BCPID').Value := Trim(maxid3);
// RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3_3, 'Bs_Cloth_GY_Sub', 0);
// Post;
// end;
// CDS_3_3.Edit;
// CDS_3_3.FieldByName('BCIID').Value := Trim(MaxBCIID);
// CDS_3_3.FieldByName('BCPID').Value := Trim(maxid3);
//
// Next;
// end;
// end;
//////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ιν<CEB9><CEBD>ӱ<EFBFBD> //////////////////////
1234
2025-06-27 15:51:06 +08:00
11
2025-07-09 16:55:19 +08:00
ADOQueryCmd.Connection.CommitTrans;
FBCIID := MaxBCIID;
Result := True;
except
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
1234
2025-06-27 15:51:06 +08:00
end;
end;
11
2025-07-09 16:55:19 +08:00
procedure TfrmClothInfoInput.CYJGGYBtnDnClick(Sender: TObject);
1234
2025-06-27 15:51:06 +08:00
begin
11
2025-07-09 16:55:19 +08:00
TBtnEditC(Sender).Text := '';
1234
2025-06-27 15:51:06 +08:00
end;
11
2025-07-09 16:55:19 +08:00
procedure TfrmClothInfoInput.TbSaveClick(Sender: TObject);
1234
2025-06-27 15:51:06 +08:00
var
11
2025-07-09 16:55:19 +08:00
MC_Code: string;
1234
2025-06-27 15:51:06 +08:00
begin
11
2025-07-09 16:55:19 +08:00
if C_Name.Text = '' then
1234
2025-06-27 15:51:06 +08:00
begin
11
2025-07-09 16:55:19 +08:00
Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 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('ȡ<><C8A1><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
// Exit;
// end;
// C_Code.Text := MC_Code;
//
// end;
1234
2025-06-27 15:51:06 +08:00
11
2025-07-09 16:55:19 +08:00
if SaveData() then
1234
2025-06-27 15:51:06 +08:00
begin
11
2025-07-09 16:55:19 +08:00
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
ModalResult := 1;
1234
2025-06-27 15:51:06 +08:00
end;
end;
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.TbFSClick(Sender: TObject);
//var
// i: Integer;
//begin
//
// i := CDS_GY.RecordCount; //<2F><>ǰ<EFBFBD><C7B0>dataset<65>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>м<EFBFBD>¼
// i := i + 1;
//
// if CDS_GY.Locate('GXName', '<27><>ˮ', []) = True then
1234
2025-06-16 13:48:11 +08:00
// begin
11
2025-07-09 16:55:19 +08:00
// Application.MessageBox('<27>Ѵ<EFBFBD><D1B4>ڷ<EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
// if i > 11 then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_OK);
// exit;
// end;
//// CopyAddRow(Tv1, CDS_1);
// with CDS_GY do
// begin
// Append;
// FieldByName('SerialNo').Value := i;
// FieldByName('GXName').Value := '<27><>ˮ';
// Post;
// end;
//
// ArrangeTabsByDataset;
//end;
//
//procedure TfrmClothInfoInput.TbQXClick(Sender: TObject);
//var
// i: Integer;
//begin
//
// i := CDS_GY.RecordCount; //<2F><>ǰ<EFBFBD><C7B0>dataset<65>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>м<EFBFBD>¼
// i := i + 1;
//
// if CDS_GY.Locate('GXName', '<27><>ϴ', []) = True then
// begin
// Application.MessageBox('<27>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
// if i > 11 then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_OK);
// exit;
// end;
//// CopyAddRow(Tv1, CDS_1);
// with CDS_GY do
// begin
// Append;
// FieldByName('SerialNo').Value := i;
// FieldByName('GXName').Value := '<27><>ϴ';
// Post;
// end;
//
// ArrangeTabsByDataset;
//end;
//
//procedure TfrmClothInfoInput.TbDXClick(Sender: TObject);
//var
// i: Integer;
//begin
//
// i := CDS_GY.RecordCount; //<2F><>ǰ<EFBFBD><C7B0>dataset<65>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>м<EFBFBD>¼
// i := i + 1;
//
// if CDS_GY.Locate('GXName', 'һ<>ζ<EFBFBD><CEB6><EFBFBD>', []) = True then
// begin
// if CDS_GY.Locate('GXName', '<27><><EFBFBD>ζ<EFBFBD><CEB6><EFBFBD>', []) = True then
// begin
// if CDS_GY.Locate('GXName', '<27><><EFBFBD>ζ<EFBFBD><CEB6><EFBFBD>', []) = True then
// begin
// Application.MessageBox('<27>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ζ<EFBFBD><CEB6>͹<EFBFBD><CDB9><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end
// else
// begin
// with CDS_GY do
// begin
// Append;
// FieldByName('SerialNo').Value := i;
// FieldByName('GXName').Value := '<27><><EFBFBD>ζ<EFBFBD><CEB6><EFBFBD>';
// Post;
// end;
// end;
// end
// else
// begin
// with CDS_GY do
// begin
// Append;
// FieldByName('SerialNo').Value := i;
// FieldByName('GXName').Value := '<27><><EFBFBD>ζ<EFBFBD><CEB6><EFBFBD>';
// Post;
// end;
1234
2025-06-27 15:51:06 +08:00
// end;
11
2025-07-09 16:55:19 +08:00
// end
// else
// begin
// with CDS_GY do
// begin
// Append;
// FieldByName('SerialNo').Value := i;
// FieldByName('GXName').Value := 'һ<>ζ<EFBFBD><CEB6><EFBFBD>';
// Post;
1234
2025-06-27 15:51:06 +08:00
// end;
11
2025-07-09 16:55:19 +08:00
// end;
//
// if i > 11 then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_OK);
// exit;
// end;
//
// ArrangeTabsByDataset;
//end;
//
//procedure TfrmClothInfoInput.TbDXReplaceClick(Sender: TObject);
//begin
// FillAllTextEditsWithValue(panel3, '<27><><EFBFBD>ͺ<EFBFBD><CDBA><EFBFBD><EFBFBD><EFBFBD>', FindLastEditedTextEdit(panel3, '<27><><EFBFBD>ͺ<EFBFBD><CDBA><EFBFBD><EFBFBD><EFBFBD>'));
//end;
//
//procedure TfrmClothInfoInput.TbFBClick(Sender: TObject);
//var
// i: Integer;
//begin
//
// i := CDS_GY.RecordCount; //<2F><>ǰ<EFBFBD><C7B0>dataset<65>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>м<EFBFBD>¼
// i := i + 1;
// if CDS_GY.Locate('GXName', '<27><><EFBFBD><EFBFBD>', []) = True then
// begin
// Application.MessageBox('<27>Ѵ<EFBFBD><D1B4>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
// if i > 11 then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_OK);
// exit;
// end;
//
//// CopyAddRow(Tv1, CDS_1);
// with CDS_GY do
// begin
// Append;
//
// FieldByName('GXName').Value := '<27><><EFBFBD><EFBFBD>';
// Post;
// end;
//
// ArrangeTabsByDataset;
//end;
//
//procedure TfrmClothInfoInput.TbFPClick(Sender: TObject);
//var
// i: Integer;
//begin
//
// i := CDS_GY.RecordCount; //<2F><>ǰ<EFBFBD><C7B0>dataset<65>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>м<EFBFBD>¼
// i := i + 1;
//
// if CDS_GY.Locate('GXName', '<27><><EFBFBD><EFBFBD>', []) = True then
// begin
// Application.MessageBox('<27>Ѵ<EFBFBD><D1B4>ڷ<EFBFBD><DAB7>ݹ<EFBFBD><DDB9><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
// if i > 11 then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_OK);
// exit;
// end;
//
//
//// CopyAddRow(Tv1, CDS_1);
// with CDS_GY do
// begin
// Append;
//// FieldByName('SerialNo').Value := i;
// FieldByName('GXName').Value := '<27><><EFBFBD><EFBFBD>';
// Post;
// end;
//
// ArrangeTabsByDataset;
//end;
//
//procedure TfrmClothInfoInput.TbFPReplaceClick(Sender: TObject);
//begin
// FillAllTextEditsWithValue(panel5, '<27><><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>', FindLastEditedTextEdit(panel5, '<27><><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>'));
//end;
//procedure TfrmClothInfoInput.TbGJClick(Sender: TObject);
//var
// i: Integer;
//begin
//
// i := CDS_GY.RecordCount; //<2F><>ǰ<EFBFBD><C7B0>dataset<65>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>м<EFBFBD>¼
// i := i + 1;
//
// if CDS_GY.Locate('GXName', 'һ<>ιν<CEB9>', []) = True then
// begin
// if CDS_GY.Locate('GXName', '<27><><EFBFBD>ιν<CEB9>', []) = True then
// begin
// if CDS_GY.Locate('GXName', '<27><><EFBFBD>ιν<CEB9>', []) = True then
// begin
// Application.MessageBox('<27>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ιν<CEB9><CEBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end
// else
// begin
// with CDS_GY do
// begin
// Append;
//// FieldByName('SerialNo').Value := i;
// FieldByName('GXName').Value := '<27><><EFBFBD>ιν<CEB9>';
// Post;
// end;
// end;
// end
// else
// begin
// with CDS_GY do
// begin
// Append;
//// FieldByName('SerialNo').Value := i;
// FieldByName('GXName').Value := '<27><><EFBFBD>ιν<CEB9>';
// Post;
// end;
// end;
// end
// else
// begin
// with CDS_GY do
// begin
// Append;
//// FieldByName('SerialNo').Value := i;
// FieldByName('GXName').Value := 'һ<>ιν<CEB9>';
// Post;
// end;
// end;
// if i > 11 then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_OK);
// exit;
// end;
//
// ArrangeTabsByDataset;
//end;
//procedure TfrmClothInfoInput.TbGJReplaceClick(Sender: TObject);
//begin
// FillAllTextEditsWithValue(panel6, '<27>ν<EFBFBD><CEBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', FindLastEditedTextEdit(panel6, '<27>ν<EFBFBD><CEBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'));
//end;
//procedure TfrmClothInfoInput.TbZMClick(Sender: TObject);
//var
// i: Integer;
//begin
// i := CDS_GY.RecordCount; //<2F><>ǰ<EFBFBD><C7B0>dataset<65>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>м<EFBFBD>¼
// i := i + 1;
//
// if CDS_GY.Locate('GXName', '<27><>ë', []) = True then
// begin
// Application.MessageBox('<27>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD>ë<EFBFBD><C3AB><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
// if i > 11 then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_OK);
// exit;
// end;
//// CopyAddRow(Tv1, CDS_1);
// with CDS_GY do
// begin
// Append;
//// FieldByName('SerialNo').Value := i;
// FieldByName('GXName').Value := '<27><>ë';
// Post;
// end;
//
// ArrangeTabsByDataset;
//end;
//
//procedure TfrmClothInfoInput.ToolButton1Click(Sender: TObject);
//begin
// with CDS_3_2 do
// begin
// Append;
// CDS_3_2.FieldByName('serialno').Value := CDS_3_2.RecordCount + 1;
// CDS_3_2.FieldByName('gj_unit').Value := '%';
// Post;
// end;
//end;
//
//procedure TfrmClothInfoInput.ToolButton2Click(Sender: TObject);
//var
// i: Integer;
//begin
// if not CDS_3_2.IsEmpty then
// begin
//
// if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) = IDYES then
// begin
// if Trim(CDS_3_2.fieldbyname('BCPID').AsString) <> '' then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete BS_Cloth_GY_Sub where BCPID=''' + Trim(CDS_3_2.fieldbyname('BCPID').AsString) + '''');
// ExecSQL;
// end;
// end;
// CDS_3_2.Delete;
// end
// else
// exit;
//
// i := 0;
// CDS_3_2.First;
// while not CDS_3_2.Eof do
// begin
// i := i + 1;
// CDS_3_2.Edit;
// CDS_3_2.fieldByName('serialno').value := i;
// CDS_3_2.Post;
// CDS_3_2.Next;
// end;
// end
// else
// begin
// Application.MessageBox('<27>޿<EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
//end;
//
//procedure TfrmClothInfoInput.ToolButton3Click(Sender: TObject);
//begin
// with CDS_3_3 do
// begin
// Append;
// CDS_3_3.FieldByName('serialno').Value := CDS_3_3.RecordCount + 1;
// CDS_3_3.FieldByName('gj_unit').Value := '%';
// Post;
// end;
//end;
//procedure TfrmClothInfoInput.ToolButton4Click(Sender: TObject);
//var
// i: Integer;
//begin
// if not CDS_3_3.IsEmpty then
// begin
//
// if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) = IDYES then
// begin
// if Trim(CDS_3_3.fieldbyname('BCPID').AsString) <> '' then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete BS_Cloth_GY_Sub where BCPID=''' + Trim(CDS_3_3.fieldbyname('BCPID').AsString) + '''');
// ExecSQL;
// end;
// end;
// CDS_3_3.Delete;
// end
// else
// exit;
//
// i := 0;
// CDS_3_3.First;
// while not CDS_3_3.Eof do
// begin
// i := i + 1;
// CDS_3_3.Edit;
// CDS_3_3.fieldByName('serialno').value := i;
// CDS_3_3.Post;
// CDS_3_3.Next;
11
2025-06-19 10:41:40 +08:00
// end;
11
2025-07-09 16:55:19 +08:00
// end
11
2025-06-19 10:41:40 +08:00
// else
// begin
11
2025-07-09 16:55:19 +08:00
// Application.MessageBox('<27>޿<EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
1234
2025-06-16 13:48:11 +08:00
// end;
11
2025-07-09 16:55:19 +08:00
//end;
1234
2025-06-16 13:48:11 +08:00
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.TbDeleteClick(Sender: TObject);
//begin
// if CDS_GY.IsEmpty then
// Exit;
// if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
// Exit;
//////////////////////////////////////// <20>ӱ<EFBFBD><D3B1><EFBFBD><EFBFBD>¿<EFBFBD>ʼ//////////////////////
//// if Trim(CDS_GX.fieldbyname('GXID').AsString) <> '' then
//// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete Bs_Cloth_GY_Sub where BCIID=''' + Trim(CDS_GY.fieldbyname('BCIID').AsString) + '''');
// sql.Add('and gyType=''' + Trim(CDS_GY.fieldbyname('gxName').AsString) + '''');
// ExecSQL;
// end;
// if CDS_GY.fieldByName('gxname').Value = '<27><>ϴ' then
// begin
// //<2F><>ˮ<EFBFBD>ӱ<EFBFBD><D3B1><EFBFBD><EFBFBD><EFBFBD>
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select A.* from Bs_Cloth_GY_sub A ');
// sql.Add(' where gytype=''<27><>ˮ'' and A.BCIID=''' + Trim(FBCIID) + '''');
// Open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_1);
// SInitCDSData(ADOQueryTemp, CDS_1);
// end
// else if CDS_GY.fieldByName('gxname').Value = '<27><><EFBFBD><EFBFBD>' then
// begin
// //<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD><D3B1><EFBFBD><EFBFBD><EFBFBD>
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select A.* from Bs_Cloth_GY_sub A ');
// sql.Add(' where gytype=''<27><><EFBFBD><EFBFBD>'' and A.BCIID=''' + Trim(FBCIID) + '''');
// Open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_2);
// SInitCDSData(ADOQueryTemp, CDS_2);
// end
// else if CDS_GY.fieldByName('gxname').Value = 'һ<>ιν<CEB9>' then
// begin
// //<2F>ν<EFBFBD><CEBD>ӱ<EFBFBD><D3B1><EFBFBD><EFBFBD><EFBFBD>
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select A.* from Bs_Cloth_GY_sub A ');
// sql.Add(' where gytype=''һ<>ιν<CEB9>'' and A.BCIID=''' + Trim(FBCIID) + '''');
// Open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_3);
// SInitCDSData(ADOQueryTemp, CDS_3);
//// end;
// end
// else if CDS_GY.fieldByName('gxname').Value = '<27><><EFBFBD>ιν<CEB9>' then
// begin
// //<2F><><EFBFBD>ιν<CEB9><CEBD>ӱ<EFBFBD><D3B1><EFBFBD><EFBFBD><EFBFBD>
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select A.* from Bs_Cloth_GY_sub A ');
// sql.Add(' where gytype=''<27><><EFBFBD>ιν<CEB9>'' and A.BCIID=''' + Trim(FBCIID) + '''');
// Open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_3_2);
// SInitCDSData(ADOQueryTemp, CDS_3_2);
//// end;
// end
// else if CDS_GY.fieldByName('gxname').Value = '<27><><EFBFBD>ιν<CEB9>' then
// begin
// //<2F><><EFBFBD>ιν<CEB9><CEBD>ӱ<EFBFBD><D3B1><EFBFBD><EFBFBD><EFBFBD>
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select A.* from Bs_Cloth_GY_sub A ');
// sql.Add(' where gytype=''<27><><EFBFBD>ιν<CEB9>'' and A.BCIID=''' + Trim(FBCIID) + '''');
// Open;
// end;
// SCreateCDS(ADOQueryTemp, CDS_3_3);
// SInitCDSData(ADOQueryTemp, CDS_3_3);
//// end;
// end;
//// else
//// begin
//// CDS_GX.Delete;
//// end;
//////////////////////////////////////// <20>ӱ<EFBFBD><D3B1><EFBFBD><EFBFBD>½<EFBFBD><C2BD><EFBFBD>//////////////////////
///////////////////////////<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¿<EFBFBD>ʼ/////////////////////////////////
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(CDS_GY.fieldbyname('BCIID').AsString) + '''');
// open;
// end;
// if CDS_GY.fieldByName('gxname').Value = '<27><>ϴ' then
// begin
// SClearData(panel2, 2);
// qx_UnpackingMethod.Text := '';
// qx_RollMethod.Text := '';
// end
// else if CDS_GY.fieldByName('gxname').Value = 'һ<>ζ<EFBFBD><CEB6><EFBFBD>' then
// begin
// SClearData(panel3, 2);
// dx_UnpackingMethod.Text := '';
// dx_RollMethod.Text := '';
// dx_OpenAmplitude.Text := '';
// end
// else if CDS_GY.fieldByName('gxname').Value = '<27><><EFBFBD>ζ<EFBFBD><CEB6><EFBFBD>' then
// begin
// SClearData(panel12, 2);
// dx_UnpackingMethod2.Text := '';
// dx_RollMethod2.Text := '';
// dx_OpenAmplitude2.Text := '';
// end
// else if CDS_GY.fieldByName('gxname').Value = '<27><><EFBFBD>ζ<EFBFBD><CEB6><EFBFBD>' then
// begin
// SClearData(panel13, 2);
// dx_UnpackingMethod3.Text := '';
// dx_RollMethod3.Text := '';
// dx_OpenAmplitude3.Text := '';
// end
// else if CDS_GY.fieldByName('gxname').Value = '<27><>ˮ' then
// begin
// SClearData(panel4, 2);
// fs_UnpackingMethod.Text := '';
// fs_RollMethod.Text := '';
// fs_OpenAmplitude.Text := '';
// end
// else if CDS_GY.fieldByName('gxname').Value = '<27><><EFBFBD><EFBFBD>' then
// begin
// SClearData(panel5, 2);
// fp_UnpackingMethod.Text := '';
// fp_RollMethod.Text := '';
// fp_OpenAmplitude.Text := '';
// end
// else if CDS_GY.fieldByName('gxname').Value = 'һ<>ιν<CEB9>' then
// begin
// SClearData(panel6, 2);
// gj_UnpackingMethod.Text := '';
// gj_RollMethod.Text := '';
// gj_OpenAmplitude.Text := '';
// end
// else if CDS_GY.fieldByName('gxname').Value = '<27><><EFBFBD>ιν<CEB9>' then
// begin
// SClearData(panel14, 2);
// gj_UnpackingMethod2.Text := '';
// gj_RollMethod2.Text := '';
// gj_OpenAmplitude2.Text := '';
// end
// else if CDS_GY.fieldByName('gxname').Value = '<27><><EFBFBD>ιν<CEB9>' then
// begin
// SClearData(panel15, 2);
// gj_UnpackingMethod3.Text := '';
// gj_RollMethod3.Text := '';
// gj_OpenAmplitude3.Text := '';
// end
// else if CDS_GY.fieldByName('gxname').Value = '<27><>ë' then
// begin
// SClearData(panel7, 2);
// zm_UnpackingMethod.Text := '';
// end;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete Bs_Cloth_GX where GXID=''' + Trim(CDS_GY.fieldbyname('GXID').AsString) + '''');
// ExecSQL;
// end;
//// showMessage();
// CDS_GY.Delete;
//
// if Trim(CDS_GY.fieldbyname('GXID').AsString) <> '' then
// begin
// SaveData();
// end;
///////////////////////////////////<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>½<EFBFBD><C2BD><EFBFBD>//////////////////////////////////
// ArrangeTabsByDataset;
//end;
1234
2025-06-16 13:48:11 +08:00
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.TbAdd1Click(Sender: TObject);
//begin
// with CDS_1 do
// begin
// Append;
// CDS_1.FieldByName('serialno').Value := CDS_1.RecordCount + 1;
// CDS_1.FieldByName('fs_unit').Value := '%';
// Post;
// end;
//end;
1234
2025-06-16 13:48:11 +08:00
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.TbAdd2Click(Sender: TObject);
//begin
// with CDS_2 do
// begin
// Append;
// CDS_2.FieldByName('serialno').Value := CDS_2.RecordCount + 1;
// CDS_2.FieldByName('fp_unit').Value := '%';
// Post;
// end;
//end;
1234
2025-06-16 13:48:11 +08:00
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.TbAdd3Click(Sender: TObject);
//begin
// with CDS_3 do
// begin
// Append;
// CDS_3.FieldByName('serialno').Value := CDS_3.RecordCount + 1;
// CDS_3.FieldByName('gj_unit').Value := '%';
// Post;
// end;
//end;
1234
2025-06-16 13:48:11 +08:00
11
2025-07-09 16:55:19 +08:00
procedure TfrmClothInfoInput.TbAddClick(Sender: TObject);
1234
2025-06-16 13:48:11 +08:00
begin
11
2025-07-09 16:55:19 +08:00
try
frmCraftSel := TfrmCraftSel.Create(Application);
with frmCraftSel do
1234
2025-06-16 13:48:11 +08:00
begin
11
2025-07-09 16:55:19 +08:00
if ShowModal = 1 then
1234
2025-06-16 13:48:11 +08:00
begin
11
2025-07-09 16:55:19 +08:00
with frmCraftSel.CDS_1 do
1234
2025-06-16 13:48:11 +08:00
begin
11
2025-07-09 16:55:19 +08:00
First;
while Locate('SSel', True, []) do
begin
with Self.CDS_GY do
begin
Append;
FieldByName('DTMNO').Value := FrmCraftSel.CDS_1.FieldByName('dtmNO').Value;
FieldByName('DTMID').Value := FrmCraftSel.CDS_1.FieldByName('DTMID').Value;
FieldByName('DTMName').Value := FrmCraftSel.CDS_1.FieldByName('DTMName').Value;
FieldByName('DTMPSlist').Value := FrmCraftSel.CDS_1.FieldByName('DTMPSlist').Value;
end;
frmCraftSel.CDS_1.Delete;
end;
1234
2025-06-16 13:48:11 +08:00
end;
end;
end;
11
2025-07-09 16:55:19 +08:00
finally
frmCraftSel.Free;
1234
2025-06-16 13:48:11 +08:00
end;
end;
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.TbDel1Click(Sender: TObject);
//var
// i: Integer;
//begin
// if not CDS_1.IsEmpty then
// begin
//
// if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) = IDYES then
// begin
// if Trim(CDS_1.fieldbyname('BCPID').AsString) <> '' then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete BS_Cloth_GY_Sub where BCPID=''' + Trim(CDS_1.fieldbyname('BCPID').AsString));
// ExecSQL;
// end;
// end;
// CDS_1.Delete;
// end
// else
// exit;
//
// i := 0;
// CDS_1.First;
// while not CDS_1.Eof do
// begin
// i := i + 1;
// CDS_1.Edit;
// CDS_1.fieldByName('serialno').value := i;
// CDS_1.Post;
// CDS_1.Next;
// end;
// end
// else
// begin
// Application.MessageBox('<27>޿<EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
//end;
1234
2025-06-16 13:48:11 +08:00
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.TbDel2Click(Sender: TObject);
//var
// i: Integer;
//begin
// if not CDS_3.IsEmpty then
// begin
//
// if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) = IDYES then
// begin
// if Trim(CDS_3.fieldbyname('BCPID').AsString) <> '' then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete BS_Cloth_GY_Sub where BCPID=''' + Trim(CDS_3.fieldbyname('BCPID').AsString) + '''');
// ExecSQL;
// end;
// end;
// CDS_3.Delete;
// end
// else
// exit;
//
// i := 0;
// CDS_3.First;
// while not CDS_3.Eof do
// begin
// i := i + 1;
// CDS_3.Edit;
// CDS_3.fieldByName('serialno').value := i;
// CDS_3.Post;
// CDS_3.Next;
// end;
// end
// else
// begin
// Application.MessageBox('<27>޿<EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
//end;
//
//procedure TfrmClothInfoInput.TbDel3Click(Sender: TObject);
//var
// i: Integer;
//begin
// if not CDS_3.IsEmpty then
// begin
//
// if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) = IDYES then
// begin
// if Trim(CDS_3.fieldbyname('BCPID').AsString) <> '' then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete BS_Cloth_GY_Sub where BCPID=''' + Trim(CDS_3.fieldbyname('BCPID').AsString) + '''');
// ExecSQL;
// end;
// end;
// CDS_3.Delete;
// end
// else
// exit;
//
// i := 0;
// CDS_3.First;
// while not CDS_3.Eof do
// begin
// i := i + 1;
// CDS_3.Edit;
// CDS_3.fieldByName('serialno').value := i;
// CDS_3.Post;
// CDS_3.Next;
// end;
// end
// else
// begin
// Application.MessageBox('<27>޿<EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
//end;
1234
2025-06-16 13:48:11 +08:00
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.C_FromNameBtnUpClick(Sender: TObject);
//begin
产品录入修改
2025-06-10 17:34:06 +08:00
// try
// frmClothInfoSel := TfrmClothInfoSel.Create(Application);
// with frmClothInfoSel do
// begin
11
2025-07-09 16:55:19 +08:00
// FCTType := '<27><><EFBFBD><EFBFBD>';
// 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.TbCPReplaceClick(Sender: TObject);
//begin
// FillAllTextEditsWithValue(panel2, '<27><>ϴˮ<CFB4><CBAE>', FindLastEditedTextEdit(panel2, '<27><>ϴˮ<CFB4><CBAE>'));
//end;
//function TfrmClothInfoInput.FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
//var
// i: Integer;
// AControl: TControl;
//begin
// Result := '';
// for i := 0 to AParent.ControlCount - 1 do
// begin
// AControl := AParent.Controls[i];
// if (AControl is TcxTextEdit) and ((AControl as TcxTextEdit).Hint = AHint) and ((AControl as TcxTextEdit).Text <> '') then // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǿ<EFBFBD><C7BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// begin
// Result := (AControl as TcxTextEdit).text; // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD>ǿտؼ<D5BF><D8BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʵ<EFBFBD>֣<EFBFBD>
// end;
// end;
//end;
//function TfrmClothInfoInput.FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
//var
// i, j: Integer;
// AControl: TControl;
// SortedControls: TList;
// TempControl: TControl;
//begin
// Result := '';
//
// // <20><><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD>ӿؼ<D3BF><D8BC><EFBFBD>ֱ<EFBFBD>ӷ<EFBFBD><D3B7>ؿ<EFBFBD>
// if AParent.ControlCount = 0 then
// Exit;
//
// // ʹ<><CAB9> TList <20>洢<EFBFBD>ؼ<EFBFBD><D8BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݾɰ<DDBE> Delphi<68><69>
// SortedControls := TList.Create;
// try
// // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӿؼ<D3BF><D8BC><EFBFBD><EFBFBD>ӵ<EFBFBD><D3B5>б<EFBFBD>
// for i := 0 to AParent.ControlCount - 1 do
// SortedControls.Add(AParent.Controls[i]);
//
// // <20>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD>򣺰<EFBFBD> Top<6F><70>Y<EFBFBD><59><EFBFBD>꣩<EFBFBD><EAA3A9> Left<66><74>X<EFBFBD><58><EFBFBD>꣩<EFBFBD><EAA3A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// for i := 0 to SortedControls.Count - 1 do
// begin
// for j := i + 1 to SortedControls.Count - 1 do
产品录入修改
2025-06-10 17:34:06 +08:00
// begin
11
2025-07-09 16:55:19 +08:00
// // <20>Ƚ<EFBFBD><C8BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ؼ<EFBFBD><D8BC><EFBFBD> Top <20><> Left
// if (TControl(SortedControls[i]).Top > TControl(SortedControls[j]).Top) or ((TControl(SortedControls[i]).Top = TControl(SortedControls[j]).Top) and (TControl(SortedControls[i]).Left > TControl(SortedControls[j]).Left)) then
// begin
// // <20><><EFBFBD><EFBFBD>λ<EFBFBD><CEBB>
// TempControl := TControl(SortedControls[i]);
// SortedControls[i] := SortedControls[j];
// SortedControls[j] := TempControl;
// end;
// end;
// end;
//
// // <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀؼ<C4BF>
// for i := 0 to SortedControls.Count - 1 do
// begin
// AControl := TControl(SortedControls[i]);
// if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl).Text <> '') then
// begin
// Result := TcxTextEdit(AControl).Text; // <20><><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ļᱻ<C4BB><E1B1BB><EFBFBD><EFBFBD>
产品录入修改
2025-06-10 17:34:06 +08:00
// end;
// end;
// finally
11
2025-07-09 16:55:19 +08:00
// SortedControls.Free;
产品录入修改
2025-06-10 17:34:06 +08:00
// end;
11
2025-07-09 16:55:19 +08:00
//end;
11
2025-06-19 10:41:40 +08:00
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil); // <20><>ѡ<EFBFBD><D1A1><EFBFBD>ų<EFBFBD><C5B3>ض<EFBFBD><D8B6>ؼ<EFBFBD>
11
2025-06-19 10:41:40 +08:00
//var
// i: Integer;
// AControl: TControl;
11
2025-07-09 16:55:19 +08:00
// ATextEdit: TcxTextEdit;
11
2025-06-19 10:41:40 +08:00
//begin
// for i := 0 to AParent.ControlCount - 1 do
// begin
// AControl := AParent.Controls[i];
11
2025-07-09 16:55:19 +08:00
// if (AControl is TcxTextEdit) and ((AControl as TcxTextEdit).Text = '') then
11
2025-06-19 10:41:40 +08:00
// begin
11
2025-07-09 16:55:19 +08:00
// ATextEdit := AControl as TcxTextEdit;
// if (ATextEdit.Hint = AHint) and (ATextEdit <> AExclude) then
// ATextEdit.Text := AValue;
11
2025-06-19 10:41:40 +08:00
// end;
// end;
//end;
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil);
//var
// i: Integer;
// AControl: TControl;
//begin
// for i := 0 to AParent.ControlCount - 1 do
// begin
// AControl := AParent.Controls[i];
// // <20><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD> TcxTextEdit<69><74><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Hint ƥ<>䣬<EFBFBD>Ҳ<EFBFBD><D2B2><EFBFBD><EFBFBD>ų<EFBFBD><C5B3>Ŀؼ<C4BF>
// if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl) <> AExclude) then
// begin
// TcxTextEdit(AControl).Text := ''; // ֱ<><D6B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// end;
// end;
//end;
1234
2025-06-27 15:51:06 +08:00
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.cxButton1Click(Sender: TObject);
//begin
// ClearAllTextEditsByHint(panel4, '<27><>ˮ<EFBFBD><CBAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
//end;
//
//procedure TfrmClothInfoInput.cxButton2Click(Sender: TObject);
//begin
// ClearAllTextEditsByHint(panel2, '<27><>ϴˮ<CFB4><CBAE>');
//end;
//
//procedure TfrmClothInfoInput.TbDXClearClick(Sender: TObject);
//begin
// ClearAllTextEditsByHint(panel3, '<27><><EFBFBD>ͺ<EFBFBD><CDBA><EFBFBD><EFBFBD><EFBFBD>');
//end;
//
//procedure TfrmClothInfoInput.cxButton4Click(Sender: TObject);
//begin
// ClearAllTextEditsByHint(panel5, '<27><><EFBFBD>ݺ<EFBFBD><DDBA><EFBFBD><EFBFBD><EFBFBD>');
//end;
//
//procedure TfrmClothInfoInput.TbGJ2ClearClick(Sender: TObject);
//begin
// ClearAllTextEditsByHint(panel14, '<27>ν<EFBFBD><CEBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
//end;
//
//procedure TfrmClothInfoInput.TbGJ2ReplaceClick(Sender: TObject);
//begin
// FillAllTextEditsWithValue(panel14, '<27>ν<EFBFBD><CEBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', FindLastEditedTextEdit(panel14, '<27>ν<EFBFBD><CEBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'));
//end;
//
//procedure TfrmClothInfoInput.TbGJ3ClearClick(Sender: TObject);
//begin
// ClearAllTextEditsByHint(panel15, '<27>ν<EFBFBD><CEBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
//end;
//
//procedure TfrmClothInfoInput.TbGJ3ReplaceClick(Sender: TObject);
//begin
// FillAllTextEditsWithValue(panel15, '<27>ν<EFBFBD><CEBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', FindLastEditedTextEdit(panel15, '<27>ν<EFBFBD><CEBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'));
//end;
//
//procedure TfrmClothInfoInput.TbGJClearClick(Sender: TObject);
//begin
// ClearAllTextEditsByHint(panel6, '<27>ν<EFBFBD><CEBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
//end;
//
//procedure TfrmClothInfoInput.TbDX2ClearClick(Sender: TObject);
//begin
// ClearAllTextEditsByHint(panel12, '<27><><EFBFBD>ͺ<EFBFBD><CDBA><EFBFBD><EFBFBD><EFBFBD>');
//end;
//
//procedure TfrmClothInfoInput.TbDX2ReplaceClick(Sender: TObject);
//begin
// FillAllTextEditsWithValue(panel12, '<27><><EFBFBD>ͺ<EFBFBD><CDBA><EFBFBD><EFBFBD><EFBFBD>', FindLastEditedTextEdit(panel12, '<27><><EFBFBD>ͺ<EFBFBD><CDBA><EFBFBD><EFBFBD><EFBFBD>'));
//end;
//
//procedure TfrmClothInfoInput.TbDX3ClearClick(Sender: TObject);
//begin
// ClearAllTextEditsByHint(panel13, '<27><><EFBFBD>ͺ<EFBFBD><CDBA><EFBFBD><EFBFBD><EFBFBD>');
//end;
//
//procedure TfrmClothInfoInput.TbDX3ReplaceClick(Sender: TObject);
//begin
// FillAllTextEditsWithValue(panel13, '<27><><EFBFBD>ͺ<EFBFBD><CDBA><EFBFBD><EFBFBD><EFBFBD>', FindLastEditedTextEdit(panel13, '<27><><EFBFBD>ͺ<EFBFBD><CDBA><EFBFBD><EFBFBD><EFBFBD>'));
//end;
//
//procedure TfrmClothInfoInput.TbFSReplaceClick(Sender: TObject);
//begin
// FillAllTextEditsWithValue(panel4, '<27><>ˮ<EFBFBD><CBAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', FindLastEditedTextEdit(panel4, '<27><>ˮ<EFBFBD><CBAE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'));
//end;
11
2025-06-19 10:41:40 +08:00
1234
2025-06-06 13:56:41 +08:00
procedure TfrmClothInfoInput.CYColorKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmClothInfoInput.C_WidthBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmClothInfoInput.C_WidthBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
产品录入修改
2025-06-10 17:34:06 +08:00
procedure TfrmClothInfoInput.TbUpFileClick(Sender: TObject);
1234
2025-06-06 13:56:41 +08:00
begin
产品录入修改
2025-06-10 17:34:06 +08:00
// if trim(C_Code.Text) = '' then
// Exit;
// try
// frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
// with frmAttachmentUpload do
// begin
// FEditAuthority := True;
// fkeyNO := trim(C_Code.Text);
// fType := '<27><>ƷƷ<C6B7><C6B7><EFBFBD><EFBFBD>';
// if ShowModal = 1 then
// begin
//
// end;
// end;
// finally
// frmAttachmentUpload.Free;
// end;
1234
2025-06-06 13:56:41 +08:00
end;
1234
2025-06-16 13:48:11 +08:00
procedure TfrmClothInfoInput.Tv11fs_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmProductInfoSel := TfrmProductInfoSel.Create(Application);
with frmProductInfoSel do
begin
FSTKName := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
with Self.CDS_1 do
begin
Edit;
FieldByName('fs_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
FieldByName('fs_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value;
end;
end;
end;
finally
frmProductInfoSel.Free;
end;
end;
procedure TfrmClothInfoInput.Tv11fs_unitPropertiesEditValueChanged(Sender: TObject);
var
s: string;
begin
s := TcxTextEdit(Sender).EditingText;
if (s <> '') and (s[Length(s)] <> '%') then
begin
Tv1.Controller.FocusedColumn.EditValue := s + '%';
end;
end;
1234
2025-06-06 13:56:41 +08:00
procedure TfrmClothInfoInput.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
产品录入修改
2025-06-10 17:34:06 +08:00
// try
// frmZDYHelp := TfrmZDYHelp.Create(Application);
// with frmZDYHelp do
// begin
// flag := 'FtyType';
// flagname := '<27><><EFBFBD><EFBFBD>';
// 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();
1234
2025-06-06 13:56:41 +08:00
end;
1234
2025-06-16 13:48:11 +08:00
procedure TfrmClothInfoInput.Tv2fp_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmProductInfoSel := TfrmProductInfoSel.Create(Application);
with frmProductInfoSel do
begin
FSTKName := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
with Self.CDS_2 do
begin
Edit;
FieldByName('fp_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
FieldByName('fp_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value;
end;
end;
end;
finally
frmProductInfoSel.Free;
end;
end;
procedure TfrmClothInfoInput.Tv2fp_unitPropertiesEditValueChanged(Sender: TObject);
var
s: string;
begin
s := TcxTextEdit(Sender).EditingText;
if (s <> '') and (s[Length(s)] <> '%') then
begin
Tv2.Controller.FocusedColumn.EditValue := s + '%';
end;
end;
procedure TfrmClothInfoInput.Tv3gj_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmProductInfoSel := TfrmProductInfoSel.Create(Application);
with frmProductInfoSel do
begin
FSTKName := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
with Self.CDS_3 do
begin
Edit;
FieldByName('gj_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
FieldByName('gj_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value;
end;
end;
end;
finally
frmProductInfoSel.Free;
end;
end;
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.cxGridDBColumn14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
//begin
// try
// frmProductInfoSel := TfrmProductInfoSel.Create(Application);
// with frmProductInfoSel do
// begin
// FSTKName := '<27><><EFBFBD><EFBFBD>';
// if ShowModal = 1 then
// begin
// with Self.CDS_3_3 do
// begin
// Edit;
// FieldByName('gj_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
// FieldByName('gj_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value;
// end;
// end;
// end;
// finally
// frmProductInfoSel.Free;
// end;
//end;
1234
2025-06-27 15:51:06 +08:00
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.cxGridDBColumn19PropertiesEditValueChanged(Sender: TObject);
//var
// s: string;
//begin
// s := TcxTextEdit(Sender).EditingText;
// if (s <> '') and (s[Length(s)] <> '%') then
// begin
// Tv6.Controller.FocusedColumn.EditValue := s + '%';
// end;
//end;
1234
2025-06-27 15:51:06 +08:00
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
//begin
// try
// frmProductInfoSel := TfrmProductInfoSel.Create(Application);
// with frmProductInfoSel do
// begin
// FSTKName := '<27><><EFBFBD><EFBFBD>';
// if ShowModal = 1 then
// begin
// with Self.CDS_3_2 do
// begin
// Edit;
// FieldByName('gj_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value;
// FieldByName('gj_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value;
// end;
// end;
// end;
// finally
// frmProductInfoSel.Free;
// end;
//end;
1234
2025-06-27 15:51:06 +08:00
11
2025-07-09 16:55:19 +08:00
//procedure TfrmClothInfoInput.cxGridDBColumn6PropertiesEditValueChanged(Sender: TObject);
//var
// s: string;
//begin
// s := TcxTextEdit(Sender).EditingText;
// if (s <> '') and (s[Length(s)] <> '%') then
// begin
// Tv5.Controller.FocusedColumn.EditValue := s + '%';
// end;
//end;
//
//procedure TfrmClothInfoInput.Tv3gj_unitPropertiesEditValueChanged(Sender: TObject);
//var
// s: string;
//begin
// s := TcxTextEdit(Sender).EditingText;
// if (s <> '') and (s[Length(s)] <> '%') then
// begin
// Tv3.Controller.FocusedColumn.EditValue := s + '%';
// end;
//end;
1234
2025-06-16 13:48:11 +08:00
1234
2025-06-06 13:56:41 +08:00
end.
Reference in New Issue Copy Permalink