frmmain.pas

delphi源码 delphi源码 delphi源码 delphi源码 delphi源码

unit FrmMain;

interface

uses
  Classes, Controls, Forms,EhLibADO,
  StdCtrls, DB, ADODB, DBGridEh, ExtCtrls, Menus, Buttons, Grids, GridsEh;

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

var
  FormMain: TFormMain;

implementation

uses FormColSelect, uKingFilter, FindPublic, FormWait, JustGrid;

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

procedure TFormMain.N4Click(Sender: TObject);
begin
  if not (ActiveControl is TDBGridEh) then
    exit;

  ShowWaitText('正在处理网格栏位宽度最优化...');
  try
    OptimizeGrid(TDBGridEh(ActiveControl));
  finally
    ShowWaitText;//不带入参数,则是关闭等待窗口
  end;
end;

procedure TFormMain.Panel1Click(Sender: TObject);
begin
if dghAutoSortMarking in DBGridEh1.OptionsEh then
Caption:='ok';
end;

end.