管理信息系统课程设计

时间：2024.3.31

第二篇：小型超市管理信息系统课程设计

小型超市管理系统

摘要：小型超市管理系统在现代社会中的应用十分广泛，它是用delphi开发的基于windows的小型数据库管理软件。后台数据库的设计采用SQL server 2000，这些流行软件的应用也使系统更容易维护。该系统使用结构化方法，按照系统调查、系统分析、系统设计、系统实施的步骤，采用结构化的编程方法而完成的。在设计中，对系统总体方案的设计，采用了“自上而下”的方法，而对于信息系统具体业务采用了“自下而上”的方法。尤其是数据窗口这一方便而简洁操纵数据库的智能化对象,从而建立一套完善科学的管理信息系统，对超市进行进货、销售发货、库存等实现全面、动态、及时的管理。因此，该设计的方案基本上满足了系统的业务需求，具有一定的可用性。

关键词：数据表；SQL server 2000；控件绑定ODBC数据源

1、需求分析

1.1应用背景

最初的超市资料管理，都是靠人力来完成的。但近几年我国超市经营规模日趋扩大，销售额和门店数量大幅度增加，而且许多超市正在突破以食品为主的传统格局，向品种多样化发展。小型超市在业务上需要处理大量的库存信息，还要时刻更新产品的销售信息，不断添加商品信息，并对商品各种信息进行统计分析。因此，在超市管理中引进现代化的办公软件，实现超市庞大商品的控制和传输，从而方便销售行业的管理和决策，为超市和超市管理人员解除后顾之忧。

1.2设计目标

开发这个系统的目的就是帮助超市管理部门提高工作效率。通过本管理系统软件，能帮助超市工作人员利用计算机，极为方便的对超市的有关数据进行管理、输入、输出、查找等有关操作，使杂乱的超市数据能够具体化、直观化、合理化等。

2、总体方案设计

2.1系统的目标

小型超市管理系统能减少很多不必要的资源，不用象以前那样用冗余的纸张式管理。大大节省了 2

管理人员的工作量，并且计算机的存储与系统快速查询功能大大提高了，提高管理人员的效率。

方便快捷的操作界面，提高工作效率。

2.2系统处理流程

1.启动系统，激活登陆口令界面；

2.通过验证后，对系统进行初始化；

3. 进入系统，通过事件驱动机制激活相应的功能模块，并执行相应的功能；

4.通过关闭系统事件，激活关闭系统模块，退出系统。

系统处理流程如图2.2所示：

小型超市管理信息系统课程设计

图2.2系统处理流程图

2.3系统功能模块设计

通过对上面有关小型超市管理系统的功能需求分析以后，可知小型超市管理系统的功能有：系统管理，商品管理，销售管理。系统功能菜单按以下方法进行设计。

小型超市管理系统

系统管理

用户管理

备份管理

------------

退出系统

商品管理商品管理商品报表销售管理

销售商品销售报表销售历史 ------------ 今日盘点

系统功能模块设计如图2.3所示:

小型超市管理信息系统课程设计

图2.3 系统功能模块设计层次图

2.4系统设计分析

用户管理：添加用户账号，密码，类型等信息。备份管理：数据库的备份，数据库还原。

商品管理：商品的信息录入，包括商品的编号、名称、单价、单位等。销售管理：商品的销售信息，销售金额等。销售历史：商品的销售时间，销售数量等。今日盘点：商品的当日销售总额。 3、数据库设计

作为Windows数据库家族中出类拔萃的成员，SQL Server2000这种关系型数据库管理系统能够满足各种类型的企业客户和独立软件供应商构建商业应用程序的需要。SQL的主要功能之一是实现数据库

查询。你使用查询来取得满足特定条件的信息。在逻辑查询中，你可以包括特殊的运算符如AND、OR和NOT，你使用这些运算符来选择特定的记录。例如，你可以用AND来限制查询结果。SQL的另一主要功能是数据更新，它通过INSERT、DELETE、UPDATE等语句实现。另外,利用SQL Server我们可以很轻松地进行建表、维护等数据库操作。[2]

3.1 系统数据流程图描述

系统数据流程图分别由图3.1所示。

3.2数据字典：

是关于数据的信息的集合，对数据流程图中的各个元素做完整的定义与说明。

下面是超市管理系统几个数据元素的字典卡片与具体数据卡片的含义：

名称：商品信息表

描述：商品的基本信息

定义：编号+名称+单价+单位+货架号+库存+销售

