hsrvrcfg.pas

来自「TxQuery is an SQL engine implemented in 」· PAS 代码 · 共 64 行

unit HSrvrCfg;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, Db, xquery, HalcnQry;

type
  TfrmHalCfg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    ChkInMemResultSet: TCheckBox;
    Label1: TLabel;
    EdDateFormat: TEdit;
    Label2: TLabel;
    EdMaxSize: TEdit;
    ChkUseDeleted: TCheckBox;
    procedure OKBtnClick(Sender: TObject);
    procedure ChkInMemResultSetClick(Sender: TObject);
  private
    { Private declarations }
    FDataList : TDataList;
  public
    { Public declarations }
    function Enter(DataList : TDataList): Word;
  end;

implementation

{$R *.DFM}

function TfrmHalCfg.Enter(DataList : TDataList): Word;
begin
   FDataList := DataList;
   ChkInMemResultSet.Checked := FDataList.InMemResultSet;
   EdMaxSize.Enabled := not FDataList.InMemResultSet;
   EdMaxSize.Text := IntToStr(FDataList.MapFileSize);
   EdDateFormat.Text := FDataList.DateFormat;
   ChkUseDeleted.Checked := FDataList.UseDeleted;

   Result := ShowModal;
end;

procedure TfrmHalCfg.OKBtnClick(Sender: TObject);
begin
   try
      FDataList.InMemResultSet:= ChkInMemResultSet.Checked;
      FDataList.MapFileSize:= StrToInt(EdMaxSize.Text);
      FDataList.DateFormat:= EdDateFormat.Text;
      FDataList.UseDeleted:= ChkUseDeleted.Checked;
   except
      ModalResult:= mrNone;
      raise;
   end;
end;

procedure TfrmHalCfg.ChkInMemResultSetClick(Sender: TObject);
begin
   EdMaxSize.Enabled := not ChkInMemResultSet.Checked;
end;

end.