single.~pa

来自「进销存程序设计」· ~PA 代码 · 共 57 行

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 FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    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
    Panels[1].Text := '';
    Panels[2].Text := '';
    Update;
  end;
end;

procedure TfmSingle.SetDescription;
begin
  if qyMaster.State = dsInsert then begin
    fmMain.StatusBar.Panels[1].Text := '穝糤';
    fmMain.StatusBar.Panels[2].Text := '纗