1、如何将Ado组件的ConnectionString的路径修改为相对路径??具体如何操作??
2、如何让登录窗体在程序运行时先于主窗体显示,请问代码如何编写或者属性如何设置?有朋友告诉我可以在工程资源文件中把登录窗体在主窗体前建立,你也可以在主窗体体SHOW时显示登录窗体
,第一种办法我将登陆窗体在主窗体前创建了,登陆窗体是在主窗体前显示,但主窗体却紧随着就自动显示了,无需经过登陆窗体身份确认,这是为什么呢,是不是我的代码有问题呢?
第二种办法又如何实现呢??
麻烦各位了!!
2、如何让登录窗体在程序运行时先于主窗体显示,请问代码如何编写或者属性如何设置?有朋友告诉我可以在工程资源文件中把登录窗体在主窗体前建立,你也可以在主窗体体SHOW时显示登录窗体
,第一种办法我将登陆窗体在主窗体前创建了,登陆窗体是在主窗体前显示,但主窗体却紧随着就自动显示了,无需经过登陆窗体身份确认,这是为什么呢,是不是我的代码有问题呢?
第二种办法又如何实现呢??
麻烦各位了!!
var mypath:string;
begin
MyPath:=ExtractFilePath(ParamStr(0)) ;可以用上述方法取得当前路径.
ConnectionString=MyPath+'文件名.mdb'2、可以在程序启动后关闭第一个窗体,然后显示第二个窗体
form1.close; form2.show;
刚学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;
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.
Application.Initialize;
application.ShowMainForm:=false;
Application.CreateForm(TMainForm, MainForm);//主窗体
Application.CreateForm(TF_login, F_login);//登陆窗体
F_login1.Show;
Application.Run;
end.
Application.CreateForm(TfmLogOn, fmLogOn);
if fmLogOn.ShowModal <> 1 then
begin
Application.CreateForm(TfmMain, fmMain);
Application.Run;
end;