denglu.~pas

考勤信息管理系统

unit denglu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, WebDisp, StdCtrls, Buttons,shellapi, DB, DBTables;

type
  TPassworddlg = class(TForm)
    Image1: TImage;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label1: TLabel;
    Password: TEdit;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Label4Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Passworddlg: TPassworddlg;
  timeid:integer;
  quanxian:string;

implementation

{$R *.dfm}

procedure TPassworddlg.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label4.Font.Color:=clblue;
end;

procedure TPassworddlg.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label4.Font.Color :=clmaroon;
end;

procedure TPassworddlg.Label4Click(Sender: TObject);
begin
ShellExecute(handle,nil,pchar('mailto:[e-mail]'),nil,nil,sw_shownormal);
end;

procedure TPassworddlg.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
perform(WM_NEXTDLGCTL,0,0);
END;
end;

procedure TPassworddlg.FormCreate(Sender: TObject);
var
   datafile:file;
   NumRead,NumWrite,ii:integer;
   siz:longint;
   FileOk:boolean;
   buf:string[60];
begin
 FileOk:=true;
 assignfile(datafile,'sys.ini');
 if fileexists('sys.ini')=false then
 fileok:=false
 else
 begin
 reset(datafile);
 siz:=filesize(datafile);
 if siz<24 then
 fileok:=false;
end;
if fileok=false then
begin
  rewrite(datafile,1);
  buf:='system';
  blockwrite(datafile,buf,12,numwrite);
  buf:='system';
  blockwrite(datafile,buf,12,numwrite);
  buf:='renshi';
  blockwrite(datafile,buf,12,numwrite);
  buf:='renshi';
  blockwrite(datafile,buf,12,numwrite);
  buf:='caiwu';
  blockwrite(datafile,buf,12,numwrite);
  buf:='caiwu';
  blockwrite(datafile,buf,12,numwrite);
  closefile(datafile);
end;
reset(datafile,1);
repeat
blockread(datafile,buf,12,numread);
if numread>10 then
combobox1.Items.Add(buf);
blockread(datafile,buf,12,numread);
until(numread=0);
closefile(datafile);
end;

end.