try
with sqAtt do
begin
Close;
DataBase := dmMain.odbcconn;
UsePrimaryKeyAsKey:=false;
deleteSql.Text:='';//'delete from UserInfo where userid = :userid';
updateSql.Text:='';//'update UserInfo set name=:name where userid=:userid';
insertSql.Text:='';
refreshSql.Text:='';
SQL.Text:= 'select * from CHECKINOUT where UserID = :UserID';
//Params.ParamByName('UserID').AsString:= ;
//Open;
//FieldByName('USERID').Required:=false;
end;
except
on E:EDatabaseError do
begin
MessageDlg( '错误提示','出现错误:' + E.Message,mtError,mbOK,0 );
end;
end;
只要选中了ParseSQL选项，deleteSql updateSql insertSql refreshSql中的语句完全可以不用写，lazarus会自动生成