datam.pas

帮朋友编写的幼儿教育的管理平台

unit DataM;

interface

uses
  SysUtils, Classes, DBTables, DB, ADODB;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    Custom_Query: TADOQuery;
    Custom_DS: TDataSource;
    Guest_Query: TADOQuery;
    Guest_DS: TDataSource;
    CustomADQuery: TADOQuery;
    CustomAD_DS: TDataSource;
    GuestADQuery: TADOQuery;
    GuestAD_DS: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
//var  ap:TStringList;
begin
//  ap:=TStringlist.Create;
//  Session.GetAliasNames(ap);   //取得别名列表
//  if (ap.IndexOf('JINHEDB')<>-1) then   //判断别名是否存在 -1 表示别名不存在
//    Session.DeleteAlias('JINHEDB');
//  Session.AddStandardAlias('JINHEDB',GetCurrentDir+'\DataBase','Paradox');
//  ap.Free;

//  Session1.Active:=False;
//  Session1.Active:=True;
//  Session1.NetFileDir:=GetCurrentDir+'\DataBase';
//  Session1.PrivateDir:=GetCurrentDir;
//  Session1.AddPassword(DBPassword);
//  Session1.AddPassword(SYSPassword);
//adoquery1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.3.51;Persist         Security Info=False;Data Source=C:\DelphiExamp\Test\BIBLIO.MDB';
// datasource1.DataSet :=adoquery1;
//}
end;

end.