名称：商品销售报表

描述：商品销售情况

定义：商品编号+商品名称+价格+数量+销售时间

3.3系统设计具体实现

目的：设计系统结构，根据需求分析给出的功能得出系统体系结构。如划分模块。

目标：通过本系统软件，能帮助超市管理人员利用计算机，快速方便的对商品信息管理进行维护、

小型超市管理信息系统课程设计

输入、输出、查找的所需操作。

运行环境

操作系统：Windows2000/XP或更高的版本。

支持环境：Borland Delphi7。

3.4模块具体分析

商品信息数据录入模块：主要用于商品基本信息的录入与初始化。实体E-R图

如下：

小型超市管理信息系统课程设计

3.4 商品信息数据E-R图

3.5出错处理设计

本系统采用了典型的人-机对话模式，若操作失败则弹出对话框（如：出错信息等）。出错处理对策：用户可以根据弹出的对话框的提示信息进行相应的处理。

安全保密设计：本系统设计了密码验证登陆窗口，具有权限控制。

3.6 程序逻辑

模块功能实现的算法流程图（数据录入）。

图3.6数据录入模块流程图

4.1功能模块简介

4.1.1 系统功能维护模块

用户管理：设定本系统的系统操作员，可以一个也可以多个管理员。

口令管理：在不退出系统的情况下，凭借原来的密码，可以修改管理员密码。

退出系统：在使用完系统之后，可以退出系统。

4.1.2 基本资料管理模块

商品资料管理：商品资料的添加、删除、编辑。

资料管理:新增、删除和编辑。

初期建帐：对采集到的数据在后台进行数据库管理。

4.1.3 商品流通管理模块

进货管理:当超市进货的时候,分为以下几个步骤:商品编号录入后台数据库在价格定义模块中使商品编号码和价格相对应,即使商品编号码一个码一个价格，保存之后,后台数据库中库存自动更新。

库存管理:当进货时，库存自动增加，当销售时,库存自动减少。

库存报警:设定库存的上限和下限值之后，当库存不符合要求的时候，系统报警。

盘点管理:系统自动产生盘点信息。

4.1.4 销售实时控制模块

由于超市要实时交易，所以对交易有一个界面实时控制商品的流出,当操作员扫描一个物品的条形码之后，输入数量，再扫描下一个物品，输入数量,直到客户需要的物品输入完之后，点击一个按钮，系统自动产生每个货物应付款，总应收款,实收款和找零信息，并控制打印机打印一张热敏纸收据。此时，在系统的后台数据库中自动减少相应库存。

4.1.5 报表生成模块

报表生成模块将担当起智能化的报表生成的任务。此模块将利用SQL server 2000和数据库功能，一步一步地完成所要求的动态统计结果。可以完成商品基本信息报表、销售报表等不同条件下任意组合而成的报表，能够以快速、准确等优点取代人工操作，提高了管理工作效率。

4.1.6 查询模块

可以根据某个条件进行查询，如:日期\产品等，查询日销售量\产品销售量等。

4.1.7本软件可以实现的功能如下：

用户管理，包括用户的添加、删除、密码和权限的修改；

商品管理，商品的添加、删除、修改、销量统计和分类查询；商品报表；

销售商品：通过输入货物编号和数量实现商品销售，并提供库存判断、找零计算等功能；销售报表和销售历史；

今日盘点，告诉用户当天的销售额是多少；

5、系统运行与调试

5.1数据复制

数据复制实际上是为了提高查询处理的本地性，对同一数据复制多个副本，根据需要将副本存放在不同的电脑中．

数据信息包括商品名、库存量、销售量、商品单价、生产日期、生产厂家等．通过事务提交的方式保证避免由于其它一些电脑故障造成的在数据库更新过程中数据的不一致．

5.2.数据库备份

对数据库进行备份是一项很重要的工作，本系统采用在启动数据上传模块的同时自动备份数据库的方法，从而既提高了数据库的可靠性和安全性，同时也减轻了数据库管理员的工作，降低了备份的复杂性．当数据库中的数据遭到破坏需要恢复时，可以从自动备份中恢复．

本系统利用SQL DMO(DatabaseManagement Object)实现数据库备份．SQLDistributed Management Framework

(SQL—DMF，即SQL分布式管理框架)是一组集成API 和服务，用与管理SQLServer．SQL_DMO是SQL_DMF中的一个组件．本系统实现数据库备份程序示例如下：

