用XE7新开发的一个Android员工积分查询的案例

XE7 安卓手机开发框架 1、主菜单与主界面的切换 2、StyleBook的设计 3、界面布局 4、显示数据界面框架 5、编辑界面框架，包括输入框输入的时候键盘问题 6、WSDL接口调用，实现数据同步服务器 7、DataSet转JSON，JSON转DataSet功能 8、报表框架 9、查询框架 10、单选择框、多选择框、日期选择框 11、本地数据库SQLITE的访问及操作、及数据库图片操作 12、获取本版号 13、提示框、提示汉化 14、百度定位 15、扫描二维码和条码 16、拔电话，（安卓、IOS通用） 17、通讯录（ABC滑动） 18、汉字拼音码 19、版本更新日志 20、通知提醒 21、分享界面 22、安卓版本升级 23、PHP的接口调用，实现数据同步服务器 24、等待进度条框、等待框 25、DATASNAP服务通讯 （有 电脑测试端） 26、多图片之间的切换 27、HTTPServer 服务器接口（有HTTP 电脑测试端） 28、选择文件对话框 29、图片上传、图片下载 30、通知提醒指定到那个窗体 31、二维码在线生成 32、手机截屏

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;

Delphi XE7 Android平台与PC端同步SQLite 数据库

Delphi XE Sqlite 数据库操作案例程序，本案例提供了一个非常好的Sqlite数据库操作原始全部代码，包含数据库连接、创建表、打开流量表格，为初学者提供很好的参考