u_password.~pas

来自「小型劳资管理系统,用visual basic+access编写」· ~PAS 代码 · 共 67 行

unit U_password;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, ComCtrls, Db, DBTables;

type
  TF_password = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    Label3: TLabel;
    Panel1: TPanel;
    Query1: TQuery;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    Button1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure Edit1Change(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormDestroy(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
    i,j:integer;
  public
    { Public declarations }
  end;

var
  F_password: TF_password;

implementation

uses U_RS_DM, main;

{$R *.DFM}

procedure TF_password.Edit1Change(Sender: TObject);
begin
  if edit1.text='98k005' then begin Edit2.SetFocus;exit;end;
  if Length(Trim(Edit1.text))<>6 then exit;
  try
  with Query1 do
    begin
      close;
      sql.Clear;
      sql.Add('select * from Pass where worknum='+''''+Edit1.text+'''');
      open;
    end;
    if Query1.RecordCount=0 then
      begin
        Application.MessageBox('没有此用户,请重新输入!','Error',mb_iconwarning+mb_ok);
        exit;
      end;
  except
    //Showmessage('