デルフィライフ

TwwDBGrid + TwwDBLookupComboドロップダウンリスト



Twwdbgrid Twwdblookupcombo Drop Down List



ターゲット入札：TwwDBGridのsPartCodeフィールドをクリックして、ドロップダウンリストをポップアップします

プラットフォーム：DELPHI 10.3 + INFO POWER 4K 20.0+ WIN7 64



一般的な手順：

  1. WwDBLookupCombo1、{任意の位置}
  2. wwDBGrid1

オブジェクトForm1：TForm1
左= 0
トップ= 0
キャプション= 'Form1'
ClientHeight = 418
ClientWidth = 554
色= clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'タホマ'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
オブジェクトwwDBLookupCombo1：TwwDBLookupCombo {ルックアップテーブルはドロップダウンリストに表示されるものです}
左= 96
トップ= 64
幅= 121
高さ= 21
DropDownAlignment = taLeftJustify
Selected.Strings =（
'fCode'＃9 '15'＃9'fCode '＃9'F'＃9
'fName'＃9'24 '＃9'fName'＃9'F '
'fColor'＃9'10 '＃9'fColor'＃9'F '＃9
'fSpec'＃9'10 '＃9'fSpec'＃9'F '＃9
'fUnitsName'＃9 '10'＃9'fUnitsName '＃9＃9）
DataField = 'fPartID'
データソース= dsBOM
LookupTable = TproductTable
LookupField = 'fID'
オプション= [loColLines、loRowLines、loTitles]
TabOrder = 0
AutoDropDown = False
ShowButton = True
PreciseEditRegion = False
AllowClearKey = False
終わり




オブジェクトwwDBGrid1：TwwDBGrid
左= 0
上= 216
幅= 554
高さ= 202
ControlType.Strings=（（
'sPartCodeCustomEditwwDBLookupCombo1F'）
Selected.Strings=（
'sPartCode'＃9'20 '＃9'sPartCode'
'fPartID'＃9 '10'＃9'fPartID '
'fUnit'＃9 '50'＃9'fUnit '
'fQty'＃9 '10'＃9'fQty '
'fBeginTime'＃9'34 '＃9' fBeginTime '
'fEndTime'＃9'34 '＃9' fEndTime '
'Fnot '9' 200＃ '＃9'fNotes'）
IniAttributes.Delimiter = ''
IniAttributes.UnicodeIniFile = False
TitleColor = clBtnFace
FixedCols = 0
ShowHorzScrollBar = True
整列= alBottom
データソース= dsBOM
TabOrder = 1
TitleAlignment = taLeftJustify
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'タホマ'
TitleFont.Style = []
TitleLines = 1
TitleButtons = False
終わり
オブジェクトClothuConnection：TFDConnection
Params.Strings =（
'ConnectionDef = ClothU'）
接続済み= True
LoginPrompt = False
左= 435
トップ= 54
終わり


オブジェクトTbomTable：TFDQuery
アクティブ= True
接続= ClothuConnection
SQL.Strings =（
'SELECT [fParentID]'
'、[fPartID]'
'、[fUnit]'
'、[fQty]'
'、[fBeginTime]'
'、[fEndTime]'
「[Fnot]
'FROM [ClothU]。[base]。[tBom]'）
左= 331
トップ= 86
オブジェクトTbomTablesPartCode：TStringField
DisplayWidth = 20
FieldKind = fkLookup
FieldName = 'sPartCode' {計算されたフィールド}
LookupDataSet = TproductTable
LookupKeyFields = 'fID'
LookupResultField = 'fCode'
KeyFields = 'fPartID'
ルックアップ= True
終わり


オブジェクトTbomTablefPartID：TIntegerField
DisplayWidth = 10
FieldName = 'fPartID'
Origin = 'fPartID'
ProviderFlags = [pfInUpdate、pfInWhere、pfInKey]
必須= True
終わり
オブジェクトTbomTablefUnit：TWideStringField
DisplayWidth = 50
FieldName = 'fUnit'
Origin = 'fUnit'
サイズ= 50
終わり
オブジェクトTbomTablefQty：TCurrencyField
DisplayWidth = 10
FieldName = 'fQty'
Origin = 'fQty'
必須= True
終わり
オブジェクトTbomTablefBeginTime：TSQLTimeStampField
DisplayWidth = 34
FieldName = 'fBeginTime'
Origin = 'fBeginTime'
終わり
オブジェクトTbomTablefEndTime：TSQLTimeStampField
DisplayWidth = 34
FieldName = 'fEndTime'
Origin = 'fEndTime'
終わり
オブジェクトTbomTablefNotes：TWideStringField
DisplayWidth = 200
FieldName = 'fNotes'
Origin = 'fNotes'
サイズ= 200
終わり
オブジェクトTbomTablefParentID：TIntegerField
DisplayWidth = 10
FieldName = 'fParentID'
Origin = 'fParentID'
ProviderFlags = [pfInUpdate、pfInWhere、pfInKey]
必須= True
Visible = False
終わり
終わり
オブジェクトTproductTable：TFDQuery {ルックアップテーブル}
アクティブ= True
接続= ClothuConnection
SQL.Strings =（

'base.vProducからfID、fCode、fName、fColor、fSpec、fUnitsNameを選択します' +
't'）
左= 436
トップ= 138
終わり
オブジェクトdsBOM：TDataSource
DataSet = TbomTable
左= 336
上= 152
終わり
終わり



設計時間