IF MessageBox(Handle, '洗掉？', '警示', MB_OKCANCEL + MB_ICONWARNING)=IDOK Then
begin
Main.ADOQuery1.Delete;
end;
我要實作的是：
ADOQuery01.FieldByName('SourceName').AsString;//獲取到了，李四，這段代碼防在哪里
點擊洗掉則提示：洗掉李四？
IF MessageBox(Handle, '洗掉？+ADOQuery01.FieldByName('StudentName').AsString;', '警示', MB_OKCANCEL + MB_ICONWARNING)=IDOK Then
begin
Main.ADOQuery1.Delete;
end;
uj5u.com熱心網友回復：
function DeleteClick(aQuery,bQuery:TADOQuery):Boolean;begin
Result:=False;
if aQuery.Eof then Exit;
if aQuery.Bof then Exit;
if aQuery.RecordCount<1 then Exit;
if bQuery.Locate('StudentName','李四',[]) then
if Application.MessageBox('洗掉李四？','警示',MB_ICONQUESTION+MB_OKCANCEL)=IDOK then
aQuery.Delete;
end;
uj5u.com熱心網友回復：
if MessageBox(Handle, PChar(Format('洗掉%s？', [ADOQuery01.FieldByName('StudentName').AsString])), '警示', MB_OKCANCEL + MB_ICONWARNING) = IDOK then
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/283351.html
標籤：語言基礎/算法/系統設計
上一篇：攝像頭監控問題