|
2.3 系统的总体设计 这个管理系统从4月1日开始着手设计开发,经过一段时间的分析，并根据对影音店光盘管理的具体要求及需要本软件实现的功能，将本软件分为5个大的模块，分别是：第一部分：会员登记；第二部分：会员浏览；第三部分：会员查询； 第四部分：城市目录 第五部分:修改密码。 http://www.paper51.com 程序流程图如下： http://www.paper51.com
http://www.paper51.com
2.4 系统的详细设计 paper51.com 进入Access后要做的第一件事就是建立一个数据库。Access提供了6种用构造数据库系统的对象，根据本课题的需要，在这里选择一个空的数据库，命名建立了一个数据库名称为“YoungClub”，通用会员管理系统。并在此数据库下创建了七个表，用于存放原始数据。它只是存放数据，对其中数据的修改要通过对应的窗体来完成。创建各表的具体结构如下： 内容来自论文无忧网 www.paper51.com 1.city信息表 http://www.paper51.com 内容来自www.paper51.com 2.huifu信息表: copyright paper51.com
内容来自www.paper51.com
3.huiyuan信息表: 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com
4.jiaoyou信息表 copyright paper51.com
copyright paper51.com
5.loginuser信息表 内容来自www.paper51.com
内容来自www.paper51.com
6.tougao信息表 内容来自论文无忧网 www.paper51.com
copyright paper51.com 7.yijian信息表 copyright paper51.com
内容来自www.paper51.com
3 本程序的技术实现及具体功能 paper51.com 3.1 登录的界面与程序设计实现 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com 代码设计: http://www.paper51.com unit login; 内容来自www.paper51.com interface copyright paper51.com uses paper51.com
Windows, Messages, SysUtils,Variants, Classes, Graphics, Controls, Forms, 内容来自www.paper51.com Dialogs, cxControls,cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit, http://www.paper51.com cxDBEdit,jpeg, ExtCtrls, cxLookAndFeelPainters,StdCtrls, cxButtons, 内容来自论文无忧网 www.paper51.com RzLabel; http://www.paper51.com type copyright paper51.com TfrmLogin = class(TForm) paper51.com Panel1: TPanel; copyright paper51.com img1: TImage; 内容来自www.paper51.com
RzURLLabel1: TRzURLLabel; 内容来自论文无忧网 www.paper51.com RzLabel1: TRzLabel; 内容来自论文无忧网 www.paper51.com RzLabel2: TRzLabel; paper51.com RzLabel3: TRzLabel; 内容来自www.paper51.com
edtUser: TcxTextEdit; 内容来自论文无忧网 www.paper51.com edtPwd: TcxTextEdit; http://www.paper51.com
btnLogin: TcxButton; 内容来自论文无忧网 www.paper51.com btnCancel: TcxButton; copyright paper51.com
procedurebtnCancelClick(Sender: TObject); 内容来自论文无忧网 www.paper51.com procedurebtnLoginClick(Sender: TObject); 内容来自论文无忧网 www.paper51.com procedureedtPwdKeyDown(Sender: TObject;var Key: Word; copyright paper51.com Shift: TShiftState); http://www.paper51.com procedureFormKeyPress(Sender: TObject;var Key: Char); 内容来自www.paper51.com procedureedtUserKeyDown(Sender: TObject;var Key: Word; 内容来自www.paper51.com Shift: TShiftState); 内容来自论文无忧网 www.paper51.com private 内容来自www.paper51.com
rightpwd:Boolean; //成功登录标志 内容来自论文无忧网 www.paper51.com public http://www.paper51.com
{ Publicdeclarations } 内容来自论文无忧网 www.paper51.com
end; http://www.paper51.com var http://www.paper51.com frmLogin:TfrmLogin; paper51.com implementation paper51.com uses md, main; paper51.com {$R *.dfm} 内容来自论文无忧网 www.paper51.com procedure TfrmLogin.btnCancelClick(Sender:TObject); 内容来自论文无忧网 www.paper51.com begin 内容来自论文无忧网 www.paper51.com Application.Terminate;//结束程序 内容来自论文无忧网 www.paper51.com
end; 内容来自论文无忧网 www.paper51.com procedure TfrmLogin.btnLoginClick(Sender:TObject); 内容来自www.paper51.com begin paper51.com rightpwd:= False; http://www.paper51.com withDm1.tblLoginUser do 内容来自www.paper51.com begin 内容来自论文无忧网 www.paper51.com
ifnot Active then 内容来自论文无忧网 www.paper51.com open; 内容来自www.paper51.com First; http://www.paper51.com whilenot eof do 内容来自论文无忧网 www.paper51.com begin 内容来自www.paper51.com if Trim(FieldByName('mc').AsString) = edtUser.Text then http://www.paper51.com begin 内容来自论文无忧网 www.paper51.com
if Trim(FieldByName('pwd').AsString) = edtPwd.Text then 内容来自论文无忧网 www.paper51.com begin 内容来自论文无忧网 www.paper51.com rightpwd := True; //设置成功登录标志为真 copyright paper51.com Break; 内容来自论文无忧网 www.paper51.com end copyright paper51.com else 内容来自www.paper51.com
begin 内容来自www.paper51.com MessageBox(0, '对不起，密码不正确！请重新输入。', '提示', MB_OK + paper51.com
MB_ICONWARNING); 内容来自论文无忧网 www.paper51.com edtpwd.setfocus; paper51.com exit; 内容来自www.paper51.com end; paper51.com end 内容来自www.paper51.com
else 内容来自www.paper51.com
next; 内容来自论文无忧网 www.paper51.com end; 内容来自www.paper51.com if not rightpwd then copyright paper51.com begin http://www.paper51.com
MessageBox(0, '对不起，该用户不存在！请重新输入。', '提示', MB_OK + 内容来自www.paper51.com MB_ICONWARNING); 内容来自论文无忧网 www.paper51.com
edtuser.SetFocus; copyright paper51.com
exit; 内容来自论文无忧网 www.paper51.com
end copyright paper51.com
end; 内容来自www.paper51.com close; copyright paper51.com
frmMain.LoginUserName := edtUser.text; http://www.paper51.com
Application.ShowMainForm := true; 内容来自www.paper51.com frmMain.Show; http://www.paper51.com end; 内容来自论文无忧网 www.paper51.com procedure TfrmLogin.edtPwdKeyDown(Sender:TObject; var Key: Word; 内容来自论文无忧网 www.paper51.com
Shift: TShiftState); 内容来自论文无忧网 www.paper51.com begin http://www.paper51.com if key = 13then 内容来自论文无忧网 www.paper51.com
frmLogin.btnLoginClick(nil); http://www.paper51.com end; http://www.paper51.com procedure TfrmLogin.FormKeyPress(Sender:TObject; var Key: Char); 内容来自www.paper51.com begin paper51.com if key = #27 then http://www.paper51.com
frmLogin.btnCancelClick(nil); http://www.paper51.com end; copyright paper51.com procedure TfrmLogin.edtUserKeyDown(Sender:TObject; var Key: Word; http://www.paper51.com Shift: TShiftState); 内容来自www.paper51.com begin 内容来自www.paper51.com if key = 13then 内容来自www.paper51.com edtPwd.SetFocus; paper51.com end; http://www.paper51.com end. copyright paper51.com copyright paper51.com |