login.pas

医院X光片资料管理系统—全部源码 这是源码。去年做的一个小软件。因为这是给一家医院做的

unit login;

interface

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

type
  Tloginfm = class(TForm)
    Panel1: TPanel;
    Panel4: TPanel;
    bitbtn4: TBitBtn;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    procedure bitbtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginfm: Tloginfm;

implementation
uses dm, mylib,main;
{$R *.dfm}

procedure Tloginfm.bitbtn4Click(Sender: TObject);
var s1, s2, s3, s4, sqltxt: string;
begin
  s1 := combobox1.Text;
  s2 := trim(edit1.Text);
  if comboboxisempty(combobox1, '必须选择用户！') = false then exit;
  if editisempty(edit1, '必须输入密码！') = false then exit;
  sqltxt := 'select username from userdb where passwd=''' + s2 + '''';
  sqltxt := sqltxt + ' and username=''' + s1 + '''';
  openadoquery(dmfm.ADOQuery1, sqltxt);
  if dmfm.ADOQuery1.RecordCount = 1 then
  begin
  loginfm.Tag:=1;
  close;
  end
  else
  begin
    showmessage('密码不对！请重新输入！');
    edit1.Clear;
    edit1.SetFocus;
  end;

end;

procedure Tloginfm.FormClose(Sender: TObject;
  var Action: TCloseAction);
var s1,s2,sqltxt:string;
begin
  dmfm.ADOQuery1.close;
  if loginfm.Tag =1 then
  begin
  mainform.SetFocus;
  mainform.StatusBar.Panels[1].Text :=combobox1.Text;
//下面开始写日志记录：
  s1:=combobox1.Text ;
  s2:=datetimetostr(now());
  sqltxt := 'Insert into rz (username,btime) values (''' + s1 + '''';
  sqltxt := sqltxt + ',''' + s2 + ''')';
//  sqltxt:=sqltxt+','''+s2+''')';
  execadoquery(dmfm.ADOQuery1, sqltxt);
////用户ID
sqltxt := 'select max(id) as maxid from rz';
openadoquery(dmfm.ADOQuery1,sqltxt);
mainform.Tag :=dmfm.ADOQuery1.FieldValues['maxid'];
  end
  else
  mainform.Close;
end;

procedure Tloginfm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', 'a'..'z', 'A'..'Z', #8, #13]) then key := #0;
  if key = #13 then bitbtn4.SetFocus;
end;

procedure Tloginfm.FormShow(Sender: TObject);
begin
  addcombox(dmfm.ADOQuery1, 'username', 'userdb', combobox1);
  combobox1.SetFocus;
  combobox1.ItemIndex:=0;
end;

procedure Tloginfm.BitBtn1Click(Sender: TObject);
begin
  loginfm.Tag:=0; 
  close;
end;

procedure Tloginfm.ComboBox1Click(Sender: TObject);
begin
  edit1.SetFocus;
end;

procedure Tloginfm.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then edit1.SetFocus; 
end;

end.