unit8.~pas

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

unit Unit8;

interface

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

type
  TForm8 = class(TForm)
    GroupBox1: TGroupBox;
    zh_Ledit: TLabeledEdit;
    Button1: TButton;
    Button2: TButton;
    GroupBox2: TGroupBox;
    xm_Ledit: TLabeledEdit;
    xb_Ledit: TLabeledEdit;
    lb_Ledit: TLabeledEdit;
    kjsl_Ledit: TLabeledEdit;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    PopupMenu1: TPopupMenu;
    yjsl_Ledit: TLabeledEdit;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
  zh1:string;
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation
 uses Unit1,unit9;
{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);
var zh,sqlstr:string;

begin
    zh:=Trim(zh_Ledit.Text);
    sqlstr:='select a.UserID,a.Name,a.Sex,a.GroupID,b.GroupID,b.Maxnum from  Userb a,Groupb b where(a.UserID='''+zh+''')and(a.GroupID=b.GroupID)';
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
    if Query1.RecordCount>0 then
    begin
    zh1:=zh;
    xm_Ledit.Text:=Query1.FieldByname('Name').AsString;
    xb_Ledit.Text:=Query1.FieldByname('Sex').AsString;
    lb_Ledit.Text:=Query1.FieldByname('GroupID').AsString;
    kjsl_Ledit.Text:=Query1.FieldByname('Maxnum').AsString;
   yjsl_Ledit.Text:=Query1.FieldByname('jyzj').AsString;
   end
   else
   begin
   ShowMessage('输入的证号有误请重新输入!');
   exit;
   end;
   sqlstr:='select*from jieyueb where (UserID="'+zh+'")and(hf=0)';
   Query1.Close;
   Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
    yjsl_Ledit.Text:=IntToStr(Query1.RecordCount);
    if Query1.RecordCount>0 then
    begin
    N1.Enabled:=True;
     N2.Enabled:=True;
      N3.Enabled:=True;
       N4.Enabled:=True;
       end
       else
       begin
        N1.Enabled:=False;
         N1.Enabled:=True;
          N1.Enabled:=False;
           N1.Enabled:=False;
           end;
end;

procedure TForm8.N1Click(Sender: TObject);
var id,hsrq,sqlstr:string;
begin
  if MessageDlg('确认要还书吗?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
  begin
  with TQuery.Create(nil) do
  begin
  try
  id:=Query1.FieldByName('Code').AsString;

  hsrq:= Form1.StatusBar1.Panels[5].Text;
  sqlstr:='update jieyueb set hsrq="'+hsrq+'",hf=1 where(Code="'+id+'")';
   Close;
   SQL.Clear;
   SQL.Add(sqlstr);
   ExecSQL;
   sqlstr:='update cangshub set kjs=kjs+1 where (code="'+id+'")';
    Close;
   SQL.Clear;
   SQL.Add(sqlstr);
   ExecSQL;
   finally
   free;
   end;
   end;
   Button1.Click;
   end;
end;

procedure TForm8.N2Click(Sender: TObject);
begin
   Application.CreateForm(TForm9,Form9);
   Form9.ShowModal;
end;

procedure TForm8.N3Click(Sender: TObject);
var id,sqlstr,jsrq:string;
begin
 id:=Query1.FieldByName('Code').AsString;
 jsrq:= Form1.StatusBar1.Panels[5].Text;
 sqlstr:='update jieyueb set jsrq="'+jsrq+'" where (code="'+id+'")';
  if MessageDlg('确认要续借该图书吗?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
  begin
  with TQuery.Create(nil) do
  begin
  try
  Close;
  SQL.Clear;
   SQL.Add(sqlstr);
   ExecSQL;
   finally
   free;
   end;
   end;
   Button1.Click;
   end;
end;

procedure TForm8.N4Click(Sender: TObject);
var id:string;
begin
  id:=Query1.FieldByName('Code').AsString;
   if MessageDlg('确认要删除选中的记录吗?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
   begin
    with TQuery.Create(nil) do
  begin
  try
  Close;
  SQL.Clear;
   SQL.Add('delete from cangshub where code="'+id+'"');
   ExecSQL;
   finally
   free;
   end;
   end;
   Button1.Click;
end;

end;

procedure TForm8.Button2Click(Sender: TObject);
begin
   zh_Ledit.Clear;
end;

procedure TForm8.Button3Click(Sender: TObject);
begin
   close;
end;

end.