【DELPHI设计栏目提醒】:本文主要为网学会员提供“delphi通用网吧管理系统”,希望对需要delphi通用网吧管理系统网友有所帮助,学习一下!
中文摘要
通用网吧管理系统为网吧网管员管理网吧的日常经营提供方便的管理平台.通过本系统网管可以便捷的操作上机,换机,远程关机,远程重启,会员管理,结帐等一系列网吧日常经营事项.其开发内容主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。利用DELPHI 6.0软件及其提供的各种面向对象的开发工具,建立完整性强、安全性好的数据库,开发出功能完备,易使用的应用程序。经过调试、编译与实现,该程序界面友好、程序设计风格朴素,使用起来美观大方、方便易用。尤其是系统的“远程控制模块”的功能极大的减轻工作人员的工作量,并以快速、准确等优点取代人工操作,提高了网吧管理工作效率。
关键词 : DELPHI 6.0 信息管理系统 数据库 模块 网吧管理
引 言 1
1 Delphi语言概述 2
1.1 Delphi简介 2
1.2 数据库系统简介 2
1.3 本应用软件的基本介绍 3
2 本应用程序的构成和开发步骤 4
2.1 可行性研究 4
2.1.1 经济可行性 4
2.1.2 时间可行性 4
2.1.3 技术可行性 4
2.1.4 社会可行性 5
2.2 数据库的建立和连接 5
2.3 系统的总体设计 5
2.4 系统的详细设计 7
3 本程序的技术实现及具体功能 13
3.1 主界面与程序设计实现 13
3.2 会员管理界面与代码设计实现 13
3.3 结帐界面与代码设计实现14,
3.4 上机换机管理界面与代码设计15
3.5 系统设置界面设计与代码设计 16
结 论 21
致 谢 22
参 考 文 献 23
2.3 系统的总体设计
这个管理系统从4月1日开始着手设计开发,经过一段时间的分析,并根据对网吧管理的具体要求及需要本软件实现的功能,将本软件分为5个大的模块,分别是:第一部分:上机换机操作;第二部分:远程控制;第三部分:会员管理; 第四部分:参数设置。
程序流程图如下:
2.4 系统的详细设计
进入Access后要做的第一件事就是建立一个数据库。Access提供了6种用构造数据库系统的对象,根据本课题的需要,在这里选择一个空的数据库,命名建立了一个数据库名称为“BAR”,网吧管理系统。并在此数据库下创建了五个表,用于存放原始数据。它只是存放数据,对其中数据的修改要通过对应的窗体来完成。创建各表的具体结构如下:
1. 会员管理信息表:
2.计费信息表
3. 每日结算信息表:
4. 商品清单信息表
5. 商品销售信息表:
3 本程序的技术实现及具体功能
3.1 主界面与程序设计实现
代码设计:
unit MainFrm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, ToolWin, Buttons, Menus, Grids, DBGridEh, ExtCtrls, StdCtrls,
user, ActnList, ImgList, Registry, DBCtrls, DateUtils, Variants;
type
TTimeSect = record
Index: Integer;
BeginTime: TDateTime;
EndTime: TDateTime;
Length: TDateTime;
NetMoney: Double;
TongXiao: Boolean;
end;
TSectMoneyAndTime = record
Money: Double;
Time: Double;
end;
TInSectState = (ssAllIn, ssTwoPortIn, ssBeginIn, ssEndIn, ssAllOut, ssInclude);
TFjResult = (frSp, frNet, frAll);
TTimeSectArray = array[1..5] of TTimeSect;
TEachSectMoney = array[1..5] of Double;
//*************以上为自定义类型****************
TfrmMain = class(TForm)
mmMain: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
StatusBar1: TStatusBar;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
ActionList1: TActionList;
actBeginComputer: TAction;
actEndComputer: TAction;
N5: TMenuItem;
ImageList1: TImageList;
actConfigID: TAction;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N6: TMenuItem;
N10: TMenuItem;
N3: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
N37: TMenuItem;
N38: TMenuItem;
N39: TMenuItem;
N41: TMenuItem;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton6: TToolButton;
N42: TMenuItem;
actEditMoney: TAction;
actSwapComputer: TAction;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
N43: TMenuItem;
N44: TMenuItem;
N45: TMenuItem;
N46: TMenuItem;
N47: TMenuItem;
N48: TMenuItem;
N49: TMenuItem;
Panel2: TPanel;
Panel1: TPanel;
pnlInfo: TPanel;
Panel4: TPanel;
pnlNote: TPanel;
Splitter1: TSplitter;
Panel6: TPanel;
Panel7: TPanel;
Panel9: TPanel;
Panel8: TPanel;
Splitter2: TSplitter;
ToolButton5: TToolButton;
ToolButton10: TToolButton;
ToolButton12: TToolButton;
ToolButton11: TToolButton;
Timer1: TTimer;
N35: TMenuItem;
N36: TMenuItem;
N40: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
PopupMenu1: TPopupMenu;
N30: TMenuItem;
N50: TMenuItem;
N51: TMenuItem;
N53: TMenuItem;
N54: TMenuItem;
N55: TMenuItem;
actFuJia: TAction;
Panel10: TPanel;
Memo1: TMemo;
N21: TMenuItem;
N22: TMenuItem;
ToolButton13: TToolButton;
actClear: TAction;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
N31: TMenuItem;
N23: TMenuItem;
procedure actConfigIDExecute(Sender: TObject);
procedure actBeginComputerExecute(Sender: TObject);
procedure actEndComputerExecute(Sender: TObject);
procedure N35Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure actEditMoneyExecute(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure ShowHyForm(Sender: TObject);
procedure ShowSpForm(Sender: TObject);
procedure ShowConfigForm(Sender: TObject);
procedure Splitter2Moved(Sender: TObject);
procedure actFuJiaExecute(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure actClearExecute(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure actSwapComputerExecute(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
procedure SetPanel8;
procedure OpenNote;
function CheckToday(ADate: TDate): Boolean;
public
{ Public declarations }
procedure DelAllComputer;
procedure SetComputerNo(No: Integer);
procedure EnableControl;
procedure BeginComputer(XianShi: TTime; YaJin: Double;
BeiZhu: string); overload;
procedure BeginComputer(KaHao: string; XianShi: TTime; YaJin: Double;
BeiZhu: string); overload;
procedure SetTongxiao(var Youhui: TTimeSect; const Tongxiao: TTimeSect);
procedure Taxis(var ATimeSect: TTimeSect; var BTimeSect: TTimeSect); // 对时段按开始时间进行排序,并且将时段长
上一篇:delphi通用销售管理系统