u_outmasterstat.pas

河南师范大学餐饮进销存软件,只要控制库存的数据。

unit u_OutMasterStat;

interface

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

type
  TfrmOutMasterStat = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    cmbSupply: TComboBox;
    dtpBegin: TDateTimePicker;
    dtpEnd: TDateTimePicker;
    DBGrid1: TDBGrid;
    qry: TADOQuery;
    DataSource1: TDataSource;
    edtInTotal: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    edtInPayMon: TEdit;
    Label6: TLabel;
    edtInBalance: TEdit;
    btnPrint: TButton;
    procedure FormShow(Sender: TObject);
    procedure cmbSupplyChange(Sender: TObject);
    procedure dtpBeginChange(Sender: TObject);
    procedure dtpEndChange(Sender: TObject);
    procedure MoneyTotal;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnPrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmOutMasterStat: TfrmOutMasterStat;

implementation

uses u_DataCtrl, u_InStatRep, u_OutStatRep;

{$R *.dfm}

procedure TfrmOutMasterStat.FormShow(Sender: TObject);
var
  TemQry : TADOQuery;
begin
  cmbSupply.Clear;
  dtpBegin.Date     := Date();
  dtpEnd.Date       := Date();
  TemQry            := TADOQuery.Create(self);
  TemQry.Connection := frmDataCtrl.ADOConn;
  TemQry.Close;
  TemQry.SQL.Clear;
  TemQry.SQL.Text   := 'select * from tb_Customer';
  TemQry.Active     := True;
  TemQry.First;
  while not(TemQry.Eof) do
  begin
    cmbSupply.Items.Add(TemQry.fieldByName('CusSName').AsString);
    TemQry.Next;
  end;
end;

procedure TfrmOutMasterStat.cmbSupplyChange(Sender: TObject);
begin
  Qry.Close;
  Qry.SQL.Clear;                                                                                                         
  Qry.SQL.Text := 'exec psp_GoodsOutMaster '+QuotedStr(cmbSupply.Text)+','+QuotedStr(FormatDateTime('yyyy-mm-dd',dtpBegin.Date))+','+QuotedStr(FormatDateTime('yyyy-mm-dd',dtpEnd.Date));
  Qry.Open;
  MoneyTotal;
end;

procedure TfrmOutMasterStat.dtpBeginChange(Sender: TObject);
begin
  Qry.Close;
  Qry.SQL.Clear;
  Qry.SQL.Text := 'exec psp_GoodsOutMaster '+QuotedStr(cmbSupply.Text)+','+QuotedStr(FormatDateTime('yyyy-mm-dd',dtpBegin.Date))+','+QuotedStr(FormatDateTime('yyyy-mm-dd',dtpEnd.Date));
  Qry.Open;
  MoneyTotal;
end;

procedure TfrmOutMasterStat.dtpEndChange(Sender: TObject);
begin
  Qry.Close;
  Qry.SQL.Clear;
  Qry.SQL.Text := 'exec psp_GoodsOutMaster '+QuotedStr(cmbSupply.Text)+','+QuotedStr(FormatDateTime('yyyy-mm-dd',dtpBegin.Date))+','+QuotedStr(FormatDateTime('yyyy-mm-dd',dtpEnd.Date));
  Qry.Open;
  MoneyTotal;
end;

procedure TfrmOutMasterStat.MoneyTotal;
var
  TotalMon,PayMent,BalanceMon :real;
begin
  TotalMon :=0 ;
  PayMent  :=0 ;
  BalanceMon :=0 ;
  Qry.First;
  while not(Qry.Eof) do
  begin
    TotalMon:=TotalMon+Qry.fieldByname('OutTotal').AsFloat;
    PayMent :=PayMent+Qry.fieldbyname('OutPayMon').AsFloat;
    if Qry.FieldByName('btCheck').AsString ='欠款' then
      BalanceMon:=BalanceMon+Qry.fieldbyname('OutBalance').AsFloat;
    Qry.Next;
  end;
  edtIntotal.Text := FloattoStr(TotalMon);
  edtInPayMon.Text:= FloattoStr(PayMent);
  edtInBalance.Text:=Floattostr(BalanceMon);
end;

procedure TfrmOutMasterStat.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := Cafree ;
end;

procedure TfrmOutMasterStat.btnPrintClick(Sender: TObject);
begin
  if Qry.Active=true then
  if Qry.RecordCount>0 then
    begin
      frmOutStatRep.edtSup.Caption := cmbSupply.Text ;
      frmOutStatRep.edtStart.Caption := FormatDateTime('yyyy-mm-dd',dtpBegin.Date);
      frmOutStatRep.edtend.Caption := FormatDateTime('yyyy-mm-dd',dtpend.Date);
      frmOutStatRep.OutStatRep.Preview;
    end;
end;

end.