pass.pas

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

unit pass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB;

type
  Tpassfm = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    function  wzbh(s:string;len:integer):string;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passfm: Tpassfm;
  flag:integer;
  czybh,czyxm,mm:string;

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

function Tpassfm.wzbh(s:string;len:integer):string;
var i:integer;
begin
s:=trim(s);
if length(s)=len then result:=s;
if length(s)<len then
  begin
  for i:=1 to (len-length(s)) do
    begin
    result:=result+'0';
    end;
  result:=result+s;
  end;
end;

procedure Tpassfm.BitBtn1Click(Sender: TObject);
var userpw:string;
begin
userpw:=trim(edit1.Text);
if userpw='' then
 begin
 showmessage('密码不能为空！');
 edit1.SetFocus; 
 exit;
 end;

{with adodm.ADOQuery1 do
 begin
 close;
 sql.Clear;
 sql.Add('select mm,xm from czy where bianhao='''+edit2.text+'''');
 sql.Add(' and mm='''+userpw+'''');
 open;
 end;}

// if adodm.ADOQuery1.RecordCount=1 then
 if mm=userpw  then
 begin
 flag:=1;
// czyxm:=adodm.ADOQuery1.FieldValues['xm'];
 czybh:=trim(edit2.Text );
 passfm.close;
 end
 else
 begin
 showmessage('密码不正确！非法使用！');
 edit1.Clear ;
 edit1.SetFocus; 
// mainfm.Close;
 end;

end;

procedure Tpassfm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if flag=0 then mainfm.Close;
end;

procedure Tpassfm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin edit2.Text:=wzbh(trim(edit2.Text ),4);
with adodm.ADOQuery1 do
 begin
 close;
 sql.Clear;
 sql.Add('select mm,xm from czy where bianhao='''+edit2.text+'''');
 open;
 end;
 if adodm.ADOQuery1.RecordCount=1 then
  begin
  mm:=adodm.ADOQuery1.FieldValues['mm'];
  czyxm:=adodm.ADOQuery1.FieldValues['xm'];
  edit3.Text:=czyxm;
  end
  else
  begin
  showmessage('操作员不存在');
  edit2.Clear ;
  exit;
  end;
edit1.SetFocus;end;
end;

procedure Tpassfm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then bitbtn1.SetFocus ;
end;

end.