繼承問題?(50分)

有一個基類TBaseDB,在一數據Action的OnExcute事件中調用復制的過程.在窗體指定ToolButton1的Action為這個復制的Action.接著創建兩子類分別為A,B,奇怪的是執行過程中,點擊子類A的ToolButton1能實現復制,但是B的ToolButton1怎麼點都沒反應.然后試著刪掉基類的ToolButton1,保存后關閉程序再打開程序,接著打開子類A的窗體,提示:
Modifications to component ToolButton1 were recorded in form A but the ancestor component was not found in form TBaseDB

1.Component was deleted,delete reference.
2,component was renamed to:
3.Create component as new on the descendent.

然后打開B類的子窗體而沒有提示,我想問題就出在這里,請大俠們幫幫忙!

你的TBaseDB是继承于TForm吧？

由于在基类中删除了这个TToolButton所以派生类中自然就会提示你基类中已经改变了这个基类，这里选择１即可。。。重新放TToolButton就可以了。。

在Ｄｅｌｐｈｉ中的自动生成事件中都为可重载事件，所以如果在派生类中写过或者尝试写过这个TTool Button的Click事件，那么它就被重载了。。

田伯光:你說的我都明白,我的問題是子類A的ToolButton1 OnExecute事件能執行,而子類B的ToolButton1 OnExecute事件不能執行.(說明:A與B的設置相同)
請再指教!

你打开B的dfm看看，多半是它的ToolButton1.OnExecute被置为空了，重设一下即可。

to:dreamisx
請告訴我具體的操作方法,謝謝!

toelphiMatrix
我在线关注一下吧!!!

如果直接把代码移植过去还是不行的话，肯定是类创建的问题了

对于这种情况，建议你重建B子类

to:huangsong
就算你的方法行的話,我可得累死了,那麼子窗體,那不是每個都要重建.經過測試,在TooBar中再加一個ToolButton,指定復制的Action,執行程序后,兩個ToolButton都能實現復制,但刪除后保留第一個,又不行了,奇怪!
有沒有別的比較快速的方法?

新建A窗口的时候,是不是选择基类继承的?
新建B窗口的时候,是不是选择TForm继承,然后改.dfm的Class(TForm)为Class(你的基类)的?

查看B窗口的源.dfm文件,看第一行第一个关键字是Object还是Inherited,要改为Inherited.
如果本来就是Inherited,删除.dfm文件中B子类ToolButton1相关的属性设置

指定他们的容器或者parent。

一个销售管理系统,总部在青岛,十几个销售掉分布在烟台,济南等地,主要功能就是个进销存管理,后期可能还要一个客户管理
有愿意做的请和我联系，价格在10万以下

顶一下 !

To:ysai
從一開始A,B都是從基類繼承的.
ToolButton1相关的属性设置在B類的DFM中找不到,就算加上了,還是同樣的問題.

各位大俠,問題還是沒法解決啊.

不會就這樣結局了吧?請大家出出絕招.

這麼長時間了,問題還沒解決,難道想不結貼都不行嗎?

你新建一个简单的类TBaseDB和A,B两个子类,然后将它们的dfm贴出来.

