unitsroombookquery.pas

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

unit unitsroombookquery;

interface

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

type
  Tformsroombookquery = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DataSourcesroombook: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    but_query: TButton;
    ckbox_username: TCheckBox;
    ckbox_sroomno: TCheckBox;
    ckbox_arrivetime: TCheckBox;
    ed_username: TEdit;
    ed_sroomno: TEdit;
    dtp_arrivetime: TDateTimePicker;
    procedure ckbox_usernameClick(Sender: TObject);
    procedure ckbox_sroomnoClick(Sender: TObject);
    procedure ckbox_arrivetimeClick(Sender: TObject);
    procedure but_queryClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formsroombookquery: Tformsroombookquery;

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

procedure Tformsroombookquery.ckbox_usernameClick(Sender: TObject);
begin
    if ckbox_username.Checked=true then
       begin
           ed_username.Visible:=true;
           ed_username.SetFocus;
       end
    else
       begin
           ed_username.Visible:=false;
           ed_username.Text:='';
       end;
end;

procedure Tformsroombookquery.ckbox_sroomnoClick(Sender: TObject);
begin
    if ckbox_sroomno.Checked=true then
       begin
           ed_sroomno.Visible:=true;
           ed_sroomno.SetFocus;
       end
    else
       begin
           ed_sroomno.Visible:=false;
           ed_sroomno.Text:='';
       end;
end;

procedure Tformsroombookquery.ckbox_arrivetimeClick(Sender: TObject);
begin
    if ckbox_arrivetime.Checked=true then
       begin
           dtp_arrivetime.Visible:=true;
           dtp_arrivetime.SetFocus;
       end
    else
       begin
           dtp_arrivetime.Visible:=false;
           dtp_arrivetime.Date:=date;
       end;
end;

procedure Tformsroombookquery.but_queryClick(Sender: TObject);
var
    test_sroomno:integer;
    ls_sroomno,ls_username:string;
    ls_arrivetime:TDatetime;
begin
    ls_sroomno:=ed_sroomno.Text;
    ls_username:=ed_username.Text;
    ls_arrivetime:=dtp_arrivetime.Date;
    //如果通过提供包间号查询条件
    if ckbox_sroomno.Checked=true then
       begin
           //判断是否是数字型
           if not tryStrToInt(ls_sroomno,test_sroomno) then
              begin
                  MessageBox(handle,'您输入的包间编号不是一个数字类型！','错误',MB_OK or MB_ICONERROR);
                  ed_sroomno.SetFocus;
                  exit;
              end;

           //找到该包间的记录
           DMHotel.ds_sup_room_status.Open;
           if  not DMHotel.ds_sup_room_status.Locate('sroomno',ed_sroomno.Text,[])then
               begin
                   showmessage('包间编号'+ed_sroomno.Text+'不存在！');
                   exit;
               end;
       end;
       
    //开始查询
    DMHotel.SroomBookQuery(ls_username,ls_sroomno,ls_arrivetime,ckbox_username.Checked,ckbox_sroomno.Checked,ckbox_arrivetime.Checked);
end;

procedure Tformsroombookquery.FormShow(Sender: TObject);
begin
    DMHotel.ds_sroom_book_query.Close;

    ckbox_username.Checked:=false;
    ckbox_sroomno.Checked:=false;
    ckbox_arrivetime.Checked:=false;
    ed_username.Visible:=false;
    ed_sroomno.Visible:=false;
    dtp_arrivetime.Visible:=false;
end;

end.