unitsroomhquery.pas

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

unit unitsroomHquery;

interface

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

type
  TformsroomHquery = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DataSourcesroomH: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    but_query: TButton;
    ckbox_username: TCheckBox;
    ckbox_sroomno: TCheckBox;
    ckbox_entertime: TCheckBox;
    ed_username: TEdit;
    ed_sroomno: TEdit;
    dtp_entertime: TDateTimePicker;
    Label1: TLabel;
    procedure ckbox_usernameClick(Sender: TObject);
    procedure ckbox_sroomnoClick(Sender: TObject);
    procedure ckbox_entertimeClick(Sender: TObject);
    procedure but_queryClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formsroomHquery: TformsroomHquery;

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

procedure TformsroomHquery.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 TformsroomHquery.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 TformsroomHquery.ckbox_entertimeClick(Sender: TObject);
begin
    if ckbox_entertime.Checked=true then
       begin
           dtp_entertime.Visible:=true;
           dtp_entertime.SetFocus;
       end
    else
       begin
           dtp_entertime.Visible:=false;
           dtp_entertime.Date:=date;
       end;
end;

procedure TformsroomHquery.but_queryClick(Sender: TObject);
var
    test_sroomno:integer;
    ls_sroomno,ls_username:string;
    ls_entertime:TDatetime;
begin
    ls_sroomno:=ed_sroomno.Text;
    ls_username:=ed_username.Text;
    ls_entertime:=dtp_entertime.Date;
    //如果通过提供包间号查询条件
    if ckbox_sroomno.Checked=true then
       begin
           //判断是否是数字型
           if not tryStrToInt(ed_sroomno.Text,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.SupDetailQuery(ls_username,ls_sroomno,ls_entertime,'yes',ckbox_username.Checked,ckbox_sroomno.Checked,ckbox_entertime.Checked);

end;

//初始化
procedure TformsroomHquery.FormShow(Sender: TObject);
begin
    DMHotel.ds_sup_detail_query.Close;

    ckbox_username.Checked:=false;
    ckbox_sroomno.Checked:=false;
    ckbox_entertime.Checked:=false;
    ed_username.Visible:=false;
    ed_sroomno.Visible:=false;
    dtp_entertime.Visible:=false;
end;

end.