Group_99/D10szGerun
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

产品 合同 检验

Browse Source
This commit is contained in:
funa 2026-10-20 17:23:39 +08:00
parent 66e9c63b6e
commit 673a3c47b3
10 changed files with 300 additions and 408 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
A02基础产品管理/U_CraftInfoInput.dfm
View File

@ -444,7 +444,7 @@ object frmCraftInfoInput: TfrmCraftInfoInput
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 2 TabOrder = 2
Properties.ActivePage = cxTabSheet7 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
ClientRectBottom = 420 ClientRectBottom = 420
ClientRectLeft = 2 ClientRectLeft = 2
@ -944,6 +944,10 @@ object frmCraftInfoInput: TfrmCraftInfoInput
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = #32441#29256#22270 Caption = #32441#29256#22270
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel7: TPanel object Panel7: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
@ -2000,6 +2004,10 @@ object frmCraftInfoInput: TfrmCraftInfoInput
object cxTabSheet5: TcxTabSheet object cxTabSheet5: TcxTabSheet
Caption = #32463#32433#25490#21015 Caption = #32463#32433#25490#21015
ImageIndex = 4 ImageIndex = 4
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object warp_arrange: TMemo object warp_arrange: TMemo
Left = 0 Left = 0
Top = 0 Top = 0
@ -2019,6 +2027,10 @@ object frmCraftInfoInput: TfrmCraftInfoInput
object cxTabSheet6: TcxTabSheet object cxTabSheet6: TcxTabSheet
Caption = #32428#25490#21015 Caption = #32428#25490#21015
ImageIndex = 5 ImageIndex = 5
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object weft_arrange: TMemo object weft_arrange: TMemo
Left = 0 Left = 0
Top = 0 Top = 0

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

@ -10,9 +10,10 @@ object frmCraftInfoSel: TfrmCraftInfoSel
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
OnShow = FormShow
OnDestroy = FormDestroy OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object ToolBar1: TToolBar object ToolBar1: TToolBar
@ -23,7 +24,7 @@ object frmCraftInfoSel: TfrmCraftInfoSel
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
ButtonWidth = 91 ButtonWidth = 75
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
DisabledImages = DataLink_ClothInfo.ImageList_new32 DisabledImages = DataLink_ClothInfo.ImageList_new32
@ -109,8 +110,8 @@ object frmCraftInfoSel: TfrmCraftInfoSel
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True

2
A02基础产品管理/U_CraftInfoSel.pas
View File

@ -9,7 +9,7 @@ uses
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, cxLookAndFeels, cxClasses, cxControls, cxGridCustomView, cxGrid, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, dxScrollbarAnnotations, cxCheckBox; dxDateRanges, dxBarBuiltInMenu, dxScrollbarAnnotations, cxCheckBox, dxSkinWXI;
type type
TfrmCraftInfoSel = class(TForm) TfrmCraftInfoSel = class(TForm)

27
A02基础产品管理/U_TatClothInfo.dfm
View File

