unit Udblookupcombobox; interface uses 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.
使用TDBLookupComboBox组件
最新推荐文章于 2019-12-30 17:09:13 发布