delphi+AccessVCD租赁管理系统（开题报告＋源程序＋文档正文＋外文翻译＋答辩ppt）(十一)

delphi+AccessVCD租赁管理系统（开题报告＋源程序＋文档正文＋外文翻译＋答辩ppt）(十一) wState=wsNormal then
    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，其具

首页 上一页 8 9 10 11 12 下一页 尾页 11/12/12

delphi+AccessVCD租赁管理系统（开题报告＋源程序＋文档正文＋外文翻译＋答辩ppt）(十一)由毕业论文网（www.huoyuandh.com）会员上传。