- 博客(6)
- 收藏
- 关注
转载 数字和字母组合的字符串数字部分自增
function IncNum(const NumberStr: string): string; var i, num: Integer; numstr: string; IsIn: Boolean; begin IsIn := True;; numstr := NumberStr; for i := Length(numstr) downto 1 do begin if numstr[i] in ['0'..'9'] then begin if not isin then Continue; isin.
2020-09-01 21:23:46
569
转载 delphi AddObject 用法
//添加数据和对象到下拉框 procedure TForm1.Button1Click(Sender: TObject); var s:string; begin ComboBox1.Items.Clear; s:= '1001'; //ComboBox1.Items.Add('1'); ComboBox1.Items.AddObject('1',TObject(s) ); s:='2001'; //ComboBox1.Items.Add('2'); ComboBox1....
2020-08-16 11:18:03
600
转载 动态将ADOQuery数据移植到ClientDataSet通用函数
//****************************************************************************** // 函数功能: 执行SQL查询语句,影响ClientDataSet控件 // 函数名称: cf_dbSelectSQL // 函数参数: var oClientDataSet:TClientDataSet; 对象(C...
2019-09-24 17:46:58
763
转载 oracle根据身份证号码 计算年龄、性别
一、Oracle根据身份证判断性别: select decode(mod (to_number(substr('110228197802199547' ,17, 1)),2 ),0, '女','男' ) as sex from dual ; select decode(mod (to_number(substr('530323197503252610' ,17, 1)),2 ),0, '女'...
2019-06-27 22:40:54
3387
转载 delphi导入导出excel|oracle
1.导出用DBGrid直接到剪切板,然后粘贴到excle就ok了,有什么Excle的格式之类的可能要设置一下: { 1. StrTableName要查询的表名 2。StrFieldsName查询表的字段名 3。StrWhere查询条件 4。StrOrder 查询排序次序 } procedure TFrmexportData.
2016-07-16 14:55:11
554
转载 在SQL Server 2005中连接Oracle,完成查询、插入操作
建立指向Oracle的连接 假设Oracle数据库的用户名为test,密码为test,在SQL Server数据库所在服务器上建立的指向Oracle数据库的服务命名为hisorcl. 1. 在SQL Server的企业管理器中的对象资源管理器中,展开“服务器对象”,在“链接服务器”上右击,选“新建链接服务器”。如下图所示进行配置。 通过连接查询Oracle数据库中的数
2016-07-11 23:25:46
264
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人