data.pas

一个很好的勤工助学管理系统

unit data;

interface

uses
  Windows, SysUtils, Classes, ADODB, DB;

type
  TDataModule1 = class(TDataModule)
    ADOTable_XX: TADOTable;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

  MyPath,MyPass:string;
  sYuanXiao,sZhuanYe:string;

implementation

uses main;

{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
  ADOTable_XX.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                                 MyPath+'mdb\勤工助学.mdb;Jet OLEDB:Database Password='+
                                 MyPassW+';Persist Security Info=False';
  ADOTable_XX.TableName:='信息';
  try
    ADOTable_XX.Open;
  except
    MessageBox(0,'无法打开数据库','错误',MB_OK);
  end;
  MyPass:=ADOTable_XX.Fields[1].AsString;
  sYuanXiao:=ADOTable_XX.Fields[2].AsString;
  sZhuanYe:=ADOTable_XX.Fields[3].AsString;
end;

procedure TDataModule1.DataModuleDestroy(Sender: TObject);
begin
  ADOTable_XX.Close;
end;

end.