unit1.~pas

《Delphi 7应用编程150例》源码（全）

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, comobj;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  dbVersion10 = $00000001;
  dbEncrypt = $00000002;
  dbDecrypt = $00000004;
  dbVersion11 = $00000008;
  dbVersion20 = $00000010;
  dbVersion30 = $00000020;
  dbVersion40 = $00000040;

procedure TForm1.FormCreate(Sender: TObject);
var
    Engine:OLEVariant;
    TestDB:OLEVariant;
    TestTD:OLEVariant;
    TestField:OLEVariant;
begin
    Engine:=CreateOleObject('DAO.DBEngine.36');
    TestDB:=Engine.CreateDatabase('test.mdb',
                  ';LANGID=0x0804;CP=936;COUNTRY=0;',dbVersion30);
    TestTD:=TestDB.CreateTableDef('Tabel1',0,'','');
    TestField:=TestTD.CreateField('Field1','dbText',16);
    TestTD.Fields.Append(TestField);
    TestDB.TableDefs.Append(TestTD);
    TestDB.Close();
end;

end.