u4_4.pas

前言 随着旅游业的发展

unit U4_4;

interface

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

type
  TF4_4 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    EDtime: TEdit;
    Label2: TLabel;
    EDtime1: TEdit;
    CheckBox1: TCheckBox;
    SBTshuaxin: TSpeedButton;
    Bevel1: TBevel;
    SBTyulan: TSpeedButton;
    SBTprint: TSpeedButton;
    SBTout: TSpeedButton;
    Bevel3: TBevel;
    SBTback: TSpeedButton;
    ImageList1: TImageList;
    TreeView1: TTreeView;
    Panel2: TPanel;
    Panel3: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBGrid1: TDBGrid;
    procedure SetTime;
    procedure SBTbackClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure SBTshuaxinClick(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure readinfo(info:string);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses UDmo;

{$R *.dfm}

procedure TF4_4.readinfo(info:string);
begin
  with dmo.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select distinct mingxi.shangpinName as ''商品编号'',mingcheng as ''商品名称'''
            +',danwei as ''单位'',danjia as ''单价'',Vmingxi.geshu as ''数量'''
            +',Vmingxi.xiaofei as ''金额'' from mingxi,Vmingxi');
    sql.Add('where Vmingxi.shangpinname=mingxi.shangpinname');
    sql.Add('and mingxi.shangpinname like('''+info+'%'')');
    open;
  end;
  DBGrid1.Columns.Items[0].Width:=80;
  DBGrid1.Columns.Items[1].Width:=100;
  DBGrid1.Columns.Items[2].Width:=50;
end;

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

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

procedure TF4_4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TF4_4.FormCreate(Sender: TObject);
begin
  SetTime;
end;

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

procedure TF4_4.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
  str:string;
  info:string;
begin
  str:=TreeView1.selected.Text;
  if str='菜肴' then info:='cy'
  else if str='餐桌号' then info:='cz'
  else if str='酒类' then info:='cj'
  else if str='会议室' then info:='kh'
  else if str='加床费' then info:='kj'
  else if str='其他商品' then info:='kq'
  else if str='房金' then info:='kf'
  else if str='手牌号' then info:='xs'
  else if str='消费及服务' then info:='xx'
  else if str='通信' then info:='st'
  else if str='网络室' then info:='sl'
  else if str='文字处理' then info:='sw'
  else if str='包厢费' then info:='yb'
  else info:='*';
  readInfo(info);
end;

procedure TF4_4.FormShow(Sender: TObject);
begin
  readInfo('*');
end;

end.