function TConnectForms.ShowError:String;
var
Errormessage : String;
adoErrors : Errors;
AdoError : Error;
iCount : Integer;
begin
adoErrors:=DM1.ADOConnection1.Errors;
Errormessage:='您的操作存在以下错误:'+#13
+'----------------------';
for iCount:=0 to adoErrors.Count-1 do begin
adoError:=adoErrors.Item[iCount];