guestselectunit.pas

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

unit GuestSelectUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, Grids, DBGrids, SUIDBCtrls;

type
  TGuestSelectForm = class(TForm)
    sdbgrd1: TsuiDBGrid;
    ds1: TClientDataSet;
    ds2: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sdbgrd1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure sdbgrd1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  GuestSelectForm: TGuestSelectForm;

implementation

uses LoginUnit, SKKDUnit, TTKDUnit, YDDJUnit, YDKDUnit;

{$R *.dfm}

procedure TGuestSelectForm.FormCreate(Sender: TObject);
begin
  self.ds1.Close;
  self.ds1.Open;
  if SKKDForm<>nil then
    //self.ds1.Filter:='name='''+skkdform.suiEdit6.Text+'''';
  if ttKDForm<>nil then
    self.ds1.Filter:='name='''+ttkdform.suiEdit6.Text+'''';
  if YDDJForm<>nil then
    self.ds1.Filter:='name='''+YDDJform.suiEdit1.Text+'''';
  if YDKDForm<>nil then
    //self.ds1.Filter:='name='''+YDkdform.suiEdit6.Text+'''';
  self.ds1.Filtered:=True;
end;

procedure TGuestSelectForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if SKKDForm<>nil then
    begin
      //skkdform.stat1.Panels[0].Text:='宾客【'+skkdform.suiEdit6.Text+'】'+
      //                               '第'+ds1.fieldbyname('cometime').AsString+'次光临'+
      //                               '共消费'+FormatFloat('￥0.00',ds1.fieldbyname('expenditure').AsFloat)+'元！';
      {SKKDForm.guestid:=ds1.fieldbyname('ID').AsString;
      skkdform.suiComboBox1.Text:=ds1.fieldbyname('source').AsString;
      skkdform.suiComboBox2.Text:=ds1.fieldbyname('sex').AsString;
      skkdform.suiEdit2.Text:=ds1.fieldbyname('phone').AsString;
      skkdform.suiComboBox7.Text:=ds1.fieldbyname('cardtype').AsString;
      skkdform.suiEdit3.Text:=ds1.fieldbyname('cardnum').AsString;
      skkdform.suiEdit4.Text:=ds1.fieldbyname('address').AsString;
      skkdform.suiComboBox3.Text:=ds1.fieldbyname('sex').AsString;
      skkdform.suiEdit16.Text:=ds1.fieldbyname('phone').AsString;
      skkdform.suiComboBox4.Text:=ds1.fieldbyname('cardtype').AsString;
      skkdform.suiEdit8.Text:=ds1.fieldbyname('cardnum').AsString;
      skkdform.suiEdit9.Text:=ds1.fieldbyname('address').AsString;}
      SKKDFORM.Enabled:=TRUE;
    end;
  if TTKDForm<>nil then
    begin
      TTKDForm.stat1.Panels[0].Text:='宾客【'+ttkdform.suiEdit6.Text+'】'+
                                     '第'+ds1.fieldbyname('cometime').AsString+'次光临'+
                                     '共消费'+FormatFloat('￥0.00',ds1.fieldbyname('expenditure').AsFloat)+'元！';
      TTKDForm.guestid:=ds1.fieldbyname('ID').AsString;
      TTKDForm.suiComboBox1.Text:=ds1.fieldbyname('source').AsString;
      TTKDForm.suiComboBox2.Text:=ds1.fieldbyname('sex').AsString;
      TTKDForm.suiEdit2.Text:=ds1.fieldbyname('phone').AsString;
      TTKDForm.suiComboBox7.Text:=ds1.fieldbyname('cardtype').AsString;
      TTKDForm.suiEdit3.Text:=ds1.fieldbyname('cardnum').AsString;
      TTKDForm.suiEdit4.Text:=ds1.fieldbyname('address').AsString;
      TTKDForm.suiComboBox3.Text:=ds1.fieldbyname('sex').AsString;
      TTKDForm.suiEdit16.Text:=ds1.fieldbyname('phone').AsString;
      TTKDForm.suiComboBox4.Text:=ds1.fieldbyname('cardtype').AsString;
      TTKDForm.suiEdit8.Text:=ds1.fieldbyname('cardnum').AsString;
      TTKDForm.suiEdit9.Text:=ds1.fieldbyname('address').AsString;
      TTKDForm.Enabled:=TRUE;
    end;
  if YDDJForm<>nil then
    begin
      YDDJForm.suiEdit2.Text:=ds1.fieldbyname('phone').AsString;
      YDDJForm.Enabled:=TRUE;
    end;
  if YDKDForm<>nil then
    begin
      {YDKDForm.stat1.Panels[0].Text:='宾客【'+ydkdform.suiEdit6.Text+'】'+
                                     '第'+ds1.fieldbyname('cometime').AsString+'次光临'+
                                     '共消费'+FormatFloat('￥0.00',ds1.fieldbyname('expenditure').AsFloat)+'元！';
      YDKDForm.guestid:=ds1.fieldbyname('ID').AsString;
      YDKDForm.suiComboBox1.Text:=ds1.fieldbyname('source').AsString;
      YDKDForm.suiComboBox2.Text:=ds1.fieldbyname('sex').AsString;
      YDKDForm.suiEdit2.Text:=ds1.fieldbyname('phone').AsString;
      YDKDForm.suiComboBox7.Text:=ds1.fieldbyname('cardtype').AsString;
      YDKDForm.suiEdit3.Text:=ds1.fieldbyname('cardnum').AsString;
      YDKDForm.suiEdit4.Text:=ds1.fieldbyname('address').AsString;
      YDKDForm.suiComboBox3.Text:=ds1.fieldbyname('sex').AsString;
      YDKDForm.suiEdit16.Text:=ds1.fieldbyname('phone').AsString;
      YDKDForm.suiComboBox4.Text:=ds1.fieldbyname('cardtype').AsString;
      YDKDForm.suiEdit8.Text:=ds1.fieldbyname('cardnum').AsString;
      YDKDForm.suiEdit9.Text:=ds1.fieldbyname('address').AsString;
      YDKDForm.Enabled:=TRUE; }
    end;
  ds1.Close;
end;

procedure TGuestSelectForm.sdbgrd1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if sdbgrd1.DataSource.DataSet.RecNo mod 2 = 0 theN
    sdbgrd1.Canvas.Brush.Color:=clSilver
  else
    sdbgrd1.Canvas.Brush.Color:=clYellow;
  sdbgrd1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TGuestSelectForm.sdbgrd1CellClick(Column: TColumn);
begin
  close;
end;

end.