viewfeeform.pas

本程序是一个餐饮业的管理软件

unit ViewFeeForm;

interface

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

type
  TFrmViewFee = class(TForm)
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    SpinEdit1: TSpinEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpinEdit1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmViewFee: TFrmViewFee;

implementation

uses DataM;

{$R *.dfm}

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

procedure TFrmViewFee.SpinEdit1Change(Sender: TObject);
var
chequeSum, chequeTmp: Currency;
cashSum, cashTmp: Currency;
incomeSum:Currency;
str : string;
i: integer;
begin
Data.ADOQTEnd.Close;
Data.ADOQTEnd.SQL.Clear;
Data.ADOQTEnd.SQL.Add('select * from TableEnds where Date>='+ '#' + SpinEdit1.Text+'-1-1' +'#' + 'and Date<='+ '#'+SpinEdit1.Text +'-12-31'+'#');
str :=  'select * from TableEnds where Date>='+ '#' + SpinEdit1.Text+'-1-1' +'#' + ' and Date<='+ '#'+SpinEdit1.Text +'-12-31'+'#';
Data.ADOQTEnd.Open;


for i:=1 to Data.ADOQTEnd.RecordCount do
begin
   // 计算支票收入
  if  Data.ADOQTEnd.FieldByName('TypeOfCoin').AsString = '支票' then
     chequeTmp := Data.ADOQTEnd.FieldByName('PayActually').AsCurrency ;
  if Data.ADOQTEnd.FieldByName('NameOfCoin').AsString = '美元' then
       chequeTmp := chequeTmp*8;
  chequeSum := chequeSum + chequeTmp;
  //
  //计算现金收入
  //
    if Data.ADOQTEnd.FieldByName('TypeOfCoin').AsString = '现金' then
    cashTmp := Data.ADOQTEnd.FieldByName('PayActually').AsCurrency ;
  if Data.ADOQTEnd.FieldByName('NameOfCoin').AsString = '美元' then
      cashTmp := cashTmp*8;
  cashSum := cashSum + cashTmp;
  Data.ADOQTEnd.Next;
end;
  //
  //计算收入总额
  //
  incomeSum := cashSum + chequeSum;
  Edit2.Text := FloatToStr(cashSum);
  Edit3.Text := FloatToStr(chequeSum);
  Edit4.Text := FloatToStr(incomeSum);
end;

procedure TFrmViewFee.FormCreate(Sender: TObject);
begin
Data.ADOQTEnd.Open;
end;

end.