unit sjcs_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, adobase_un, bsSkinCtrls, bsSkinGrids, bsDBGrids, bsdbctrls,
  StdCtrls, Mask, bsSkinBoxCtrls, ADODB, DB, wwDialog, wwidlg, bsMessages,
  bsSkinData, BusinessSkinForm, ActnList, ExtCtrls, RM_dset, RM_dbset,
  RM_class, RM_e_main, RM_e_xls;

type
  Tsjcs_frm = class(Tadobase_frm)
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBRadioGroup1: TbsSkinDBRadioGroup;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinScrollBar4: TbsSkinScrollBar;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinDBEdit3: TbsSkinDBEdit;
    RMReport1: TRMReport;
    RMDBDataSet1: TRMDBDataSet;
    RMXLSExport1: TRMXLSExport;
    procedure FormCreate(Sender: TObject);
    procedure acPrintExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sjcs_frm: Tsjcs_frm;

implementation

{$R *.dfm}

procedure Tsjcs_frm.FormCreate(Sender: TObject);
begin
  inherited;
ibillidtype:='CS' ;
ibillnum:=2;
end;

procedure Tsjcs_frm.acPrintExecute(Sender: TObject);
begin

RMReport1.ShowReport;
end;

end.