denglu.~pas

花了两个多星期写的考勤系统

unit denglu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, jpeg, ExtCtrls;

type
  Tfrmdenglu = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmdenglu: Tfrmdenglu;
  i:Boolean;
implementation
uses dmunit;

{$R *.dfm}

procedure Tfrmdenglu.Button2Click(Sender: TObject);
begin
modalresult:=mrcancel;

end;

procedure Tfrmdenglu.Button1Click(Sender: TObject);

begin
{if (edit1.Text<>'') and   (edit2.Text<>'') then
 begin
   adotable1.IndexFieldNames:='username';
   if ADOTable1.findkey([edit1.Text]) then
   begin
     ShowMessage('username OK');
   end
 i:= true;
 modalresult:=mrok;
 end
 else
 showmessage('用户名密码不能为空') ; }
 dm.ADOQuery1.SQL.Clear;
 dm.ADOQuery1.SQL.Add('select * from users where username='+QuotedStr(trim(edit1.Text))+' and pwd='+QuotedStr(trim(edit2.Text)));
 dm.ADOQuery1.Open;

 if dm.ADOQuery1.RecordCount=0 then
 begin
 ShowMessage('请输入正确的用户名密码');
 exit;
 end
 else
 begin
  dm.opzhanghao:=dm.ADOQuery1.FieldByName('username').AsString;
  dm.opname:=dm.ADOQuery1.FieldByName('tname').AsString;
  dm.opright:=dm.ADOQuery1.FieldByName('right').AsInteger;
  i:= true;
 modalresult:=mrok;
 end ;
 //密码清空 ////////////////////////
 edit2.Text:='';
 dm.ADOQuery1.Close;
 //dm.ADOQuery1.Free;

end;

procedure Tfrmdenglu.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if i=false then
Application.Terminate;
end;

end.