delphi 容错提示语句汇总

try
if OpenDialog1.Execute then
begin
MyList.Clear;
MyList.LoadFromFile(OpenDialog1.FileName);
end;
except
on E:EReadError do
ShowMessage('打开文件失败');
end;

Application.ProcessMessages;

//删除记录时提示的语句

try
with TADOQuery.Create(nil) do
begin
Connection := frmDataPool.ADOConnection1;
if messagedlg('删除所有记录?',mtconfirmation,[mbyes,mbno],0)<>mryes then
Abort
else
begin
SQL.Text := 'DELETE FROM 工资表';
ExecSQL;
end;
//防止程序假死
Application.ProcessMessages;
//刷新下显示
frmDataPool.qry工资表.Close;
frmDataPool.qry工资表.Open;

end;
finally
TADOQuery.Create(nil).Free;
end;

for I := 0 to frmDataPool.qry工资表.FieldCount - 1 do
begin
if I = 0 then
begin
ASql := ASql + frmDataPool.qry工资表.Fields[I].FieldName + ' LIKE ''%' + AKey + '%''';
end else begin
ASql := ASql + ' OR ' + frmDataPool.qry工资表.Fields[I].FieldName + ' LIKE ''%' + AKey + '%''';
end;
end;

procedure TForm3.DBGrid1TitleClick(Column: TColumn);
begin
if frmDataPool.qry需要做的事.SQL.Text.Contains('DESC') then
begin
with frmDataPool.qry需要做的事 do
begin
Close;
SQL.Text := 'SELECT * FROM 需要做的事 ORDER BY '+Column.FieldName+' ASC';
Open;
end;
end else begin
with frmDataPool.qry需要做的事 do
begin
Close;
SQL.Text := 'SELECT * FROM 需要做的事 ORDER BY '+Column.FieldName+' DESC';
Open;
end;
end;
end;

for i := 0 to frmDataPool.qry需要做的事.FieldDefs.Count - 1 do
begin
fieldName := frmDataPool.qry需要做的事.FieldDefs[i].Name;
if not 'ID说明附件事情'.Contains(fieldName) then
begin
node := TreeView1.Items.Add(nil, fieldName); {字段名}
{为避免数据重复, 先把数据给 List}
List.Clear;
frmDataPool.qry需要做的事.First;
while not frmDataPool.qry需要做的事.Eof do
begin
List.Add(frmDataPool.qry需要做的事.FieldByName(fieldName).AsString);
frmDataPool.qry需要做的事.Next;
end;
{把 List 中的数据加入到 TreeView}
for s in List do
begin
TreeView1.Items.AddChild(node, s);
end;
end;
end;