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

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

@ -10,9 +10,10 @@ object frmCraftInfoSel: TfrmCraftInfoSel
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnShow = FormShow
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
@ -23,7 +24,7 @@ object frmCraftInfoSel: TfrmCraftInfoSel
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_ClothInfo.ImageList_new32
@ -109,8 +110,8 @@ object frmCraftInfoSel: TfrmCraftInfoSel
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
@ -122,123 +123,123 @@ object frmCraftInfoSel: TfrmCraftInfoSel
OptionsData.Editing = False
OptionsView.GroupByBox = False
Styles.Header = DataLink_ClothInfo.Default
object Tv1CR_Code: TcxGridDBColumn
Caption = #24037#33402#32534#21495
DataBinding.FieldName = 'CR_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 92
end
object Tv1CR_Name: TcxGridDBColumn
Caption = #24037#33402#21517#31216
DataBinding.FieldName = 'CR_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 150
end
object Tv1C_Width: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1C_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 81
end
object Tv1C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1C_YarnQty: TcxGridDBColumn
Caption = #22836#32441
DataBinding.FieldName = 'C_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1head_count: TcxGridDBColumn
Caption = #22836#20221
DataBinding.FieldName = 'head_count'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1strip_width: TcxGridDBColumn
Caption = #26465#23485
DataBinding.FieldName = 'strip_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1C_MachLatitudeDensity: TcxGridDBColumn
Caption = #19978#26426#32428#23494
DataBinding.FieldName = 'C_MachLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 81
end
object Tv1row_count_top: TcxGridDBColumn
Caption = #19978#25490#25968
DataBinding.FieldName = 'row_count_top'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1displace: TcxGridDBColumn
Caption = #20301#31227
DataBinding.FieldName = 'displace'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1reed_width: TcxGridDBColumn
Caption = #23450#24133#31576
DataBinding.FieldName = 'reed_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 81
end
object Tv1C_ReedNo: TcxGridDBColumn
Caption = #31576#21495
DataBinding.FieldName = 'C_ReedNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1CR_Code: TcxGridDBColumn
Caption = #24037#33402#32534#21495
DataBinding.FieldName = 'CR_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 92
end
object Tv1CR_Name: TcxGridDBColumn
Caption = #24037#33402#21517#31216
DataBinding.FieldName = 'CR_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 150
end
object Tv1C_Width: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1C_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 81
end
object Tv1C_Color: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1C_YarnQty: TcxGridDBColumn
Caption = #22836#32441
DataBinding.FieldName = 'C_YarnQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1head_count: TcxGridDBColumn
Caption = #22836#20221
DataBinding.FieldName = 'head_count'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1strip_width: TcxGridDBColumn
Caption = #26465#23485
DataBinding.FieldName = 'strip_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1C_MachLatitudeDensity: TcxGridDBColumn
Caption = #19978#26426#32428#23494
DataBinding.FieldName = 'C_MachLatitudeDensity'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 81
end
object Tv1row_count_top: TcxGridDBColumn
Caption = #19978#25490#25968
DataBinding.FieldName = 'row_count_top'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1displace: TcxGridDBColumn
Caption = #20301#31227
DataBinding.FieldName = 'displace'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
object Tv1reed_width: TcxGridDBColumn
Caption = #23450#24133#31576
DataBinding.FieldName = 'reed_width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 81
end
object Tv1C_ReedNo: TcxGridDBColumn
Caption = #31576#21495
DataBinding.FieldName = 'C_ReedNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ClothInfo.Default
Width = 66
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

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

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

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

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

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

@ -636,7 +636,6 @@ begin
adoqueryPicture.EnableControls;
finally
jpg.free;
application.ProcessMessages;
end;
end;
@ -747,7 +746,12 @@ var
begin
fsj := 'select DISTINCT HXNAME name from TP_File where ISNULL(HXNAME,'''')<>'''' AND WBID=' + quotedstr(trim(CDS_1.fieldbyname('BCIID').AsString));
SInitComBoxBySql(ADOQueryTemp, cbbHX, True, fsj);
cbbHX.OnChange := nil;
try
SInitComBoxBySql(ADOQueryTemp, cbbHX, True, fsj);
finally
cbbHX.OnChange := cbbHXChange;
end;
InitImage();
end;
@ -988,34 +992,66 @@ end;
procedure TfrmTatClothInfo.TBBindCraftClick(Sender: TObject);
var
MBCIIDS, MCRID: string;
MBCIIDS, MCRID, MCRCode, MCodeList: string;
MIds: TStringList;
i, MCount: Integer;
begin
if CDS_1.IsEmpty then
Exit;
//勾选优先,未勾选时取当前行
MBCIIDS := '';
CDS_1.DisableControls;
//兜底提交还处于编辑状态的勾选值
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
CDS_1.First;
while not CDS_1.Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
MCodeList := '';
CDS_1.DisableControls;
try
CDS_1.First;
while not CDS_1.Eof do
begin
if MBCIIDS <> '' then
MBCIIDS := MBCIIDS + ',' + QuotedStr(Trim(CDS_1.fieldbyname('BCIID').AsString))
else
MBCIIDS := QuotedStr(Trim(CDS_1.fieldbyname('BCIID').AsString));
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
MIds.Add(Trim(CDS_1.fieldbyname('BCIID').AsString));
if MCodeList <> '' then
MCodeList := MCodeList + #13#10;
MCodeList := MCodeList + Trim(CDS_1.fieldbyname('C_Code').AsString);
end;
CDS_1.Next;
end;
CDS_1.Next;
CDS_1.Locate('SSel', True, []);
finally
CDS_1.EnableControls;
end;
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
CDS_1.EnableControls;
MIds.Free;
end;
if MBCIIDS = '' then
MBCIIDS := QuotedStr(Trim(CDS_1.fieldbyname('BCIID').AsString));
MCRID := '';
MCRCode := '';
try
frmCraftInfoSel := TfrmCraftInfoSel.Create(Application);
with frmCraftInfoSel do
@ -1023,7 +1059,10 @@ begin
if ShowModal = 1 then
begin
if not CDS_1.IsEmpty then
begin
MCRID := Trim(CDS_1.fieldbyname('CRID').AsString);
MCRCode := Trim(CDS_1.fieldbyname('CR_Code').AsString);
end;
end;
end;
finally
@ -1032,6 +1071,11 @@ begin
if Trim(MCRID) = '' then
Exit;
if Application.MessageBox(
PChar('确定将工艺 [' + MCRCode + '] 绑定到以下 ' + IntToStr(MCount) + ' 个产品吗?' + #13#10 + MCodeList),
'提示', 32 + 4) <> IDYES then
Exit;
try
ADOQueryCmd.Connection.BeginTrans;
//绑定动作本身只写CRID(工艺字段值由静默同步维护)
@ -1055,7 +1099,7 @@ begin
SQL.Add(',getdate() ');
SQL.Add(',' + QuotedStr(Trim(self.Caption)));
SQL.Add(',' + QuotedStr(Trim('绑定工艺')));
SQL.Add(',' + QuotedStr(Trim(MBCIIDS + ' -> ' + MCRID)));
SQL.Add(',' + QuotedStr(Trim(MCRID + ':' + MBCIIDS)));
SQL.Add(',' + QuotedStr(Trim('成功')));
SQL.Add(')');
ExecSQL;

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

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

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

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

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

@ -843,7 +843,7 @@ begin
begin
Close;
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;
end;
if ADOTemp.IsEmpty = false then

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

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

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

File diff suppressed because it is too large Load Diff