rxsbb.pas

用delphi编写的销售管理系统

unit rxsbb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls, Grids, DBGrids, DB,Printers,ADODB,  RpSystem, RpDefine, RpBase;

type
  TForm61 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    SpeedButton1: TSpeedButton;
    BitBtn8: TBitBtn;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    aa: TRvSystem;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure aaPrint(Sender: TObject);
    procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form61: TForm61;

implementation
  uses DataModal,spxsgl;
{$R *.dfm}

procedure TForm61.FormShow(Sender: TObject);
begin
  DataSource1.DataSet := nil;
  
end;

procedure TForm61.SpeedButton1Click(Sender: TObject);
var
  year,month,Day: word;
begin
  DecodeDate(DateTimePicker1.Date,year,Month,Day);
  with Data.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 销售表 where (销售票号 in (select 销售票号 from 销售票号表 where year(销售时间)= :a and month(销售时间)= :b and Day(销售时间)=:c ))');
    Parameters.ParamByName('a').Value := Year;
    Parameters.ParamByName('b').Value := Month;
    Parameters.ParamByName('c').Value := Day;
    Open;
  end;
  if Data.ADOQuery1.RecordCount >0 then
    begin
      DataSource1.DataSet := Data.ADOQuery1;
      BitBtn1.Enabled := True;
    end
    else
    begin
      DataSource1.DataSet := nil;
      BitBtn1.Enabled := False;
    end;
end;

procedure TForm61.BitBtn1Click(Sender: TObject);
begin
  aa.Execute;
end;

procedure TForm61.aaPrint(Sender: TObject);
begin
    with Sender as TBaseRePort do
    begin
      setfont('宋体',18);
      TBaseRePort(sender).Canvas.Font.Color := clRed;
      Bold := True;
      underline := True;
      ypos := 1.0;
      PrintCenter('日销售报表',pagewidth / 2);
      setFont('宋体',10);
      TBaseRePort(sender).Canvas.Font.Color := clBlue;
      ypos := 1.4 ;
      printLeft('操作员姓名:',0.9);
      printleft(czy,1.7);
      printleft('时间:',pageWidth-2.2);
      PrintLeft(FormatDateTime('yyyy-mm-dd',Now),pageWidth-1.7);
      ypos := 1.7;
      Cleartabs;
      setFont('宋体',12);
      TBaseRePort(sender).Canvas.Font.Color := clBlue;
      setpen(clblack,pssolid,1,pmcopy);
      settab(0.9,pjcenter,1.0,0,boxlineall,0);
      settab(na,pjcenter,1.0,0,boxlineall,0);
      settab(na,pjcenter,1.0,0,boxlineall,0);
      settab(na,pjcenter,1.0,0,boxlineall,0);
      settab(na,pjcenter,0.6,0,boxlineall,0);
      settab(na,pjcenter,0.6,0,boxlineall,0);
      settab(na,pjcenter,1.2,0,boxlineall,0);
      bold := True;
      tab(-2,na,-2,-2,10);
      Print('商品编号');
      tab(na,na,-2,-2,10);
      Print('商品名称');
      Tab(na,na,-2,-2,10);
      Print('客户编号');
      Tab(na,na,-2,-2,10);
      Print('客户全称');
      Tab(na,na,-2,-2,10);
      Print('数量');
      Tab(na,na,-2,-2,10);
      Print('金额');
      Tab(na,-2,-2,-2,10);
      Print('销售票号');
      Bold := False;
      ypos := 1.9;
      ClearTabs;
      setFont('宋体',10);
      TBaseRePort(sender).Canvas.Font.Color := clBlue;
      settab(0.9,pjcenter,1.0,2,boxlineall,0);
      settab(na,pjcenter,1.0,2,boxlineall,0);
      settab(na,pjcenter,1.0,2,boxlineall,0);
      settab(na,pjcenter,1.0,2,boxlineall,0);
      settab(na,pjcenter,0.6,2,boxlineall,0);
      settab(na,pjcenter,0.6,2,boxlineall,0);
      settab(na,pjcenter,1.2,2,boxlineall,0);
      Data.ADOQuery1.First;
      ypos := 1.85;
      while Not Data.ADOQuery1.Eof do
      begin
        Tab(-2,na,na,na,0);
        print(Data.ADOQuery1.Fields[0].Value);
        tab(na,na,na,na,0);
        print(Data.ADOQuery1.Fields[1].Value);
        tab(na,na,na,na,0);
        print(Data.ADOQuery1.Fields[2].Value);
        tab(na,na,na,na,0);
        print(Data.ADOQuery1.Fields[3].Value);
        tab(na,na,na,na,0);
        print(FloatToStr(Data.ADOQuery1.Fields[4].Value));
        tab(na,na,na,na,0);
        print(FloatToStr(Data.ADOQuery1.Fields[5].Value));
        tab(na,-2,na,na,0);
        print(Data.ADOQuery1.Fields[7].Value);
        Println('');
        Data.ADOQuery1.Next;
      end;
    end;
end;

procedure TForm61.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure TForm61.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clBlue;
end;

end.