fjreport_un.pas

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

unit fjreport_un;

interface

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

type
  Tfjreport_frm = class(Tbase_frm)
    tbl_fjcs: TADOTable;
    ds_fjcs: TDataSource;
    ds_fjlx: TDataSource;
    tbl_fjlx: TADOTable;
    ds_sjcs: TDataSource;
    tbl_sjcs: TADOTable;
    tbl_sjxh: TADOTable;
    ds_sjxh: TDataSource;
    tbl_hyd: TADOTable;
    ds_hyd: TDataSource;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinPanel2: TbsSkinPanel;
    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;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinGroupBox6: TbsSkinGroupBox;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinStdLabel15: TbsSkinStdLabel;
    bsSkinGroupBox7: TbsSkinGroupBox;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    ds_fxlx: TDataSource;
    tbl_fxlx: TADOTable;
    sp_disp: TADOStoredProc;
    ds_disp: TDataSource;
    trm_sjtjjxc: TRMDBDataSet;
    RMReport1: TRMReport;
    RMReport2: TRMReport;
    RMReport3: TRMReport;
    RMXLSExport1: TRMXLSExport;
    procedure bsSkinCheckRadioBox2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinComboBox1Change(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fjreport_frm: Tfjreport_frm;

implementation

{$R *.dfm}

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

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

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

procedure Tfjreport_frm.FormShow(Sender: TObject);
begin
  inherited;
bsSkinGroupBox7.Enabled:=false;
end;

procedure Tfjreport_frm.bsSkinComboBox1Change(Sender: TObject);
begin
  inherited;
if bsSkinComboBox1.ItemIndex=2 then
begin
bsSkinGroupBox5.Enabled:=false;
bsSkinGroupBox7.Enabled:=True ;
bsSkinGroupBox5.Checked:=FALSE;
end
else
begin
bsSkinGroupBox7.Enabled:=false;
bsSkinGroupBox5.Enabled:=True;
bsSkinGroupBox5.Checked:=FALSE;
end;
end;

procedure Tfjreport_frm.bsSkinButton1Click(Sender: TObject);
var fpjzl:string;
  fall:string;
  hyd,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 bsSkinGroupBox5.Enabled then
        if bsSkinGroupBox5.Checked then
              hyd:=tbl_hyd.FieldValues['fid']
        else
              hyd:='ALL';
 slx:='AL';              
  if   bsSkinGroupBox7.Enabled then
        if bsSkinGroupBox7.Checked then
                slx:=bsSkinDBLookupComboBox4.KeyValue
        else
                slx:='AL';
            
   act:=bsSkinRadioGroup2.ItemIndex+1;
  case    bsSkinComboBox1.ItemIndex  of
  0:lx:='AL';
  1:lx:='FJ';
  2:lx:='FS';
  3: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['@fadr']:=hyd;
ParamValues['@fname']:=fjcs;
ParamValues['@fpjlx']:=fjlx;
ParamValues['@fjx']:=fjx;
ParamValues['@fall']:=fall;
ParamValues['@act']:=act;
ParamValues['@lx']:=lx;
ParamValues['@slx']:=slx;

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.