【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
3.6 主界面与代码设计 17
结 论 21
致 谢 22
参 考 文 献 23
3 本程序的技术实现及具体功能
3.1 登录的界面与程序设计实现
代码设计:
unit login;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxControls, cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit,
cxDBEdit, jpeg, ExtCtrls, cxLookAndFeelPainters, StdCtrls, cxButtons,
RzLabel;
type
TfrmLogin = class(TForm)
Panel1: TPanel;
img1: TImage;
RzURLLabel1: TRzURLLabel;
RzLabel1: TRzLabel;
RzLabel2: TRzLabel;
RzLabel3: TRzLabel;
edtUser: TcxTextEdit;
edtPwd: TcxTextEdit;
btnLogin: TcxButton;
btnCancel: TcxButton;
procedure btnCancelClick(Sender: TObject);
procedure btnLoginClick(Sender: TObject);
procedure edtPwdKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure edtUserKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
rightpwd: Boolean; //成功登录标志
public
{ Public declarations }
end;
var
frmLogin: TfrmLogin;
implementation
uses md, main;
{$R *.dfm}
procedure TfrmLogin.btnCancelClick(Sender: TObject);
begin
Application.Terminate; //结束程序
end;
procedure TfrmLogin.btnLoginClick(Sender: TObject);
begin
rightpwd := False;
with Dm1.tblLoginUser do
begin
if not Active then
open;
First;
while not eof do
begin
if Trim(FieldByName(''mc'').AsString) = edtUser.Text then
begin
if Trim(FieldByName(''pwd'').AsString) = edtPwd.Text then
begin
rightpwd := True; //设置成功登录标志为真
Break;
end
else
begin
MessageBox(0, ''对不起,密码不正确!请重新输入。'', ''提示'', MB_OK +
MB_ICONWARNING);
edtpwd.setfocus;
exit;
end;
end
else
next;
end;
if not rightpwd then
begin
MessageBox(0, ''对不起,该用户不存在!请重新输入。'', ''提示'', MB_OK +
MB_ICONWARNING);
edtuser.SetFocus;
exit;
end
end;
close;
frmMain.LoginUserName := edtUser.text;
Application.ShowMainForm := true;
frmMain.Show;
end;
procedure TfrmLogin.edtPwdKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
frmLogin.btnLoginClick(nil);
end;
procedure TfrmLogin.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then
frmLogin.btnCancelClick(nil);
end;
procedure TfrmLogin.edtUserKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then
edtPwd.SetFocus;
end;
end.
参 考 文 献
1 张春林.Delphi 6程序设计导学.北京:清华大学出版社,2002.5
2 飞思科技. Delphi6开发者手册. 北京:电子工业出版社,2002.3
3 飞思科技. Delphi6数据库开发. 北京:电子工业出版社, 2002.1
上一篇:delphi通用图书馆管理系统