dlreport_un.pas

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

unit dlreport_un;

interface

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

type
  Tdlreport_frm = class(Tbase_frm)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinDateEdit2: TbsSkinDateEdit;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinStdLabel15: TbsSkinStdLabel;
    ds_sjcs: TDataSource;
    ds_sjxh: TDataSource;
    tbl_sjxh: TADOTable;
    qry__sjcs: TADOQuery;
    tbl_gt: TADOTable;
    ds_gt: TDataSource;
    sp_1: TADOStoredProc;
    ds_1: TDataSource;
    RMReport1: TRMReport;
    RMDBDataSet1: TRMDBDataSet;
    RMReport2: TRMReport;
    RMXLSExport1: TRMXLSExport;
    RMReport3: TRMReport;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinRadioGroup2: TbsSkinRadioGroup;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
  sear,act :Integer;
  fgt,sjxh,lx:string;
    { Public declarations }
  end;

var
  dlreport_frm: Tdlreport_frm;

implementation
   USES data_un;
{$R *.dfm}

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

procedure Tdlreport_frm.bsSkinButton1Click(Sender: TObject);
begin
  inherited;
  sear:=bsSkinRadioGroup2.ItemIndex+1;
 if bsSkinGroupBox4.Checked then
 fgt:=tbl_gt.FieldValues['fid']
 else
 fgt:='ALL'  ;
 IF bsSkinGroupBox3.Checked then
 sjxh:=tbl_sjxh.FieldValues['fid']
 else
 sjxh:='ALL'  ;
case bsSkinComboBox1.ItemIndex OF
0:LX:='ALL';
1:LX:='LH';
2:LX:='LX';
3:lx:='TH' ;
4:LX:='WX';
END ;
if sp_1.Active then
sp_1.Close;
with SP_1.Parameters DO
begin
ParamValues['@act']:=Act;
ParamValues['@fdate']:= bsSkinDateEdit1.Date;
ParamValues['@fedate']:= bsSkinDateEdit2.Date;
ParamValues['@fgt']:=fgt;
ParamValues['@lx']:=lx   ;
ParamValues['@sear']:=bsSkinRadioGroup2.ItemIndex+1;
ParamValues['@sjxh']:=sjxh;
end;
sp_1.ExecProc;
sp_1.Open;
RMReport1.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
if sear=1 then
 RMReport1.ShowReport;
 RMReport2.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
 if sear =2 then
 RMReport2.ShowReport;
 RMReport3.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
 if sear=3 then
 RMReport3.ShowReport;

end;

procedure Tdlreport_frm.FormCreate(Sender: TObject);
begin
  inherited;
qry__sjcs.Open;
tbl_sjxh.Open;
tbl_gt.Open;
 bsSkinDateEdit2.Date:=Date();
end;

procedure Tdlreport_frm.FormShow(Sender: TObject);
begin
  inherited;
 if sear=1 then
  bsSkinGroupBox3.Visible:=False;

end;

end.