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

1．设计题目
 1.1题目：
 计算机公司销售业务管理系统
 1.2设计需求：某计算机公司准备开发一个销售业务管理系统。该公司下属若干分店，每一分店都承担存储和销售两项功能。每个分店有若干名职工，每个职工只在一个分店工作。系统功能主要体现在下列查询要求：
   （1）查询某分店的职工情况，或查询指定职工的工作单位。（2）查询一个分店某种型号机器库存量，或某种型号机器在哪个分店有货，有多少。（3）提供销售情况。如某分店某段时间（以天为单位）销售了哪些机器？数量是多少，销售额是多少？

2．设计说明：
 总体上本次课程设计，我采用的是Delphi+Interbase的方案，利用Delphi来编写操作界面，用Interbase数据库来完成数据处理。
2.1需求分析：
 根据题目要求，对于数据库表的需求，应分为如下三类：
 (1) 查询某分店的职工情况，或查询指定职工的工作单位
 (2)查询一个分店某种型号机器库存量，或某种型号机器在哪个分店有货，
 (3)提供销售情况。有多少。
2.2数据库设计方案：
 对于程序所需求的2.1节设计的三点，我做了如下的设计，分成了三个表单。

表一：HR人力资源

表二：slae销售记录

表三：storage库存信息

2.3操作界面设计：
 对于操作界面，利用Delphi设计，一个主操作截面，四个辅助信息窗口。
主界面：

信息窗口：

3．源程序:
 对与上述，五个窗口，分别对应了做了如下的五快代码块分别完成对应的功能：
3.1功能块1
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, （科教范文网 lw.AsEac.com编辑整理）
  Dialogs, ExtCtrls, StdCtrls, Buttons;
type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    GroupBox2: TGroupBox;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    GroupBox3: TGroupBox;
    Panel1: TPanel;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Panel2: TPanel;
    ComboBox4: TComboBox;
    GroupBox4: TGroupBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    ComboBox9: TComboBox;
    ComboBox10: TComboBox;
    ComboBox11: TComboBox;
    ComboBox12: TComboBox;
    Label3: TLabel;
    BitBtn4: TBitBtn;
    Label4: TLabel;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn7: TBitBtn;
    procedure ComboBox1Change(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject); 您可以访问中国科教评价网（www.NsEac.com）查看更多相关的文章。
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
&nb