bbxshi.~pas

来自「这是毕业设计用delphi完成的管理系统,比较庞大,是非常有用的哦```里面代码」· ~PAS 代码 · 共 38 行

unit bbxshi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RpRave, RpDefine, RpCon, RpConDS, DB, ADODB;

type
  Tbbxshi = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    RvDataSetConnection1: TRvDataSetConnection;
    RvProject1: TRvProject;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  bbxshi: Tbbxshi;

implementation

{$R *.dfm}

procedure Tbbxshi.Button1Click(Sender: TObject);
begin
rvproject1.ProjectFile:='.\Report1.rav';
rvproject1.Execute;
rvproject1.Close;
end;

end.