unit BaseDialog;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Buttons, DBCtrls, Mask;

type
  TfmBaseDialog = class(TForm)
    qyTemp: TQuery;
    bnOK: TBitBtn;
    bnCancel: TBitBtn;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bnOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure PrepareDlg; virtual;
  end;

var
  fmBaseDialog: TfmBaseDialog;

implementation

uses Main, Loading, DataModule;

{$R *.DFM}

procedure TfmBaseDialog.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key <> #13 then Exit;
  //當Enter按下時, 模擬Tab鍵, 移動光標到下一個可停駐的對象
  key := #0;
  Perform(WM_NextDlgCtl, 0, 0);
end;

procedure TfmBaseDialog.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  //F12按下, 關(guān)閉本窗口
  if Key = VK_F12 then
    Close;
end;

procedure TfmBaseDialog.PrepareDlg;
begin
 
end;

procedure TfmBaseDialog.bnOKClick(Sender: TObject);
begin
  if DM.tbInput.State  = dsBrowse then
    DM.tbInput.Edit;
  //將使用者的輸入條件儲存, 但是沒更新到數(shù)據(jù)庫
  DM.tbInput.Post;
end;

procedure TfmBaseDialog.FormCreate(Sender: TObject);
begin
  try
    fmLoading := TfmLoading.Create(Application);
    fmLoading.Show;
    fmLoading.Update;
    //tbInput為瀏覽模式時, 要變更為修改模式,
    //這樣才能修改tbInput的內(nèi)容
    if DM.tbInput.State = dsBrowse then
      DM.tbInput.Edit;
    
    PrepareDlg;
  finally
    fmLoading.Free;
  end;
end;

end.