资料.txt

来自「本软件是小管家个人帐户管理系统 (ADO+ACCESS)」· 文本 代码 · 共 13 行

MyPath:=ExtractFilePath(ParamStr(0));
 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;