请帮我看看这段代码错在哪里?

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIButton, SUIImagePanel, SUIGroupBox, StdCtrls, SUIEdit,
  ExtCtrls, SUIForm, DB, DBTables, SUIDlg;
(总是在SUIButton那里提示出错)
type
  TForm1 = class(TForm)
    suiForm1: TsuiForm;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    suiEdit1: TsuiEdit;
    suiEdit2: TsuiEdit;
    suiGroupBox1: TsuiGroupBox;
    suiRadioButton1: TsuiRadioButton;
    suiRadioButton2: TsuiRadioButton;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiMessageDialog1: TsuiMessageDialog;
    suiMessageDialog2: TsuiMessageDialog;
    Query1: TQuery;
    procedure suiButton2Click(Sender: TObject);
    procedure suiRadioButton1Click(Sender: TObject);
    procedure suiRadioButton2Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.suiButton2Click(Sender: TObject);
begin
close;
end;procedure TForm1.suiRadioButton1Click(Sender: TObject);
begin
suiedit1.SetFocus;
end;procedure TForm1.suiRadioButton2Click(Sender: TObject);
begin
suiedit1.SetFocus;
end;procedure TForm1.suiButton1Click(Sender: TObject);
var db:string;
begin
db:=extractfilepath(application.ExeName);
query1.DatabaseName:=db;
query1.Close;
query1.Params.Clear;
query1.SQL.Clear;
if suiradiobutton1.Checked=true then
  query1.SQL.Add('select * from worker')
else
  query1.SQL.Add('select * from manager');
query1.SQL.Add('where 工号=:num and 密码=:psw');
query1.ParamByName('num').AsString:=suiedit1.text;
query1.ParamByName('psw').AsString:=suiedit2.text;
query1.Open;
if times<3 then
  if query1.RecordCount=0 then
    begin
      suimessagedialog1.ShowModal;
      times:=times+1;
      suiedit1.SetFocus;
    end
  else
    begin
      if suiradiobutton1.Checked=true then
        begin
          form1.Visible:=false;
          form2.showmodal;
          form2.FreeOnRelease;
          form1.Visible:=true;
          suiedit1.Text:='';
          suiedit2.Text:='';
          suiedit1.SetFocus;
        end
      else
        begin
          form1.Visible:=false;
          form3.showmodal;
          form3.FreeOnRelease;
          form1.Visible:=true;
          suiedit1.Text:='';
          suiedit2.Text:='';
          suiedit1.SetFocus;
        end;
    end
else
  begin
  suimessagedialog2.showmodal;
  application.Terminate;
  end;
end;end;end.

Answer 1

DELPHI报什么错误啊。。贴出来，这样别人好帮你看

Answer 2

只要运行,delphi就会报错如下:
[Fata Error]Unit1.pas(7):file not found:'SUIButton.dcu'

Answer 3

sui控件的版本与delphi版本不一致,建议找一个有源码的控件用,为什么要用这个小日本的sui控件

Answer 4

再说了suipack也有有源码的呀,

Answer 5

看样子代码可能没错.应该是你所用的控件没有放在LIB中

Answer 6

DELPHI菜单tool->Dnvironment options->libriary页面，把你suipack控件所在的位置加进去就完了。