Dim mySvr As New SQLDMO．SQLServer

Dim myDB As SQLDMO．Database

DimmyBKAs New SQLDMO．Backup

Dim myDv As New

SQLDMO．BaekupDevice

Set mySvr=New SQLDMO．SQLServer

mySvr．Connect”DAQING”，”8a”，”1111”

生成SQLSerwr对象，传递服务器名、用户名和口令

Set myDB=mySw．Databases(”DAQING”)

MyDv Type=SQLDMODevice_DiskDump备份设备的类型

myDv．Name = ”ZxDB_ baekup”

myDv．Physical．location=”D：\中心数据库备份＼ZxDB—back．Up”’ 备份设备的逻辑位置 On ErrorResume Next

mySvr．BackupDevices．Add myDv

On Error GoTo 0

myBK．Database=”DAQING”

myBK．Devices = “ZxDB_backup”

myBK．Initialize = True

myBK．SQLBackup mySvr

mySvr.

BackupDcwices．Remove ”DB_backup”

mySw．DisConnect

5.3 系统测试

5.3.1 测试的意义

在开发软件系统的过程中，面对错综复杂的问题，人的主观认识不可能完全符合客观现象，与工程密切相关的各类人员之间的通讯和配合也不可能完美无缺，因此，在软件生命周期的每个阶段都不可避免地会产生错误。在每个阶段结束之前通严格的技术审查，尽可能早的发现所有差错。此外，在编码过程中还会不可避免地引入新的错误。测试的目的就是在软件投入生产性运行之前，尽可能多地发现软件中的错误。

5.3.2 本系统的测试结果

登录界面测试

运行本软件后，首先出现登录界面，后台连接数据库成功后，进入登录界面。测试时，先输入错误的用户名或密码，此时系统给用户提示小相应的错误信息，然后输入不同的正确用户名和密码，系统根据不同的用户给予不同的使用权限，这在进入程序主界面后，从菜单中可以看出使用权限的不同。无操作权限的菜单暗色显示，不可操作。因此测试成功，功能基本实现。[3]

各子系统的测试

进入主界面后，对不同的子系统进行操作。先正确输入各项信息，点击运行按钮后，发现系统运行正常，结果显示正确；然后错误输入某些信息，或者进行某些错误操作，发现有的能够给出错误提示，并返回让用户重新操作，有的则直接显示错误信息，而后自动退出系统。这说明软件的某些地方容错性不够完善，影响了它的易操作性。于是着手进行修改。后重新进行测试，结果显示软件的容错性基本达到了用户要求。经过对各个子系统全部功能项的不同测试，结果显示以基本达到设计要求。

6.结束语

经过1个多月的调查与研究，小型超市管理系统基本完成。它的特点是实时性强，能够帮助超市管理人员及时方便地管理超市信息。但由于开发者水平有限，仍存在系统功能不够完善，设计步骤欠完整等不足，这些需要在今后的设计中加以改进。

参考文献

[1]许志清,赵博.精通SQL SERVER 2005 数据库系统管理. [M]．北京:北京电子工业出版社，2006

[2] 王晟, 马里杰 SQL Server数据库开发经典案例解 [M].北京:清华大学出版社,2006

[3]常利，肖立洪 Delphi 6 编程--数据库篇 [M].中国电力出版社，2002

附录：主要程序清单

用户登陆

unit UnitLogin;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ADODB, jpeg, DB;

type

TForm1 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

ADOQuery1: TADOQuery;

procedure FormCreate(Sender: TObject);

procedure Image5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure Image4Click(Sender: TObject);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

LogTimes: Integer;

UserType: String;

ExeRoot: String;

DataFile: String;

UserName: String;

implementation

uses UnitMain;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

LogTimes := 0;

end;

procedure TForm1.Image5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

application.Terminate;

end;

procedure TForm1.Image4Click(Sender: TObject);

var

ADOQuery1: TADOQuery;

begin

if (edit1.Text<>'') and (edit2.Text<>'') then

begin

ChDir(ExtractFilePath(Application.ExeName));

ChDir('..');

ExeRoot := GetCurrentDir;

DataFile := GetCurrentDir+'\Data\dzyv1.mdb';

ADOQuery1:= TADOQuery.Create(self);

ADOQuery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataFile+';Persist Security Info=False;';

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from t_user where user_name="'+edit2.Text+'" and user_pass="'+edit1.Text+'" ');

ADOQuery1.Open;

if ADOQuery1.Eof then

begin

