源码是不是有问题

jjjwltcs 2002-08-03 11:22:26

我看一个别人编好的程序它的源码
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, StdCtrls, Buttons, Db, DBTables, jpeg, ExtCtrls;

type
TForm1 = class(TForm)
Database1: TDatabase;
Image1: TImage;
MainMenu1: TMainMenu;
N1: TMenuItem;
Image2: TImage;
N2: TMenuItem;
N3: TMenuItem;
procedure FormShow(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, About, Unit16;

{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);
begin
DateSeparator := '-';
ShortDateFormat:='yyyy-mm-dd';
TwoDigitYearCenturyWindow:=70;
form2.showmodal;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
form1.close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form4.show;
end;

procedure TForm1.N8Click(Sender: TObject);
begin
aboutbox.showmodal;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
aboutbox.showmodal;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
MessageDlg('请在进行数据维护之前将所有的录入和查询窗口都关闭，否则会出现错误！' , mtWarning, [mbOk], 0);
form16.show;
end;

end.

这里根本没有form2 form16 这怎么能调用呢
是不是错了奇怪

...全文