u2_3.pas

前言 随着旅游业的发展

unit U2_3;

interface

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

type
  TF2_3 = class(TForm)
    bmzPanel1: TPanel;
    bmPanel1: TPanel;
    LBbumen: TLabel;
    CBoxBumen: TComboBox;
    dwPanel1: TPanel;
    LBdingwei: TLabel;
    EDdingwei: TEdit;
    Panel1: TPanel;
    LBzhi: TLabel;
    SBTshuaxin: TSpeedButton;
    Bevel1: TBevel;
    SBTyulan: TSpeedButton;
    SBTout: TSpeedButton;
    Bevel3: TBevel;
    SBTback: TSpeedButton;
    CBoxRiqi: TComboBox;
    CBoxjiezhang: TComboBox;
    EDtime: TEdit;
    EDtime1: TEdit;
    LBzai: TLabel;
    LByesOrno: TLabel;
    SBTprint: TSpeedButton;
    xfdPanel1: TPanel;
    xfdPageControl1: TPageControl;
    xmTabSheet1: TTabSheet;
    xmDBGrid1: TDBGrid;
    Panel2: TPanel;
    DBGrid2: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SetTime;
    procedure SBTshuaxinClick(Sender: TObject);
    procedure SBTbackClick(Sender: TObject);
    procedure CBoxRiqiChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure readinfo(info:string);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure DBGrid2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CBoxBumenChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses UDmo;

{$R *.dfm}
var
  tj:string;

procedure TF2_3.readinfo(info:string);
begin
  with dmo.ADOQuery3 do
  begin
    Close;
    xmDBgrid1.Columns.Clear;
    sql.Clear;
    sql.add('select xfID as ''ID'',mingxi.zhanghaoID as ''顾客账号'','
            +'shangpinName as ''编号'',mingcheng as ''名称'','
            +'danwei as ''单位'',danjia as ''单价'','
            +'mingxi.xiaofei as ''消费额'',time as ''消费时间''');
    sql.Add('from mingxi,zhanghao');
    sql.Add('where zhanghao.dengjiID=:dengjiID');
    sql.add('and mingxi.zhanghaoID=zhanghao.zhanghaoID');
    if tj<>'*' then
       sql.Add('and shangpinName like('''+tj+'%'')');
    parameters.ParamByName('dengjiID').Value:=strToint(info);
    open;
  end;
end;

procedure TF2_3.SetTime;
begin
  EDtime1.Text:=FormatDateTime('yyyy-mm-dd',NOW);
end;

procedure TF2_3.FormCreate(Sender: TObject);
begin
  SetTime;
  tj:='*';
end;

procedure TF2_3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=CaFree;
end;

procedure TF2_3.SBTshuaxinClick(Sender: TObject);
begin
  SetTime;
end;

procedure TF2_3.SBTbackClick(Sender: TObject);
begin
  Close;
end;

procedure TF2_3.CBoxRiqiChange(Sender: TObject);
begin
  if CBoxRiqi.ItemIndex=1 then
  begin
    CBoxjiezhang.Enabled:=false;
    CBoxjiezhang.Color:=clScrollBar;
  end else
  begin
    CBoxjiezhang.Enabled:=true;
    CBoxjiezhang.Color:=clWindow;
  end;
end;


procedure TF2_3.FormShow(Sender: TObject);
begin
  with Dmo.ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    Sql.Add('select Distinct dengjiID, na from Vinfo');
    sql.Add('where zhuangtai=1');
    open;
  end;
  Dbgrid2.Columns.Items[0].Width:=40;
  DBGrid2.Columns.Items[1].Width:=50;
  readInfo('0');
end;

procedure TF2_3.DBGrid2CellClick(Column: TColumn);
begin
  readInfo(DBgrid2.Fields[0].AsString);
end;

procedure TF2_3.DBGrid2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  readInfo(DBgrid2.Fields[0].AsString);
end;

procedure TF2_3.CBoxBumenChange(Sender: TObject);
begin
  with CBoxbumen do
  begin
    if text='客房' then
      tj:='k'
    else if text='商务中心' then
      tj:='s'
    else if text='餐饮' then
      tj:='c'
    else if text='桑拿' then
      tj:='x'
    else if text='休闲娱乐' then
      tj:='y'
    else tj:='*';
  end;
  readInfo(DBgrid2.Fields[0].AsString);
end;

end.