LogTimes := LogTimes+1;

if messagebox(handle,'您填写的用户或密码有错误！是否重新输入？','出错提示',mb_iconinformation+mb_okcancel)=IDcancel then application.Terminate;

if LogTimes>=3 then

begin

messagebox(handle,'对不起，登录次数超过3次，程序自动关闭！','非法登录',MB_ICONWARNING+mb_ok);

application.Terminate;

end;

end

else

begin

UserType := ADOQuery1.FieldByName('user_type').AsString;

UserName := ADOQuery1.FieldByName('user_name').AsString;

LogTimes := 0;

ADOQuery1.Free;

Form1.Hide;

form2.ShowModal;

end;

end

else

messagebox(handle,'您没有填写用户和密码！','出错提示',mb_iconinformation+mb_ok) 12

end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then Edit1.SetFocus;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then Image4Click(self);

end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

if (ssleft in shift) then

begin

releasecapture;

perform(wm_syscommand, $f012, 0);

end;

procedure TForm1.Image2Click(Sender: TObject);

begin

application.Terminate;

end;

procedure TForm1.Image3Click(Sender: TObject);

begin

application.Minimize;

end;

end.

数据库还原，备份

unit UnitDbBuckup;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 13

Dialogs, ComCtrls, Gauges, ExtCtrls, StdCtrls;

type

TFrameDbBuckup = class(TFrame)

Image1: TImage;

GroupBox1: TGroupBox;

Image2: TImage;

Image3: TImage;

SaveDialog1: TSaveDialog;

Gauge1: TGauge;

OpenDialog1: TOpenDialog;

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

implementation

uses UnitLogin;

{$R *.dfm}

procedure TFrameDbBuckup.Image2Click(Sender: TObject);

var

i: integer;

begin

try

if not savedialog1.Execute then exit;

if FileExists(savedialog1.FileName+'.mdb') then

begin

if Messagebox(handle,'存在数据库重名，是否覆盖？',mb_iconquestion+mb_yesno)=IDNo then Exit;

end

else

14 ','存盘选项

begin

for i:=Gauge1.MinValue to Gauge1.MaxValue do

Gauge1.Progress := i;

CopyFile(PChar(DataFile),PChar(SaveDialog1.FileName+'.mdb'),True);

Messagebox(handle,'数据库备份成功！','备份数据',mb_iconinformation+mb_ok); end;

except

Messagebox(handle,'警告：数据库备份失败！','存盘错误',mb_iconwarning+mb_ok); end;

end;

procedure TFrameDbBuckup.Image3Click(Sender: TObject);

var

i: integer;

begin

try

if not opendialog1.Execute then exit;

if Messagebox(handle,'警告：现有数据有可能丢失，确定还原？','确定还原',mb_iconquestion+mb_yesno)=IDNo then Exit;

for i:=Gauge1.MinValue to Gauge1.MaxValue do

Gauge1.Progress := i;

Messagebox(handle,'数据库还原成功！','还原数据',mb_iconinformation+mb_ok); except

Messagebox(handle,'警告：数据库还原失败！','读取错误',mb_iconwarning+mb_ok); end;

end;

end.

商品信息

unit UnitProdList;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, ExtCtrls, StdCtrls, Mask, DBCtrls;

type

TFrameProdList = class(TFrame)

Image1: TImage;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

GroupBox1: TGroupBox;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

Label3: TLabel;

DBEdit4: TDBEdit;

Label4: TLabel;

DBEdit5: TDBEdit;

Label5: TLabel;

Image5: TImage;

Image6: TImage;

GroupBox2: TGroupBox;

Label6: TLabel;

Edit1: TEdit;

Image7: TImage;

Label7: TLabel;

procedure Image2Click(Sender: TObject); procedure Image5Click(Sender: TObject); procedure Image3Click(Sender: TObject); procedure Image4Click(Sender: TObject); procedure Image6Click(Sender: TObject); 16

procedure Image7Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char); function IsAllNum(s:string):bool;

procedure Label7Click(Sender: TObject);

procedure DBEdit1KeyPress(Sender: TObject; var Key: Char); procedure DBEdit2KeyPress(Sender: TObject; var Key: Char); procedure DBEdit3KeyPress(Sender: TObject; var Key: Char); procedure DBEdit4KeyPress(Sender: TObject; var Key: Char); procedure DBEdit5KeyPress(Sender: TObject; var Key: Char); private

{ Private declarations }

public

{ Public declarations }

end;