類TBaseDB的DFM代碼如下:
inherited FrmBaseSEdit: TFrmBaseSEdit
Left = 195
Top = 112
Width = 484
Height = 385
Caption = #31777#21934#32232#36655#31383#39636#27169#29256
Position = poMainFormCenter
PixelsPerInch = 96
TextHeight = 12
inherited Panel1: TPanel
Width = 476
Height = 270
object HQSplitter1: THQSplitter
Left = 0
Top = 75
Width = 476
Height = 5
Cursor = crVSplit
Hint = #40670#25802#27492#34389#25110#20197#25918#22823#25976#25818#28687#35261#21312','#20877#27425#40670#25802#21063#24674#24489#21407#29376
Align = alTop
Beveled = True
Color = clYellow
ParentColor = False
Control = Panel2
HideControl = False
ShrinkColor = clBlack
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 476
Height = 75
Align = alTop
BevelOuter = bvNone
ParentColor = True
TabOrder = 0
end
object Panel3: TPanel
Left = 0
Top = 80
Width = 476
Height = 190
Align = alClient
BevelOuter = bvNone
ParentColor = True
TabOrder = 1
object GridMain: TDBGridEh
Left = 0
Top = 0
Width = 476
Height = 190
Align = alClient
ColumnDefValues.Title.TitleButton = True
DataSource = DSMain
Flat = True
FooterColor = clInfoBk
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #26032#32048#26126#39636
FooterFont.Style = []
ImeName = 'FM-WuBi(HK)'
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
OptionsEh = [dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghRowHighlight, dghDblClickOptimizeColWidth]
PopupMenu = PopupMenuDesignGrid
SortLocal = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #26032#32048#26126#39636
TitleFont.Style = []
OnColEnter = GridMainColEnter
OnGetCellParams = GridMainGetCellParams
OnTitleBtnClick = GridMainTitleBtnClick
end
end
end
inherited CoolBar1: TCoolBar
Width = 476
Bands = <
item
Control = ToolBar1
ImageIndex = -1
MinHeight = 84
Width = 472
end>
inherited ToolBar1: TToolBar
Width = 459
end
end
inherited ActionGrid: TActionList
Left = 304
Top = 8
end
inherited PopupMenuDesignGrid: TPopupMenu
Left = 260
Top = 9
end
inherited ActionList1: TActionList
Left = 120
end
inherited DSMain: TDataSource
Left = 144
Top = 216
end
inherited HQFilter: THQSelfQueryDialog
Left = 216
end
inherited ADSMain: TADODataSet
CursorType = ctStatic
Left = 88
Top = 216
end
end




