syspmsf.pas

来自「Pos Componet Some Pos Utility」· PAS 代码 · 共 53 行

unit SYSPMSF;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, ComCtrls, ToolWin, StdCtrls, JLOOKUP;

type
  TFMPMSF = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    LB_CON21: TEdit;
    ToolBar: TToolBar;
    ToolButton1: TToolButton;
    BTNSER: TSpeedButton;
    BTNCLR: TSpeedButton;
    BTNQUT: TSpeedButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    LB_CON11: JLOOKUPBOX;
    procedure FormActivate(Sender: TObject);
    procedure BTNQUTClick(Sender: TObject);
    procedure BTNSERClick(Sender: TObject);
    procedure BTNCLRClick(Sender: TObject);
  private
    { Private declarations }
    procedure Search_data;
  public
    { Public declarations }
    SearchFORMMODE : STRING;
  end;

var
  FMPMSF: TFMPMSF;

implementation

uses sysini, fm_utl, SYSPMS, MAINU;

{$R *.DFM}



procedure TFMPMSF.FormActivate(Sender: TObject);
begin
  LB_CON11.SETFOCUS;

  if SearchFORMMODE = 'SEARCH' then
     begin
     BTNSER.Caption := '&F 琩高';
     //