implementation

{$R *.dfm}

procedure TFrameProdList.Image2Click(Sender: TObject); begin

{添加商品}

Image2.Enabled := False;

Image3.Enabled := False;

Image4.Enabled := False;

DBEdit1.Color := clWhite;

DBEdit2.Color := clWhite;

DBEdit3.Color := clWhite;

DBEdit4.Color := clWhite;

DBEdit5.Color := clWhite;

DBEdit1.Enabled := True;

DBEdit2.Enabled := True;

DBEdit3.Enabled := True;

DBEdit4.Enabled := True;

DBEdit5.Enabled := True;

Image5.Visible := True;

Image6.Visible := True;

DBEdit1.SetFocus;

ADOQuery1.Append;

end;

procedure TFrameProdList.Image5Click(Sender: TObject);

begin

{提交数据}

if (DBEdit1.Text<>'') and (DBEdit2.Text<>'') and (DBEdit3.Text<>'') and (DBEdit4.Text<>'') and (DBEdit5.Text<>'') then

ADOQuery1.Post

else

if messagebox(handle,'您的输入不正确（空值），放弃输入？','检查输入',mb_iconquestion+mb_yesno)=IDyes then

ADOQuery1.Cancel

else

exit;

Image2.Enabled := True;

Image3.Enabled := True;

Image4.Enabled := True;

DBEdit1.Color := $00FFF0DC;

DBEdit2.Color := $00FFF0DC;

DBEdit3.Color := $00FFF0DC;

DBEdit4.Color := $00FFF0DC;

DBEdit5.Color := $00FFF0DC;

DBEdit1.Enabled := False;

DBEdit2.Enabled := False;

DBEdit3.Enabled := False;

DBEdit4.Enabled := False;

DBEdit5.Enabled := False;

Image5.Visible := False;

Image6.Visible := False;

end;

procedure TFrameProdList.Image3Click(Sender: TObject);

begin

if messagebox(handle,'删除的商品不能被恢复，是否删除？','确认删除',mb_iconquestion+mb_yesno)=IDyes then ADOQuery1.Delete;

end;

procedure TFrameProdList.Image4Click(Sender: TObject);

begin

{修改用户}

Image2.Enabled := False;

Image3.Enabled := False;

Image4.Enabled := False;

DBEdit1.Color := clWhite;

DBEdit2.Color := clWhite;

DBEdit3.Color := clWhite;

DBEdit4.Color := clWhite;

DBEdit5.Color := clWhite;

DBEdit1.Enabled := True;

DBEdit2.Enabled := True;

DBEdit3.Enabled := True;

DBEdit4.Enabled := True;

DBEdit5.Enabled := True;

Image5.Visible := True;

Image6.Visible := True;

DBEdit1.SetFocus;

ADOQuery1.Edit;

end;

procedure TFrameProdList.Image6Click(Sender: TObject);

begin

{放弃提交}

ADOQuery1.Cancel;

Image2.Enabled := True;

Image3.Enabled := True;

Image4.Enabled := True;

DBEdit1.Color := $00FFF0DC;

DBEdit2.Color := $00FFF0DC;

DBEdit3.Color := $00FFF0DC;

DBEdit4.Color := $00FFF0DC;

DBEdit5.Color := $00FFF0DC;

DBEdit1.Enabled := False;

DBEdit2.Enabled := False;

DBEdit3.Enabled := False;

DBEdit4.Enabled := False;

DBEdit5.Enabled := False;

Image5.Visible := False;

Image6.Visible := False;

end;

procedure TFrameProdList.Image7Click(Sender: TObject);

var

sqlstr:string;

begin

if Edit1.Text<>'' then

begin

sqlstr := 'select * from t_prod where prod_name like "%' + Edit1.Text + '%"'; if IsAllNum(Edit1.Text) then sqlstr := sqlstr + ' or prod_id=' + Edit1.Text; ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(sqlstr);

ADOQuery1.Open;

end

else

messagebox(handle,'请输入查询条件！','检查输入',mb_iconwarning+mb_ok) end;

procedure TFrameProdList.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then Image7Click(self);

end;

function TFrameProdList.IsAllNum(s:string):bool;

var

i:integer;

begin

for i := 1 To Length(s) do

if (s[i] < '0') or (s[i] > '9') then

begin

IsAllNum := False;

Exit;

end;

IsAllNum := True;

end;

procedure TFrameProdList.Label7Click(Sender: TObject);

var

sqlstr: string;

