unit Single;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Simple, Grids, DBGrids, ExtCtrls, Menus, Db, DBTables, Buttons, StdCtrls,
  Mask, DBCtrls;

type
  TfmSingle = class(TfmSimple)
    Splitter1: TSplitter;
    gdBrowse: TDBGrid;
    sbSelect: TSpeedButton;
    sbReport: TSpeedButton;
    sbSearch: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure sbSearchClick(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure gdBrowseTitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetDescription; override;
    procedure SetMenuItem; override;
  end;

var
  fmSingle: TfmSingle;

implementation

uses Main, Loading, DataSearch, PublicFunction;

{$R *.DFM}

procedure TfmSingle.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  with fmMain.StatusBar do
  begin
    //窗口關閉后, 把TfmMain的StatusBar的內容給清掉
    Panels[1].Text := '';
    Panels[2].Text := '';
    //讓畫面不要有殘留
    Update;
  end;
end;

procedure TfmSingle.SetDescription;
begin
  //根據qyMaster不同的狀態, 在TfmMain的StatusBar顯示
  //qyMasterヘ目前的狀態以及在該狀態下可使用的功能鍵
  if qyMaster.State = dsInsert then begin
    //qyMaster在新增模式
    fmMain.StatusBar.Panels[1].Text := '新增';
    fmMain.StatusBar.Panels[2].Text := '儲存F5';
  end;
  if qyMaster.State = dsEdit then begin
    //qyMaster在修改模式
    fmMain.StatusBar.Panels[1].Text := '修改';
    fmMain.StatusBar.Panels[2].Text := '儲存F5';
  end;
  if qyMaster.State = dsBrowse then begin
    //qyMaster在瀏覽模式
    if qyMaster.RecordCount > 0 then begin
      //前端有數據
      fmMain.StatusBar.Panels[1].Text := '瀏覽';
      fmMain.StatusBar.Panels[2].Text := '離開F12 新增F3 修改F4 刪除Ctrl+Del ';
    end else begin
      //前端無數據
      fmMain.StatusBar.Panels[1].Text := '無';
      fmMain.StatusBar.Panels[2].Text := '離開F12 新增F3';
    end;
  end;
end;

procedure TfmSingle.FormCreate(Sender: TObject);
begin
  inherited;
  Left := 0;
  Top := 0;
end;

procedure TfmSingle.sbSearchClick(Sender: TObject);
begin
  inherited;
  //qyMaster在非瀏覽模式下是不提供數據查詢功能的