【DELPHI设计栏目提醒】:网学会员在DELPHI设计频道为大家收集整理了“delphi通用销售管理系统“提供大家参考,希望对大家有所帮助!
中文摘要
销售管理系统为企事业单位销售管理者提供充足的信息和快捷的查询平台,其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。利用DELPHI 6.0软件及其提供的各种面向对象的开发工具,建立完整性强、安全性好的数据库,开发出功能完备,易使用的应用程序。经过调试、编译与实现,该程序界面友好、程序设计风格朴素,使用起来美观大方、方便易用。尤其是系统的“查询与统计模块”的功能极大的减轻工作人员的工作量,并以快速、准确等优点取代人工操作,提高了销售管理工作效率。
关键词 : DELPHI 6.0 信息管理系统 数据库 模块 销售管理系统
引 言 1
1 Delphi语言概述 2
1.1 Delphi简介 5
1.2 数据库系统简介 8
1.3 本应用软件的基本介绍 13
2 本应用程序的构成和开发步骤 16
2.1 可行性研究 ` 18
2.1.1 经济可行性 19
2.1.2 时间可行性 20
2.1.3 技术可行性 21
2.1.4 社会可行性 22
2.2 数据库的建立和连接 25
2.3 系统的总体设计 30
2.4 系统的详细设计 37
3 本程序的技术实现及具体功能 39
3.1 登录的界面与程序设计实现 42
3.2 销售管理界面与代码设计实现 53
3.3 查询与统计界面与代码设计实现 64
3.4 图表分析界面与代码设计 74
3.5 主界面设计与代码设计 84
结 论 92
致 谢 93
参 考 文 献 94
2.3 系统的总体设计
这个管理系统从4月1日开始着手设计开发,经过一段时间的分析,并根据对销售管理的具体要求及需要本软件实现的功能,将本软件分为5个大的模块,分别是:第一部分:基本资料;第二部分:销售管理;第三部分:查询与统计; 第四部分:图表分析。
程序流程图如下:
2.4 系统的详细设计
进入Access后要做的第一件事就是建立一个数据库。Access提供了6种用构造数据库系统的对象,根据本课题的需要,在这里选择一个空的数据库,命名建立了一个数据库名称为“pn”,销售管理系统。并在此数据库下创建了六个表,用于存放原始数据。它只是存放数据,对其中数据的修改要通过对应的窗体来完成。创建各表的具体结构如下:
1.密码信息表
2.chanpinl信息表
3.chanpinl信息表
4.客户信息表:
5.khbf信息表
6.客户资料信息表:
3 本程序的技术实现及具体功能
3.1 登录的界面与程序设计实现
代码分析:
unit unit_first;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, DB, ADODB;
type
Tfrm_first = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
sbtn_enter: TSpeedButton;
sbtn_exit: TSpeedButton;
edt_password: TEdit;
cmb_name: TComboBox;
cmb_right: TComboBox;
ADOTable1: TADOTable;
ADOConnection1: TADOConnection;
procedure sbtn_enterClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure cmb_rightChange(Sender: TObject);
procedure cmb_rightKeyPress(Sender: TObject; var Key: Char);
procedure cmb_nameKeyPress(Sender: TObject; var Key: Char);
procedure edt_passwordKeyPress(Sender: TObject; var Key: Char);
procedure sbtn_exitClick(Sender: TObject);
private
{ Private declarations }
public
right,i:integer;
password,logname:string;
flag:boolean;{ Public declarations }
end;
var
frm_first: Tfrm_first;
implementation
uses unit_main;
{$R *.dfm}
procedure Tfrm_first.sbtn_enterClick(Sender: TObject);
begin
flag:=false;
right:=cmb_right.ItemIndex;
logname:=cmb_name.Text;
password:=edt_password.Text;
adotable1.Open;
adotable1.First;
while not adotable1.Eof do
begin
if (logname=adotable1.FieldValues[''帐号'']) and (right=adotable1.FieldValues[''权限'']) and (password=adotable1.FieldValues[''密码'']) then
flag:=true;
adotable1.Next;
end;
if flag then
begin
if right=0 then
begin
frm_main.n12.Enabled:=true;
frm_main.Caption:='''';
frm_main.Caption:=''三所销售管理''+''---''+''管理员''+''(''+cmb_name.Text+'')'';
end;
if right=1 then
begin
frm_main.n12.Enabled:=false;
frm_main.Caption:='''';
frm_main.Caption:=''三所销售管理''+''---''+''一般用户''+''(''+cmb_name.Text+'')'';
end;
cmb_name.Text:='''';
edt_password.Text:='''';
cmb_name.SetFocus;
adotable1.Close;
close;
end
else
begin
showmessage(''此帐号不存在或密码错误,请从新输入!'');
cmb_name.Text:='''';
edt_password.Text:='''';
cmb_name.SetFocus;
end;
end;
procedure Tfrm_first.FormCreate(Sender: TObject);
begin
adoconnection1.ConnectionString:=''Provider=Microsoft.Jet.OLEDB.4.0;Data Source=''+getcurrentdir+''\data\password.mdb;Persist Security Info=False;Jet OLEDB:Database Password=80513'';
adoconnection1.Connected:=true;
adotable1.TableName:=''密码'';
adotable1.Active:=true;
adotable1.First;
end;
procedure Tfrm_first.cmb_rightChange(Sender: TObject);
var
i:integer;
begin
adotable1.Active:=true;
cmb_name.Text:='''';
if cmb_right.ItemIndex=0 then
begin
cmb_name.Items.Clear;
adotable1.Filter:=''权限=0'';
adotable1.Filtered:=true;
if adotable1.RecordCount<5 then
begin
for i:=0 to adotable1.RecordCount-1 do
begin
cmb_name.Items.Add(adotable1.FieldValues[''帐号'']);
adotable1.Next;
end;
end
else
begin
for i:=0 to 4 do
begin
cmb_name.Items.Add(adotable1.FieldValues[''帐号'']);
adotable1.Next;
end;
end;
end
else
参 考 文 献
1 张春林.Delphi 6程序设计导学.北京:清华大学出版社,2002.5
2 飞思科技. Delphi6开发者手册. 北京:电子工业出版社,2002.3
3 飞思科技. Delphi6数据库开发. 北京:电子工业出版社, 2002.1
上一篇:delphi网吧管理