changeroom.~pas

结于初学者来说这对数据库是一个很好的例子

unit ChangeRoom;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Mask;

type
  TForm14 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    cr: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Q_ChangeRoom: TQuery;
    Q_change: TQuery;
    Label5: TLabel;
    NameNo: TMaskEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;

implementation

uses main;

{$R *.dfm}

procedure TForm14.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TForm14.Button1Click(Sender: TObject);
  var
   currroom,changeroom:string;
   AccountNo,RoomStatus:integer;
begin
   currroom:=label4.Caption;
   changeroom:=cr.Text;
//取出当前房间是预定还是入住和单号
   Q_change.SQL.Clear;
   Q_change.SQL.Add('Select * from RoomInfo where RoomName='''+currroom+'''');
   Q_change.Open;
   RoomStatus:=Q_change.FieldByName('RoomStatus').asInteger;
   AccountNo:=Q_change.FieldByName('NowAccountNo').asInteger;
   Q_change.Close;
//结束
//更改原房间状态为空房，并按原来房间状态更改RoomInfo表房间状态和更改单号。
   Q_change.SQL.Clear;
   Q_change.SQL.Add('select * from RoomInfo where RoomName='''+currroom+'''');
   Q_change.Open;
   Q_change.Edit;
   Q_change['RoomStatus']:=0;
   Q_change['NowAccountNo']:=0;
   Q_change.Post;
   Q_change.Close;
   Q_change.SQL.Clear;
   Q_change.SQL.Add('select * from RoomInfo where RoomName='''+changeroom+'''');
   Q_change.Open;
   Q_change.Edit;
   Q_change['RoomStatus']:=RoomStatus;
   Q_change['NowAccountNo']:=AccountNo;
   Q_change.Post;
   Q_change.Close;
//结束
//更改Account表房间名称和状态
   Q_change.SQL.Clear;
   Q_change.SQL.Add('select * from Account where RoomName='''+currroom+'''');
   Q_change.Open;
   if not Q_change.Eof then
   begin
   Q_change.Edit;
   Q_change['RoomName']:=changeroom;
   Q_change.Post;
   end;
   Q_change.Close;
//结束
//更改DinList表房间名称
   Q_change.SQL.Clear;
   Q_change.SQL.Add('select * from DinList where RoomName='''+currroom+'''');
   Q_change.Open;
   while not Q_change.Eof do
   begin
   Q_change.Edit;
   Q_change['RoomName']:=changeroom;
   Q_change.Post;
   Q_change.Next;
   end;
   Q_change.Close;
//结束
//更改RoomIn表房间名称
   Q_change.SQL.Clear;
   Q_change.SQL.Add('select * from RoomIn where RoomName='''+currroom+'''');
   Q_change.Open;
   Q_change.Edit;
   Q_change['RoomName']:=changeroom;
   Q_change['NameNo']:=StrToInt(trim(NameNo.Text));
   Q_change.Post;
   Q_change.Close;
//结束
   form1.
   Form14.Close;
end;

procedure TForm14.FormShow(Sender: TObject);
begin
  Q_ChangeRoom.Active:=False;
  Q_ChangeRoom.Close;
  Q_ChangeRoom.Open;
  Q_ChangeRoom.Active:=True;
  cr.Clear;
while not Q_ChangeRoom.Eof do
        begin
          cr.Items.Add(Q_ChangeRoom.FieldByName('RoomName').AsString);
          Q_ChangeRoom.Next;
        end;
  Q_ChangeRoom.Close;

end;

end.