unit9.~pas

作者针对当前酒店客房管理的现状

unit Unit9;

interface

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

type
  TForm9 = class(TForm)
    id_Ledit: TLabeledEdit;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    Query1: TQuery;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses Unit8, Unit1;

{$R *.dfm}

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

procedure TForm9.Button1Click(Sender: TObject);
var sm,zh,jsrq,id,sqlstr:string;
begin
  id:=Trim(id_Ledit.Text);
  if Length(id)<1 then
  begin
  ShowMessage('请输入图书条码');
  exit;
  end;
  sqlstr:='select*from cangshub where (Code='''+id+''')and(kjs>0)';

  with TQuery.Create(nil) do
  begin
  try
  Close;
  SQL.Clear;
   SQL.Add(sqlstr);
   Open;
   if RecordCount>0 then
   begin
   zh:=Form8.zh1;
   jsrq:=Form1.StatusBar1.Panels[5].Text;
   sm:=FieldByName('sm').AsString;
   sqlstr:='insert into jieyueb(UserID,Code,Bookname,jsrq)values('''+zh;
   sqlstr:=sqlstr+''','''+id+''','''+sm+''','''+jsrq+''')';
      Close;
  SQL.Clear;
   SQL.Add(sqlstr);
   ExecSQL;
   sqlstr:='update cangshub set kjs=kjs-1 where (Code='''+id+''')';
    Close;
  SQL.Clear;
   SQL.Add(sqlstr);
   ExecSQL;
   end
   else
   begin
    ShowMessage('输入的图书条码有误,请重新输入');
  exit;
  end;
  finally
  free;
  end;
  end;
  Form8.Button1.Click;
  close;
end;

end.