【delphi开源代码栏目提醒】：网学会员,鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“frm_BDECheck.pas”一文，供大家参考学习!

    unit frm_BDECheck;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls,DBITypes, ExtCtrls, XPMan;
    
    type
      TFrmBDECheck = class(TForm)
        BtnCheck: TButton;
        RDGCheck: TRadioGroup;
        BtnClose: TButton;
        procedure BtnCheckClick(Sender: TObject);
        procedure BtnCloseClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      FrmBDECheck: TFrmBDECheck;
    
    implementation
    
    {$R *.dfm}
    
    procedure TFrmBDECheck.BtnCheckClick(Sender: TObject);
    begin
      if dbiInit(nil) = 0 then
      RDGCheck.ItemIndex:=0
      else
      RDGCheck.ItemIndex:=1;
    end;
    
    procedure TFrmBDECheck.BtnCloseClick(Sender: TObject);
    begin
      Close;
    end;
    
    end.