DELPHI急救！！！！！

Question

adoconnection->commandstring
adodataset
datasource
分,1分也要了!

Answer 1

SYS_INI.INI
//品質管理信息注冊文件
[INFO]
COMPANY=高而富電子廠[PATH]
PROG=
DATA=
ATTACH=[VIEW]  Frm_Main: TFrm_Main;
  Prog_Path, Attach_path, company, SelData: string; //程序path,附件path,公司名稱,
//    選擇數據
  Ini: TiniFile;
  msg_sys: Pchar = '系統消息';
BEGIN 
..............................  Prog_Path := ExtractFilePath(Application.ExeName);
  if not FileExists(Prog_path + 'data\spcdata.mdb') then
  begin
    Application.MessageBox('對不起,數據庫文件沒找到,系統初始化' +
      chr(13) + '失敗!', msg_sys, MB_OK + MB_ICONINFORMATION);
    Application.Terminate;
  end else
  begin
    Frm_dm.ADO1.Connected := False;
    Frm_dm.ADO1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' +
      'Data Source=' + Prog_path + 'data\spcdata.mdb ' +
      '; Persist Security Info=False ';
    Frm_dm.ADO1.Connected := True;
    Frm_dm.WA_T1.Active := True;
    Attach_path := Prog_Path + 'Attach';
    ini := TiniFile.Create(Prog_path + 'spc_ini.ini');
    Company := ini.ReadString('INFO', 'COMPANY', '');
    Frm_main.Caption := Company + '品質管理系統';