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_long.e_zzyChange(Sender: TObject);
begin
e_pass.Text:='';
e_pass.SetFocus;
end;
procedure Tfrm_long.b_okClick(Sender: TObject);
var
kl:variant;
pass:string;
begin
zzyname:=e_zzy.text;
kl:=dm.ado_user.lookup('操作员',zzyname,'口令');
if varisnull(kl) then pass:='' else pass:=kl;
if e_pass.text=pass then
begin
i:=i+1;
if i>=3 then
begin
Application.MessageBox(PChar('密码验证错误，拒绝访问！'), PChar('提示'),
MB_ICONEXCLAMATION);
Application.Terminate;
close;
end;
application.messagebox(pchar('密码验证错误，重新录入！'),pchar('提示'),
MB_ICONQUESTION);
e_pass.text:='';
e_pass.SetFocus();
exit;
end;
dm.ADO_user.Close;
frm_long.hide;
frm_main:=tfrm_main.create(application);
frm_main.showmodal;
end;
procedure Tfrm_long.FormActivate(Sender: TObject);
begin
e_pass.SetFocus;
end;
procedure Tfrm_long.b_exitClick(Sender: TObject);
begin
close;
end;
procedure Tfrm_long.b_editClick(Sender: TObject);
begin
zzyname:=e_zzy.text;
frm_passedit:=tfrm_passedit.create(application);
frm_passedit.showmodal;
end;
procedure Tfrm_long.e_passKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
b_ok.OnClick(b_ok);
end;
end;
procedure Tfrm_long.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm.ado_user.Close;
Application.Terminate;
end;
end.
会员管理界面与代码设计实现及功能
代码设计:
unit hygl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TEMPLETFORM, Grids, DBGrids, LabelButton, TradeImage, ComCtrls,
Menus, ToolWin, StdCtrls, ExtCtrls, DBActns, DB, ActnList;
type
Tfrm_hygl = class(TMyForm)
ztl: TStatusBar;
DBGrid: TDBGrid;
BActionList1: TActionList;
DataSetFirst1: TDataSetFirst;
DataSetPrior1: TDataSetPrior;
DataSetNext1: TDataSet