A子類的DFM代碼如下(能實現復制):
inherited FrmDollar: TFrmDollar
Left = 143
Top = 120
Width = 570
Height = 388
ActiveControl = DBEdit1
Caption = #24163#21029#35373#32622
PixelsPerInch = 96
TextHeight = 12
inherited Panel1: TPanel
Top = 87
Width = 562
Height = 274
inherited HQSplitter1: THQSplitter
Top = 84
Width = 562
end
inherited Panel2: TPanel
Width = 562
Height = 84
object Label1: TLabel
Left = 7
Top = 6
Width = 32
Height = 12
AutoSize = False
Caption = #24163#21029
FocusControl = DBEdit1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 7
Top = 60
Width = 32
Height = 12
AutoSize = False
Caption = #35498#26126
FocusControl = DBEdit2
end
object Label3: TLabel
Left = 7
Top = 43
Width = 32
Height = 12
AutoSize = False
Caption = #26085#26399
end
object Label4: TLabel
Left = 7
Top = 25
Width = 32
Height = 12
AutoSize = False
Caption = #21295#29575
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -9
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBEdit1: TDBEdit
Left = 42
Top = 4
Width = 97
Height = 18
DataField = 'DollarID'
DataSource = DSMain
ImeName = 'FM-WuBi(HK)'
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 42
Top = 56
Width = 97
Height = 18
DataField = 'Remark'
DataSource = DSMain
ImeName = 'FM-WuBi(HK)'
TabOrder = 3
OnExit = PUBDBControlExit
end
object DBDateTimeEditEh1: TDBDateTimeEditEh
Left = 42
Top = 38
Width = 97
Height = 19
DataField = 'FDate'
DataSource = DSMain
EditButtons = <>
ImeName = 'FM-WuBi(HK)'
Kind = dtkDateEh
TabOrder = 2
Visible = True
end
object DBNumberEditEh1: TDBNumberEditEh
Left = 42
Top = 21
Width = 97
Height = 19
currency = False
DataField = 'HuiLu'
DataSource = DSMain
EditButton.Visible = True
EditButtons = <>
ImeName = 'FM-WuBi(HK)'
TabOrder = 1
Visible = True
end
end
inherited Panel3: TPanel
Top = 89
Width = 562
Height = 185
inherited GridMain: TDBGridEh
Width = 562
Height = 185
Columns = <
item
EditButtons = <>
FieldName = 'DollarID'
Footers = <>
end
item
EditButtons = <>
FieldName = 'Remark'
Footers = <>
Width = 87
end
item
EditButtons = <>
FieldName = 'FDate'
Footers = <>
Width = 98
end
item
EditButtons = <>
FieldName = 'HuiLu'
Footers = <>
end>
end
end
end
inherited CoolBar1: TCoolBar
Width = 562
Height = 87
Bands = <
item
Control = ToolBar1
ImageIndex = -1
MinHeight = 83
Width = 558
end>
inherited ToolBar1: TToolBar
Width = 545
Height = 83
EdgeInner = esNone
end
end
inherited ActionGrid: TActionList
Left = 360
end
inherited PopupMenuDesignGrid: TPopupMenu
Left = 284
end
inherited ActionList1: TActionList
Left = 160
end
inherited DSMain: TDataSource
Left = 80
Top = 208
end
inherited HQFilter: THQSelfQueryDialog
Left = 232
end
inherited ADSMain: TADODataSet
CommandText = 'select * from BDollar'
Left = 32
Top = 208
object ADSMainDollarID: TStringField
DisplayLabel = #24163#21029
DisplayWidth = 8
FieldName = 'DollarID'
Required = True
Size = 8
end
object ADSMainRemark: TStringField
DisplayLabel = #35498#26126
DisplayWidth = 34
FieldName = 'Remark'
Size = 50
end
object ADSMainFDate: TDateTimeField
DisplayLabel = #26085#26399
DisplayWidth = 18
FieldName = 'FDate'
end
object ADSMainHuiLu: TFloatField
DisplayLabel = #21295#29575
DisplayWidth = 10
FieldName = 'HuiLu'
Required = True
end
object ADSMainCUser: TStringField
DisplayLabel = #24314#31435#32773
FieldName = 'CUser'
Visible = False
end
object ADSMainCDate: TDateTimeField
DisplayLabel = #24314#31435#26178#38291
FieldName = 'CDate'
Visible = False
end
object ADSMainEUser: TStringField
DisplayLabel = #20462#25913#32773
FieldName = 'EUser'
Visible = False
end
object ADSMainEDate: TDateTimeField
DisplayLabel = #20462#25913#26178#38291
FieldName = 'EDate'
Visible = False
end
end
inherited FRDBMain: TfrDBDataSet
Left = 320
end
inherited PopupMenuReport: TPopupMenu
Left = 200
end
end





