unitsroombook.pas

来自「自己做过的工程」· PAS 代码 · 共 118 行

unit unitsroombook;

interface

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

type
  Tformsroombook = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    but_add: TButton;
    but_modify: TButton;
    but_exit: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    but_delete: TButton;
    procedure but_exitClick(Sender: TObject);
    procedure but_addClick(Sender: TObject);
    procedure but_modifyClick(Sender: TObject);
    procedure but_deleteClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formsroombook: Tformsroombook;
  AddorModify: integer;   //添加或修改
          SQL: string;

implementation
       uses unitDMHotel,unitsupmanage,unitsroombook_data;
{$R *.dfm}

procedure Tformsroombook.but_exitClick(Sender: TObject);
begin
    close;
end;

//添加预定记录
procedure Tformsroombook.but_addClick(Sender: TObject);
begin
    DMHotel.ds_sup_room_status.Open;
    //插入状态
    AddorModify:=1;
    //打开录入窗口
    formsroombook_data.ShowModal;
    formsroombook_data.Caption:='包间预定录入';
end;

//修改预定记录
procedure Tformsroombook.but_modifyClick(Sender: TObject);
begin
    //没有选择纪录
    DMHotel.ds_sroom_book.Open;
    DMHotel.ds_sup_room_status.Open;
    if DMHotel.ds_sroom_book.FieldByName('sroomid').AsString='' then
       begin
         showmessage('请先选择要修改的纪录!');
         exit;
       end;

    //修改状态
    AddorModify:=0;
    //打开录入窗口
    formsroombook_data.ShowModal;
    formsroombook_data.Caption:='包间预定修改';
end;

//删除预定记录
procedure Tformsroombook.but_deleteClick(Sender: TObject);
var
    ls_sroomid,ls_sroomno:string;
    statuscolor:Tcolor;
begin
    //没有选择纪录
    DMHotel.ds_sroom_book.Open;
    if DMHotel.ds_sroom_book.FieldByName('sroomid').AsString='' then
       begin
         showmessage('请先选择要删除的纪录!');
         exit;
       end;

    if   MessageDlg('您确定要删除该记录吗？',mtConfirmation,[mbYes,mbNo],0)= mrNO then
         exit;

    ls_sroomid:=DMHotel.ds_sroom_book.FieldByName('sroomid').AsString; //取用户名
    ls_sroomno:=DMHotel.ds_sroom_book.FieldByName('sroomno').AsString;//取包间号
    //删除操作
    SQL:='delete from sroom_book '+'where sroomid='+''''+ls_sroomid+'''';
    DMHotel.ADOQuery1.SQL.Text:=SQL;
    try
         DMHotel.ADOQuery1.ExecSQL;
    except
         showmessage('删除失败！');
         exit;
    end;
    DMHotel.ds_sroom_book.Requery;

    //使用的颜色
    statuscolor:=color1;
    //改变将被使用包间状态
    formsupmanage.sroomstatus_change(statuscolor,strtoint(ls_sroomno),'空闲');
end;

procedure Tformsroombook.FormShow(Sender: TObject);
begin
    DMHotel.ds_sroom_book.Close;
    DMHotel.ds_sroom_book.Open;
end;

end.