fxscb.pas

进销存开发系统

unit Fxscb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Fbase, DB, ADODB, Grids, DBGrids, ComCtrls, StdCtrls, ExtCtrls,
  Buttons, ToolWin, RpCon, RpConDS, RpDefine, RpRave;

type
  TF_xscb = class(TF_base)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Panel1: TPanel;
    SpeedButton3: TSpeedButton;
    ToolButton3: TToolButton;
    ADOQuery1: TADOQuery;
    RvProject1: TRvProject;
    RvDataSetConnection1: TRvDataSetConnection;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_xscb: TF_xscb;

implementation
  uses Fdm;
{$R *.dfm}

procedure TF_xscb.SpeedButton2Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TF_xscb.SpeedButton1Click(Sender: TObject);
var
  grow:integer;
  mone,cb,li:real;
begin
  inherited;
  Panel1.Visible:=not(Panel1.Visible);
  if Panel1.Visible=True then
    Exit;
  mone:=0;   //合计金额
  cb:=0;     //合计成本
  li:=0;     //合计毛利
  with Adoquery1 do
  begin
    CLose;
    SQL.Clear;
    SQL.Add('select a.billdate,a.fullname,ss=a.qty *b.averageprice,se=a.price*a.qty,a.qty *a.price-a.qty*b.averageprice tt,c.units from tb_sell_detailed a,tb_stock b,tb_sell_main c ');
    SQL.Add('where a.tradecode=b.tradecode and a.billcode=c.billcode and a.billdate>='+''''+datetostr(datetimepicker1.Date)+''''+'and a.billdate<='+''''+datetostr(datetimepicker2.Date)+''''+'order by a.billdate');
    Open;
  end;
  if adoquery1.RecordCount=0 then
  begin
    Application.MessageBox('无记录','提示',mb_ok);
    Exit;
  end;
  Adoquery1.First;
  for grow:=1 to Adoquery1.RecordCount do
  begin
    mone:=mone+Adoquery1.Fields[3].AsFloat;
    cb:=cb+Adoquery1.Fields[2].AsFloat;
    li:=li+Adoquery1.Fields[4].AsFloat;
    Adoquery1.Next;
  end;
  statusbar1.Panels[1].Text:='销售金额：'+floattostr(mone);
  statusbar1.Panels[2].Text:='销售成本：'+floattostr(cb);
  statusbar1.Panels[3].Text:='销售毛利：'+floattostr(li);
end;

procedure TF_xscb.FormShow(Sender: TObject);
begin
  inherited;
  datetimepicker1.Date:=now();
  datetimepicker2.Date:=now();
end;

procedure TF_xscb.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  inherited;
  if Application.MessageBox('是否退出？','提示',mb_yesno)=Id_no then
    Canclose:=False;
end;

procedure TF_xscb.SpeedButton3Click(Sender: TObject);
begin
  inherited;
  Rvproject1.ProjectFile:=ExtractFilePath(Application.ExeName)+'chengreport.rav';
  RvProject1.Execute;
end;

end.