selectksdaunit.pas

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

unit SelectKSDAUnit;

interface

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

type
  TSelectKSDAForm = class(TForm)
    suiPanel1: TsuiPanel;
    btn1: TsuiButton;
    btn2: TsuiButton;
    suiEdit1: TsuiEdit;
    suiRadioButton8: TsuiRadioButton;
    sdbgrd1: TsuiDBGrid;
    ds1: TClientDataSet;
    ds2: TDataSource;
    suiRadioButton1: TsuiRadioButton;
    suiEdit2: TsuiEdit;
    suiRadioButton2: TsuiRadioButton;
    suiEdit3: TsuiEdit;
    suiRadioButton3: TsuiRadioButton;
    suiComboBox1: TsuiComboBox;
    suiRadioButton5: TsuiRadioButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure suiComboBox1DropDown(Sender: TObject);
    procedure sdbgrd1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SelectKSDAForm: TSelectKSDAForm;

implementation

uses YYCXUnit, LoginUnit, BrowseKSDAUnit;

{$R *.dfm}

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

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

procedure TSelectKSDAForm.FormCreate(Sender: TObject);
begin
  self.suiEdit1.Clear;
  self.suiEdit2.Clear;
  self.suiEdit3.Clear;
  self.suiComboBox1.Clear;
  Self.ds1.Close;
  Self.ds1.CommandText:='select * from guest';
  self.ds1.Open;
end;

procedure TSelectKSDAForm.btn1Click(Sender: TObject);
var
  sql:string;
begin
  if self.suiRadioButton3.Checked then
    sql:='select * from guest';
  if self.suiRadioButton1.Checked then
    sql:='select * from guest where source='''+self.suiComboBox1.Text+'''';
  if self.suiRadioButton8.Checked then
    sql:='select * from roompeople where name='''+self.suiEdit2.Text+'''';
  if self.suiRadioButton2.Checked then
    sql:='select * from roompeople where cardnum='''+self.suiEdit3.Text+'''';
  if self.suiRadioButton5.Checked then
    sql:='select * from roompeople where phone='''+self.suiEdit1.Text+'''';
  Self.ds1.Close;
  Self.ds1.CommandText:=sql;
  self.ds1.Open;
end;

procedure TSelectKSDAForm.suiComboBox1DropDown(Sender: TObject);
begin
  LoginForm.AddCombobox(Self.suiComboBox1,'select name from guestsource');
end;

procedure TSelectKSDAForm.sdbgrd1DblClick(Sender: TObject);
var
  count:integer;
begin
  loginform.ExecuteSQL('select count(*) from bkjz where jzjl_khbh='''+self.ds1.fieldbyname('id').AsString+'''');
  count:=loginform.dsQuery.Fields[0].AsInteger;
  LoginForm.dsQuery.Close;
  if count>0 then
    begin
      application.CreateForm(TBrowseKSDAForm,BrowseKSDAForm);
      BrowseKSDAForm.Show;
      Enabled:=False;
    end;
end;

end.