Variable 'deletepower' is declared but never used in 'TForm1.Button3Click'
解决方案 »
- ClientDataSet1加载数据,统计事件错误:ClientDataSet1: Dataset not in edit or insert mode.
- 系统设计问题
- vista下自动关机
- 怎样在DBgrid中加入下拉日期
- 难题:activex控件上传用户端文件到服务器!
- 请问怎么判断光驱里的光盘是音乐CD(音轨)还是数据光盘?
- 在“开始”的“程序”中建立文件夹
- 如何找到DELPHI中的MSCOMM控件
- 哪位帮忙解决;sql server 的备份使用ado连接可以,但odbc不行
- 請各位高手幫幫忙.急~~在線等
- 高手请进 delphi+mapx变量释放问题?
- delphi中加入的flash可以用相对路径吗?怎么用?
-------------------------------------------------------------
将变量deletepower删除就可以了
没有初始化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.
var
deletename, deletepass, deletepower :string;
begin
//加上下面三句就初始化了,就没有问题了。
deletename := '';
deletepass := '';
deletepower := '';
if edit1.text='' then
begin
messagebox(handle,'请输入所删用户名!','',mb_ok+mb_iconwarning);
edit1.SetFocus;
project project1.exe raised excepction calss eoleexpction with message '无效的sql语句'期待'insert','delete','selete'or'update' process stoped use step or run continue
还是出错
是不是sql语句有问题
project project1.exe raised excepction calss eoleexpction with message '无效的sql语句'期待'insert','delete','selete'or'update' process stoped use step or run continue
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;
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;
还是相同的错误?