unit5.pas

delphi写的抽奖程序

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, RpCon, RpConDS, RpRender, RpRenderPDF,
  RpDefine, RpRave;

type
  TForm5 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    RvP1: TRvProject;
    RvData1: TRvDataSetConnection;
    RvData2: TRvDataSetConnection;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses Unit8,Unit1,Unit6,Unit7;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);
begin
  dm.ADOQ12.Close;
  dm.ADOQ12.Open;
  dm.ADOQ13.Close;
  dm.ADOQ13.Open;
  rvp1.ProjectFile:=form1.SysPath+'Rep_nav1.rav';
  Rvp1.Open;
  Rvp1.Execute;
end;

procedure TForm5.BitBtn5Click(Sender: TObject);
begin
  form5.Close;
end;

procedure TForm5.BitBtn3Click(Sender: TObject);
begin
  form6.ShowModal;
end;

procedure TForm5.BitBtn4Click(Sender: TObject);
begin
  form7.ShowModal;
end;

end.