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

拆匹

Browse Source
This commit is contained in:
“ddf” 2025-02-20 17:32:25 +08:00
parent 551a1d77a0
commit 1d091919bd
5 changed files with 183 additions and 1478 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
T02贸易汇总仓库/U_ItemizedListQtyInPut.dfm
View File

@ -20,8 +20,6 @@ inherited frmItemizedListQtyInPut: TfrmItemizedListQtyInPut
Align = alClient Align = alClient
Caption = 'pnl1' Caption = 'pnl1'
TabOrder = 0 TabOrder = 0
ExplicitWidth = 595
ExplicitHeight = 525
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Tag = 2 Tag = 2
Left = 1 Left = 1
@ -31,8 +29,6 @@ inherited frmItemizedListQtyInPut: TfrmItemizedListQtyInPut
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 2
ExplicitTop = 73
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -199,7 +195,6 @@ inherited frmItemizedListQtyInPut: TfrmItemizedListQtyInPut
Height = 41 Height = 41
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
ExplicitWidth = 593
object Label9: TLabel object Label9: TLabel
Left = 33 Left = 33
Top = 7 Top = 7

2
T02贸易汇总仓库/U_ItemizedListQtyInPut.pas
View File

@ -436,7 +436,7 @@ begin
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp); FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
end; end;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Cloth_IO', 0); RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Cloth_IO', 0);
FieldByName('STKName').Value := '˛źĆĽ˛Öżâ'; FieldByName('STKName').Value := 'ĂłŇײźĆĽ';
FieldByName('IOFlag').Value := 'Èë¿â'; FieldByName('IOFlag').Value := 'Èë¿â';
FieldByName('IOQtyFlag').Value := 1; FieldByName('IOQtyFlag').Value := 1;
FieldByName('Piece').Value := 1; FieldByName('Piece').Value := 1;

2
T03贸易布匹检验/DjdMachineInsp.dproj
View File

@ -161,7 +161,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10myLvsheng\T03贸易布匹检验\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10xhGemei\T03贸易布匹检验\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">

235
T03贸易布匹检验/U_MachRollMain.dfm
View File

