selectkrxxunit.pas

东华休闲山庄洗浴、餐饮、客房管理系统

unit SelectKRXXUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, SUIDBCtrls, SUIButton, StdCtrls, Mask,
  SUIEdit, ComCtrls, ExtCtrls, SUIImagePanel, DBClient;

type
  TSelectKRXXForm = class(TForm)
    ds1: TClientDataSet;
    ds2: TDataSource;
    suiPanel1: TsuiPanel;
    suiRadioButton5: TsuiRadioButton;
    suiRadioButton6: TsuiRadioButton;
    suiRadioButton7: TsuiRadioButton;
    suiRadioButton8: TsuiRadioButton;
    suiRadioButton2: TsuiRadioButton;
    edt1: TsuiEdit;
    suiEdit1: TsuiEdit;
    suiRadioButton4: TsuiRadioButton;
    suiRadioButton3: TsuiRadioButton;
    dtp1: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    suiMaskEdit4: TsuiMaskEdit;
    suiMaskEdit1: TsuiMaskEdit;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker1: TDateTimePicker;
    suiMaskEdit2: TsuiMaskEdit;
    suiMaskEdit3: TsuiMaskEdit;
    btn1: TsuiButton;
    btn2: TsuiButton;
    sdbgrd1: TsuiDBGrid;
    ds3: TClientDataSet;
    wdstrngfldds1id: TWideStringField;
    wdstrngfldds1room: TWideStringField;
    wdstrngfldds1name: TWideStringField;
    wdstrngfldds1sex: TWideStringField;
    wdstrngfldds1phone: TWideStringField;
    wdstrngfldds1cardtype: TWideStringField;
    wdstrngfldds1cardnum: TWideStringField;
    wdstrngfldds1address: TWideStringField;
    ds1entertime: TStringField;
    ds1leavetime: TStringField;
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SelectKRXXForm: TSelectKRXXForm;

implementation

uses LoginUnit, YYCXUnit;

{$R *.dfm}

procedure TSelectKRXXForm.btn2Click(Sender: TObject);
begin
  Close;
end;

procedure TSelectKRXXForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Self.ds3.Close;
  Self.ds1.Close;
  YYCXForm.Enabled:=true;
end;

procedure TSelectKRXXForm.FormCreate(Sender: TObject);
begin
  self.edt1.Clear;
  self.suiEdit1.Clear;
  Self.dtp1.DateTime:=Now;
  self.DateTimePicker1.DateTime:=Self.dtp1.DateTime;
  self.DateTimePicker2.DateTime:=Self.dtp1.DateTime;
  self.DateTimePicker3.DateTime:=Self.dtp1.DateTime;
  Self.ds1.Close;
  Self.ds1.CommandText:='select * from roompeople';
  self.ds1.Open;
end;

procedure TSelectKRXXForm.btn1Click(Sender: TObject);
var
  sql:string;
  startime,endtime:string;
begin
  if self.suiRadioButton5.Checked then
    sql:='select * from roompeople';
  if self.suiRadioButton6.Checked then
    sql:='select * from roompeople where id in (select distinct room_id from room where room_id<>'''')';
  if self.suiRadioButton7.Checked then
    sql:='select * from roompeople where not (id in (select distinct room_id from room where room_id<>''''))';
  if self.suiRadioButton2.Checked then
    sql:='select * from roompeople where room='''+self.edt1.Text+'''';
  if self.suiRadioButton8.Checked then
    sql:='select * from roompeople where name='''+self.suiEdit1.Text+'''';
  if self.suiRadioButton3.Checked then
    begin
      startime:=FormatDateTime('yyyy-mm-dd',self.dtp1.Date)+' '+self.suiMaskEdit1.Text;
      endtime:=FormatDateTime('yyyy-mm-dd',self.DateTimePicker1.Date)+' '+self.suiMaskEdit2.Text;
      sql:='select * from roompeople '+
           'where id in (select id from house where entertime>='''+startime+''' and entertime<='''+endtime+''')';
    end;
  if self.suiRadioButton4.Checked then
    begin
      startime:=FormatDateTime('yyyy-mm-dd',self.DateTimePicker3.Date)+' '+self.suiMaskEdit4.Text;
      endtime:=FormatDateTime('yyyy-mm-dd',self.DateTimePicker2.Date)+' '+self.suiMaskEdit3.Text;
       sql:='select * from roompeople '+
            'where id in (select id from house where leavetime>='''+startime+''' and leavetime<='''+endtime+'''';
    end;
  Self.ds1.Close;
  Self.ds1.CommandText:=sql;
  self.ds1.Open;
end;

end.