开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
OpenSchemaU1.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

OpenSchemaU1.pas：源码内容
  1. unit OpenSchemaU1;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls, DB, ADODB, Grids, DBGrids;
  9. type
  10.   TForm1 = class(TForm)
  11.     DBGrid1: TDBGrid;
  12.     ADOConnection1: TADOConnection;
  13.     DataSource1: TDataSource;
  14.     ADODataSet1: TADODataSet;
  15.     Panel1: TPanel;
  16.     Button1: TButton;
  17.     Button2: TButton;
  18.     procedure Button1Click(Sender: TObject);
  19.     procedure Button2Click(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  26. var
  27.   Form1: TForm1;
  29. implementation
  31. {$R *.dfm}
  33. procedure TForm1.Button1Click(Sender: TObject);
  34. begin
  35.   ADOConnection1.OpenSchema(siPrimaryKeys, EmptyParam, EmptyParam, ADODataSet1);
  36. end;
  38. procedure TForm1.Button2Click(Sender: TObject);
  39. var
  40.   Filter: OLEVariant;
  41. begin
  42.   Filter:=VarArrayCreate([0, 2], varVariant);
  43.   Filter[2]:='CUSTOMERS';
  44.   ADOConnection1.OpenSchema(siPrimaryKeys, Filter, EmptyParam, ADODataSet1);
  45. end;
  47. end.