gz_pltx.pas

来自「感应IC卡电脑考勤、门禁、售饭一卡通管理系统是基于我公司开发生产的ESW型智能卡」· PAS 代码 · 共 51 行

unit Gz_pltx;

interface

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

type
  TfrmGz_pltx = class(TForm)
    lblMsg: TLabel;
    edCode: TEdit;
    cmdOK: TBitBtn;
    cmdCancel: TBitBtn;
    procedure cmdOKClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
  	sCode :string;
	function GetInput() :Boolean;
    { Public declarations }
  end;

var
  frmGz_pltx: TfrmGz_pltx;

implementation

uses SelfFunc;

{$R *.DFM}

function TfrmGz_pltx.GetInput() :Boolean;
begin
	edCode.Text :='';
    if Self.ShowModal() =mrOK then sCode :=edCode.Text
    else sCode :='';
    Result :=(sCode <>'');
end;

procedure TfrmGz_pltx.cmdOKClick(Sender: TObject);
var ts :string;
	tn :double;
begin
	ts :=edCode.Text;
    if (ts[1] ='+') or (ts[1] ='-') or (ts[1] ='*') then Delete(ts,1,1);
	if ts ='' then
    begin
    	MsgBox('叫块