pass_pas.pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

unit pass_pas;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, RXCtrls, ExtCtrls,db;

type
  Tpass = class(TForm)
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel3: TPanel;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pass: Tpass;

implementation
uses password_unit,user_pas,dm_user_pas,menu;

{$R *.DFM}

procedure Tpass.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
edit2.setfocus;
end;

procedure Tpass.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
edit3.setfocus;
end;

procedure Tpass.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
BitBtn1.setfocus;
end;
procedure Tpass.BitBtn1Click(Sender: TObject);
var
  s,c:string;
begin
with DM_user.T_user do
begin
  close;
  open;
  s:=password.combobox1.text;
  c:=edit1.text;
 // c:=user.encrypt(c);
  if Locate('username;password',vararrayOf([s,c]),[loCaseInsensitive])=false then
    begin
      Application.MessageBox('舊口令不對！','消息',MB_ICONINFORMATION);
      edit1.setfocus;
      exit;
    end
  else
    begin
    if (trim(edit2.text)=trim(edit3.text)) then
      begin
      edit;
      fieldbyname('password').asstring:=edit2.text;//user.encrypt(EDIT2.Text);
      post;
     Application.MessageBox('口令修改成功！','消息',MB_ICONINFORMATION);
     self.close;
      exit;
      end
      else
      begin
      Application.MessageBox('兩次輸入的口令不一致！請重新輸入。','消息',MB_ICONINFORMATION);
      exit;
      end;
    end;
end;
end;

procedure Tpass.BitBtn2Click(Sender: TObject);
begin
close;
end;

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

procedure Tpass.FormShow(Sender: TObject);
begin
if (screen.Height<600) and( screen.Width<800) then
  begin
  scaled:=true;
  height:=217;//round(height*longint(screen.height)*96 / 600/screen.pixelsperinch);
  width :=276;//round( width *longint(screen.width)*96 / 800/screen.pixelsperinch);
  left:=153;//1round((screen.Width-Width)/2);
  top:=154;//round((screen.height-self.height)/2);
  //ScaleControls(screen.width, 800);
  //ScaleControls(96,screen.pixelsperinch);
  end;
dm_user.T_user.Close;
dm_user.t_user.open;

end;

procedure Tpass.Button1Click(Sender: TObject);
begin
Application.MessageBox(pchar('width='+inttostr(self.width)+'--'+'height='+inttostr(self.height)+'--'+'left='+inttostr(self.left)+'--top='+inttostr(self.top)),'消息',MB_ICONINFORMATION);
end;

end.