imgSizeButton.Picture.Bitmap :=imgMaxButton.Picture.Bitmap
else if WindowState=wsMaximized then
imgSizeButton.Picture.Bitmap :=imgRestoreButton.Picture.Bitmap
end;
procedure Tfrm_passedit.WMActivate(var Msg: TWMACTIVATE);
begin
if (Msg.Active =WA_ACTIVE) or (Msg.Active =WA_CLICKACTIVE) then
begin
imgCaption.Picture.Bitmap :=imgColorCaption.Picture.Bitmap;
imgLeftUp1.Picture.Bitmap :=imgColorLeftUp.Picture.Bitmap;
imgRightUp1.Picture.Bitmap :=imgColorRightUp.Picture.Bitmap;
coolBarMenu.Bitmap :=imgColorMenubar.Picture.Bitmap;
end
else begin
imgCaption.Picture.Bitmap :=imgGrayCaption.Picture.Bitmap;
imgLeftUp1.Picture.Bitmap :=imgGrayLeftUp.Picture.Bitmap;
imgRightUp1.Picture.Bitmap :=imgGrayRightUp.Picture.Bitmap;
coolBarMenu.Bitmap :=imgGrayMenubar.Picture.Bitmap;
end;
end;
procedure Tfrm_passedit.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
key:=#0;
perform(wm_nextdlgctl,0,0);
end;
end;
procedure Tfrm_passedit.FormActivate(Sender: TObject);
begin
e_oldpass.SetFocus();
end;
procedure Tfrm_passedit.b_okClick(Sender: TObject);
var
kl:variant;
pass:string;
begin
kl:=dm.ado_user.lookup('操作员',zzyname,'口令');
if varisnull(kl) then pass:='' else pass:=kl;
if e_oldpass.text<>pass then
begin
application.messagebox(pchar('原密码录入错，请重新录入！'),pchar('提示')
,MB_ICONEXCLAMATION);
e_oldpass.text:='';
e_oldpass.SetFocus();
exit;
end;
if e_newpass.text<>e_passok.Text then
begin
application.messagebox(pchar('新密码与确认密码不一致，请重新录入！')
,pchar('提示'),0+MB_ICONEXCLAMATION);
e_newpass.text:='';
e_passok.text:='';
e_newpass.SetFocus();
exit;
end;
dm.ado_user.Locate('操作员',zzyname,[]);
dm.ado_user.Edit;
dm.ado_user.FieldByName('口令').asstring:=e_newpass.text;
dm.ado_user.post;
application.messagebox(pchar('密码修改成功！'),pchar('提示')
,MB_ICONINFORMATION);
close;
end;
procedure Tfrm_passedit.b_exitClick(Sender: TObject);
begin
close;
end;
procedure Tfrm_passedit.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
release;
end;
end.
总 结
VCD租赁管理系统是一个典型的信息管理系统，其主要通过软件工程方面的选择课题、需求分析、总体设计、选用工具、程序模块、系统测试等几个步骤来实现。开发本系统的过程中，首先要对光盘管理进行系统调研，熟悉其中的新光盘登记、光盘出借的流程、步骤；其次在系统需求分析过程中，要透过现象看本质，敏锐观察到光盘管理中存在的各种问题，并在总体设计把握好对问题的分析、理解，进而解决问题；选用开发工具要选用自己最熟悉、应用较多的开发工具，本系统开发选用DELPHI 6.0，其具