gq_ufieldlist.pas

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

unit GQ_UFieldList;

{
代码单元名称：通用综合查询工具聚集字段选择窗口
从属软件：大连资金清算中心打码机管理信息系统
开发单位：大连理工大学计算机技术研究所软件工程研究室
作者：张玉洁
时间：2001,1,30
}

interface

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

type
  TGQ_FFieldList = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    ListBox1: TListBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.DFM}

procedure TGQ_FFieldList.FormShow(Sender: TObject);
begin
  if ListBox1.Items.Count <> 0 then
    ListBox1.ItemIndex := 0;
end;

procedure TGQ_FFieldList.BitBtn1Click(Sender: TObject);
begin
  if ListBox1.ItemIndex = -1 then
    Exit;
  ModalResult := mrOk;
end;

procedure TGQ_FFieldList.BitBtn2Click(Sender: TObject);
begin
  Close;
end;

end.