unit1.pas

Delphi7应用编程150例附书源码.rar

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;

const
  dbBoolean = $00000001;
  dbByte = $00000002;
  dbInteger = $00000003;
  dbLong = $00000004;
  dbCurrency = $00000005;
  dbSingle = $00000006;
  dbDouble = $00000007;
  dbDate = $00000008;
  dbBinary = $00000009;
  dbText = $0000000A;
  dbLongBinary = $0000000B;
  dbMemo = $0000000C;
  dbGUID = $0000000F;
  dbBigInt = $00000010;
  dbVarBinary = $00000011;
  dbChar = $00000012;
  dbNumeric = $00000013;
  dbDecimal = $00000014;
  dbFloat = $00000015;
  dbTime = $00000016;
  dbTimeStamp = $00000017;

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.