商品销售管理系统论文49772字投稿：洪溈溉

商品销售管理系统论文49772字投稿：洪溈溉内容摘要：

查询功能，使用者可以通过已知商品信息迅速查询到与此种商品相关的代理商信息，同时，也可用过代理商的信息反查处其代理的商品状况。 此外，为了实现系统的界面风格和报表输出功能，用到了两个控件，分别是 修改版 和 QRMaker。 具体的安装和使用方法就不在这里详细说明。 本系统主要分为四个主要功能，即订单系统，代理商系统，备份系统，何管理员系统。 其中，订单系统和代理商系 统是为商品销售服务的，而管理员登陆系统是为数据安全考虑的， 最后的备份系统有助于提高系统的健壮性，在系统崩溃后可以把损失降到最低限度。 同时，本系统也提供了丰富的打印功能，使得计算机里的数据可以以书面的形式印刷并且传播，不会出现信息孤岛的现象。 经过几个月的设计和开发，商品销售管理系统基本开发完毕。 其功能基本符合用户需求，能够完成商品流通过程中所涉及到的基本信息的、输入、修改，查询等动能。 并提供部分系统维护功能 ,使用户方便进行用户名称和密码的更改，提高了软件的安全性和健壮性。 此外，本软件对于数 据的一致性的问题也通过程序进行了有效的解决。 但现实中的商品交易形式是多种多样的，是由于毕业设计时间较短，需求分析做得不够完善，个人能力以及精力等因素的限制，所以该系统只假设了两种形式销售方式，即订单销售和代理商销售， 并且假设这两种销售方式在商品的流通过程中不存在互相干扰的现象。 另外，该系统还有许多不尽如人意的地方。 比如功能不是很完善、用户界面不够美观，出错处理不够等多方面问题。 这些都有待进一步改善。 七 结束语 致谢 在本次毕业设计中，我从指导老师张韦伟老师身上学到了很多东西。 张韦 伟老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。 她无论在理论上还是在实践中， 都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢她耐心的辅导。 另外，系统能及时开发完成也得益于同组同学之间的密切协作，这里一并表示感谢。 主要参考文献： [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 (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 CancelBtnClick(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 private B_halt: bool。 I_logo: integer。 { Private declarations } public { Public declarations } end。 var LoginForm: TLoginForm。 implementation uses MainUnit, LogoUnit。 {$R *.dfm} procedure (Sender: TObject。 var CanClose: Boolean)。 var S_temppass: string。 begin inherited。 if b_halt then begin。 exit。 end else b_halt := true。 S_temppass :=。 USERNAME :=。 if ( = „„) or ( = „未知用户 ‟) then //用户名为空 begin messagedlg(„用户错误 ‟, mterror, [mbok], 0)。 canclose := false。 exit。 end //end if else //用户名非空 begin with query_pass do begin first。 while not eof do //检查用户名与密码 begin if (USERNAME = fieldbyname(„USERname‟).asstring) and (S_tempPass = fieldbyname(„Psd‟).asstring) then begin USERRIGHTSNAME := fieldbyname(„rightsname‟).AsString。 USERRIGHTS := fieldbyname(„rights‟).AsString。 break。 end。 next。 end。 //end while if eof then //用户名与密码不符 begin inc(I_logo)。 if I_logo = 3 then begin messagedlg(„您已尝试超过 3 次，系统将停止运行。 ‟, mterror, [mbok], 0)。 end else begin messagedlg(„用户名与密码不符，请检查后重新输入。 ‟ + 13 + 13 + „你还有 „ + inttostr(3 I_logo) + „ 次机会。 ‟, mterror, [mbok], 0)。 canclose := false。 exit。 end。 end。 //end if end。 //end with end。 //end else if。 [3].Text := „操作员：【 ‟ + USERNAME + „】 权限：〖 ‟ + USERRIGHTSNAME + „〗 ‟。 canclose := true。 end。 procedure (Sender: TObject)。 begin b_halt := false。 end。 procedure (Sender: TObject)。 begin with query_pass do begin first。 while not eof do begin if = fieldbyname(„ID‟).AsString then begin := fieldbyname(„USERName‟).AsString。 exit。 end else := „未知用户 ‟。 next。 end。 end。 end。 procedure (Sender: TObject。 var Key: Word。 Shift: TShiftState)。 begin if key = 27 then begin。 exit。 end。 if (key = 13) or (key = 40) then { 判断是按执行 键 } begin key := 0。 perform(WM_NEXTDLGCTL, 0,。