grouppay.pas

完成酒店管理系统

unit GroupPay;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids;

type
  TGroupPayFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button3: TButton;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    RadioRoom: TRadioButton;
    RadioGroup: TRadioButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    procedure RadioRoomClick(Sender: TObject);
    procedure RadioGroupClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GroupPayFrm: TGroupPayFrm;

implementation

{$R *.dfm}

procedure TGroupPayFrm.RadioRoomClick(Sender: TObject);
begin
DataSource1.DataSet:= ADOQuery1;
DBGrid1.DataSource:= DataSource1;
Edit1.SetFocus;
end;

procedure TGroupPayFrm.RadioGroupClick(Sender: TObject);
begin
DataSource1.DataSet:= ADOQuery2;
DBGrid1.DataSource:= DataSource1;
Edit2.SetFocus;
end;

procedure TGroupPayFrm.Button3Click(Sender: TObject);
begin
if RadioRoom.Checked = True then
begin
if Edit1.Text = '' then
    begin
    ShowMessage('数据不能为空！请重新输入！');
    Edit1.Text:= '';
    Edit1.SetFocus;
    end
else
   begin
   ADOQuery1.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('Select * From Room Where 房间号 =  '
     + Edit1.Text );
   ADOQuery1.Open;
  end;
end;
if RadioGroup.Checked = True then
begin
if Edit2.Text = '' then
    begin
    ShowMessage('数据不能为空！请重新输入！');
    Edit2.Text:= '';
    Edit2.SetFocus;
    end
else
   begin
   ADOQuery2.Close;
   ADOQuery2.SQL.Clear;
   ADOQuery2.SQL.Add('Select * From GroupTourist Where 接待对象 ='''+Edit2.Text
   + '''');
   ADOQuery2.Open;
  end;
end;

end;
end.