yfsacount_un.pas

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

unit yfsacount_un;

interface

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

type
  Tyfsacount_frm = class(Tbase_frm)
    ds_hylx: TDataSource;
    tbl_hylx: TADOTable;
    sp_view: TADOStoredProc;
    ds_view: TDataSource;
    ds_sjcs: TDataSource;
    qry__sjcs: TADOQuery;
    tbl_sjxh: TADOTable;
    ds_sjxh: TDataSource;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinDateEdit2: TbsSkinDateEdit;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinPanel4: TbsSkinPanel;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinStdLabel12: TbsSkinStdLabel;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinStdLabel15: TbsSkinStdLabel;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinRadioGroup1: TbsSkinRadioGroup;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    ds_yg: TDataSource;
    tbl_yg: TADOTable;
    RMDBDataSet1: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    RMReport2: TRMReport;
    RMReport3: TRMReport;
    RMReport4: TRMReport;
    RMReport5: TRMReport;
    bsSkinRadioGroup2: TbsSkinRadioGroup;
    RMReport1: TRMReport;
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    act,sear:Integer;
  end;

var
  yfsacount_frm: Tyfsacount_frm;

implementation
uses data_un;
{$R *.dfm}

procedure Tyfsacount_frm.FormShow(Sender: TObject);
begin
  inherited;
tbl_yg.Open;
tbl_hylx.Open;
qry__sjcs.Open;
tbl_sjxh.Open;
if act=1 then
bsSkinPanel3.Visible:=true;
if act=2 then
bsSkinPanel4.Visible:=true;
end;

procedure Tyfsacount_frm.bsSkinButton1Click(Sender: TObject);
var sjxh,lx,yg,hylx:string;
begin
  inherited;
 if sp_view.Active then
   sp_view.Close;
sear:=  bsSkinRadioGroup2.ItemIndex+1;
if   bsSkinGroupBox4.Checked then
yg:=tbl_yg.FieldValues['fid']
else
yg:='ALL';
if bsSkinGroupBox5.Checked then
hylx:=tbl_hylx.FieldValues['fid']
else
hylx:='AL';
case bsSkinComboBox1.ItemIndex of
0:lx:='AL';
1:lx:='SA';
2:lx:='TH';
3:lx:='WT';
else lx:='AL'
end;
if bsSkinGroupBox3.Checked then
sjxh:=tbl_sjxh.FieldValues['fid']
else
sjxh:='ALL'; 

with sp_view.Parameters do
begin
ParamValues['@sear']:=bsSkinRadioGroup2.ItemIndex+1;
ParamValues['@group']:=bsSkinRadioGroup1.ItemIndex+1;
ParamValues['@fdate']:=bsSkinDateEdit1.Date;
ParamValues['@fedate']:=bsSkinDateEdit2.Date;
ParamValues['@lx']:= lx;
ParamValues['@sjxh']:= sjxh;
ParamValues['@hylx']:=hylx;
ParamValues['@yg']:= yg;
ParamValues['@act']:=act;
end;
;
sp_view.ExecProc;
sp_view.Open;

RMReport1.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
RMReport2.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
RMReport3.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
RMReport4.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
RMReport5.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
///if act=1 then
 // begin
  if sear=1 then
        RMReport1.ShowReport;
    if (sear=2) and (bsSkinRadioGroup1.ItemIndex=0)then
       RMReport2.ShowReport;
    if (sear=2) and (bsSkinRadioGroup1.ItemIndex=1)   then
        RMReport3.ShowReport;
     if (sear=3) and (bsSkinRadioGroup1.ItemIndex=0)      then
       RMReport4.ShowReport;
       if (sear=3) and (bsSkinRadioGroup1.ItemIndex=1)        then
       RMReport5.ShowReport;

                  
       //  end;


end;

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

end.