frmmain.pas

来自「MIS工具 万能过滤 查询 网格编辑器S_CXV」· PAS 代码 · 共 86 行

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;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure ADOConnection1AfterConnect(Sender: TObject);
    procedure cmbTableNameChange(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

uses FormColSelect, uKingFilter, FindPublic;

{$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;

procedure TFormMain.N2Click(Sender: TObject);
begin
  if ActiveControl is TDBGridEh then
    ShowFilterForm(TDBGridEh(ActiveControl).DataSource.DataSet);
end;

procedure TFormMain.N3Click(Sender: TObject);
var
  s: string;
  i: integer;
begin
  if ActiveControl is TDBGridEh then
    FindPublicShow(TDBGridEh(ActiveControl).DataSource.DataSet, s, i);
end;

end.