子類B的DFM代碼如下(點復制按鈕,怎麼都不執行對應ACTION的OnExcute事件代碼)
inherited FrmWorkshop: TFrmWorkshop
Left = 98
Top = 97
Width = 646
Height = 447
Caption = #32068#21029#36039#26009
PixelsPerInch = 96
TextHeight = 12
object Label4: TLabel [0]
Left = 8
Top = 50
Width = 72
Height = 12
Caption = #34389#29702#20154#21729#21517#31281
end
inherited Panel1: TPanel
Top = 89
Width = 638
Height = 331
inherited HQSplitter1: THQSplitter
Top = 113
Width = 638
end
inherited Panel2: TPanel
Width = 638
Height = 113
object Label1: TLabel
Left = 6
Top = 24
Width = 48
Height = 12
Caption = #32068#21029#32232#34399
end
object Label3: TLabel
Left = 240
Top = 5
Width = 24
Height = 12
Caption = #20633#27880
end
object Label2: TLabel
Left = 6
Top = 43
Width = 48
Height = 12
Caption = #32068#21029#21517#31281
end
object Label5: TLabel
Left = 29
Top = 61
Width = 24
Height = 12
Caption = #20027#31649
end
object Label6: TLabel
Left = 28
Top = 94
Width = 24
Height = 12
Caption = #38651#35441
end
object Label7: TLabel
Left = 29
Top = 6
Width = 24
Height = 12
Caption = #37096#38272
end
object Label8: TLabel
Left = 29
Top = 78
Width = 24
Height = 12
Caption = #38936#29677
end
object DBEditEh1: TDBEditEh
Left = 58
Top = 23
Width = 121
Height = 18
DataField = 'workshopno'
DataSource = DSMain
EditButtons = <>
ImeName = 'FM-WuBi(HK)'
TabOrder = 0
Visible = True
end
object DBEditEh2: TDBEditEh
Left = 58
Top = 40
Width = 121
Height = 18
DataField = 'workshopname'
DataSource = DSMain
EditButtons = <>
ImeName = 'FM-WuBi(HK)'
TabOrder = 1
Visible = True
end
object DBMemo1: TDBMemo
Left = 272
Top = 3
Width = 153
Height = 106
DataField = 'Remark'
DataSource = DSMain
ImeName = 'FM-WuBi(HK)'
TabOrder = 2
end
object DBEditEh3: TDBEditEh
Left = 58
Top = 57
Width = 121
Height = 18
DataField = 'Manager'
DataSource = DSMain
EditButtons = <>
ImeName = 'FM-WuBi(HK)'
TabOrder = 3
Visible = True
end
object DBEditEh4: TDBEditEh
Left = 58
Top = 91
Width = 121
Height = 18
DataField = 'Tel'
DataSource = DSMain
EditButtons = <>
ImeName = 'FM-WuBi(HK)'
TabOrder = 4
Visible = True
end
object DBComboBox1: TDBComboBox
Left = 58
Top = 3
Width = 121
Height = 20
DataField = 'DeptName'
DataSource = DSMain
ImeName = 'FM-WuBi(HK)'
ItemHeight = 12
Items.Strings = (
#21322#25104#21697#37096
#21046#25104#21697#37096)
TabOrder = 5
end
object DBEditEh5: TDBEditEh
Left = 58
Top = 74
Width = 121
Height = 18
DataField = 'ForeMan'
DataSource = DSMain
EditButtons = <>
TabOrder = 6
Visible = True
end
end
inherited Panel3: TPanel
Top = 118
Width = 638
Height = 213
inherited GridMain: TDBGridEh
Width = 638
Height = 213
DrawMemoText = True
Columns = <
item
EditButtons = <>
FieldName = 'DeptName'
Footers = <>
Width = 82
end
item
EditButtons = <>
FieldName = 'workshopno'
Footers = <>
Width = 79
end
item
EditButtons = <>
FieldName = 'workshopname'
Footers = <>
Width = 80
end
item
EditButtons = <>
FieldName = 'Tel'
Footers = <>
Width = 86
end
item
EditButtons = <>
FieldName = 'Manager'
Footers = <>
Width = 60
end
item
EditButtons = <>
FieldName = 'ForeMan'
Footers = <>
end
item
EditButtons = <>
FieldName = 'Remark'
Footers = <>
Width = 118
end>
end
end
end
inherited CoolBar1: TCoolBar
Width = 638
Height = 89
Bands = <
item
Control = ToolBar1
ImageIndex = -1
MinHeight = 85
Width = 634
end>
inherited ToolBar1: TToolBar
Width = 621
Height = 85
inherited ToolButton17: TToolButton
Width = 9
end
inherited ToolButton12: TToolButton
Top = 44
end
inherited ToolButton10: TToolButton
Top = 44
end
inherited ToolButton18: TToolButton
Top = 44
end
inherited ToolButton7: TToolButton
Top = 44
end
inherited ToolButton24: TToolButton
Top = 44
end
inherited ToolButton11: TToolButton
Top = 44
Width = 12
end
inherited ToolButton13: TToolButton
Left = 183
Top = 44
end
inherited ToolButton14: TToolButton
Left = 218
Top = 44
end
inherited ToolButton15: TToolButton
Left = 253
Top = 44
end
inherited ToolButton16: TToolButton
Left = 261
Top = 44
end
inherited ToolButton22: TToolButton
Left = 296
Top = 44
end
inherited ToolButton23: TToolButton
Left = 331
Top = 44
end
inherited ToolButton20: TToolButton
Left = 366
Top = 44
end
inherited ToolButton21: TToolButton
Left = 374
Top = 44
end
end
end
inherited ActionGrid: TActionList
Left = 360
end
inherited PopupMenuDesignGrid: TPopupMenu
Left = 284
end
inherited ActionList1: TActionList
Left = 472
end
inherited DSMain: TDataSource
Left = 104
Top = 264
end
inherited HQFilter: THQSelfQueryDialog
Left = 440
end
inherited ADSMain: TADODataSet
CommandText = 'Select * from Workshop order by DeptName'
Left = 40
Top = 264
object ADSMainDeptName: TStringField
DisplayLabel = #37096#38272
FieldName = 'DeptName'
end
object ADSMainworkshopno: TStringField
DisplayLabel = #32068#21029#32232#34399
DisplayWidth = 13
FieldName = 'workshopno'
Size = 15
end
object ADSMainworkshopname: TStringField
DisplayLabel = #32068#21029#21517#31281
DisplayWidth = 13
FieldName = 'workshopname'
end
object ADSMainManager: TStringField
DisplayLabel = #20027#31649
DisplayWidth = 8
FieldName = 'Manager'
FixedChar = True
Size = 8
end
object ADSMainForeMan: TStringField
DisplayLabel = #38936#29677
FieldName = 'ForeMan'
Size = 10
end
object ADSMainTel: TStringField
DisplayLabel = #38651#35441
FieldName = 'Tel'
Size = 16
end
object ADSMainRemark: TMemoField
DisplayLabel = #20633#27880
FieldName = 'Remark'
BlobType = ftMemo
end
end
inherited FRDBMain: TfrDBDataSet
Left = 400
end
inherited PopupMenuReport: TPopupMenu
Left = 321
end
end

煩請大家幫我分析問題到底出在哪里?

FrmBaseDB是FrmBaseSEdit的基類,這里定義了所有的ToolButton和ActionList,它的DFM代碼如下:

inherited FrmBaseDB: TFrmBaseDB
Left = 178
Top = 150
Width = 543
Height = 325
Caption = #25976#25818#24235#31383#39636#30340#27169#29256
OldCreateOrder = True
Position = poDefault
Visible = True
OnCloseQuery = FormCloseQuery
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel [0]
Left = 0
Top = 88
Width = 535
Height = 210
Align = alClient
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
end
inherited CoolBar1: TCoolBar
Width = 535
Height = 88
Bands = <
item
Control = ToolBar1
ImageIndex = -1
MinHeight = 84
Width = 531
end>
object ToolBar1: TToolBar
Left = 9
Top = 0
Width = 518
Height = 84
AutoSize = True
BorderWidth = 1
ButtonHeight = 35
ButtonWidth = 31
Flat = True
HideClippedButtons = True
Images = DM.ImageListAll
ParentShowHint = False
ShowCaptions = True
ShowHint = True
TabOrder = 0
Transparent = True
object ToolButton1: TToolButton
Left = 0
Top = 0
Action = DataSetFirst1
AutoSize = True
end
object ToolButton2: TToolButton
Left = 35
Top = 0
Action = DataSetPrior1
AutoSize = True
end
object ToolButton3: TToolButton
Left = 70
Top = 0
Action = DataSetNext1
AutoSize = True
end
object ToolButton4: TToolButton
Left = 105
Top = 0
Action = DataSetLast1
AutoSize = True
end
object ToolButton19: TToolButton
Left = 140
Top = 0
Width = 8
Caption = 'ToolButton19'
ImageIndex = 14
Style = tbsSeparator
end
object ToolButton5: TToolButton
Left = 148
Top = 0
Action = DataSetInsert1
AutoSize = True
end
object ToolButton6: TToolButton
Left = 183
Top = 0
Action = DataSetDelete1
AutoSize = True
end
object ToolButton8: TToolButton
Left = 218
Top = 0
Action = DataSetPost1
AutoSize = True
end
object ToolButton9: TToolButton
Left = 253
Top = 0
Action = DataSetCancel1
AutoSize = True
end
object ToolButton17: TToolButton
Left = 0
Top = 0
Width = 8
Caption = 'ToolButton17'
ImageIndex = 14
Wrap = True
Style = tbsSeparator
end
object ToolButton12: TToolButton
Left = 0
Top = 43
Action = DataSetClone
AutoSize = True
end
object ToolButton10: TToolButton
Left = 35
Top = 43
Action = DataSetRefresh1
AutoSize = True
end
object ToolButton18: TToolButton
Left = 70
Top = 43
Action = DataSetAudited
AutoSize = True
end
object ToolButton7: TToolButton
Left = 105
Top = 43
Action = DataSetReset
AutoSize = True
end
object ToolButton24: TToolButton
Left = 140
Top = 43
Action = DataSetRun
Caption = #32080#28165
end
object ToolButton11: TToolButton
Left = 171
Top = 43
Width = 8
Caption = 'ToolButton11'
ImageIndex = 10
Style = tbsSeparator
end
object ToolButton13: TToolButton
Left = 179
Top = 43
Action = DataSetFind
AutoSize = True
end
object ToolButton14: TToolButton
Left = 214
Top = 43
Action = DataSetFilter
AutoSize = True
end
object ToolButton15: TToolButton
Left = 249
Top = 43
Width = 8
Caption = 'ToolButton15'
ImageIndex = 13
Style = tbsSeparator
end
object ToolButton16: TToolButton
Left = 257
Top = 43
Hint = #25171#21360#38928#35261
AutoSize = True
Caption = #22577#34920
ImageIndex = 13
OnClick = ActionRPPrintExecute
end
object ToolButton22: TToolButton
Left = 292
Top = 43
AutoSize = True
Caption = #26410#30693
ImageIndex = 21
Visible = False
end
object ToolButton23: TToolButton
Left = 327
Top = 43
AutoSize = True
Caption = #38928#30041
ImageIndex = 22
Visible = False
end
object ToolButton20: TToolButton
Left = 362
Top = 43
Width = 8
Caption = 'ToolButton20'
ImageIndex = 14
Style = tbsSeparator
end
object ToolButton21: TToolButton
Left = 370
Top = 43
Action = ActionClose
AutoSize = True
end
end
end
inherited ActionGrid: TActionList
Left = 252
end
inherited PopupMenuDesignGrid: TPopupMenu
Left = 200
inherited N12: TMenuItem
Hint = #23566#20986#34920#26684#25976#25818'('#25110#36984#20013#37096#20998')'
Visible = False
end
end
object ActionList1: TActionList
Images = DM.ImageListAll
Left = 328
Top = 8
object DataSetFirst1: TDataSetFirst
Category = 'Dataset'
Caption = #26368#21069
Hint = #26368#21069#35352#37636'|'#31227#21040#26368#21069#19968#26781#35352#37636
ImageIndex = 0
ShortCut = 120
DataSource = DSMain
end
object DataSetPrior1: TDataSetPrior
Category = 'Dataset'
Caption = #21521#21069
Hint = #31227#21040#21069#19968#26781#35352#37636
ImageIndex = 1
ShortCut = 121
DataSource = DSMain
end
object DataSetNext1: TDataSetNext
Category = 'Dataset'
Caption = #21521#24460
Hint = #31227#21040#19979#19968#26781#35352#37636
ImageIndex = 2
ShortCut = 122
DataSource = DSMain
end
object DataSetLast1: TDataSetLast
Category = 'Dataset'
Caption = #26368#24460
Hint = #31227#21040#26368#24460#19968#26781#35352#37636
ImageIndex = 3
ShortCut = 123
DataSource = DSMain
end
object DataSetInsert1: TDataSetInsert
Category = 'Dataset'
Caption = #26032#22686
Hint = #26032#22686#25976#25818
ImageIndex = 4
ShortCut = 117
DataSource = DSMain
end
object DataSetDelete1: TDataSetDelete
Category = 'Dataset'
Caption = #21034#38500
Hint = #21034#38500#30070#21069#35352#37636
ImageIndex = 5
ShortCut = 119
DataSource = DSMain
end
object DataSetEdit1: TDataSetEdit
Category = 'Dataset'
Caption = #32232#36655
Hint = #25226#30070#21069#25976#25818#32622#28858#32232#36655#29376#24907
ImageIndex = 6
ShortCut = 118
Visible = False
DataSource = DSMain
end
object DataSetPost1: TDataSetPost
Category = 'Dataset'
Caption = #20445#23384
Hint = #20445#23384#30070#21069#35352#37636
ImageIndex = 7
ShortCut = 16467
DataSource = DSMain
end
object DataSetCancel1: TDataSetCancel
Category = 'Dataset'
Caption = #21462#28040
Hint = #21462#28040#25152#20570#30340#20462#25913
ImageIndex = 8
ShortCut = 27
DataSource = DSMain
end
object DataSetRefresh1: TDataSetRefresh
Category = 'Dataset'
Caption = #21047#26032
Hint = #33287#26381#21209#22120#21516#27493#36039#26009
ImageIndex = 9
ShortCut = 116
OnExecute = DataSetRefresh1Execute
OnUpdate = DataSetRefresh1Update
DataSource = DSMain
end
object DataSetClone: TDataSetInsert
Category = 'Dataset'
Caption = #24489#21046
Hint = #29992#30070#21069#35352#37636#24489#21046#25104#19968#26781#30456#21516#30340#26032#35352#37636
ImageIndex = 10
OnExecute = DataSetCloneExecute
OnUpdate = DataSetCloneUpdate
DataSource = DSMain
end
object DataSetFind: TDataSetInsert
Category = 'Dataset'
Caption = #26597#25214
Hint = #23450#20301#36039#26009
ImageIndex = 11
ShortCut = 16454
OnExecute = DataSetFindExecute
DataSource = DSMain
end
object DataSetFilter: TDataSetInsert
Category = 'Dataset'
Caption = #31721#36984
Hint = #26681#25818#25351#23450#30340#26781#20214#31721#36984#36039#26009
ImageIndex = 12
ShortCut = 16460
OnExecute = DataSetFilterExecute
DataSource = DSMain
end
object DataSetAudited: TDataSetInsert
Category = 'Dataset'
Caption = #23529#26680
Hint = #23529#26680#25110#20013#27490
ImageIndex = 18
OnExecute = DataSetAuditedExecute
OnUpdate = DataSetAuditedUpdate
DataSource = DSMain
end
object ActionClose: TAction
Caption = #38364#38281
Hint = #38364#38281#30070#21069#31383#21475
ImageIndex = 20
OnExecute = ActionCloseExecute
end
object DataSetReset: TDataSetInsert
Category = 'Dataset'
Caption = #37325#32622
Hint = #24489#20301#30070#21069#25976#25818
ImageIndex = 24
OnExecute = DataSetResetExecute
OnUpdate = DataSetResetUpdate
DataSource = DSMain
end
object ActionAttend: TAction
Caption = #26336#24037
Hint = #21462#28040#26336#24037
ImageIndex = 26
end
object DataSetRun: TDataSetInsert
Category = 'Dataset'
Caption = #22519#34892
Hint = #35352#36076
ImageIndex = 28
OnExecute = DataSetRunExecute
OnUpdate = DataSetRunUpdate
DataSource = DSMain
end
end
object DSMain: TDataSource
DataSet = ADSMain
OnStateChange = DSMainStateChange
Left = 160
Top = 128
end
object HQFilter: THQSelfQueryDialog
Title = #36942#28670
Options = []
DataSource = DSMain
ShowHideField = False
Left = 296
Top = 8
end
object ADSMain: TADODataSet
Connection = DM.DBCon
BeforeInsert = ADSBeforeInsert
AfterInsert = ADSMainAfterInsert
BeforeEdit = ADSBeforeEdit
BeforePost = ADSMainBeforePost
BeforeDelete = ADSMainBeforeDelete
OnDeleteError = ADSMainDeleteError
OnPostError = ADSMainPostError
Parameters = <>
Left = 96
Top = 128
end
object FRDBMain: TfrDBDataSet
DataSource = DSMain
Left = 368
Top = 8
end
object PopupMenuReport: TPopupMenu
Left = 369
Top = 8
end
end