Variable 'deletepower' is declared but never used in 'TForm1.Button3Click'

解决方案 »

  1.   

    只是一个警告,你定义了变量deletepower(且初始化了),并没有用到
    -------------------------------------------------------------
    将变量deletepower删除就可以了
      

  2.   

    定义了
    没有初始化procedure TForm1.Button3Click(Sender: TObject);
    var
      deletename, deletepass, deletepower :string;
    begin
    if edit1.text='' then
        begin
      messagebox(handle,'请输入所删用户名!','',mb_ok+mb_iconwarning);
      edit1.SetFocus;
      exit;
         end;
     if edit2.text='' then
      begin
       messagebox(handle,'请输入所删用户密码!','',mb_ok+mb_iconwarning);
       edit2.SetFocus;
       exit;
      end;
     if combobox1.text='' then
        begin
        messagebox(handle,'请输入所删用户权限!','',mb_ok+mb_iconwarning);
        edit2.SetFocus;
        exit;
        end;
      DataMode.ADOQuery1.Close;
      DataMode.ADOQuery1.SQL.Clear;
      DataMode.ADOQuery1.SQL.Add('selete* form LoginIn where username=""+edit1.text+""and');
      DataMode.ADOQuery1.SQL.Add('userId=""+edit2.text+""');
      DataMode.ADOQuery1.Prepared;
      DataMode.ADOQuery1.Open;
      if DataMode.ADOQuery1.Eof then
       begin
       MessageBox(handle,'','',mb_ok+mb_iconwarning);
       edit1.SelectAll;
       edit1.Text:='';
       edit2.Text:='';
       exit;
       end;
       deleteName:=edit1.Text;
       deletePass:=edit2.Text;
       deletePass:=ComboBox1.Text;
       with DataMode.ADOQuery1 do
      if messageDlg('确定要删除吗?',mtconfirmation,[mbyes,mbno],0)=mryes then
        begin
          DataMode.ADOCommand1.CommandText:='delete form LoginIn where(username=""+deletename+"")and(userid=""+deletepass+"")and(userpower=""+deletepower+"")';
          DataMode.ADOCommand1.Execute;
          edit1.Text:='';
          edit2.Text:='';
          MessageBox(handle,'用户信息已删除','!',mb_ok+mb_iconwarning);
        end
        else
      begin
       cancel;
       edit1.Text:='';
       edit2.Text:='';
       end;
     end;end.
      

  3.   

    deletename, deletepass, deletepower 三个变量,你都定义了,但你的使用都是在if 语句中的,也就是说,如果if没有通过,你的deletename, deletepass, deletepower 就没有使用,你在前面初始化就可以了。。不管它,也不影响什么。
      

  4.   

    procedure TForm1.Button3Click(Sender: TObject);
    var
      deletename, deletepass, deletepower :string;
    begin
    //加上下面三句就初始化了,就没有问题了。
    deletename := '';
    deletepass := '';
    deletepower := '';
    if edit1.text='' then
        begin
      messagebox(handle,'请输入所删用户名!','',mb_ok+mb_iconwarning);
      edit1.SetFocus;
      

  5.   

    运行出错
    project project1.exe raised excepction calss eoleexpction with message '无效的sql语句'期待'insert','delete','selete'or'update' process stoped use step or run continue
      

  6.   

    'selete*你的*和select之间要有一个空格
      

  7.   

    有空格
    还是出错
    是不是sql语句有问题
      

  8.   

    还是一样的问题
    project project1.exe raised excepction calss eoleexpction with message '无效的sql语句'期待'insert','delete','selete'or'update' process stoped use step or run continue
      

  9.   

    sql 那段你这么写把
      DataMode.ADOQuery1.Close;
      DataMode.ADOQuery1.SQL.Clear;
      DataMode.ADOQuery1.SQL.Add('selete * form LoginIn where username=:#username and userId=:#userid');
       DataMode.ADOQuery1.Parameters.ParamByName('#username').Value := edit1.text;
       DataMode.ADOQuery1.Parameters.ParamByName('#username').Value := edit2.text;
      DataMode.ADOQuery1.Open;
      

  10.   

    DataMode.ADOQuery1.SQL.Add('selete* form LoginIn where username=""+edit1.text+""and');但是现在是这句话出现语法错误:缺少操作符!
      

  11.   

    DataMode.ADOQuery1.Close;
      DataMode.ADOQuery1.SQL.Clear;
      DataMode.ADOQuery1.SQL.Add('select * form LoginIn where username='''+edit1.text+'''and');
      DataMode.ADOQuery1.SQL.Add(' userId='''+edit2.text+'''');
      DataMode.ADOQuery1.Prepared;
      DataMode.ADOQuery1.Open;
    还是相同的错误?