使用TDBLookupComboBox组件

unit Udblookupcombobox;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, DB, StdCtrls, DBCtrls, ExtCtrls, Grids, DBGrids, DBTables;type  TForm1 = class(TForm)    DataSource1: TDataSource;    DataSource2: TDataSource;    Table1: TTable;    Table2: TTable;    DBGrid1: TDBGrid;    DBNavigator1: TDBNavigator;    DBLookupComboBox1: TDBLookupComboBox;    Label1: TLabel;    Label2: TLabel;    Table2BDEDesigner: TStringField;    Table2BDEDesigner2: TStringField;    Table2BDEDesigner3: TStringField;    Table2BDEDesigner5: TStringField;    Table2BDEDesigner4: TStringField;  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}end.