加载中…
个人资料
小胖和猪猪
小胖和猪猪
  • 博客等级:
  • 博客积分:0
  • 博客访问:839,436
  • 关注人气:111
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

猪猪编程:Delphi开发操作数据库的DLL

(2010-12-09 15:28:28)
标签:

delphi

数据库开发

it

分类: 计算机

 coinitialize(nil);
 dm := Tdm.Create(nil);
 with dm do
 begin
   if cn.Connected = false then cn.Connected:= True;
   if qPers.Active = True then qPers.Close;
   qPers.Params.ParamByName('pers_no').Value := Trim(pers_no);
   qPers.Open;
   i := qPers.FieldByName('path').AsInteger;
   qPers.Close;
 end;
 case i  of
 1:
 begin
        ...

 end;
 2:
 begin
  ...      

  end;

  end;
  Result := i;
  dm.Free;
 CoUnInitialize();

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有