changeover.pas

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

unit changeover;

interface

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

type
  TForm21 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label6: TLabel;
    Label3: TLabel;
    Label7: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    gz: TComboBox;
    Q_gz: TQuery;
    Button1: TButton;
    Button2: TButton;
    xfje: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form21: TForm21;

implementation

uses Over;

{$R *.dfm}

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

procedure TForm21.Button1Click(Sender: TObject);
  var vxj,vysje:integer;
begin
 if (length(gz.text)=0) or (label6.Caption=gz.Text) then
  begin
   MessageDlg('房间选择错误，请重新选择！',mtError,[mbok],0);
   end
  else
   begin
//更改原来房间Account的是否转帐、转入房间、转帐金额的值.并将各类金额置为0
  Q_gz.SQL.Clear;
  Q_gz.SQL.Add('select * from Account where RoomName='''+Label6.Caption+'''');
  Q_gz.Open;
  Q_gz.Edit;
  Q_gz['sfzz']:='是';
  Q_gz['zzfh']:=gz.Text;
  Q_gz['zzje']:=StrToFloat(xfje.Text);
  Q_gz['rmbje']:=0;
  Q_gz['zpje']:=0;
  Q_gz['xykje']:=0;
  Q_gz['sfje']:=0;
  Q_gz.Post;
  Q_gz.Close;
//结束
//更改结帐方式的值；
  Q_gz.SQL.Clear;
  Q_gz.SQL.Add('select * from RoomIn where RoomName='''+Label6.Caption+'''');
  Q_gz.Open;
  Q_gz.Edit;
  Q_gz['jzfs']:=2;
  Q_gz['sfzz']:='是';
  Q_gz['zzfh']:=gz.Text;
  Q_gz.Post;
  Q_gz.Close;
  Q_gz.SQL.Clear;
  Q_gz.SQL.Add('select * from Account where RoomName='''+gz.Text+'''');
  Q_gz.Open;
  vxj:=Q_gz.FieldByName('xj').asinteger+StrToint(xfje.Text);
  vysje:=Q_gz.FieldByName('ysje').asinteger+StrToint(xfje.Text);
  Q_gz.edit;
  Q_gz['xj']:=vxj;
  Q_gz['zlfy']:=StrToFloat(xfje.Text);
  Q_gz['zlfy_room']:=label6.Caption;
  Q_gz['ysje']:=vysje;
  Q_gz.Post;
  Q_gz.Close;
  form20.speedbutton2.Enabled:=True;
  form20.Speedbutton1.Enabled:=False;
  Form21.Close;
//  Form20.close;
end;
 end;

procedure TForm21.FormShow(Sender: TObject);
begin
  Q_gz.SQL.Clear;
  Q_gz.SQL.Add('select RoomName from RoomIn where RoomStatus=2 and jzfs=0');
  Q_gz.Open;
  Q_gz.Active:=True;
while not Q_gz.Eof do
        begin
          gz.Items.Add(Q_gz.FieldByName('RoomName').AsString);
          Q_gz.Next;
        end;

end;

end.