c:='汉口大智路';
form5.show;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
form5.Caption:='汉阳电脑城销售部';
c:='汉阳电脑城';
form5.show;
end;
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
form1.Close;
end;
end.
3.2功能块2：
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Buttons;
type
TForm2 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Query1: TQuery;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
form1.edit1.enabled:=true;
form1.ComboBox1.enabled:=true;
form1.BitBtn5.Enabled:=true;
form1.BitBtn9.Enabled:=true;
form2.close;
form1.show;
end;
end.
3.3功能块3：
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, Grids, DBGrids, DBTables;
type
TForm3 = class(TForm)
Query1: TQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
form1.ComboBox2.Enabled:=true;
form1.ComboBox3.Enabled:=true;
form1.ComboBox4.Enabled:=true;
form1.BitBtn6.Enabled:=true;
form1.BitBtn8.Enabled:=true;
form3.close;
form1.show;
end;
end.
3.4功能块4：
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, DBTables, Grids, DBGrids;
type
TForm4 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Query1: TQuery;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
form4.close;
form1.show;
end;
end.
3.5功能块5：
procedure TForm5.GroupBox1Click(Sender: TObject);
begin
end;
end.
4．执行结果。
4.1运行总程序：
界面运行成功，正确无误
4.2子功能测试运行：
随即对数据输入进行操作，得到如下测试结果（如图）：
4.3测试结果总结：
经过对主界面的测试，主操作界面可以成功的进行操作。完成了预期的设计目标。
子窗口成功的从interbase数据库中提取了用户要求的数据，也完美的完成了设计的目标需求
5．心得体会
通过本学生信息系统的编程开发，我熟悉了Dephi，和Interbase的使用和操作。
学会了使用Dephi的某些控件进行设计，并连接数据库。也学会了Interbase中表的操作与管理。把书本上学习到的