@ -85,7 +85,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = TBMLEditClick OnClick = TBMLEditClick
end end
object TBBindCraft: TToolButton object TBBindCraft: TToolButton
Left = 497 Left = 521
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #32465#23450#24037#33402 Caption = #32465#23450#24037#33402
@ -93,7 +93,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = TBBindCraftClick OnClick = TBBindCraftClick
end end
object tbStart: TToolButton object tbStart: TToolButton
Left = 521 Left = 616
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21551#29992 Caption = #21551#29992
@ -101,7 +101,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = tbStartClick OnClick = tbStartClick
end end
object tbPause: TToolButton object tbPause: TToolButton
Left = 592 Left = 687
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26242#20572#20351#29992 Caption = #26242#20572#20351#29992
@ -109,7 +109,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = tbPauseClick OnClick = tbPauseClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 687 Left = 782
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -117,7 +117,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = TBDelClick OnClick = TBDelClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 758 Left = 853
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26631#31614#25171#21360 Caption = #26631#31614#25171#21360
@ -125,7 +125,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 853 Left = 948
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #24037#33402#25171#21360 Caption = #24037#33402#25171#21360
@ -133,7 +133,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 948 Left = 1043
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -141,7 +141,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBUP: TToolButton object TBUP: TToolButton
Left = 1019 Left = 1114
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22270#29255#19978#20256 Caption = #22270#29255#19978#20256
@ -149,7 +149,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = TBUPClick OnClick = TBUPClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 1114 Left = 1209
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -157,7 +157,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1209 Left = 1304
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -354,6 +354,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 6
ExplicitTop = 66
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -379,6 +381,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ClothInfo.Default Styles.Header = DataLink_ClothInfo.Default
Width = 41 Width = 41
@ -429,6 +432,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Caption = #32428#23494 Caption = #32428#23494
DataBinding.FieldName = 'C_FinishLatitudeDensity' DataBinding.FieldName = 'C_FinishLatitudeDensity'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -437,6 +441,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Caption = #32463#23494 Caption = #32463#23494
DataBinding.FieldName = 'C_FinishLongitudeDensity' DataBinding.FieldName = 'C_FinishLongitudeDensity'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
@ -445,6 +450,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Caption = #32428#32433#35268#26684 Caption = #32428#32433#35268#26684
DataBinding.FieldName = 'C_LatitudeSpec' DataBinding.FieldName = 'C_LatitudeSpec'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
@ -453,6 +459,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Caption = #32463#32433#35268#26684 Caption = #32463#32433#35268#26684
DataBinding.FieldName = 'C_LongitudeSpec' DataBinding.FieldName = 'C_LongitudeSpec'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end

66
A02基础产品管理/U_TatClothInfo.pas
View File

