Delphi下的ADO使用方法！

• 
  
  
  private
  
  procedure Display(RecordSet: _RecordSet); { Private declarations }
  
  public { Public declarations }
  
  end;
  
  var Form1: TForm1;implementation
  
  uses
  
  ActiveX;
  
  {$R *.DFM}
  
  procedure TForm1.Display(RecordSet: _RecordSet);
  
  var
  
  Y, i: Integer;
  
  begin
  
  Y := 1;
  
  repeat
  
  for i := 0 to 6 do
  
  StringGrid1.Cells[i, Y] := RecordSet.Fields[i].Value;
  
  RecordSet.Move(1, EmptyParam);
  
  Inc(Y);
  
  until RecordSet.EOF;
  
  end;
  
  procedure TForm1.InterfaceBtnClick(Sender: TObject);
  
  var RecordSet: _RecordSet;
  
  DSN: string;
  
  begin
  
  // 生成空的recordset object
  
  OleCheck(CoCreateInstance(CLASS_RecordSet, nil,
  
  CLSCTX_ALL, IID__RecordSet, RecordSet));
  
  DSN := ’dsn=’ + DSNSTRING;
  
  // 填写数据
  
  RecordSet.Open(SelectString, DSN, adOpenForwardOnly,
  
  adLockReadOnly, adCmdUnspecified);
  
  // 显示数据
  
  Display(RecordSet);
  
  UpdateBtn.Enabled := True;
  
  end;
  
  procedure TForm1.UpdateBtnClick(Sender: TObject);
  
  var RecordSet: _RecordSet;
  
  DSN: string;
  
  begin
  
  OleCheck(CoCreateInstance(CLASS_RecordSet, nil,
  
  CLSCTX_ALL, IID__RecordSet, RecordSet));
  
  DSN := ’dsn=’ + DSNSTRING;
  
  // Fill the recordset
  
  RecordSet.Open(SELECTSTRING, DSN, adOpenDynamic,
  
  adLockOptimistic, adCmdUnspecified);
  
  // 修改
  
  RecordSet.Move(StringGrid1.Row - 1, EmptyParam);
  
  RecordSet.Fields[StringGrid1.Col].Value := Edit1.Text;
  
  RecordSet.Update(EmptyParam, EmptyParam);
  
  RecordSet.MoveFirst;
  
  Display(RecordSet);
  
  end;
  
  procedure TForm1.VariantBtnClick(Sender: TObject);
  
  var
  
• 上一页 [1] [2] [3] [4] [5] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• Delphi下的ADO使用方法！ 相关文章：
• ·将来会比较流行的几种导航的方向
• ·把网页保存为图片 换种方式收集有用资料
• ·Windows Vista停止报告程序问题的技巧方法
• ·Photoshop字体安装使用方法和技巧
• ·QQ常在异地登录的原因及其应对方法
• ·不再怕电脑病毒 电脑中毒后的6招处理方法
• ·用JavaScript刷新框架子页面的方法
• ·加快Windows Vista系统窗口打开速度的方法
• ·防范黑客攻击Oracle系统的八大常用方法
• ·轻松方便 三招两式抵制IE的顽固病毒
• Delphi下的ADO使用方法！ 相关软件
• ·王牌空战6官方宣传片1
• ·行会2之维京霸主－模拟方式免CD补丁
• ·医院大亨－模拟方式免CD补丁
• ·《苍天》双手大刀操作方法介绍视频
• ·《苍天》偃月刀操作方法介绍视频
• ·做人做事好方法
• ·《方块之旅》游戏试玩
• ·《反恐精英》丹麦电竞组织mYm官方音乐
• ·《鬼泣4》E32007官方游戏画面视频
• ·《GTA4》官方宣传片2

上一篇:Delphi用Sender参数实现代码重用

下一篇:Delphi实现下载进程的动态显示

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