请高手们帮我看看这段代码,在线等,谢谢!

编译时,总是报如下错误:(1)Missing operator or semicolon
                      (2)';'expected but'.'found
                      (3)Declaration expected but end of file found 
     
procedure TForm8.suiButton1Click(Sender: TObject);
var db:string;
begin
db:=extractfilepath(application.ExeName);
query1.DatabaseName:=db;
if suiRadioButton1.Checked then
begin
 if (suiedit1.text='')or(suiedit2.text='')or(suiedit3.text='') then
  begin
  suimessagedialog1.Text:='请您完整的输入员工信息！';
  suimessagedialog1.ShowModal;
  end
 else
  if suicombobox1.Text='操作员' then
   begin
    query1.Close;
    query1.Params.Clear;
    query1.SQL.Clear;
    query1.SQL.Add('select * from worker')
    query1.SQL.Add('where 工号=:gh');
    query1.ParamByName('gh').AsString:=suiedit1.Text;
    query1.Open;
    if query1.RecordCount=0 then
      begin
      query1.Close;
      query1.Params.Clear;
      query1.SQL.Clear;
      query1.SQL.Add('insert into worker');
      query1.SQL.Add('values(:gh,:name,:password)');
      query1.ParamByName('gh').AsString:=suiedit1.Text;
      query1.ParamByName('name').AsString:=suiedit2.Text;
      query1.ParamByName('password').AsString:=suiedit3.Text;
      query1.ExecSQL;
      query1.Close;
      query1.params.clear;
      query1.SQL.Clear;
      query1.SQL.Add('select * from worker');
      query1.SQL.Add('where 工号=:gh');
      query1.ParamByName('gh').AsString:=suiedit1.Text;
      query1.Open;
      query1.Active:=true;
      end
    else
      begin
      suimessagedialog1.Text:='此记录已存在，请重新输入员工信息！';
      suimessagedialog1.ShowModal;
      end;
    end
    else
     if suicombobox1.Text='管理员' then
      begin
      query1.Close;
      query1.Params.Clear;
      query1.SQL.Clear;
      query1.SQL.Add('select * from manager')
      query1.SQL.Add('where 工号=:gh');
      query1.ParamByName('gh').AsString:=suiedit1.Text;
      query1.Open;
      if query1.RecordCount=0 then
      begin
      query1.Close;
      query1.Params.Clear;
      query1.SQL.Clear;
      query1.SQL.Add('insert into manager');
      query1.SQL.Add('values(:gh,:name,:password)');
      query1.ParamByName('gh').AsString:=suiedit1.Text;
      query1.ParamByName('name').AsString:=suiedit2.Text;
      query1.ParamByName('password').AsString:=suiedit3.Text;
      query1.ExecSQL;
      query1.Close;
      query1.params.clear;
      query1.SQL.Clear;
      query1.SQL.Add('select * from manager');
      query1.SQL.Add('where 工号=:gh ');
      query1.ParamByName('gh').AsString:=suiedit1.Text;
      query1.Open;
      query1.Active:=true;
      end
    else
      begin
      suimessagedialog1.Text:='此记录已存在，请重新输入员工信息！';
      suimessagedialog1.ShowModal;
      end;
   end;
   end
 else
  if suiRadioButton2.Checked then
  begin
   if suiedit1.Text='' then
    begin
    suimessagedialog1.Text:='请输入员工工号进行指定删除！';
    suimessagedialog1.ShowModal;
    end
   else
    if suicombobox1.Text='操作员' then
    begin
    query1.Close;
    query1.Params.Clear;
    query1.SQL.Clear;
    query1.SQL.Add('delete  from worker');
    query1.SQL.Add('where 工号=:gh');
    query1.ParamByName('gh').AsString:=suiedit1.Text;
    query1.ExecSQL;
    suimessagedialog1.Text:='员工信息已经成功删除！';
    suimessagedialog1.ShowModal;  {query1.close;
  query1.Params.Clear;
  query1.SQL.Clear;
  query1.sql.add('select * from worker');
  query1.open;
  query1.Active:=true;}
  end
