frmmain.pas

控件下载 控件下载 控件下载 控件下载 控件下载

unit FrmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGridEh, ExtCtrls, Menus, Buttons,
    EhlibAdo;


type
  TFormMain = class(TForm)
    PopupMenu1: TPopupMenu;
    ADOConnection1: TADOConnection;
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    cmbTableName: TComboBox;
    BitBtn1: TBitBtn;
    N1: TMenuItem;
    procedure ADOConnection1AfterConnect(Sender: TObject);
    procedure cmbTableNameChange(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;



var
  FormMain: TFormMain;

implementation

uses FormColSelect;

{$R *.dfm}

procedure TFormMain.ADOConnection1AfterConnect(Sender: TObject);
var
  i: integer;
begin
  cmbTableName.Items.Clear;
  ADOConnection1.GetTableNames(cmbTableName.Items);
  if cmbTableName.Items.Count > 0 then
    cmbTableName.ItemIndex := 0;

end;

procedure TFormMain.cmbTableNameChange(Sender: TObject);
begin
  with ADOTable1 do
  begin
    close;
    TableName := cmbTableName.Text;
    Open;
  end;
end;

procedure TFormMain.N1Click(Sender: TObject);
begin
  ShowGridColEditor(DBGridEh1);
end;

end.