delphi 函数不施行

2013-09-15

delphi 函数不执行unit maininterfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, C

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); 不会调用

函数执行的顺序到底是怎么设定的呢是自动调用吗？ delphi 数据库界面

分享到：
[解决办法]
窗体的属性编辑器里，onformshow里有没有绑定上你写的事件
因为我猜测有可能你的代码是从网上copy&paste的，所以有此一问

热点排行

.NET

delphi 函数不施行