sjlr1_un.pas

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

unit sjlr1_un;

interface

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

type
  Tsjlr1_frm = class(Tbase_frm)
    bsSkinPanel2: TbsSkinPanel;
    bsSkinStdLabel13: TbsSkinStdLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDateEdit1: TbsSkinDateEdit;
    bsSkinDateEdit2: TbsSkinDateEdit;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel5: TbsSkinStdLabel;
    ds_sjcs: TDataSource;
    qry__sjcs: TADOQuery;
    tbl_sjxh: TADOTable;
    ds_sjxh: TDataSource;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinDBLookupComboBox4: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    sp_count: TADOStoredProc;
    ds_count: TDataSource;
    trm_sjtjjxc: TRMDBDataSet;
    RMReport1: TRMReport;
    RMXLSExport1: TRMXLSExport;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
  act:integer ;

    { Public declarations }
  end;

var
  sjlr1_frm: Tsjlr1_frm;

implementation
   uses data_un;
{$R *.dfm}

procedure Tsjlr1_frm.FormCreate(Sender: TObject);
begin
  inherited;
qry__sjcs.Open;
tbl_sjxh.Open;
end;

procedure Tsjlr1_frm.bsSkinButton1Click(Sender: TObject);
begin
  inherited;
if sp_count.Active then
sp_count.Close;
with  sp_count.Parameters do
       begin
          ParamValues['@ffdate']:=bsSkinDateEdit1.Date;
          ParamValues['@fedate']:=bsSkinDateEdit2.Date;
          ParamValues['@sear']:=2;
          ParamValues['@act']:=act;
          ParamValues['@sjxh']:='ALL';
          if   bsSkinGroupBox1.Checked then
          ParamValues['@sjxh']:=tbl_sjxh.FieldValues['fid'];
        end  ;
sp_count.ExecProc;
RMReport1.Dictionary.Variables.AsString['title'] := bsSkinEdit1.Text;
RMReport1.ShowReport;
end;


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

end.