经过几个月的设计和开发，商品销售管理系统基本开发完毕。其功能基本符合用户需求，能够完成商品流通过程中所涉及到的基本信息的、输入、修改，查询等动能。并提供部分系统维护功能,使用户方便进行用户名称和密码的更改，提高了软件的安全性和健壮性。此外，本软件对于数据的一致性的问题也通过程序进行了有效的解决。
但现实中的商品交易形式是多种多样的，是由于文档设计时间较短，需求分析做得不够完善，个人能力以及精力等因素的限制，所以该系统只假设了两种形式销售方式，即订单销售和代理商销售， 并且假设这两种销售方式在商品的流通过程中不存在互相干扰的现象。另外，该系统还有许多不尽如人意的地方。比如功能不是很完善、用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。
致谢
在本次文档设计中，我从指导老师张韦伟老师身上学到了很多东西。张韦伟老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。她无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢她耐心的辅导。另外，系统能及时开发完成也得益于同组同学之间的密切协作，这里一并表示感谢！
主要参考文献：
[1] Delphi企业经营管理系统开发实例导航
作者：求是科技 王志伟 黄超
出版社：人民邮电出版社
[2] Delphi 面向对象程序设计及应用开发
作者：朱振元，朱承
出版社：西安电子科技大学出版社
[3] Delphi 6程序设计导学
作者：张春林
出版社：清华大学出版社
[4] 最新Delphi 7数据库开发指南
作者： 只飞 等
出版社：北京希望电子出版社
[5] Delphi 实用程序100例
作者：段兴
出版社：人民邮电大学
[6] 网上资料查询
附录程序清单及注释
程序清单
unit LogoUnit;//登陆窗口
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, ComCtrls, StdCtrls;
type
TLogoForm = class(TForm)
Panel1: TPanel;
StatusBar1: TStatusBar;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
LogoForm: TLogoForm;
implementation
uses LoginUnit;
{$R *.dfm}
procedure TLogoForm.FormCreate(Sender: TObject);
var
Foundwin: HWND;
begin
Foundwin := FindWindow(nil, '商品销售管理系统 -'); // 查找窗口
if Foundwin <> 0 then begin
// 调用Delphi自带的查询窗口函数，查找特定标题的窗体
// 若找到则激活已运行的程序，同时结束自身
ShowWindow(Foundwin, SW_RESTORE);
halt;
end;
end;
end
unit LoginUnit; //密码登陆窗口
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Registry, DBCtrls;
type
TLoginForm = class(TForm)
PanelBkGnd: TPanel;
Label2: TLabel;
Label1: TLabel;
Label3: TLabel;
L_name: TLabel;
Panel_button: TPanel;
Bevel_button: TBevel;
OKBtn: TButton;
CancelBtn: TButton;
E_ID: TEdit;
E_PassWord: TEdit;
query_pass: TQuery;
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure OKBtnClick(Sender: TObject);
procedure E_IDChange(Sender: TObject);
procedure E_IDKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure CancelBtnCli