计算机公司销售业务管理系统

aption:='汉口大智路销售部';
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中表的操作与管理。把书本上学习到的

首页上一页 1 2 3 4 下一页尾页 3/4/4

计算机公司销售业务管理系统(三)