1、如何将Ado组件的ConnectionString的路径修改为相对路径??具体如何操作??
2、如何让登录窗体在程序运行时先于主窗体显示,请问代码如何编写或者属性如何设置?有朋友告诉我可以在工程资源文件中把登录窗体在主窗体前建立,你也可以在主窗体体SHOW时显示登录窗体
,第一种办法我将登陆窗体在主窗体前创建了,登陆窗体是在主窗体前显示,但主窗体却紧随着就自动显示了,无需经过登陆窗体身份确认,这是为什么呢,是不是我的代码有问题呢?
第二种办法又如何实现呢??
麻烦各位了!!

解决方案 »

  1.   

    1、
    var mypath:string;
    begin
      MyPath:=ExtractFilePath(ParamStr(0)) ;可以用上述方法取得当前路径.
    ConnectionString=MyPath+'文件名.mdb'2、可以在程序启动后关闭第一个窗体,然后显示第二个窗体
    form1.close; form2.show;
      

  2.   

    2.
    刚学delphi,给你看看我的方法,仅供参考 
     Application.Initialize;
      islogin:=false;
      Application.CreateForm(Tmdiform, mdiform);
      mdiform.hide;
      Application.CreateForm(Tformlogin, formlogin);
      try
        formlogin.showmodal;
      finally
        formlogin.free;
      end;
      if islogin=false then exit;
      Application.Run;
      

  3.   

    1.动态修改连接参数
    2.
    program Project1;uses
      Forms,
      Unit1 in 'Unit1.pas' {fmMain},
      Unit2 in 'Unit2.pas' {fmLogOn};{$R *.RES}begin
      Application.Initialize;
      Application.CreateForm(TfmMain, fmMain);
      Application.CreateForm(TfmLogOn, fmLogOn);
      //连接数据库
      if 连接不成功 then Application.Terminate;
      if 连接成功 then
         if  fmLogOn.ShowModal <> 1 then Application.Terminate;
      Application.Run;
    end.
      

  4.   

    begin
      Application.Initialize;
      application.ShowMainForm:=false;
      Application.CreateForm(TMainForm, MainForm);//主窗体
      Application.CreateForm(TF_login, F_login);//登陆窗体
      F_login1.Show;
      Application.Run;
    end.
      

  5.   

    Application.Initialize;
      
      Application.CreateForm(TfmLogOn, fmLogOn);
     if  fmLogOn.ShowModal <> 1 then 
       begin
         Application.CreateForm(TfmMain, fmMain);
         Application.Run;
        end;