unit1.pas

1.Session获取BDE信息 2.可视化创建数据表格 3.SQL语句的使用 4.“一对多表”的设计 5.文本和数据记录的转换 6.ADO的网络调用 7.多媒体数据库的使用 8.IntraWeb技术

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{Provider=SQLOLEDB.1;
Integrated Security=SSPI;
Persist Security Info=False;
Initial Catalog=NewDataBase;
Data Source=xuzheping}
procedure TForm1.Button1Click(Sender: TObject);
begin
Try
 ADOTable1.Active:=True;         //激活SQL Server 20000服务器的表格数据
except
 ShowMessage('某个环节出错了');  //出错提示信息
end;
end;
end.