else
  if suicombobox1.Text='管理员' then
    begin
    query1.Close;
    query1.Params.Clear;
    query1.SQL.Clear;
    query1.SQL.Add('delete  from manager');
    query1.SQL.Add('where 工号=:gh');
    query1.ParamByName('gh').AsString:=suiedit1.Text;
    query1.ExecSQL;
    suimessagedialog1.Text:='员工信息已经成功删除！';
    suimessagedialog1.ShowModal;  {query1.close;
  query1.Params.Clear;
  query1.SQL.Clear;
  query1.sql.add('select * from manager');
  query1.open;
  query1.Active:=true;}
  end;
  suiedit1.Clear;
  suiedit2.Clear;
  suiedit3.Clear;
  suiedit1.SetFocus;
  end
else
  if suiRadioButton3.Checked then
   begin
   if (suiedit1.text='')or(suiedit2.text='')or(suiedit3.text='') then
   begin
   suimessagedialog1.Text:='请您完整的输入员工信息！';
   suimessagedialog1.ShowModal;
   end
  else
   if suicombobox1.Text='操作员' then
   begin
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.Add('select * from worker');
   query1.SQL.Add('where 工号=:gh');
   query1.ParamByName('gh').AsString:=suiedit1.Text;
   query1.Open;
   if query1.RecordCount=0 then
    begin
    suimessagedialog1.Text:='此记录在库中不存在!';
    suimessagedialog1.ShowModal;
    end
   else
    begin
    query1.Close;
    query1.Params.Clear;
    query1.SQL.Clear;
    query1.SQL.Add('delete  from worker');
    query1.SQL.Add('where 工号=:gh ');
    query1.ParamByName('gh').AsString:=suiedit1.Text;
    query1.ExecSQL;
    query1.close;
    query1.Params.Clear;
    query1.SQL.Clear;
    query1.SQL.Add('insert into worker');
    query1.SQL.Add('values(:gh,:name,:password)');
    query1.ParamByName('gh').AsString:=suiedit1.Text;
    query1.ParamByName('name').AsString:=suiedit2.Text;
    query1.ParamByName('password').AsString:=suiedit3.Text;
    query1.ExecSQL;
    query1.close;
    query1.Params.Clear;
    query1.SQL.Clear;
    query1.sql.add('select * from worker');
    query1.open;
    query1.Active:=true;
    end;
  end
  else
   if suicombobox1.Text='管理员' then
   begin
   query1.Close;
   query1.SQL.Clear;
   query1.SQL.Add('select * from manager');
   query1.SQL.Add('where 工号=:gh');
   query1.ParamByName('gh').AsString:=suiedit1.Text;
   query1.Open;
   if query1.RecordCount=0 then
    begin
    suimessagedialog1.Text:='此记录在库中不存在!';
    suimessagedialog1.ShowModal;
    end
   else
    begin
    query1.Close;
    query1.Params.Clear;
    query1.SQL.Clear;
    query1.SQL.Add('delete  from manager');
    query1.SQL.Add('where 工号=:gh ');
    query1.ParamByName('gh').AsString:=suiedit1.Text;
    query1.ExecSQL;
    query1.close;
    query1.Params.Clear;
    query1.SQL.Clear;
    query1.SQL.Add('insert into manager');
    query1.SQL.Add('values(:gh,:name,:password)');
    query1.ParamByName('gh').AsString:=suiedit1.Text;
    query1.ParamByName('name').AsString:=suiedit2.Text;
    query1.ParamByName('password').AsString:=suiedit3.Text;
    query1.ExecSQL;
    query1.close;
    query1.Params.Clear;
    query1.SQL.Clear;
    query1.sql.add('select * from manager');
    query1.open;
    query1.Active:=true;
    end;
  end;
end;
end.