说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

delphi 需求如下:查询各个表中的数据列的数据类型,除int外,所有数据都要通过加密代码加密,代码写到如何读取类型所对应的列值时

编辑:说三道四文库 发布时间:2017-06-27 08:28
HTML文档下载 WORD文档下载 PDF文档下载
delphi 数据库 select //数据库数据加密 Schema 数据库名称,Name:要查询的表的名称
procedure TOperationDM.DataOperations(Schema:String;Name:String);
var
  i,j,k:Integer;
  strSql,allSql:String;
  counts:Integer;
  list :TStringList;
  strType:Sting;

begin
  list :=TStringList.Create;
  OperationADOCon.Close;
  OperationADOCon.ConnectionString:= TOper.readParamdb;
  OperationADOCon.Open;
  try
     with ADOQuery1 do
     begin
        strSql := 'SELECT DATA_TYPE FROM information_schema.`COLUMNS`'
                +'WHERE TABLE_SCHEMA LIKE "'+Schema+'" '
                +'AND TABLE_NAME LIKE "'+Name+'"';

        ADOQuery1.Close;
        ADOQuery1.SQL.Clear;
        sql.Add(strSql);
        ADOQuery1.Open;
        counts := ADOQuery1.RecordCount;
        if(counts >0) then
        begin
          for i:=0 to counts-1 do
          begin
           list.Add(ADOQuery1.fieldbyName('DATA_TYPE').AsString);
          end;
          for j:=0 to list.Count-1 do
          begin
             strType := list[j];
             if (Trim(strType) <> 'int') then   //判定,除了int类型的数据以外其他类型的数据全部加密
             begin
                 //将数据类型所对应的数据进行加密操作(问题是这个对应的值如何获得呢,请高手赐教,本人刚接触delphi还有很多东西高步清楚的)
               
             end;
          end;
        end;
     end;
  finally
   OperationADOCon.Close;
   ADOQuery1.SQL.Clear;
   ADOQuery1.Close;
  end;
end;
泪奔了,请高手指教
既然用ADO,那就
直接用TADOQuery去
SELECT 表名的全部字段
用TField取类型和值即可。
如 Fields[0].DataType 和 Fields[0].AsString (或 As 其它类型)
你会发现ADO.Connection提供很多与Schema有关的信息。
谢谢,我试试,能不能解决
下面的那部分调用加密的程序基本完成,可是到那个得到数据类型,列名,那部分查询出来10条数据,可是当我取值的时候,程序会把第一条重复10次保存到list中,什么原因,我之前都是这么写的,
for i:=0 to counts-1 do
          begin
           list.Add(ADOQuery1.fieldbyName('DATA_TYPE').AsString+‘=’+ADOQuery1.fieldByName('column_name').AsString);
end;

这里的counts就是我ADOQuery1.RecordCount值
加密后存储,加密方法很多用密钥自定义规则,或者用MD5等等已经有成熟案例的加密方法,至于显示时要不要加密看需求,只加密关键字段,犯不着什么东西都加密,累不累,有没有必要?
重复10次保存到list?没看到你有Next,移动指针了吗?
写了next就可以了,我也是刚学习的,还多东西一时间注意不到
高手,问你一个问题,例如我现在有个list,list中的数据是 ‘001’,‘003’,‘001’,‘005’我要怎么给这个list进行分组
要么查询出数据后放到list再去写分组的算法,要么在数据查询的时候在SQL里做分组(这种方法更方便快捷),再插入list
恩不能写个案例出来,刚刚弄这个delphi,好多地方有点转不过弯来
用 TStringList,它有个参数是 Objects,那你就可以把分组后的内容放在第二层。

比如你有这样的数据:

'001', '000012'
'002', '000063'
'001', '000015'

你想用第一个Field去分组,也就是

'001' 下有一个List内容为 '000012' 和 '000015'
'002' 下有一个List内容为 '000063'

那就这么写:

1.找到001,取出它内部的List,插入'000012'
2.没找到001,新增一个List,插入'000012'和'001'一起插入到分组List

比如分组List叫 GList: TStringList; 
内容List叫 List: TStringList;

则上面代码就是

Str1:='001';
Str2:='000012';
......
Index:=GList.IndexOf(Str1);
if Index>=0 then //找到了
  TStringList(GList.Objects[Index]).Add(Str2)
else //没找到
begin
  List:=TStringList.create;
  List.Add(Str2);
  GList.AddObject(Str1, List);
end;

