MyPath:=ExtractFilePath(ParamStr(0));
 ADOTable_XX.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                                 MyPath+'mdb\勤工助學(xué).mdb;Jet OLEDB:Database Password='+
                                 MyPassW+';Persist Security Info=False';
  ADOTable_XX.TableName:='信息';
  try
    ADOTable_XX.Open;
  except
    MessageBox(0,'無(wú)法打開(kāi)數(shù)據(jù)庫(kù)','錯(cuò)誤',MB_OK);
  end;
  MyPass:=ADOTable_XX.Fields[1].AsString;
  sYuanXiao:=ADOTable_XX.Fields[2].AsString;
  sZhuanYe:=ADOTable_XX.Fields[3].AsString;