frmaddrecords.pas

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

unit FrmAddRecordS;

interface

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

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

var
  FrmAddRecord: TFrmAddRecord;

implementation

uses DTConnects;

{$R *.dfm}

procedure TFrmAddRecord.FormShow(Sender: TObject);
begin
  with DTConnect do begin
    QryAdd.Close;
    if RadioButton1.Checked then
      QryAdd.SQL.Text:='Select SUM(money) as admoney from AddMoney where day([adddate]) ='+inttostr(dayof(DateTimePicker1.Date))
    else
      QryAdd.SQL.Text:='Select sum(money) as admoney from AddMoney where month([adddate]) ='+inttostr(monthof(DateTimePicker1.Date));
    QryAdd.Open;
    Label2.Caption:='充值总数为：'+QryAdd.fieldbyname('Admoney').AsString;
    QryAdd.Close;
    if RadioButton1.Checked then
      QryAdd.SQL.Text:='Select * from AddMoney where day([adddate]) ='+inttostr(dayof(DateTimePicker1.Date))
    else
      QryAdd.SQL.Text:='Select * from AddMoney where month([adddate]) ='+inttostr(monthof(DateTimePicker1.Date));
    QryAdd.Open;
  end;
end;

procedure TFrmAddRecord.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  SELF.Release;
end;

procedure TFrmAddRecord.FlatButton3Click(Sender: TObject);
begin
  SELF.Release;
end;

end.