mainfrm.pas

来自「针对Lib控件」· PAS 代码 · 共 93 行

unit MainFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, ComCtrls, GridsEh, DBGridEh, DB, ADODB, EhLibADO,
  StdCtrls;

type
  TMainForm = class(TForm)
    DBConn: TADOConnection;
    StudentsQuery: TADOQuery;
    DataSource1: TDataSource;
    DataGrid: TDBGridEh;
    StatusBar1: TStatusBar;
    Image2: TImage;
    StudentsQueryStudentID: TAutoIncField;
    StudentsQueryStudentName: TWideStringField;
    StudentsQuerySex: TBooleanField;
    StudentsQueryBirthDate: TDateTimeField;
    StudentsQuerySalary: TIntegerField;
    BtnLocal: TButton;
    BtnServer: TButton;
    BtnShowSQL: TButton;
    Label1: TLabel;
    LblLocation: TLabel;
    Label2: TLabel;
    LblURL: TLabel;
    procedure BtnShowSQLClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtnLocalClick(Sender: TObject);
    procedure BtnServerClick(Sender: TObject);
    procedure LblURLClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses
  DBUtilsEh, ShellAPI;

{$R *.dfm}

procedure TMainForm.BtnLocalClick(Sender: TObject);
begin
  DataGrid.STFilter.Visible := True;
  DataGrid.STFilter.Local := True;

  StudentsQuery.SQL.Text := 'SELECT * FROM Students';
  StudentsQuery.Active := True;

  LblLocation.Caption := '当前过滤方式：' + TButton(Sender).Caption;
end;

procedure TMainForm.BtnServerClick(Sender: TObject);
begin
  DataGrid.STFilter.Visible := True;
  DataGrid.STFilter.Local := False;

  DBUtilsEh.SQLFilterMarker := '(1>0)AND';
  StudentsQuery.SQL.Text := 'SELECT * FROM Students WHERE ' + #13 + '(1>0)AND 1=1';
  StudentsQuery.Filter := '';
  StudentsQuery.Filtered := False;

  StudentsQuery.Active := True;

  LblLocation.Caption := '当前过滤方式：' + TButton(Sender).Caption;  
end;

procedure TMainForm.BtnShowSQLClick(Sender: TObject);  
begin
  Application.MessageBox(PChar(String(StudentsQuery.SQL.Text)), 'SQL', MB_ICONINFORMATION);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  BtnLocal.Click;
end;

procedure TMainForm.LblURLClick(Sender: TObject);
begin
  ShellExecute(Application.Handle, 'Open', PChar(LblUrl.Caption), nil, nil, SW_NORMAL);
end;

end.