我想写一个函数可是不知道怎样写?有很多个表,每张表的字段数量不同,类型也不同.可是我想写一个函数来对这n个表进行添加、修改怎么实现呢?
解决方案 »
- 这个警告怎么消除:Return value of function 'Initial' might be undefined
- 请教delphi播放音乐的问题!
- ado+SQLSERVER+socket三层数据库程序执行SQL的问题?
- TerminateProcess 和 ExitProcess 有什么区别
- 79分求一简单问题,在线等,不论是否有答案一周内结贴,帮顶有分。
- 关于IdTcpServer与IdTcpClient编程
- 大家新年好(有谁有关于DELPHI 分布式开发的电子书)谢谢!!来观者有喜!
- 有关数据类型的问题
- delphi动态关闭窗体-根据动态变量关闭窗体
- listbox中如何将某节点在任意位置进行拖放,和delphi字段编辑器中一样。
- 概率问题,在线等,11点以前揭贴!~
- 用spcomm做猫拨号的自动应答。代码出错。请各位近来看看???
SQL: select * from TableName where 1=0
Open;
2:根据Fields中的FieldName FieldType动态赋参数 如字符串需加引号,数据如为空的话赋0存在问题:如表在存在ID(identity)类型字段则不可赋值函数可定义为:(dst:TDataSet; sStrs: TStrings); //操作数据值,操作值
2. 然后写2个函数 费别为
InsertTable/UpdateTable
参数为 InsertTable(pRec: untyped; iFlag:Integer);
InsertTable
前面的表示对应的是一段没有指定类型的内存块,后面的iFlag表示为第几个表 <当然表的顺序规则必须要固定>然后根据这个iFlag去获得对应的record数据结构,然后对pRec直接进行强行转换即可...// 更新的函数类似唉 DELPHI的类型转换 还是不太熟悉
2. 然后写2个函数 费别为
InsertTable/UpdateTable
参数为 InsertTable(pRec: untyped; iFlag:Integer);
InsertTable
前面的表示对应的是一段没有指定类型的内存块,后面的iFlag表示为第几个表 <当然表的顺序规则必须要固定>然后根据这个iFlag去获得对应的record数据结构,然后对pRec直接进行强行转换即可...// 更新的函数类似唉 DELPHI的类型转换 还是不太熟悉