cxControls, cxContainer, cxEdit, cxGroupBox;
type
Tfrmchangepwd = class(TForm)
cxGroupBox1: TcxGroupBox;
cxLabel1: TcxLabel;
cxLabel2: TcxLabel;
edt1: TcxTextEdit;
edt2: TcxTextEdit;
cxButton1: TcxButton;
cxButton2: TcxButton;
procedure cxButton1Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmchangepwd: Tfrmchangepwd;
implementation
uses md, main;
{$R *.dfm}
procedure Tfrmchangepwd.cxButton1Click(Sender: TObject);
begin
if edt1.Text <> edt2.Text then
begin
ShowMessage('两次输入的密码不匹配，请重新输入。');
edt1.SetFocus;
exit;
end;
with Dm1.tblLoginUser do
begin
if not Active then
open;
First;
while not eof do
begin
if Trim(FieldByName('mc').AsString) = frmMain.LoginUserName then
begin
Edit;
FieldByName('pwd').AsString := edt1.Text;
post;
Break;
end;
next;
end;
close;
MessageBox(0, '密码修改成功。', '提示', MB_OK + MB_ICONWARNING);
end;
close;
end;
procedure Tfrmchangepwd.cxButton2Click(Sender: TObject);
begin
close;
end;
end.
主界面与代码设计
代码设计:
object frmMain: TfrmMain
Left = 249
Top = 182
Width = 696
Height = 480
Caption = #36890#29992#20250#21592#31649#29702#31995#32479
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIForm
OldCreateOrder = False
WindowState = wsMaximized
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ilLargeImages: TImageList
Height = 32
Width = 32
Left = 272
Top = 90
总 结
会员管理系统是一个典型的信息管理系统，其主要通过软件工程方面的选择课题、需求分析、总体设计、选用工具、程序模块、系统测试等几个步骤来实现。开发本系统的过程中，首先要对会员管理进行系统调研，熟悉其中新会员登记、会员查询的流程、步骤；其次在系统需求分析过程中，要透过现象看本质，敏锐观察到会员管理中存在的各种问题，并在总体设计把握好对问题的分析、理解，进而解决问题；选用开发工具要选用自己最熟悉、应用较多的开发工具，本系统开发选用DELPHI 6.0，其具有语言简单、功能强大、组件众多的优点。程序模块的编制中，重点把握系统内部完整性、功能性、实用性、便捷性，使其能够协调统一、运行无误。
致 谢
我首先感谢我的指导老师吕老师，在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做，这样会有好的创意，才能更有作为。
在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年，在生活和学习上给了我很大的帮助。