不知道这样子是不是你所谓分组的意思?
如果不是,拜托你把分组的意思讲明白。
我现在这个东西已经解决,谢谢!
还有个问题,就是list中的数据为list{'001=2','002=3','001=4','003=6'}
等号前面是编号,等号后面是得分,delphi 中TStringList是可以这么写的
我想得到一个新的list的list{'001=6','002=3','003=6'},意思就是如果编号一样的则将得分相加,不相等的直接将这一项存在新的list中
高手们,你们都什么时候出没的,神龙见首不见尾的
没有必要搞list的list,每次做动作之前循环判断一下你的list不就行了,有则相加,没有则插进去
能写个小例子出来吗
APP备案风波:开发者何去何从? 32位和64位的JVM 我该选择哪个呢? 黑莓“Got Game Port-a-Thon”活动将于12月22日在北京举行 专访Moti Joseph:浏览器安全的经验之谈 四大开源云平台的命运基因 FPS移动游戏:画质不是第一位,操控才是死穴 微软2013年的五个安全预测 应用成武器 王淮,大城小胖论辩HTML5 局部有小雨 技术人员创业后就不再适合继续编码了? Google Dremel vs Apache Hadoop 低功耗之争:英特尔 VS ARM NEIC-诺基亚体验创新中心 助力开发者创享新移动互联时代 Google地图主管Daniel Graf:新设计,新目标 浴火重生:OpenFeint创始人推开源平台OpenKit 紧随AWS数据仓库服务 Rackspace力鼎Cloudant 创业者谈:畏惧失败,但也要拥抱失败 谷歌赢得一场战斗 苹果能否赢得战争? 走进大学校园:是什么让学生成为独立开发者? 移动周报:为什么说独立开发者才是光明康途? MapFan eye:看日本地图导航应用的新玩法 数据会被清空:部分三星、魅族手机存安全漏洞 IE10简化文件访问 支持FileReader API 从MySQL迁移到MariaSQL Wikipedia力求开放 奥巴马筹款网站的制作过程 国内芯片厂商发力4G 新岸线2013年将推LTE方案 CMDN Club 23期:开放平台和O2O移动产品开发 花旗调低Apple股票评级 不信iPhone5会卖得好 2012年Linux Journal读者选择奖结果公布 百度云SiteApp:三步轻松创建移动网站 Twitter跨数据中心图片存储系统Blobstore解析 摩托罗拉携手中国移动发布Intel Inside智能机新锋丽i MT788 数据源的连接问题?急!急!急!急!急!急!急!急!在线等待! paradox7表有没有最大记录数或最大容量?! 请问safety-critical systems是什么系统? 为什么<textarea>会有字数限制,我写了超过330个字符就不能提交表单了。 看看吧,想改變這种現象!!<marquee>能移動內容,但它移動時有空白(要等全移完后才又重新移)能否不要這中間的空隙。 那里有 netapi32.dll 中所有的函数及结构体的Delphi版定义? 在ASP里怎么能才让字符的ASC2码值加一。比如a加一之后等于b 谁有ehlib和fastreport的使用资料,哪下载??? 有关排序的问题? 高分相送!,求地税信息化方案 一个java程序,怎么写不进去?等待…… SOS!!! 是显卡的问题吗? 挂接的Fat32文件系统文件名为乱码 Linux 下的 中文输入法 十分奇怪的问题,win2000下编辑框粘贴文本出错。 为什么我的iis打不开了?(在线等待) win2000下 “内存指令不能读” 的错误怎么解决???? 问用ASP+SQL SERVER的朋友一个问题。在线等待。。 Web Services 的客户端和服务器能不能双向通信 98里的IIS服务在哪里停掉! 怎样在同一系统中既做服务器又作客户端?谢谢! 喜欢的女孩,交往半年后才知道大我2岁,郁闷!大家说该怎么办??? 怎么样用create函数创建一个窗口,用来显示提示信息 有两天没加可用分了,大家是没感觉,还是无所谓?我要饿死了,救命……来者有分! 用PHP如何在取得了属性drwxrwxrwx之后,判断是否为可删除? 在VC中,用quickwatch看vector变量时,怎么只能看到装在容器里的第一个变量 状态栏问题 如何使鼠标移到输入框上,输入框里面的字就会成 被选择 状态? 五百里加急(分不够另给) 与 硬件 有关 怎样配置root启动菜单~???~ [求助][急]关于SQL语句优化 高分求IBM WebSphere Application Server 高级版! 经常上csdn上的哥们把照片亮出来啊:) 在asp.net(用vb)中怎么连接ORACLE数据库? 从页面A转到页面B后,再从B转到A,怎样使A中控件的显示仍保持?即类似注册失败时返回,其他资料仍存在,仅密码需重输。 关于调色板管理器和动画的问题 请问如何使文本框处于选择状态(蓝底白字) J2EE 1.4 beat发布了。 找沈阳教VB的老师 MDI框架中如何判断是否有已经打开的窗口? 怎么给分呀? CString 问题 www.linuxforum.net怎么上不去了? 急!!!!在COM中的初级数据类型问题! oracle数据库连接问题!!! 有没有DirectX 8.1 SDK可下载! 急!在线等待,解决就结帐---》关于菜单效果的 请教高手,如何在VC里面对MSFlexGrid控件进行输入,请稍微详细地叙述一下。拜谢。 ASP团队开发需要什么? 有没有DirectX 8.1 SDK可下载! they come from Canada同义句they ( ) ( ) Canada还有一题,你还想买其它的什么蔬菜吗?()()vegetables do you want to buy 可乐鸡翅怎么做啊 Please c____your answer carefully when you take an exam. 公共英语三级,有用吗?有什么用哦? 公共英语三级试题 Please锛匡伎when you cross the road A听take care of听 B听care for C carefully D take care答案为什么选D而不选C呢?请解释详细一点! 动词在什么时候加ing?我是初一上册的 最好讲得简单点,易懂点 可乐鸡翅怎么做最好吃?听说可乐鸡翅,很好吃, If you have a ( ) to learn in America,please take it Mike comes from America.He is twelve.His father,Mr Brown,works in a big factory in Beijing.Hismother,Mrs Brown, 2014年报考公共英语三级需要什么证件 Miss Pink is my English teacher .改成一般疑问句, A Happy Family Mike comes from America.He is twelce .His father Mr.Brown works in a big shop in bA Happy FamilyMike comes from America.He is twelce .His father Mr.Brown works in a big shop in beijing.Mike has a sister.her name is Kate.she is only fou 如何做可乐鸡翅用哪种可乐,有哪种材料,怎样做. grow 的三单:过去式:现在分词: they only knew 的地址 take a class 怎么翻译 grow过去式和过去分词 跪求If They Only Knew-The 3Rd Storee歌曲链接 TAKE AP CLASS 在美国的同学说她在AP CLASS,很难进的吗? 1)The clock is on the table .(用There be 句型改写)2)The soldiers are not afraid .(改肯定句,意思不变)3)The boy is drawing a horse .(改为一般时态)4)Some duckings swim in the poud .(改为现在进行时)5)The mouse is running in fron Mr.Lee,who won in a lottery,earned 1 million dollars from a lottery after payment of individual income tax for this event.With the amount of money,he purchased a grocery at a price $600,000 on January 1,2002,the grocery,which including inventories am 如何评价英国1867年的议会改革? grow的过去式和过去分词 Income statement and retained earnings statement.Malone Corporation's capital structure consists of 50,000 shares of common stock.At December 31,2007 an analysis of the accounts and discussions with company officials revealed the following informatio Miss Liu is a teacher.改为否定句,并作肯定回答.改为一般疑问句,并作否定回答 美味可乐鸡翅怎么做好吃 美味可乐鸡翅最正宗的做法 B.H.Marina rents one hundred slips in a large dock to owners of small boats in the area.The trial balance of B.H.Marina on December 31,the end of the current fiscal year,is presented below:[Trial Balance] 如图:Required:1) Enter the trial balance ac Miss Li is my teacher.改为一般疑问句 where.is.my.yellow.marker? Mini-CaseVictoria Getz,a college sophomore ,has been seeking ways to earn extra spending money.As an active sports enthusiast,Victoria plays tennis regularly at the Georgetown Golf and Tennis Club,where her father has a family membership.The presiden what happened_your car?填哪个介词或副词 Where is the crayon?的中文是什么?xcbvhjcb 懂英文的请进来帮帮忙!I give face , , But you can’t face 中文什么意思女友写QQ签名上的 公共英语三级报名时间2014,和2015 where,is,the,cinema汉语意思是什么? 英语翻译“某某(名称)”科学研究会所应该怎么翻译? what do you often say to your father____ Father s Day用合适的介词或副词填空如题 so they need the ( )sleeping time. 懂英语的请进来.~~~~~~英语的语法是怎样的形式..能指点下我吗?还有一些介词的用法,in,on,for,of...详细的用法,请指点下 用介词或副词填空 What happened ------him last night an alarm clock is on the table.改为复数句格式是这样的:____alarm____ ____ on the table. 懂英语请进来帮帮忙1.They found someone ____(fish)on the lake when they passed.2.We has a lot of fun ____(sing)Beijing Opera.(用所给动词的正确形式填空) 可乐鸡翅有哪些营养 我看的英文电影比你多,所以我的听力比你好些.英语翻译 懂英语的请进来帮忙!Danny 【daeni】 中间那个元音ae不是念“唉”吗那么这个名字Danny ,中文翻译过来是丹尼,用英文念是呆尼,还是丹尼,英文发音比较接近“丹”还是“呆”?我念起来怪怪的, and,dresser,alarm,is,my,on,clock连词成句 怎么练好英语听力?英文电影有用吗?看英文的电影有多大用处?活着说有没有用?如果想在三个月内把听力由一点基础到完全听懂日常对话,每天用到听力上的时间要多少? She sits ____ a quiet place and watch what Beijing is___ 用正确的介词填空. ______(介词)the corner of the street she came up to me (用汉语翻译) the room is ___ (介词) fire where is my mind 歌词中文意思 Maybe he comes from America.He___ ___from America.我填的是may be. hearing what she said,i sighed_______ relief and brightened up at once.空格填介词 介词填空 什么the money ,she bought a new coat 什么her father I don't know that he comes from America.是什么句型?虽然没有悬赏,但求求你了谢谢 What is Han Mei doing?She__(talk) to her grandfather on the phone she said goodbye to her family ( )tears( )her eyes 用介词填空 全国英语三级(PETS)重要吗?难吗?想报三级,听说考出来的证不是很重要,想问下? 请问公共英语三级 考哪些内容、题型.怎么样才能通过 she carried a book ____her head .介词填空
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