评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

计算机公司销售业务管理系统(一)毕业论(3)

2013-07-05 01:01 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 }

（科教范文网 Lw.nsEAc.com编辑整理）

  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数据库中提取了用户要求的数据，也完美的完成了设计的目标需求 （科教作文网http://zw.NSEaC.com编辑发布）
5．心得体会
 通过本学生信息系统的编程开发，我熟悉了Dephi，和Interbase的使用和操作。
 学会了使用Dephi的某些控件进行设计，并连接数据库。也学会了Interbase中表的操作与管理。把书本上学习到的