fjlr_un.pas

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

unit fjlr_un;

interface

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

type
  Tfjlr_frm = class(Tbase_frm)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinDateEdit2: TbsSkinDateEdit;
    bsSkinEdit1: TbsSkinEdit;
    trm_sjtjjxc: TRMDBDataSet;
    RMReport1: TRMReport;
    sp_count: TADOStoredProc;
    ds_count: TDataSource;
    RMXLSExport1: TRMXLSExport;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fjlr_frm: Tfjlr_frm;

implementation

{$R *.dfm}

procedure Tfjlr_frm.bsSkinButton1Click(Sender: TObject);
begin
  inherited;
  if sp_count.Active then
  sp_count.Close;
  
    sp_count.Parameters.ParamValues['@ffdate']:= bsSkinDateEdit1.Date;
    sp_count.Parameters.ParamValues['@fedate']:= bsSkinDateEdit2.Date;
    sp_count.ExecProc;
RMReport1.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
RMReport1.ShowReport;

end;

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

end.