建議大家採用另外一種編碼風格，不要在程式中到處都有這種lz程式生成的**：
begin
with qrymain do
begin
tryclose;
sql.clear;
sql.add('delete from montask where taskid=:taskid');
parambyname('taskid').asstring := aid;
execute;
finally
close;
end;
end;
end;
實際上，在一般的專案中，整個程式中，只需要在統一的乙個dm中，放置乙個db connection,和乙個query控制項（tempquery），再寫乙個openquery的過程就基本夠用了，而且**更簡潔：
function tdmmain.openquery(const aselectsql: string; const aunidirectional: boolean = false; aquery: tuniquery = nil): boolean;
varqry: tuniquery;
begin
result := false;
if aquery = nil then
qry := tempquery
else
qry := aquery;
trywith qry do begin
close;
unidirectional := aunidirectional; //如果這個資料集準備用來編輯和使用dbgrid等瀏覽，就必須 unidirectional = false
sql.text := aselectsql;
open;
result := not isempty;
end;
except
on e: exception do begin
//*****
raise
endend
end;
delphi編碼規範
1.一般的源 格式規則 2 1.1 縮排 2 1.2 空格 2 1.3 邊距 2 1.4 顏色及文字屬性 2 1.5 begin end 2 2.object pascal 3 2.1 括號 3 2.2 保留字和關鍵字 3 2.3 過程和函式 例程 3 2.4 變數 4 2.5 常量 const 5...
delphi連線資料來源
adoconn.connectionstring provider sqloledb.1 persist security info true use procedure for prepare 1 auto translate true packet size 4096 use encryptio...
Delphi 連線MySQL資料庫BDE
delphi使用ado可以連線mssql和access，但似乎不能連線mysql和oracel，如果要連線mysql和oracle得使用bde。一 連線方法 首先得先安裝mysql驅動程式 mysql connector odbc 5.1.6 win32，然後點控制項面板 管理工具 資料來源 odb...