seltime_un.pas

手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能

unit seltime_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frmbase_un, bsMessages, bsSkinData, BusinessSkinForm,
  bsSkinCtrls, StdCtrls, Mask, bsSkinBoxCtrls,DateUtils, DB, ADODB,
  RM_dset, RM_dbset, RM_class, ExtCtrls, RM_view, RM_e_main, RM_e_xls,
  Grids, DBGrids;

type
  Tseltime_frm = class(Tbase_frm)
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinDateEdit2: TbsSkinDateEdit;
    bsSkinStdLabel2: TbsSkinStdLabel;
    sp_SjxcCountCurrent: TADOStoredProc;
    ds_SjxcCountCurrent: TDataSource;
    RMReport1: TRMReport;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinStdLabel3: TbsSkinStdLabel;
    RMXLSExport1: TRMXLSExport;
    RMDBDataSet1: TRMDBDataSet;
    RMDBDataSet2: TRMDBDataSet;
    RMReport2: TRMReport;
    ADOTable1: TADOTable;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  seltime_frm: Tseltime_frm;

implementation
 uses data_un;
{$R *.dfm}

procedure Tseltime_frm.bsSkinButton1Click(Sender: TObject);
 var ti:string;
begin
  inherited;
//01为销售数据统计
sp_SjxcCountCurrent.Parameters.ParamValues['@year']:=bsSkinDateEdit2.Date;
sp_SjxcCountCurrent.Open;
ti:=IntToStr(strtoint(FloatToStr( yearof(bsSkinDateEdit2.Date))))+'年'+IntToStr(strtoint(FloatToStr( MonthOf(bsSkinDateEdit2.Date))))+'月的'+ bsSkinEdit1.Text;
//ti:=DateToStr(bsSkinDateEdit2.Date)+ bsSkinEdit1.Text;
RMReport1.Dictionary.Variables.AsString['Y']:=IntToStr(strtoint(FloatToStr( yearof(bsSkinDateEdit2.Date))));
RMReport1.Dictionary.Variables.AsString['M']:=IntToStr(strtoint(FloatToStr( MonthOf(bsSkinDateEdit2.Date)))) ;
RMReport1.Dictionary.Variables.AsString['title'] :=bsSkinEdit1.Text;
RMReport1.ShowReport;

       //ShowMessage('选择的是不是本月');
end;

procedure Tseltime_frm.bsSkinButton2Click(Sender: TObject);
begin
  inherited;
close;
end;

end.