login.pas

delphi制作的校医院收费系统

unit login;

interface

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

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    GroupBox2: TGroupBox;
    Image1: TImage;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    e_password: TEdit;
    b_register: TBitBtn;
    b_cancel: TBitBtn;
    c_username: TComboBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    procedure FormShow(Sender: TObject);
    procedure e_passwordKeyPress(Sender: TObject; var Key: Char);
    procedure b_cancelClick(Sender: TObject);
    procedure b_registerClick(Sender: TObject);
    procedure c_usernameChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  flag:integer;
implementation

{$R *.dfm} uses dmlogin, main;

procedure TForm1.FormShow(Sender: TObject);
var i:integer;
begin
     dm_login.ADOQuery1.Close;
     dm_login.ADOQuery1.SQL.Clear;
     dm_login.ADOQuery1.SQL.Add('select * from 登陆表');
     dm_login.ADOQuery1.Open;
     dm_login.ADOQuery1.Active:=true;
     dm_login.ADOQuery1.First;
     c_username.Items.Clear;
     for i:=0 to dm_login.ADOQuery1.RecordCount-1 do
     begin
          c_username.Items.Add(dm_login.ADOQuery1.Fields[1].asstring);
          dm_login.ADOQuery1.Next;
     end;
     dm_login.ADOQuery1.First;
     c_username.Text:='操作员名';
     c_username.ItemIndex:=-1;
     flag:=0;
 end;
procedure TForm1.e_passwordKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    b_register.Click;
end;

procedure TForm1.b_cancelClick(Sender: TObject);
begin
    c_username.ItemIndex:=-1;
    c_username.Text:='操作员名';
    e_password.Text:='';
end;

procedure TForm1.b_registerClick(Sender: TObject);
begin
     flag:=flag+1;
     dm_login.ADOQuery1.Close;
     dm_login.ADOQuery1.SQL.Clear;
     dm_login.ADOQuery1.SQL.Add('select * from 登陆表 where 操作员姓名=');
     dm_login.ADOQuery1.SQL.Add(''''+c_username.Items[c_username.itemindex]+'''');
     dm_login.ADOQuery1.Open;
     dbedit1.DataField:=dm_login.ADOQuery1.FieldList[1].DisplayName;
     dbedit2.DataField:=dm_login.ADOQuery1.FieldList[2].DisplayName;
     dbedit3.DataField:=dm_login.ADOQuery1.FieldList[3].DisplayName;
     if dm_login.ADOQuery1.RecordCount=0 then
     begin
          showmessage('请重新选择操作员名');
          b_cancel.Click;
     end
     else begin
               if (trim(dbedit2.Text))<>(trim(e_password.Text)) then
                  begin
                        showmessage('密码错误,操作失败!');
                        b_cancel.Click;
                  end
               else begin
                        form1.Hide;
                        main1.Show;
                        if trim(login.Form1.DBEdit3.Text)<>'1' then
                        begin
                            main1.ToolButton11.Enabled:=false;
                            main1.N20.Enabled:=false;
                            main1.N30.Enabled:=false;
                        end;
                        exit;
                    end;
          end;
     if flag=3 then
        begin
              showmessage('登陆超时,操作失败');
              application.Terminate;
        end;
end;

procedure TForm1.c_usernameChange(Sender: TObject);
begin
    form1.e_password.SetFocus;
end;

end.