CSDN 寻找最后一个Delphi犀利哥

百度知道真垃圾，那么大的一个企业，就给那么点空间，提个问1500字限制了。想想来csdn，挂了一个星期都没人理，不知道是我分太少，还是真的高手都不来这里？？？期待一个英雄的到来，菜鸟我在这里拜谢了！！其实这根本不是生命难题，我才刚刚学，问不出生命高深的题目来：
rT;
delphi7 ,DB:oracle
问题运行工程文件exe不报错，出现了登入界面却，无法进入基本界面，调出任务管理器看不到EXE的进程，生命这个系统已经退出了。
主界面的代码：login.pass  ，name 属性frmLogin
unit main;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls;
type
  TfrmMain = class(TForm)
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmMain: TfrmMain;
implementation
uses GoodsInfo, Vendor, InHouse, OutHouse, Stocks, AlterPWD;
{$R *.dfm}
procedure TfrmMain.SpeedButton2Click(Sender: TObject);
begin
  frmGoodsinfo:=TfrmGoodsinfo.Create(self);
  frmGoodsinfo.Showmodal;
  frmGoodsinfo.Free;
end;
procedure TfrmMain.SpeedButton3Click(Sender: TObject);
begin
   frmVendor:=TfrmVendor.Create(self);
   frmVendor.Showmodal;
   frmVendor.Free;
end;
procedure TfrmMain.SpeedButton4Click(Se