@ -27,16 +27,8 @@ inherited frmMachRollMain: TfrmMachRollMain
OptionsItem.SizableHorz = True OptionsItem.SizableHorz = True
OptionsItem.SizableVert = True OptionsItem.SizableVert = True
OnDblClick = dxLayoutControl_packDblClick OnDblClick = dxLayoutControl_packDblClick
ExplicitHeight = 791 ExplicitLeft = 5
object Piece: TcxTextEdit ExplicitTop = -5
Left = 239
Top = 154
Properties.ReadOnly = True
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 8
Width = 161
end
object Qty: TcxTextEdit object Qty: TcxTextEdit
Left = 79 Left = 79
Top = 154 Top = 154
@ -110,30 +102,30 @@ inherited frmMachRollMain: TfrmMachRollMain
Properties.OnChange = InputLenPropertiesChange Properties.OnChange = InputLenPropertiesChange
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 9 TabOrder = 8
OnClick = edtScanEnter OnClick = edtScanEnter
OnKeyPress = InputLenKeyPress OnKeyPress = InputLenKeyPress
Height = 38 Height = 35
Width = 132 Width = 132
end end
object BTPrint: TButton object BTPrint: TButton
Left = 259 Left = 259
Top = 256 Top = 253
Width = 140 Width = 120
Height = 59 Height = 59
Caption = #25552' '#20132 Caption = #25552' '#20132
TabOrder = 13 TabOrder = 11
OnClick = BTPrintClick OnClick = BTPrintClick
end end
object Tare: TcxTextEdit object Tare: TcxTextEdit
Tag = 999 Tag = 999
Left = 158 Left = 158
Top = 256 Top = 253
AutoSize = False AutoSize = False
Properties.OnChange = InputLenPropertiesChange Properties.OnChange = InputLenPropertiesChange
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 12 TabOrder = 10
OnClick = edtScanEnter OnClick = edtScanEnter
OnKeyPress = InputLenKeyPress OnKeyPress = InputLenKeyPress
Height = 59 Height = 59
@ -142,12 +134,12 @@ inherited frmMachRollMain: TfrmMachRollMain
object Coefficient: TcxTextEdit object Coefficient: TcxTextEdit
Tag = 999 Tag = 999
Left = 79 Left = 79
Top = 324 Top = 321
AutoSize = False AutoSize = False
Properties.ReadOnly = False Properties.ReadOnly = False
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 14 TabOrder = 12
OnClick = edtScanEnter OnClick = edtScanEnter
OnKeyPress = InputLenKeyPress OnKeyPress = InputLenKeyPress
Height = 37 Height = 37
@ -156,12 +148,12 @@ inherited frmMachRollMain: TfrmMachRollMain
object InputWeight: TcxTextEdit object InputWeight: TcxTextEdit
Tag = 999 Tag = 999
Left = 79 Left = 79
Top = 256 Top = 253
AutoSize = False AutoSize = False
Properties.OnChange = InputLenPropertiesChange Properties.OnChange = InputLenPropertiesChange
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 11 TabOrder = 9
OnClick = edtScanEnter OnClick = edtScanEnter
OnKeyPress = InputLenKeyPress OnKeyPress = InputLenKeyPress
Height = 59 Height = 59
@ -174,7 +166,7 @@ inherited frmMachRollMain: TfrmMachRollMain
AutoSize = False AutoSize = False
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 18 TabOrder = 16
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
OnKeyPress = InputLenKeyPress OnKeyPress = InputLenKeyPress
@ -183,12 +175,12 @@ inherited frmMachRollMain: TfrmMachRollMain
end end
object AOrdDefNote1: TcxRichEdit object AOrdDefNote1: TcxRichEdit
Left = 1 Left = 1
Top = 382 Top = 379
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.ScrollBars = ssBoth Properties.ScrollBars = ssBoth
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 16 TabOrder = 14
Height = 206 Height = 206
Width = 181 Width = 181
end end
@ -204,31 +196,15 @@ inherited frmMachRollMain: TfrmMachRollMain
Properties.ShowFocusRect = False Properties.ShowFocusRect = False
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 19 TabOrder = 17
Visible = False Visible = False
Height = 122 Height = 122
Width = 280 Width = 280
end end
object grade: TcxComboBox
Left = 305
Top = 209
AutoSize = False
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
#27491#21697
#27425#21697)
Style.HotTrack = False
Style.TransparentBorder = False
TabOrder = 10
Text = #27491#21697
OnKeyPress = InputLenKeyPress
Height = 38
Width = 94
end
object lblRuleConversion: TcxComboBox object lblRuleConversion: TcxComboBox
Tag = 2 Tag = 2
Left = 140 Left = 140
Top = 324 Top = 321
AutoSize = False AutoSize = False
Properties.DropDownListStyle = lsEditFixedList Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -243,7 +219,7 @@ inherited frmMachRollMain: TfrmMachRollMain
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 15 TabOrder = 13
Text = #26080#38656#36716#25442 Text = #26080#38656#36716#25442
Height = 37 Height = 37
Width = 102 Width = 102
@ -251,12 +227,12 @@ inherited frmMachRollMain: TfrmMachRollMain
object packnote: TcxMemo object packnote: TcxMemo
Tag = 999 Tag = 999
Left = 191 Left = 191
Top = 382 Top = 379
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 17 TabOrder = 15
Height = 206 Height = 206
Width = 199 Width = 199
end end
@ -287,7 +263,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 23 TabOrder = 21
Visible = False Visible = False
Width = 124 Width = 124
end end
@ -298,7 +274,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 24 TabOrder = 22
Text = '100' Text = '100'
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
@ -312,7 +288,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Properties.ReadOnly = True Properties.ReadOnly = True
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 25 TabOrder = 23
Visible = False Visible = False
Width = 168 Width = 168
end end
@ -321,7 +297,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 26 TabOrder = 24
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
@ -331,7 +307,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 27 TabOrder = 25
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
@ -341,7 +317,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 28 TabOrder = 26
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
@ -351,7 +327,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 29 TabOrder = 27
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
@ -361,7 +337,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 30 TabOrder = 28
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
@ -371,7 +347,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 31 TabOrder = 29
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
@ -382,7 +358,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Width = 48 Width = 48
Height = 33 Height = 33
Caption = #30721#21333 Caption = #30721#21333
TabOrder = 32 TabOrder = 30
Visible = False Visible = False
OnClick = bt_printmdClick OnClick = bt_printmdClick
end end
@ -391,7 +367,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 33 TabOrder = 31
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
@ -401,7 +377,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 34 TabOrder = 32
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
@ -411,7 +387,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Top = 10000 Top = 10000
Style.HotTrack = False Style.HotTrack = False
Style.TransparentBorder = False Style.TransparentBorder = False
TabOrder = 35 TabOrder = 33
Visible = False Visible = False
OnClick = edtScanEnter OnClick = edtScanEnter
Width = 121 Width = 121
@ -571,15 +547,6 @@ inherited frmMachRollMain: TfrmMachRollMain
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
Index = 1 Index = 1
end end
object dxLayoutItem9: TdxLayoutItem
Parent = dxLayoutGroup_plan_2
CaptionOptions.Text = #21305#25968
Control = Piece
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalWidth = 144
ControlOptions.ShowBorder = False
Index = 3
end
object dxLayoutItem10: TdxLayoutItem object dxLayoutItem10: TdxLayoutItem
Parent = dxLayoutGroup_plan_2 Parent = dxLayoutGroup_plan_2
CaptionOptions.Text = #21345#21495 CaptionOptions.Text = #21345#21495
@ -818,18 +785,6 @@ inherited frmMachRollMain: TfrmMachRollMain
Parent = dxLayoutGroup_do2 Parent = dxLayoutGroup_do2
Index = 0 Index = 0
end end
object dxLayoutItem_grade: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup5
AlignVert = avClient
SizeOptions.Width = 134
AllowRemove = False
CaptionOptions.Text = '[COLOR=Red][SIZE=12]'#31561#32423'[/COLOR][/SIZE]'
Control = grade
ControlOptions.OriginalHeight = 38
ControlOptions.OriginalWidth = 94
ControlOptions.ShowBorder = False
Index = 2
end
object dxLayoutItem14: TdxLayoutItem object dxLayoutItem14: TdxLayoutItem
Parent = dxLayoutAutoCreatedGroup4 Parent = dxLayoutAutoCreatedGroup4
AlignVert = avClient AlignVert = avClient
@ -1001,16 +956,8 @@ inherited frmMachRollMain: TfrmMachRollMain
ImageIndex = 21 ImageIndex = 21
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TprintPack: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21253#26631#31614
ImageIndex = 21
OnClick = TprintPackClick
end
object Trolldel: TToolButton object Trolldel: TToolButton
Left = 138 Left = 63
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -1018,15 +965,14 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = TrolldelClick OnClick = TrolldelClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 201 Left = 126
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #30133#28857#31649#29702 Caption = #30133#28857#31649#29702
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton4Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 288 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21367#35774#32622 Caption = #25171#21367#35774#32622
@ -1034,7 +980,7 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 375 Left = 300
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -1042,15 +988,14 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object Tlog: TToolButton object Tlog: TToolButton
Left = 462 Left = 387
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26085#24535 Caption = #26085#24535
ImageIndex = 30 ImageIndex = 30
OnClick = TlogClick
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 525 Left = 450
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -1072,7 +1017,6 @@ inherited frmMachRollMain: TfrmMachRollMain
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
OnCustomDrawCell = Tv3CustomDrawCell OnCustomDrawCell = Tv3CustomDrawCell
OnFocusedRecordChanged = Tv3FocusedRecordChanged
DataController.DataSource = ds_3 DataController.DataSource = ds_3
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -1185,39 +1129,15 @@ inherited frmMachRollMain: TfrmMachRollMain
Options.Editing = False Options.Editing = False
Width = 54 Width = 54
end end
object Tv3PacketNo: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'PacketNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 57
end
object Tv3BatchNO: TcxGridDBColumn
Caption = #26412#21378#32568#21495
DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
end
object tv3CIID: TcxGridDBColumn object tv3CIID: TcxGridDBColumn
Caption = #21367#26465#30721 Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID' DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Sorting = False Options.Sorting = False
Width = 112 Width = 112
end end
object Tv3FtyPCId: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'FtyPCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
GridView = Tv3 GridView = Tv3
@ -1225,8 +1145,8 @@ inherited frmMachRollMain: TfrmMachRollMain
end end
end end
object cxGroupBox_keys: TcxGroupBox [2] object cxGroupBox_keys: TcxGroupBox [2]
Left = 56 Left = 8
Top = 408 Top = 390
Caption = #34394#25311#38190#30424 Caption = #34394#25311#38190#30424
Style.LookAndFeel.NativeStyle = False Style.LookAndFeel.NativeStyle = False
StyleDisabled.LookAndFeel.NativeStyle = False StyleDisabled.LookAndFeel.NativeStyle = False
@ -1253,80 +1173,35 @@ inherited frmMachRollMain: TfrmMachRollMain
ExplicitTop = 7 ExplicitTop = 7
ExplicitWidth = 311 ExplicitWidth = 311
ExplicitHeight = 206 ExplicitHeight = 206
inherited SpeedButton1: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end
inherited SpeedButton4: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end
inherited SpeedButton7: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end
inherited SpeedButton2: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end
inherited SpeedButton5: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end
inherited SpeedButton8: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end
inherited SpeedButton3: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end
inherited SpeedButton6: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end
inherited SpeedButton9: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end
inherited SpeedButton_back: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton_backClick
end
inherited SpeedButton0: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end
inherited SpeedButton_dot: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end
inherited SpeedButton_yc: TSpeedButton inherited SpeedButton_yc: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton_ycClick OnClick = FrameKeyBoard1SpeedButton_ycClick
end end
inherited SpeedButton_zdykey2: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end
inherited SpeedButton_zdykey1: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end
inherited SpeedButton10: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end
end end
end end
object MovePanel1: TMovePanel object MovePanel1: TMovePanel
Left = 89 Left = 85
Top = -23 Top = -29
Width = 237 Width = 237
Height = 42 Height = 45
BevelOuter = bvNone BevelOuter = bvNone
DockSite = True DockSite = True
ParentColor = True ParentBackground = False
TabOrder = 1 TabOrder = 1
end end
end end
inherited loadProcess: TPanel inherited loadProcess: TPanel
Left = 483 Left = 531
Top = 157 Top = 173
Width = 177 Width = 177
ExplicitLeft = 483 ExplicitLeft = 531
ExplicitTop = 157 ExplicitTop = 173
ExplicitWidth = 177 ExplicitWidth = 177
end end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Left = 483 Left = 531
Top = 121 Top = 125
ExplicitLeft = 483 ExplicitLeft = 531
ExplicitTop = 121 ExplicitTop = 125
ExplicitHeight = 29 ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

1417
T03贸易布匹检验/U_MachRollMain.pas
View File

File diff suppressed because it is too large Load Diff