delphi 函数不施行
delphi 函数不执行
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, ComCtrls, iniFiles, welcomn;
type
Tmainform = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
ADOConnection1: TADOConnection;
StatusBar1: TStatusBar;
welcome: TFrame1;
VPN1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
mainform: Tmainform;
vlogin, vloginname, vloginstatus : string;
implementation
uses login;
var
myinifile : Tinifile;
{$R *.dfm}
procedure Tmainform.FormShow(Sender: TObject);
begin
f_login.ShowModal;
end;
procedure Tmainform.FormCreate(Sender: TObject);
var
filename : string;
begin
filename := ExtractFilePath(paramstr(0)) + 'dblink.ini' ;
myinifile := Tinifile.Create(filename);
try
ADOConnection1.Connected := false;
ADOConnection1.ConnectionString := myinifile.ReadString('part1', 'dbstring', 'www');
ADOConnection1.Connected := true;
except
showmessage('数据库连接失败,请检查dblink.ini 文件中的连接信息的设置是否正确');
application.Terminate;
end;
end;
end.
以上是代码
我想做一个登陆界面跟主界面, 在主界面中动态连接数据库
但是执行时 Tmainform.FormShow(Sender: TObject); 不会调用
函数执行的顺序到底是怎么设定的呢 是自动调用吗?
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, ComCtrls, iniFiles, welcomn;
type
Tmainform = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
ADOConnection1: TADOConnection;
StatusBar1: TStatusBar;
welcome: TFrame1;
VPN1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
mainform: Tmainform;
vlogin, vloginname, vloginstatus : string;
implementation
uses login;
var
myinifile : Tinifile;
{$R *.dfm}
procedure Tmainform.FormShow(Sender: TObject);
begin
f_login.ShowModal;
end;
procedure Tmainform.FormCreate(Sender: TObject);
var
filename : string;
begin
filename := ExtractFilePath(paramstr(0)) + 'dblink.ini' ;
myinifile := Tinifile.Create(filename);
try
ADOConnection1.Connected := false;
ADOConnection1.ConnectionString := myinifile.ReadString('part1', 'dbstring', 'www');
ADOConnection1.Connected := true;
except
showmessage('数据库连接失败,请检查dblink.ini 文件中的连接信息的设置是否正确');
application.Terminate;
end;
end;
end.
以上是代码
我想做一个登陆界面跟主界面, 在主界面中动态连接数据库
但是执行时 Tmainform.FormShow(Sender: TObject); 不会调用
函数执行的顺序到底是怎么设定的呢 是自动调用吗?
delphi
数据库
界面
文章评论
相关解决方案