gq_uinput.pas

来自「亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能」· PAS 代码 · 共 61 行

{
代码单元名称：通用综合查询工具查询条件输入窗口
从属软件：大连资金清算中心打码机管理信息系统
开发单位：大连理工大学计算机技术研究所软件工程研究室
作者:袁源
时间：2001,1,30
}
unit GQ_UInput;

interface

uses Windows, SysUtils, Dialogs, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, GQ_UQueryMain;

type
  // FldType=(Strings,Number,Date,Logical);
  TInputDialog = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure init(theType: FldType);
    { Public declarations }
  end;

var
  thistype: FldType;

implementation

{$R *.DFM}

procedure TInputDialog.OKBtnClick(Sender: TObject);
begin
  if (trim(edit1.text) = '') or (trim(edit2.text) = '') then
  begin
    showmessage('请你输入你的值');
    exit;
  end;
  ModalResult := mrOK;
end;

procedure TInputDialog.CancelBtnClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TInputDialog.init(theType: FldType);
begin
  thistype := thetype;
end;

end.