一个用Delphi开发的ERP软件
源代码在线查看： hwseldatab.dfm.svn-base
object HwSelDataBForm: THwSelDataBForm
Left = 109
Top = 63
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = #26009#21697#36873#25321
ClientHeight = 437
ClientWidth = 645
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Splitter1: TSplitter
Left = 185
Top = 0
Width = 3
Height = 394
Cursor = crHSplit
end
object pnlLeft: TPanel
Left = 0
Top = 0
Width = 185
Height = 394
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object pnlClass: TPanel
Left = 0
Top = 0
Width = 185
Height = 25
Align = alTop
Alignment = taLeftJustify
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = ' '#20998#31867#21015#34920
TabOrder = 0
end
object dxDBTreeView1: TdxDBTreeView
Left = 0
Top = 25
Width = 185
Height = 369
ImeName = ''
ShowNodeHint = True
AutoExpand = True
DataSource = dsClass
KeyField = 'FNo'
ListField = 'FName'
ParentField = 'FParent'
SeparatedSt = ' - '
RaiseOnError = True
ReadOnly = True
Indent = 19
Align = alClient
ParentColor = False
Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
SelectedIndex = -1
TabOrder = 1
end
end
object Panel2: TPanel
Left = 188
Top = 0
Width = 457
Height = 394
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object dbgItem: TdxDBTreeList
Left = 0
Top = 0
Width = 457
Height = 394
Bands = <
item
end>
DefaultLayout = True
HeaderPanelRowCount = 1
KeyField = 'FNo'
ParentField = 'FParent'
Align = alClient
TabOrder = 0
OnKeyPress = dbgItemKeyPress
OnMouseUp = dbgItemMouseUp
DataSource = dsItems
LookAndFeel = lfUltraFlat
OptionsDB = [etoAutoCalcKeyValue, etoCancelOnExit, etoCanNavigation, etoCheckHasChildren, etoConfirmDelete, etoLoadAllRecords]
ShowGrid = True
ShowLines = False
TreeLineColor = clGrayText
object dbgItemFSel: TdxDBTreeListCheckColumn
DisableEditor = True
HeaderAlignment = taCenter
MinWidth = 20
Width = 47
BandIndex = 0
RowIndex = 0
FieldName = 'FSel'
ValueChecked = '-1'
ValueUnchecked = '0'
end
object dbgItemFCode: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 133
BandIndex = 0
RowIndex = 0
FieldName = 'FCode'
end
object dbgItemFName: TdxDBTreeListMaskColumn
DisableEditor = True
HeaderAlignment = taCenter
Width = 252
BandIndex = 0
RowIndex = 0
FieldName = 'FName'
end
end
end
object Panel3: TPanel
Left = 0
Top = 394
Width = 645
Height = 43
Align = alBottom
BevelOuter = bvNone
TabOrder = 2
object bbtnOk: TBitBtn
Left = 480
Top = 8
Width = 75
Height = 25
Caption = #30830#23450'(&O)'
Default = True
TabOrder = 0
OnClick = bbtnOkClick
end
object bbtnExit: TBitBtn
Left = 560
Top = 8
Width = 75
Height = 25
Caption = #36864#20986'(&X)'
TabOrder = 1
OnClick = bbtnExitClick
end
object bbtnFind: TBitBtn
Left = 16
Top = 8
Width = 75
Height = 25
Caption = #26597#25214'(&F)'
TabOrder = 2
OnClick = bbtnFindClick
end
object bbtnSearch: TBitBtn
Left = 96
Top = 8
Width = 75
Height = 25
Caption = #26597#35810'(&S)'
TabOrder = 3
OnClick = bbtnSearchClick
end
object bbtnRefresh: TBitBtn
Left = 176
Top = 8
Width = 75
Height = 25
Caption = #21047#26032'(&R)'
TabOrder = 4
OnClick = bbtnRefreshClick
end
object bbtnSelAll: TBitBtn
Left = 288
Top = 8
Width = 75
Height = 25
Caption = #20840#37096#36873#25321'(&A)'
TabOrder = 5
OnClick = bbtnSelAllClick
end
object bbtnUnSel: TBitBtn
Left = 368
Top = 8
Width = 75
Height = 25
Caption = #20840#37096#19981#36873'(&U)'
TabOrder = 6
OnClick = bbtnUnSelClick
end
end
object dsClass: TDataSource
DataSet = adsClass
Left = 64
Top = 72
end
object dsItems: TDataSource
DataSet = adsItems
Left = 248
Top = 88
end
object adsItems: TADODataSet
Connection = SYSDM.ADOC
CursorType = ctStatic
LockType = ltBatchOptimistic
FieldDefs = <
item
Name = 'FSel'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FNo'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FCode'
DataType = ftString
Size = 30
end
item
Name = 'FName'
DataType = ftString
Size = 60
end
item
Name = 'FParent'
Attributes = [faFixed]
DataType = ftInteger
end>
Parameters =
StoreDefs = True
Left = 288
Top = 88
object adsItemsFSel: TIntegerField
DisplayLabel = #36873#25321
FieldName = 'FSel'
end
object adsItemsFNo: TIntegerField
FieldName = 'FNo'
Visible = False
end
object adsItemsFCode: TStringField
DisplayLabel = #32534#21495
FieldName = 'FCode'
Size = 30
end
object adsItemsFName: TStringField
DisplayLabel = #21517#31216
FieldName = 'FName'
Size = 60
end
object adsItemsFParent: TIntegerField
FieldName = 'FParent'
Visible = False
end
end
object adsClass: TADODataSet
Connection = SYSDM.ADOC
CursorType = ctStatic
LockType = ltBatchOptimistic
AfterScroll = adsInv100AfterScroll
FieldDefs = <
item
Name = 'FNo'
Attributes = [faFixed]
DataType = ftInteger
end
item
Name = 'FName'
DataType = ftString
Size = 72
end
item
Name = 'FParent'
Attributes = [faFixed]
DataType = ftInteger
end>
Parameters =
StoreDefs = True
Left = 96
Top = 72
object adsClassFNo: TIntegerField
FieldName = 'FNo'
end
object adsClassFName: TStringField
FieldName = 'FName'
Size = 72
end
object adsClassFParent: TIntegerField
FieldName = 'FParent'
end
end
object qryItems: TADOQuery
Connection = SYSDM.ADOC
Parameters =
SQL.Strings = (
'select O120_001 as FNo,O120_002 as FCode,O120_002 as FName,O120_' +
'003 as FParent from ORD120 order by O120_001')
Left = 288
Top = 128
end
end
