[转帖]delphi创建本地临时表(*.DB)的问题_Android, Python及开发编程讨论区_Weblogic技术|Tuxedo技术|中间件技术|Oracle论坛|JAVA论坛|Linux/Unix技术|hadoop论坛_联动北方技术论坛  
网站首页 | 关于我们 | 服务中心 | 经验交流 | 公司荣誉 | 成功案例 | 合作伙伴 | 联系我们 |
联动北方-国内领先的云技术服务提供商
»  游客             当前位置:  论坛首页 »  自由讨论区 »  Android, Python及开发编程讨论区 »
总帖数
1
每页帖数
101/1页1
返回列表
0
发起投票  发起投票 发新帖子
查看: 3251 | 回复: 0   主题: [转帖]delphi创建本地临时表(*.DB)的问题        下一篇 
wenjie.zhang
注册用户
等级:上尉
经验:628
发帖:54
精华:0
注册:2013-11-11
状态:离线
发送短消息息给wenjie.zhang 加好友    发送短消息息给wenjie.zhang 发消息
发表于: IP:您无权察看 2013-11-12 11:32:51 | [全部帖] [楼主帖] 楼主

根据服务器上的DB数据库,在本地创建一个临时的表,这样可以提高用户对数据的访问效率,同时也减轻了数据库的访问压力。

创建临时表*.DB

procedure TfUserInfo.createWork;
begin
with tblUserInfo do  //页面上的Table控件名子
begin
Active                     := False;
DatabaseName  := 'Userwork';
TableName          := 'W_USERINFO.DB'; //要创建的临时表的名字
TableType             := ttParadox;
with FieldDefs do //遍历页面(数据为DB Table)中的列,作为临时表的列
begin
Clear;
Add('UserID'   , ftString,   6, False); //设置临时表的列、类型、长度
Add('UserName' , ftString,  20, False);
Add('Password' , ftString,  20, False);
Add('Gender'   , ftString,   1, False);
Add('Flag'     , ftString,   1, False);
Add('Birthday' , ftDate  ,   0, False);
Add('Dept'     , ftString,  20, False);
end;
CreateTable; //创建临时表
end;
tblUserInfo.Close;
tblUserInfo.Open;
while not dbUserMSSQL.ADOQueryUser.Eof do  //为临时表填充数据
begin
tblUserInfo.Append;
tblUserInfo.FieldByName('UserID').AsString   :=
dbUserMSSQL.ADOQueryUser.FieldByName('UserID').AsString;
tblUserInfo.FieldByName('UserName').AsString :=
dbUserMSSQL.ADOQueryUser.FieldByName('UserName').AsString;
tblUserInfo.FieldByName('Password').AsString :=
dbUserMSSQL.ADOQueryUser.FieldByName('Password').AsString;
tblUserInfo.FieldByName('Gender').AsString   :=
dbUserMSSQL.ADOQueryUser.FieldByName('Sex').AsString;
tblUserInfo.FieldByName('Flag').AsString     :=
dbUserMSSQL.ADOQueryUser.FieldByName('Flag').AsString;
tblUserInfo.FieldByName('Birthday').AsString :=
dbUserMSSQL.ADOQueryUser.FieldByName('Birthday').AsString;
tblUserInfo.FieldByName('Dept').AsString :=
dbUserMSSQL.ADOQueryUser.FieldByName('Dept').AsString;
tblUserInfo.Post;
dbUserMSSQL.ADOQueryUser.Next;
end;
tblUserInfo.First;
end;




赞(0)    操作        顶端 
总帖数
1
每页帖数
101/1页1
返回列表
发新帖子
请输入验证码: 点击刷新验证码
您需要登录后才可以回帖 登录 | 注册
技术讨论