诚成设计-商品销售管理系统设计-南昌航空大学(毕业论文.pdf

1 毕业设计 论文 毕业设计 论文 题目 题目 小商品销售管理系统设计 系系别别信息工程系 专业名称专业名称电子信息工程 班级学号班级学号078205334 学生姓名学生姓名汪治民 指导教师指导教师李忠民 二二 O 一一 年年 五 月月二十日日 2 毕业设计 论文 任务书毕业设计 论文 任务书 I I 毕业设计 毕业设计 论文论文 题目 题目 小商品销售管理系统设计 IIII 毕 毕业设计业设计 论文论文 使用的原始资料使用的原始资料 数据数据 及设计技术要求 及设计技术要求 对于小成本经营的小商品经营业主来说 一套方便 简单 实用 价廉的单机版 销售管理系统能给他们的经营管理带来很大的便捷 小商品销售管理系统把进货 销售 库存 财务等业务实现一体化 支持小票打印和销售统计报表 支持数据 备份恢复和数据清空 要求支持多种商品分类 每类能自定义商品 10 种 具体要求 1 针对小商品销售管理系统做好需求分析 划分功能模块 2 采用 Delfhi 编程 实现友好的交互界面 3 设计小商品销售管理系统中的各种关系模型 设计关系数据库来管理系统中 的各种数据 4 采用 ADO Access 的 Delphi 数据库编程方法访问数据库中的各种数据 5 翻译一篇相关的英文资料 IIIIII 毕 毕业设计业设计 论文论文 工作内容及完成时间 工作内容及完成时间 第 01 03 周 资料查找 方案论证 英文资料翻译 开题报告撰写 第 04 11 周 关系模型设计 E R 图绘制 编写程序 第 12 15 周 软件功能调试 第 16 18 周 毕业论文撰写 答辩 3 主 主要参考资料 要参考资料 1 杨长春主编 Delphi 程序设计教程 M 北京 清华大学出版社 2008 2 孙福兆等编著 Delphi 课程设计案例精编 M 北京 清华大学出版社 2008 3 陈志延 Delphi interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs Menus StdCtrls DB ADODB ExtCtrls ComCtrls jpeg type Tfrmmain class TForm MainMenu1 TMainMenu N1 TMenuItem N3 TMenuItem N4 TMenuItem N5 TMenuItem N6 TMenuItem N7 TMenuItem N11 TMenuItem N16 TMenuItem N19 TMenuItem ADOConnection1 TADOConnection N20 TMenuItem N21 TMenuItem N23 TMenuItem StatusBar1 TStatusBar Timer1 TTimer N8 TMenuItem 南昌航空大学科技学院学士学位论文 27 N9 TMenuItem N10 TMenuItem N12 TMenuItem help1 TMenuItem Image1 TImage procedure N6Click Sender TObject procedure N7Click Sender TObject procedure N3Click Sender TObject procedure FormCloseQuery Sender TObject var CanClose Boolean procedure N5Click Sender TObject procedure N11Click Sender TObject procedure N16Click Sender TObject procedure Timer1Timer Sender TObject procedure FormCreate Sender TObject procedure N23Click Sender TObject procedure N10Click Sender TObject procedure N9Click Sender TObject procedure N12Click Sender TObject procedure N21Click Sender TObject procedure help1Click Sender TObject private Private declarations public Public declarations end var frmmain Tfrmmain 南昌航空大学科技学院学士学位论文 28 implementation uses Udl Unit3 Undel1 Unmod1 Ugysxx Ukcgl ShellApi Ucx Uhpxx Uyhgl Ugywm R dfm procedure Tfrmmain N6Click Sender TObject begin Frmadd1 show end procedure Tfrmmain N7Click Sender TObject begin Frmdel1 show end procedure Tfrmmain N3Click Sender TObject begin close end procedure Tfrmmain FormCloseQuery Sender TObject var CanClose Boolean begin if messagedlg 真的要退出系统吗 mtConfirmation mbyes mbno 0 mryes then begin canclose true 南昌航空大学科技学院学士学位论文 29 frm2 close end else begin canclose false end end procedure Tfrmmain N5Click Sender TObject begin frmxsgl show end procedure Tfrmmain N11Click Sender TObject begin frmgysxx Show end procedure Tfrmmain N16Click Sender TObject begin frmkcgl Show end procedure Tfrmmain Timer1Timer Sender TObject begin statusbar1 Panels 1 Text 当前时间为 datetimetostr now end procedure Tfrmmain FormCreate Sender TObject 南昌航空大学科技学院学士学位论文 30 begin statusbar1 Panels 0 Text 登录时间 datetimetostr now statusbar1 Panels 2 Text 作品 小商品销售管理系统 end procedure Tfrmmain N23Click Sender TObject begin ShellExecute Handle nil Notepad exe nil nil SW SHOWNORMAL end procedure Tfrmmain N10Click Sender TObject begin frmcx show end procedure Tfrmmain N9Click Sender TObject begin Frmhpxx show end procedure Tfrmmain N12Click Sender TObject begin frmyhgl show end procedure Tfrmmain N21Click Sender TObject begin Frmgywm Show end procedure Tfrmmain help1Click Sender TObject 南昌航空大学科技学院学士学位论文 31 begin application HelpFile 帮助 help HLP application HelpCommand Help Finder 0 end end 用户登录界面代码 用户登录界面代码 unit Unit2 interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls DB ADODB type TForm2 class TForm Label1 TLabel Label2 TLabel Edit1 TEdit Edit2 TEdit Button1 TButton Button2 TButton ADOQuery1 TADOQuery ADOConnection1 TADOConnection procedure Button1Click Sender TObject procedure Button2Click Sender TObject 南昌航空大学科技学院学士学位论文 32 private Private declarations public Public declarations end var Form2 TForm2 implementation uses unit1 R dfm procedure TForm2 Button1Click Sender TObject begin adoquery1 Close adoquery1 sql clear adoquery1 sql add select from 操作员 where 操作员 x adoquery1 Parameters ParamByName x Value edit1 Text adoquery1 Open if adoquery1 recordcount 0 then if adoquery1 FieldByName 密码 value Edit2 Text then begin if adoquery1 FieldByName 权限 value 管理员 then begin frmmain n6 enabled true frmmain n7 enabled true frmmain n8 enabled true frmmain n12 enabled true frmmain n13 enabled true 南昌航空大学科技学院学士学位论文 33 frmmain n14 enabled true frmmain n18 enabled true end if adoquery1 FieldByName 权限 value 操作员 then begin frmmain n6 enabled true frmmain n7 enabled true frmmain n8 enabled true frmmain n9 enabled true frmmain n10 enabled true frmmain n12 enabled true frmmain n13 enabled true frmmain n14 enabled true frmmain n15 enabled true frmmain n17 enabled true frmmain n18 enabled true end if adoquery1 FieldByName 权限 value 查看员 then begin frmmain n9 enabled true frmmain n10 enabled true frmmain n15 enabled true frmmain n17 enabled true end close end else showmessage 密码错误 else showmessage 没有该用户 end 南昌航空大学科技学院学士学位论文 34 procedure TForm2 Button2Click Sender TObject begin close end end 商品入库界面代码 商品入库界面代码 unit Unit3 interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs DB ADODB StdCtrls Grids DBGrids ComCtrls type TFrmadd1 class TForm DBGrid1 TDBGrid GroupBox1 TGroupBox Label1 TLabel Label2 TLabel Label3 TLabel Label4 TLabel Label5 TLabel Label6 TLabel Edit1 TEdit Edit2 TEdit Edit3 TEdit 南昌航空大学科技学院学士学位论文 35 Edit5 TEdit Button1 TButton Button2 TButton ADOQuery1 TADOQuery DataSource1 TDataSource Edit4 TEdit DateTimePicker1 TDateTimePicker Button3 TButton procedure Button3Click Sender TObject procedure Button1Click Sender TObject procedure Button2Click Sender TObject procedure Edit1KeyPress Sender TObject var Key Char private Private declarations public Public declarations end var Frmadd1 TFrmadd1 implementation uses Unit1 R dfm procedure TFrmadd1 Button3Click Sender TObject begin ifMessageDlg 你 真 的 要 退 出 trim Button3 Hint 本 窗 体 吗 mtwarning mbOKCancel 1 mrOK then 南昌航空大学科技学院学士学位论文 36 begin close end end procedure TFrmadd1 Button1Click Sender TObject begin if edit1 text then showmessage 物品编号不能为空 else adoquery1 Close adoquery1 sql Clear adoquery1 sql Add select from 进货管理表 where 物品编号 x adoquery1 parameters parambyname x value edit1 Text adoquery1 open if adoquery1 recordcount0 then showmessage 该商品已存在 请重输 else begin if edit2 text or edit3 text or edit4 text or edit5 text then showmessage 输入不完整 else begin adoquery1 Append adoquery1 fieldbyname 物品编号 asstring Edit1 Text adoquery1 fieldbyname 物品名称 asstring Edit2 Text adoquery1 fieldbyname 进货数量 asstring Edit3 Text adoquery1 fieldbyname 进货日期 Asstring datetostr DateTimePicker1 Date adoquery1 fieldbyname 进货单价 asstring Edit4 Text adoquery1 fieldbyname 供应商 asstring Edit5 Text adoquery1 Post 南昌航空大学科技学院学士学位论文 37 end end end procedure TFrmadd1 Button2Click Sender TObject begin edit1 Clear edit2 Clear edit3 Clear edit4 Clear edit5 Clear end procedure TFrmadd1 Edit1KeyPress Sender TObject var Key Char begin if key 13 then edit2 SetFocus else if key 48 and key 48 and key0 then begin showmessage 用户名重复请重新输入 edit1 setfocus end else begin if edit2 text edit3 Text then begin adoquery1 append adoquery1 fieldbyname 用户名 asstring edit1 text adoquery1 fieldbyname 密码 asstring edit2 text 南昌航空大学科技学院学士学位论文 50 adoquery1 Post end else showmessage 两次密码输入不一致 请重新输入 edit2 SetFocus try adoquery1 ExecSQL showmessage 添加成功 except end end end procedure TFrmyhgl Button2Click Sender TObject begin adoquery1 Close adoquery1 SQL Clear adoquery1 SQL Add select from 操作表where 用户名 x adoquery1 Parameters ParamByName x Value edit1 Text adoquery1 Open begin Adoquery1 Close Adoquery1 SQL Clear Adoquery1 SQL Add update 操作表set 密码 MM Adoquery1 SQL Add 权限 qx where 用户名 bh Adoquery1 Parameters ParamByName bh Value edit1 Text Adoquery1 Parameters ParamByName MM Value edit2 Text Adoquery1 ExecSQL try adoquery1 ExecSQL 南昌航空大学科技学院学士学位论文 51 showmessage 修改成功 except end end end procedure TFrmyhgl Button3Click Sender TObject begin if MessageDlg 你 真 的 要 删 除 用 户 名 为 edit1 Text 的 用 户 记 录 吗 mtwarning mbOKCancel 1 mrOK then begin ADOQuery1 Close ADOQuery1 SQL Clear ADOQuery1 SQL Add delete from 操作表 where 用户名 bh ADOQuery1 Parameters ParamByName bh Value edit1 Text ADOQuery1 ExecSQL 显示 ADOQuery1 Close ADOQuery1 SQL Clear ADOQuery1 SQL Add select from 操作表 ADOQuery1 Open edit1 Text edit2 Text edit3 Text try adoquery1 ExecSQL showmessage 删除成功 except end 南昌航空大学科技学院学士学位论文 52 end end procedure TFrmyhgl Edit1KeyPress Sender TObject var Key Char begin if key 13 then Edit2 SetFocus end procedure TFrmyhgl Edit2KeyPress Sender TObject var Key Char begin if key 13 then Edit3 SetFocus end procedure TFrmyhgl Edit3KeyPress Sender TObject var Key Char begin if key 13 then end procedure TFrmyhgl ComboBox1KeyPress Sender TObject var Key Char begin if key 13 then button1 SetFocus end procedure TFrmyhgl Button4Click Sender TObject begin close end 南昌航空大学科技学院学士学位论文 53 end 进货信息管理界面 进货信息管理界面 unit Undel1 interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs DB ADODB ComCtrls StdCtrls Grids DBGrids type Tfrmdel1 class TForm DBGrid1 TDBGrid GroupBox1 TGroupBox Label1 TLabel Label2 TLabel Label3 TLabel Label4 TLabel Label5 TLabel Label6 TLabel Edit1 TEdit Edit2 TEdit Edit3 TEdit Edit5 TEdit Edit4 TEdit DateTimePicker1 TDateTimePicker ADOQuery1 TADOQuery DataSource1 TDataSource Button1 TButton 南昌航空大学科技学院学士学位论文 54 Button2 TButton GroupBox2 TGroupBox Button3 TButton Button4 TButton Button5 TButton Button6 TButton Button7 TButton Button8 TButton ComboBox1 TComboBox Label7 TLabel Label8 TLabel CheckBox1 TCheckBox editcx TEdit procedure Button4Click Sender TObject procedure Button5Click Sender TObject procedure Button6Click Sender TObject procedure Button7Click Sender TObject procedure Button3Click Sender TObject procedure Button1Click Sender TObject procedure Button8Click Sender TObject procedure Button2Click Sender TObject procedure Edit1KeyPress Sender TObject var Key Char procedure Edit2KeyPress Sender TObject var Key Char procedure Edit3KeyPress Sender TObject var Key Char procedure DateTimePicker1KeyPress Sender TObject var Key Char procedure Edit4KeyPress Sender TObject var Key Char private Private declarations public Public declarations 南昌航空大学科技学院学士学位论文 55 end var frmdel1 Tfrmdel1 implementation uses Ujinhuodayin R dfm procedure Tfrmdel1 Button4Click Sender TObject begin adoquery1 first edit1 Text adoquery1 fieldbyname 物品编号 AsString edit2 Text adoquery1 fieldbyname 物品名称 AsString edit3 Text adoquery1 fieldbyname 进货数量 AsString edit4 Text adoquery1 fieldbyname 进货单价 AsString edit5 Text adoquery1 fieldbyname 供应商 AsString DateTimePicker1 date adoquery1 fieldbyname 进货日期 AsDateTime end procedure Tfrmdel1 Button5Click Sender TObject begin adoquery1 prior edit1 Text adoquery1 fieldbyname 物品编号 AsString edit2 Text adoquery1 fieldbyname 物品名称 AsString edit3 Text adoquery1 fieldbyname 进货数量 AsString edit4 Text adoquery1 fieldbyname 进货单价 AsString edit5 Text adoquery1 fieldbyname 供应商 AsString DateTimePicker1 date adoquery1 fieldbyname 进货日期 AsDateTime 南昌航空大学科技学院学士学位论文 56 end procedure Tfrmdel1 Button6Click Sender TObject begin adoquery1 next edit1 Text adoquery1 fieldbyname 物品编号 AsString edit2 Text adoquery1 fieldbyname 物品名称 AsString edit3 Text adoquery1 fieldbyname 进货数量 AsString edit4 Text adoquery1 fieldbyname 进货单价 AsString edit5 Text adoquery1 fieldbyname 供应商 AsString DateTimePicker1 date adoquery1 fieldbyname 进货日期 AsDateTime end procedure Tfrmdel1 Button7Click Sender TObject begin adoquery1 last edit1 Text adoquery1 fieldbyname 物品编号 AsString edit2 Text adoquery1 fieldbyname 物品名称 AsString edit3 Text adoquery1 fieldbyname 进货数量 AsString edit4 Text adoquery1 fieldbyname 进货单价 AsString edit5 Text adoquery1 fieldbyname 供应商 AsString DateTimePicker1 date adoquery1 fieldbyname 进货日期 AsDateTime end procedure Tfrmdel1 Button3Click Sender TObject begin if editcx Text then begin showmessage 名称不为空 editcx SetFocus exit 南昌航空大学科技学院学士学位论文 57 end if not checkbox1 Checked then begin adoquery1 Close adoquery1 SQL Clear adoquery1 SQL Add select from进货管理表where combobox1 text editcx Text adoquery1 Open if adoquery1 RecordCount 0 then begin showmessage 没有查到该信息 editcx SetFocus editcx SelectAll end end else begin adoquery1 Close adoquery1 SQL Clear adoquery1 SQL Add select from进货管理表where combobox1 text like editcx Text adoquery1 Open if adoquery1 RecordCount 0 then begin showmessage 没有查到该信息 editcx SetFocus editcx SelectAll end end end 南昌航空大学科技学院学士学位论文 58 procedure Tfrmdel1 Button1Click Sender TObject begin ifmessagedlg 确 实 要 删 除 编 号 为 Edit1 Text 的 记 录 吗 mtwarning mbokcancel 1 mrOK then begin ADOQuery1 Close ADOQuery1 SQL Clear ADOQuery1 SQL Add delete from 进货管理表 where 物品编号 bh ADOQuery1 Parameters ParamByName bh Value Edit1 Text ADOQuery1 ExecSQL 显示 ADOQuery1 Close ADOQuery1 SQL Clear ADOQuery1 SQL Add select from 进货管理表 ADOQuery1 Open Edit1 Text try adoquery1 ExecSQL showmessage 删除成功 except end end end procedure Tfrmdel1 Button8Click Sender TObject begin ADOQuery1 Edit ADOQuery1 FieldByName 物品编号 AsString Edit1 Text ADOQuery1 FieldByName 物品名称 AsString Edit2 Text ADOQuery1 FieldByName 进货数量 AsString Edit3 Text ADOQuery1 FieldByName 进货日期 AsDateTime datetimepicker1 Date 南昌航空大学科技学院学士学位论文 59 ADOQuery1 FieldByName 进货单价 AsString Edit4 Text ADOQuery1 FieldByName 供应商 AsString Edit5 Text ADOQuery1 Post try adoquery1 ExecSQL showmessage 修改成功 except end end procedure Tfrmdel1 Button2Click Sender TObject begin ifMessageDlg 你 真 的 要 退 出 trim Button2 Hint 本 窗 体 吗 mtwarning mbOKCancel 1 mrOK then begin close end end procedure Tfrmdel1 Edit1KeyPress Sender TObject var Key Char begin if key 13 then Edit2 SetFocus end procedure Tfrmdel1 Edit2KeyPress Sender TObject var Key Char begin if key 13 then Edit3 SetFocus end 南昌航空大学科技学院学士学位论文 60 procedure Tfrmdel1 Edit3KeyPress Sender TObject var Key Char begin if key 13 then datetimepicker1 SetFocus end procedure Tfrmdel1 DateTimePicker1KeyPress Sender TObject var Key Char begin if key 13 then Edit4 SetFocus end procedure Tfrmdel1 Edit4KeyPress Sender TObject var Key Char begin if key 13 then Edit5 SetFocus end end 库存信息界面代码 库存信息界面代码 unit Ukcgl interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls DB ADODB Grids DBGrids RpRave RpDefine RpCon RpConDS type 南昌航空大学科技学院学士学位论文 61 TFrmkcgl class TForm GroupBox1 TGroupBox Label1 TLabel Label2 TLabel Label4 TLabel Edit1 TEdit Edit2 TEdit Edit4 TEdit Button1 TButton Button2 TButton Button12 TButton DBGrid1 TDBGrid ADOQuery1 TADOQuery DataSource1 TDataSource GroupBox2 TGroupBox Label6 TLabel Label7 TLabel ComboBox1 TComboBox Edit6 TEdit CheckBox1 TCheckBox Button3 TButton GroupBox3 TGroupBox Edit7 TEdit Edit8 TEdit Edit9 TEdit Button5 TButton Button6 TButton DataSource2 TDataSource Button7 TButton Button8 TButton Button9 TButton 南昌航空大学科技学院学士学位论文 62 Button10 TButton Button11 TButton Label3 TLabel Label5 TLabel Label8 TLabel Button4 TButton RvDataSetConnection1 TRvDataSetConnection RvProject1 TRvProject procedure Button11Click Sender TObject procedure Button5Click Sender TObject procedure Button6Click Sender TObject procedure Button1Click Sender TObject procedure Button12Click Sender TObject procedure Button2Click Sender TObject procedure Button3Click Sender TObject procedure DBGrid1CellClick Column TColumn procedure Button8Click Sender TObject procedure Button7Click Sender TObject procedure Button9Click Sender TObject procedure Button10Click Sender TObject procedure Edit1KeyPress Sender TObject var Key Char procedure Edit2KeyPress Sender TObject var Key Char procedure Button4Click Sender TObject private Private declarations public Public declarations end var Frmkcgl TFrmkcgl 南昌航空大学科技学院学士学位论文 63 implementation uses Unit1 Ukucdayin Udl R dfm procedure TFrmkcgl Button11Click Sender TObject begin ifMessageDlg 你 真 的 要 退 出 trim Button11 Hint 本 窗 体 吗 mtwarning mbOKCancel 1 mrOK then begin close end end procedure TFrmkcgl Button5Click Sender TObject begin ADOQuery1 Edit ADOQuery1 FieldByName id AsString Edit7 Text ADOQuery1 FieldByName name AsString Edit8 Text ADOQuery1 FieldByName num AsString Edit9 Text ADOQuery1 Post try adoquery1 ExecSQL showmessage 修改成功 except end end procedure TFrmkcgl Button6Click Sender TObject 南昌航空大学科技学院学士学位论文 64 begin ifmessagedlg 确 实 要 删 除 编 号 为 Edit7 Text 的 记 录 吗 mtwarning mbokcancel 1 mrOK then begin ADOQuery1 Close ADOQuery1 SQL Clear ADOQuery1 SQL Add delete from 库存表 where id bh ADOQuery1 Parameters ParamByName bh Value Edit7 Text ADOQuery1 ExecSQL 显示 ADOQuery1 Close ADOQuery1 SQL Clear ADOQuery1 SQL Add select from 库存表 ADOQuery1 Open Edit7 Text Edit8 Text Edit9 Text try adoquery1 ExecSQL showmessage 删除成功 except end end end procedure TFrmkcgl Button1Click Sender TObject begin if edit1 text then showmessage id 不能为空 else adoquery1 Close 南昌航空大学科技学院学士学位论文 65 adoquery1 sql Clear adoquery1 sql Add select from 库存表 where id x adoquery1 parameters parambyname x value edit1 Text adoquery1 open if edit2 text or edit4 text then showmessage 输入不完整 else begin adoquery1 Append adoquery1 fieldbyname id asstring Edit1 Text adoquery1 fieldbyname name asstring Edit2 Text adoquery1 fieldbyname num asstring Edit4 Text adoquery1 Post end end procedure TFrmkcgl Button12Click Sender TObject begin Adoquery1 Close Adoquery1 SQL Clear Adoquery1 SQL Add select from 库存表 Adoquery1 Open end procedure TFrmkcgl Button2Click Sender TObject begin edit1 Clear edit2 Clear edit4 Clear end 南昌航空大学科技学院学士学位论文 66 procedure TFrmkcgl Button3Click Sender TObject begin if edit6 Text then begin showmessage 名称不为空 edit6 SetFocus exit end if not checkbox1 Checked then begin adoquery1 Close adoquery1 SQL Clear adoquery1 SQL Add select from库存表where combobox1 text edit6 Text adoquery1 Open if adoquery1 RecordCount 0 then begin showmessage 没有查到该信息 edit6 SetFocus edit6 SelectAll end end else begin adoquery1 Close adoquery1 SQL Clear adoquery1 SQL Add select from库 存 表where combobox1 text like edit6 Text adoquery1 Open if adoquery1 RecordCount 0 then begin 南昌航空大学科技学院学士学位论文 67 showmessage 没有查到该信息 ed