gq_uoriput.pas

亚惠快餐管理信息系统 包括亚惠快餐管理的各项功能

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

unit GQ_UOriput;

interface

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

type
  //  FldType=(Strings,Number,Date,Logical);
  TOrinputDialog = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Edit2: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    procedure init(getType: FldType);
    { Public declarations }
  end;

var
  thisType: FldType;

implementation

{$R *.DFM}

procedure TOrinputDialog.init(getType: FldType);
begin
  thisType := GetType;
end;

procedure TOrinputDialog.SpeedButton1Click(Sender: TObject);
begin
  if trim(edit2.text) <> '' then
    if (thisType = strings) or (thisType = date) then
      edit1.Text := edit1.text + '''' + trim(edit2.text) + '''' + ','
    else
      edit1.text := edit1.text + trim(edit2.text) + ',';
  edit2.text := '';
end;

procedure TOrinputDialog.OKBtnClick(Sender: TObject);
begin
  if trim(edit1.Text) = '' then
    exit;
  ModalResult := mrok;
end;

procedure TOrinputDialog.CancelBtnClick(Sender: TObject);
begin
  ModalResult := mrcancel;
end;

procedure TOrinputDialog.FormShow(Sender: TObject);
begin
  edit1.text := '';
  edit2.text := '';
  edit2.SetFocus;
end;

end.