各位程序员晚上好,我有一个问题要提问?(20分)

T

Tell_me

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TAdmini_form.B_DeleClick(Sender: TObject);
begin
IF (Trimright(locate_word.Text)=Table1_2['人名']) Then
Begin
With B_Delect do
Begin
Close;
SQL.Clear;
SQL.Add('Delete * from Ren');
SQL.Add('Where Ren.人名='''+locate_word.Text+'''');
ExecSQL;
Admini_form.DBGrid1_T.Refresh;
// Admini_form.Table1_2.Refresh;
Ren_name.Text:='';
En_name.Text:='';
Tell_1.Text:='';
Gs_name.Text:='';
h_z.Text:='';
Add_Edit.Text:='';
End;
End
Else
Begin
Application.MessageBox('不能删除无此数据!','Do not Delete!',Mb_Ok);
Ren_name.Text:='';
En_name.Text:='';
Tell_1.Text:='';
Gs_name.Text:='';
h_z.Text:='';
Add_Edit.Text:='';
end;
end;
我一定要在DBGrid1里面指定这条记录,然后在locate_word.Text里写上这条记录的人名才
能删除。这到底是怎么回事呀?不清楚。请高手指教一下。
 
Table1_2['人名']) 是不是写错了?
 
请把这个:Table1_2['人名']改为这个试试:Table1_2.Fieldvalues['人名']
 
Table1_2.fieldbyname('人名').Asstring
 
将sql语句where前面加空格
 
var
cmdstr:string;
begin
.....
cmdstr:='where Ren.人名='+''''+locate_word.Text+'''';
SQL.Add(cmdstr);
end;
 
顶部