frmroommoneyform.~pas

来自「一个基于delphi7.0的客房管理系统。」· ~PAS 代码 · 共 80 行

unit frmRoomMoneyForm;

interface

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

type
  TRoomMoneyForm = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    DataSource1: TDataSource;
    Query1: TQuery;
    Button2: TButton;
    Label1: TLabel;
    Panel2: TPanel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label2: TLabel;
    Label3: TLabel;
    Panel3: TPanel;
    Panel4: TPanel;
    DBGrid1: TDBGrid;
    Button3: TButton;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    Query2: TQuery;
    DataSource3: TDataSource;
    Query3: TQuery;
    DBGrid3: TDBGrid;
    Button1: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RoomMoneyForm: TRoomMoneyForm;

implementation

{$R *.dfm}

procedure TRoomMoneyForm.Button2Click(Sender: TObject);
begin
        edit1.Text := '';
end;

procedure TRoomMoneyForm.Button1Click(Sender: TObject);
begin
    RoomMoneyForm.Close;
end;

procedure TRoomMoneyForm.Button3Click(Sender: TObject);
begin
    if (edit1.Text <> '') then
    begin
        Query1.Close;
        Query1.SQL.Clear;
        Query1.SQL.Add('select * from RoomInfo where 房间号='+edit1.Text);
        Query1.Open;
        Query2.Close;
        Query2.SQL.Clear;
        Query2.SQL.Add('select * from TouristInfo where 房间号='+edit1.Text);
        Query2.Open;
        Query3.Close;
        Query3.SQL.Clear;
        Query3.SQL.Add('select sum(房价) from roominfo where 房间号='+edit1.Text);
        Query3.Open;
    end
    else showmessage('请输入信息');
end;

end.