sxb.pas

Delphi报表设计器源代码

unit SxB;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin,ReportControl, Buttons;

type
  TSxBForm = class(TForm)
    GroupBox1: TGroupBox;
    Label7: TLabel;
    Edit1: TEdit;
    Label8: TLabel;
    Edit2: TEdit;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    SpinEdit1: TSpinEdit;
    Label6: TLabel;
    SpinEdit2: TSpinEdit;
    BitBtn2: TBitBtn;
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    rep: TReportControl;
    { Public declarations }
  end;

var
  SxBForm: TSxBForm;

implementation

{$R *.dfm}

procedure TSxBForm.SpinEdit1Change(Sender: TObject);
begin
    rep.Sethlj(SpinEdit1.Value,-65500);

end;

procedure TSxBForm.SpinEdit2Change(Sender: TObject);
begin
    Rep.Sethlj(-65500,SpinEdit2.Value);

end;

procedure TSxBForm.Edit1Change(Sender: TObject);
begin
  if (length(edit1.Text)>1) or (length(edit1.Text)<1)  then
  begin
   showmessage('上下标标识符只能为单个字符和不能为空！');
   exit;
  end
  else Rep.setsbbs(edit1.text[1]);

end;

procedure TSxBForm.Edit2Change(Sender: TObject);
begin
  if (length(edit1.Text)>1) or (length(edit1.Text)<1)  then
  begin
   showmessage('上下标标识符只能为单个字符和不能为空！');
   exit;
  end
  else Rep.setxbbs(edit2.text[1]);

end;

end.