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,
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);
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