@ -636,7 +636,6 @@ begin
adoqueryPicture.EnableControls; adoqueryPicture.EnableControls;
finally finally
jpg.free; jpg.free;
application.ProcessMessages;
end; end;
end; end;
@ -747,7 +746,12 @@ var
begin begin
fsj := 'select DISTINCT HXNAME name from TP_File where ISNULL(HXNAME,'''')<>'''' AND WBID=' + quotedstr(trim(CDS_1.fieldbyname('BCIID').AsString)); fsj := 'select DISTINCT HXNAME name from TP_File where ISNULL(HXNAME,'''')<>'''' AND WBID=' + quotedstr(trim(CDS_1.fieldbyname('BCIID').AsString));
cbbHX.OnChange := nil;
try
SInitComBoxBySql(ADOQueryTemp, cbbHX, True, fsj); SInitComBoxBySql(ADOQueryTemp, cbbHX, True, fsj);
finally
cbbHX.OnChange := cbbHXChange;
end;
InitImage(); InitImage();
end; end;
@ -988,13 +992,27 @@ end;
procedure TfrmTatClothInfo.TBBindCraftClick(Sender: TObject); procedure TfrmTatClothInfo.TBBindCraftClick(Sender: TObject);
var var
MBCIIDS, MCRID: string; MBCIIDS, MCRID, MCRCode, MCodeList: string;
MIds: TStringList;
i, MCount: Integer;
begin begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
Exit; Exit;
//勾选优先,未勾选时取当前行 //兜底提交还处于编辑状态的勾选值
MBCIIDS := ''; if CDS_1.State in dsEditModes then
CDS_1.Post;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
//直接遍历CDS收集勾选行(与启用/暂停一致),不经SelCDSKey拼串再拆串
MIds := TStringList.Create;
try
MCodeList := '';
CDS_1.DisableControls; CDS_1.DisableControls;
try try
CDS_1.First; CDS_1.First;
@ -1002,20 +1020,38 @@ begin
begin begin
if CDS_1.fieldbyname('SSel').AsBoolean then if CDS_1.fieldbyname('SSel').AsBoolean then
begin begin
if MBCIIDS <> '' then MIds.Add(Trim(CDS_1.fieldbyname('BCIID').AsString));
MBCIIDS := MBCIIDS + ',' + QuotedStr(Trim(CDS_1.fieldbyname('BCIID').AsString)) if MCodeList <> '' then
else MCodeList := MCodeList + #13#10;
MBCIIDS := QuotedStr(Trim(CDS_1.fieldbyname('BCIID').AsString)); MCodeList := MCodeList + Trim(CDS_1.fieldbyname('C_Code').AsString);
end; end;
CDS_1.Next; CDS_1.Next;
end; end;
CDS_1.Locate('SSel', True, []);
finally finally
CDS_1.EnableControls; CDS_1.EnableControls;
end; end;
if MBCIIDS = '' then
MBCIIDS := QuotedStr(Trim(CDS_1.fieldbyname('BCIID').AsString)); MCount := MIds.Count;
if MCount = 0 then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
MBCIIDS := '';
for i := 0 to MCount - 1 do
begin
if MBCIIDS <> '' then
MBCIIDS := MBCIIDS + ',';
MBCIIDS := MBCIIDS + QuotedStr(MIds[i]);
end;
finally
MIds.Free;
end;
MCRID := ''; MCRID := '';
MCRCode := '';
try try
frmCraftInfoSel := TfrmCraftInfoSel.Create(Application); frmCraftInfoSel := TfrmCraftInfoSel.Create(Application);
with frmCraftInfoSel do with frmCraftInfoSel do
@ -1023,7 +1059,10 @@ begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
if not CDS_1.IsEmpty then if not CDS_1.IsEmpty then
begin
MCRID := Trim(CDS_1.fieldbyname('CRID').AsString); MCRID := Trim(CDS_1.fieldbyname('CRID').AsString);
MCRCode := Trim(CDS_1.fieldbyname('CR_Code').AsString);
end;
end; end;
end; end;
finally finally
@ -1032,6 +1071,11 @@ begin
if Trim(MCRID) = '' then if Trim(MCRID) = '' then
Exit; Exit;
if Application.MessageBox(
PChar('确定将工艺 [' + MCRCode + '] 绑定到以下 ' + IntToStr(MCount) + ' 个产品吗?' + #13#10 + MCodeList),
'提示', 32 + 4) <> IDYES then
Exit;
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
//绑定动作本身只写CRID(工艺字段值由静默同步维护) //绑定动作本身只写CRID(工艺字段值由静默同步维护)
@ -1055,7 +1099,7 @@ begin
SQL.Add(',getdate() '); SQL.Add(',getdate() ');
SQL.Add(',' + QuotedStr(Trim(self.Caption))); SQL.Add(',' + QuotedStr(Trim(self.Caption)));
SQL.Add(',' + QuotedStr(Trim('绑定工艺'))); SQL.Add(',' + QuotedStr(Trim('绑定工艺')));
SQL.Add(',' + QuotedStr(Trim(MBCIIDS + ' -> ' + MCRID))); SQL.Add(',' + QuotedStr(Trim(MCRID + ':' + MBCIIDS)));
SQL.Add(',' + QuotedStr(Trim('成功'))); SQL.Add(',' + QuotedStr(Trim('成功')));
SQL.Add(')'); SQL.Add(')');
ExecSQL; ExecSQL;

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

@ -676,7 +676,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
object reed_width: TEdit object reed_width: TEdit
Tag = 2 Tag = 2
Left = 93 Left = 93
Top = 127 Top = 124
Width = 567 Width = 567
Height = 18 Height = 18
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET

1
B01基础合同管理/U_SalesConInPut.dfm
View File

@ -11,7 +11,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
OldCreateOrder = True OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
WindowState = wsMaximized WindowState = wsMaximized
ExplicitLeft = -200
ExplicitWidth = 1522 ExplicitWidth = 1522
ExplicitHeight = 730 ExplicitHeight = 730
PixelsPerInch = 96 PixelsPerInch = 96

2
B01基础合同管理/U_SalesConInPut.pas
View File

@ -843,7 +843,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from Trade_Plan_Sub where ConSId=''' + Trim(Order_Sub.fieldbyname('ConSId').AsString) + ''''); sql.Add('select * from Tat_Plan_Sub where ConSId=''' + Trim(Order_Sub.fieldbyname('ConSId').AsString) + '''');
open; open;
end; end;
if ADOTemp.IsEmpty = false then if ADOTemp.IsEmpty = false then

46
E03梭织坯布检验/U_TatMachInsp.dfm
View File

@ -2767,6 +2767,14 @@
Options.Editing = False Options.Editing = False
Width = 50 Width = 50
end end
object Tv3CARNO: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'CARNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = Tv3 GridView = Tv3
@ -2925,6 +2933,10 @@
object 查看: TcxTabSheet object 查看: TcxTabSheet
Caption = #26597#30475 Caption = #26597#30475
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
@ -3609,7 +3621,7 @@
object Panel3: TPanel [4] object Panel3: TPanel [4]
Left = 8 Left = 8
Top = 508 Top = 508
Width = 1086 Width = 361
Height = 209 Height = 209
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -3796,6 +3808,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton84: TSpeedButton object SpeedButton84: TSpeedButton
@ -3810,6 +3823,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton85: TSpeedButton object SpeedButton85: TSpeedButton
@ -3824,6 +3838,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton86: TSpeedButton object SpeedButton86: TSpeedButton
@ -3838,6 +3853,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton87: TSpeedButton object SpeedButton87: TSpeedButton
@ -3852,6 +3868,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton88: TSpeedButton object SpeedButton88: TSpeedButton
@ -3866,6 +3883,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton89: TSpeedButton object SpeedButton89: TSpeedButton
@ -3880,6 +3898,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton90: TSpeedButton object SpeedButton90: TSpeedButton
@ -3894,6 +3913,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton91: TSpeedButton object SpeedButton91: TSpeedButton
@ -3908,6 +3928,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton92: TSpeedButton object SpeedButton92: TSpeedButton
@ -3922,6 +3943,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton93: TSpeedButton object SpeedButton93: TSpeedButton
@ -3937,6 +3959,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton94: TSpeedButton object SpeedButton94: TSpeedButton
@ -3951,6 +3974,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton95: TSpeedButton object SpeedButton95: TSpeedButton
@ -3965,6 +3989,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton96: TSpeedButton object SpeedButton96: TSpeedButton
@ -3979,6 +4004,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton97: TSpeedButton object SpeedButton97: TSpeedButton
@ -3993,6 +4019,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton98: TSpeedButton object SpeedButton98: TSpeedButton
@ -4007,6 +4034,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton99: TSpeedButton object SpeedButton99: TSpeedButton
@ -4021,6 +4049,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton100: TSpeedButton object SpeedButton100: TSpeedButton
@ -4035,6 +4064,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton101: TSpeedButton object SpeedButton101: TSpeedButton
@ -4049,6 +4079,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton102: TSpeedButton object SpeedButton102: TSpeedButton
@ -4063,6 +4094,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton103: TSpeedButton object SpeedButton103: TSpeedButton
@ -4077,6 +4109,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton104: TSpeedButton object SpeedButton104: TSpeedButton
@ -4091,6 +4124,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton105: TSpeedButton object SpeedButton105: TSpeedButton
@ -4106,6 +4140,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton106: TSpeedButton object SpeedButton106: TSpeedButton
@ -4120,6 +4155,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton107: TSpeedButton object SpeedButton107: TSpeedButton
@ -4135,6 +4171,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton108: TSpeedButton object SpeedButton108: TSpeedButton
@ -4149,6 +4186,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton109: TSpeedButton object SpeedButton109: TSpeedButton
@ -4163,6 +4201,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton110: TSpeedButton object SpeedButton110: TSpeedButton
@ -4177,6 +4216,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton111: TSpeedButton object SpeedButton111: TSpeedButton
@ -4191,6 +4231,7 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton112: TSpeedButton object SpeedButton112: TSpeedButton
@ -4205,10 +4246,11 @@
Font.Name = #40657#20307 Font.Name = #40657#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
Visible = False
OnClick = SpeedButton1Click OnClick = SpeedButton1Click
end end
object SpeedButton113: TSpeedButton object SpeedButton113: TSpeedButton
Left = 1013 Left = 288
Top = 1 Top = 1
Width = 70 Width = 70
Height = 70 Height = 70

291
E03梭织坯布检验/U_TatMachInsp.pas
View File

File diff suppressed because it is too large Load Diff