main.pas

《Delphi开发人员指南》配书原码

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, ExtCtrls;

type
  TMainForm = class(TForm)
    pnlBottom: TPanel;
    pnlButtons: TPanel;
    btnGo: TButton;
    btnExit: TButton;
    memQuery: TMemo;
    pnlTop: TPanel;
    Label1: TLabel;
    cbAlias: TComboBox;
    Label3: TLabel;
    edUserName: TEdit;
    Label4: TLabel;
    edPassword: TEdit;
    Label2: TLabel;
    procedure btnExitClick(Sender: TObject);
    procedure btnGoClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

uses QryU, DB, DBTables;

var
  FQueryNum: Integer = 0;

procedure TMainForm.btnExitClick(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.btnGoClick(Sender: TObject);
begin
  Inc(FQueryNum);   // keep querynum unique
  { invoke new query }
  NewQuery(FQueryNum, memQuery.Lines, cbAlias.Text, edUserName.Text,
    edPassword.Text);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  { fill drop-down list with BDE Aliases }
  Session.GetAliasNames(cbAlias.Items);
end;

end.