begin

sqlstr := 'select * from t_prod';

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(sqlstr);

ADOQuery1.Open;

end;

procedure TFrameProdList.DBEdit1KeyPress(Sender: TObject; var Key: Char); begin

if key=#13 then DBEdit2.SetFocus;

end;

procedure TFrameProdList.DBEdit2KeyPress(Sender: TObject; var Key: Char); begin

if key=#13 then DBEdit3.SetFocus;

end;

procedure TFrameProdList.DBEdit3KeyPress(Sender: TObject; var Key: Char); begin

if key=#13 then DBEdit4.SetFocus;

end;

procedure TFrameProdList.DBEdit4KeyPress(Sender: TObject; var Key: Char); begin

if key=#13 then DBEdit5.SetFocus;

end;

procedure TFrameProdList.DBEdit5KeyPress(Sender: TObject; var Key: Char); begin

if key=#13 then Image5Click(Self);

end;

end.

更多相关推荐：

管理信息系统课程设计报告: 管理信息系统课程设计设计题目班级学生成绩查询系统专业班级学生姓名终结者队指导教师2012年4月19日目录1人员介绍3A终结者3B队伍组成32学生成绩查询系统建设背景4A必要性4B实用性4C目的性43系统简介5A...
管理信息系统课程设计报告(标准格式): 管理信息系统课程设计报告题目库存管理信息系统学生姓名指导教师成绩日期20xx年9月8号目录目录2摘要3库存管理管理信息系统4第一章现行系统概述4第二章系统分析41需求分析42可行性研究521目标与方案可行性52...
管理信息系统课程设计报告: 管理信息系统课程设计报告课程设计任务书一课程设计课题题目安徽工程大学地下超市收银系统开发二课程设计原始资料地下超市商品信息三课程设计内容开发适合于地下超市的高效率收银系统四课程设计要求1通过课程设计加深理解验证...
《管理信息系统》课程设计报告范文: 1摘要企业工资管理系统是公司管理的一个重要内容是一种典型的管理系统企业工资管理系统是公司管理的一个重要内容是一种典型的管理系统其开发主要包括后台的数据库的建立维护以及前端的相应应用程序的开发两个方面的内容系统的...
管理信息系统MIS课程设计报告: MIS课程设计课设题目：中国电信（江苏分公司）供应链管理系统学院管理学院专业___市场营销________班别___09市场营销（2）_学号_______姓名__________指导教师_______20##年…
《管理信息系统》课程设计报告: 管理信息系统设计报告院系班级姓名学号辅导老师徐恒实验题目航班售票管理系统设计报告完成日期20xx年5月17日1目录一实验题目3二实验目的3三实验内容3系统分析3一必要性分析3二可行性分析3三航班售票管理系统业务...
MIS(管理信息系统)课程设计个人总结: 课程设计总结姓名：李斌专业：财务管理学号：1145543131课程设计个人总结本次课程设计持续了1个星期，时间非常紧张，我们的课题是企业人力资源管理系统，我们小组由7个人组成，需要完成企业人力资源管理系统子系统…

管理信息系统课程设计报告: MIS课程设计报告书南通大学商学院MIS课程设计报告书设计题目系统设计专业班级国贸131学生姓名学号13040120xx13040120xx指导教师日期20xx122120xx1227MIS课程设计报告书1课程...
超市管理信息系统课程设计报告: 目录1需求分析111开发背景112系统可行性分析2111管理可行性分析2112经济可行性分析2113运行上的可行性2114社会可行性分析2115可行性研究结论32系统功能分析421系统功能422系统功能概述53...
管理信息系统课程设计报告模板: 管理信息系统课程设计报告参考模板图书管理查询系统一系统背景二可行性分析三调查内容四系统分析五代码说明六数据库文件设计数据文件结构七系统操作与使用说明进入密码八程序设计体会与收获房地产管理系统网站制作附加CS代码...
管理信息系统实验报告设计: 经济管理学院管理信息系统实验报告设计指导老师20xx61管理信息系统实验报告目录一系统需求分析311问题的提出312可行性分析313系统的设计目标3二系统设计421系统设计422系统运行环境4三系统结构框架43...
医院管理信息系统课程设计报告: 医院管理信息系统分析报告书目录1.引言...101．1编写目的...101.2项目背景...111.3研究的前提...111.3.1目标...111.3.2条件、假定和限制...112．任务概述...122．1…

管理信息系统课程设计报告（19篇）

热门关注