u4_5.pas

前言 随着旅游业的发展

unit U4_5;

interface

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

type
  TF4_5 = class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    CBoxshouyin: TComboBox;
    LBzai: TLabel;
    EDtime: TEdit;
    LBzhi: TLabel;
    EDtime1: TEdit;
    CBtj1: TComboBox;
    LBtj: TLabel;
    Label1: TLabel;
    SBTshuaxin: TSpeedButton;
    SBTprint: TSpeedButton;
    SBTback: TSpeedButton;
    Bevel1: TBevel;
    Panel2: TPanel;
    Panel3: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    LBtime: TLabel;
    LBheji: TLabel;
    LBjine: TLabel;
    DBGrid1: TDBGrid;
    procedure setTime;
    procedure SBTbackClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SBTshuaxinClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure readInfo;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F4_5: TF4_5;

implementation

uses UDmo;

{$R *.dfm}

procedure TF4_5.readinfo;
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 ''金额'',mingxi.time as ''消费日期'''
            +' from mingxi,Vmingxi');
    sql.Add('where Vmingxi.shangpinname=mingxi.shangpinname');
    sql.Add('and mingxi.ld=''y''');
    open;
  end;
  DBGrid1.Columns.Items[0].Width:=80;
  DBGrid1.Columns.Items[1].Width:=100;
  DBGrid1.Columns.Items[2].Width:=50;
end;

procedure TF4_5.setTime;
begin
  EDtime1.Text:=FormatDateTime('yyyy-mm-dd',NOW-1);
  EDtime.Text:=formatDateTime('yyyy-mm-dd',NOW);
  LBtime.Caption:=EDtime1.Text+' - '+edtime.Text+'  ';
end;

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

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

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

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

procedure TF4_5.FormShow(Sender: TObject);
begin
  readInfo;
end;

end.