u_password.pas

一个很不错的人事考勤系统,功能齐全,附带源码.

unit U_password;

interface

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

type
  TF_password = class(TForm)
    Image1: TImage;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    StatusBar1: TStatusBar;
    ProgressBar1: TProgressBar;
    Timer1: TTimer;
    Timer2: TTimer;
    Label3: TLabel;
    Query1: TQuery;
    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);
  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('ノめい⊿Τ硂