【文件属性】:
文件名称:delphi XE7 开发Android
文件大小:313KB
文件格式:RAR
更新时间:2018-06-06 09:28:25
XE7 Android
function TServerMethods.DataSetQuery(const AstrSQL: string;
AListParams: TStringlist; AListType: TStringlist; AlistrValues: TStringlist)
: OleVariant;
var
i: integer;
begin
try
objClientQuery.Close;
AdoQuery.Close;
AdoQuery.SQL.Clear;
AdoQuery.SQL.Add(AstrSQL);
for i := 0 to AListParams.Count - 1 do
begin
if AListType.Strings[i] = '0' then
AdoQuery.Parameters.ParamByName(AListParams.Strings[i]).Value :=
AlistrValues.Strings[i];
if AListType.Strings[i] = '1' then
AdoQuery.Parameters.ParamByName(AListParams.Strings[i]).Value :=
strToint(AlistrValues.Strings[i]);
if AListType.Strings[i] = '2' then
AdoQuery.Parameters.ParamByName(AListParams.Strings[i]).Value :=
strToFloat(AlistrValues.Strings[i]);
if AListType.Strings[i] = '3' then
AdoQuery.Parameters.ParamByName(AListParams.Strings[i]).Value :=
strToDateTime(AlistrValues.Strings[i]);
end;
AdoQuery.Open;
objClientQuery.Open;
result := objClientQuery.Data;
except
on e: exception do
begin
result:=e.Message;
end;
end;
end;
【文件预览】:
AP_XE7_DATASNAP_.rar
AP_XE7_CLIENT_DATA_.rar
ReadMe.txt