single.pas

一套融入了系统营销管理思想的管理软件产品

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在非浏览模式下是不提供数据查询功能的