dlfjreport_un.pas

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

unit dlfjreport_un;

interface

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

type
  Tdlfjreport_frm = class(Tbase_frm)
    ds_fxlx: TDataSource;
    tbl_fxlx: TADOTable;
    ds_fjcs: TDataSource;
    tbl_fjcs: TADOTable;
    ds_fjlx: TDataSource;
    tbl_fjlx: TADOTable;
    ds_sjcs: TDataSource;
    tbl_sjcs: TADOTable;
    tbl_sjxh: TADOTable;
    ds_hyd: TDataSource;
    tbl_hyd: TADOTable;
    ds_sjxh: TDataSource;
    ds_disp: TDataSource;
    sp_disp: TADOStoredProc;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinDBLookupComboBox10: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox11: TbsSkinDBLookupComboBox;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinRadioGroup2: TbsSkinRadioGroup;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinDateEdit2: TbsSkinDateEdit;
    bsSkinGroupBox6: TbsSkinGroupBox;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinGroupBox8: TbsSkinGroupBox;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinDBLookupComboBox5: TbsSkinDBLookupComboBox;
    ds_gt: TDataSource;
    tbl_gt: TADOTable;
    trm_sjtjjxc: TRMDBDataSet;
    RMReport1: TRMReport;
    RMReport2: TRMReport;
    RMReport3: TRMReport;
    RMXLSExport1: TRMXLSExport;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinCheckRadioBox2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dlfjreport_frm: Tdlfjreport_frm;

implementation

{$R *.dfm}

procedure Tdlfjreport_frm.FormCreate(Sender: TObject);
begin
  inherited;
tbl_fjcs.Open;
tbl_fjlx.Open;
tbl_sjcs.Open;
tbl_sjxh.Open;
tbl_hyd.Open;
tbl_fxlx.Open;
tbl_gt.Open;
end;

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

procedure Tdlfjreport_frm.bsSkinCheckRadioBox2Click(Sender: TObject);
begin
  inherited;
bsSkinPanel3.Enabled:= not bsSkinCheckRadioBox2.Checked;
end;

procedure Tdlfjreport_frm.bsSkinButton1Click(Sender: TObject);
var fpjzl:string;
  fall:string;
  fgt,fjlx,fjcs,lx,slx,fjx:string;
  act:Integer;
begin
  inherited;
if ( not bsSkinGroupBox1.Checked) and( not bsSkinGroupBox2.Checked)and( not bsSkinGroupBox4.Checked) then
         fpjzl:='ALL'//查询的是所有的配件类型
  else
           fpjzl:='000' ;
  if fpjzl<>'ALL' then
  begin
              if bsSkinGroupBox4.Checked then
              begin
                      if bsSkinCheckRadioBox2.Checked then
                            fall:='WLJ'
                       else
                            begin
                            fjx:=bsSkinDBLookupComboBox11.KeyValue;
                            fall:='BFJ' ;
                            end;
              end
              else
                    fall:='ALL';

              if  bsSkinGroupBox1.Checked then
                      fjlx:=bsSkinDBLookupComboBox1.KeyValue
              else
                      fjlx:= 'ALL';

              if bsSkinGroupBox2.Checked then
                      fjcs:=bsSkinDBLookupComboBox2.KeyValue
              else
                      fjcs:='ALL';
  end;
  if   bsSkinGroupBox8.Checked then
                   fgt:=tbl_gt.FieldValues['fid']
    else
                   fgt:='All' ;

            
   act:=bsSkinRadioGroup2.ItemIndex+1;
  case    bsSkinComboBox1.ItemIndex  of
  0:lx:='AL';
  1:lx:='FL';
  2:lx:='FS';
  3:lx:='FT';
  4:lx:='FW'
  else lx:='AL' ;
  end;
 // ShowMessage(fpjzl);
  //  ShowMessage(lx);
  sp_disp.Close;
with sp_disp.Parameters do
begin
ParamValues['@ffdate']:=bsSkinDateEdit1.Date;
ParamValues['@fedate']:=bsSkinDateEdit2.Date;
ParamValues['@fpjzl']:=fpjzl;
ParamValues['@fname']:=fjcs;
ParamValues['@fpjlx']:=fjlx;
ParamValues['@fjx']:=fjx;
ParamValues['@fall']:=fall;
ParamValues['@act']:=act;
ParamValues['@lx']:=lx;
ParamValues['@gt']:=fgt;

end;
sp_disp.ExecProc;
RMReport1.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
RMReport2.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
RMReport3.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
    if act=1 then
    RMReport1.ShowReport;
    if act=2 then
    RMReport2.ShowReport;
    if act=3 then
    RMReport3.ShowReport;
end;

end.