frmdays.pas

IC卡饭堂售饭管理系统源码,内有相关说明,

unit FrmDayS;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Wwdbigrd, Wwdbgrid, TFlatButtonUnit, ComCtrls,DateUtils;

type
  TFrmDay = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    wwDBGrid1: TwwDBGrid;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    FlatButton3: TFlatButton;
    Label2: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure FlatButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmDay: TFrmDay;

implementation

uses DTConnects;

{$R *.dfm}

procedure TFrmDay.FlatButton3Click(Sender: TObject);
begin
  self.Release;
end;

procedure TFrmDay.FormShow(Sender: TObject);
var Sum:Currency;
begin
    with DTConnect do begin
    QryDay.Close;
    if RadioButton1.Checked then
      QryDay.SQL.Text:='Select sum(UseMoney) as sum from Sellmoney where day([getdate]) = '+inttostr(dayof(DateTimePicker1.Date))
    else
      QryDay.SQL.Text:='Select sum(UseMoney) as sum from Sellmoney where month([getdate]) = '+inttostr(monthof(DateTimePicker1.Date));
    //ShowMessage(QryDay.SQL.Text);
    QryDay.Open;
    //sum:=QryDay.FieldValues['Sum'];
    Label2.Caption:='今天总售饭价格为：'+QryDay.fieldbyname('Sum').AsString+'元';
    //CurrToStrF(sum,ffNumber,5);
    QryDay.Close;
    if RadioButton1.Checked then
      QryDay.SQL.Text:='Select * from Sellmoney where day([getdate]) = '+inttostr(dayof(DateTimePicker1.Date))
    else
      QryDay.SQL.Text:='Select * from Sellmoney where month([getdate]) = '+inttostr(monthof(DateTimePicker1.Date));
    QryDay.Open;
  end;
end;

procedure TFrmDay.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  self.Release;
end;

end.