yxsbb.~pas

用delphi编写的销售管理系统

unit yxsbb;

interface

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

type
  TForm62 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    DateTimePicker1: TDateTimePicker;
    BitBtn8: TBitBtn;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    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
  Form62: TForm62;

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

{ TForm62 }

procedure TForm62.aaPrint(Sender: TObject);
begin
  if Data.ADOQuery1.Active = True then
  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.9);
      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.1,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.1,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;
end;

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

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

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

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

procedure TForm62.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)');
    Parameters.ParamByName('a').Value := year;
    Parameters.ParamByName('b').Value := Month;
    Open;
  end;
  if Data.ADOQuery1.RecordCount >0 then
    DataSource1.DataSet := Data.ADOQuery1
  else
    DataSource1.DataSet := Nil;
end;

end.