dl_unit.pas

医药管理系统

unit dl_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit,
  cxMaskEdit, cxDropDownEdit, jpeg, ExtCtrls,data_unit;

type
  Tdl_form = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    pass_edit: TEdit;
    name_list: TComboBox;
    qd_btn: TLabel;
    qx_btn: TLabel;
    Label3: TLabel;
    procedure qx_btnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure qd_btnClick(Sender: TObject);
    procedure pass_editKeyPress(Sender: TObject; var Key: Char);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dl_form: Tdl_form;
  quitstr:string;
implementation

uses main_unit;

{$R *.dfm}

procedure Tdl_form.qx_btnClick(Sender: TObject);
begin
//进出系统
application.Terminate;
end;

procedure Tdl_form.FormShow(Sender: TObject);
begin
quitstr:='0';
with data_form.usertable do
     begin
     Active :=false;
     CommandText :='select * from usertable';
     Active :=true;
     name_list.Clear;
     pass_edit.Text :='';
     while not eof do
           begin
           name_list.Items.Add(trim(fieldbyname('user_name').AsString));
           next;
           end;
     end;

end;

procedure Tdl_form.qd_btnClick(Sender: TObject);
begin
if data_form.usertable.Locate('user_name;user_pass',VarArrayOf([name_list.text,pass_edit.text]),[]) then
   begin
   //--------------------------------提取权限
   main_form.admin_lab.Caption :=name_list.Text ;
   quitstr:='1';
   close;
   end
   else
       begin
       quitstr:='0';
       application.MessageBox('密码错误，请重新输入','提示信息',64+mb_ok);
       pass_edit.Text :='';
       end;

end;

procedure Tdl_form.pass_editKeyPress(Sender: TObject; var Key: Char);
begin
//--如果在密码框中下拉回车调用上面代码
if key=#13 then
   qd_btnclick(self);
end;

procedure Tdl_form.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if quitstr<>'1' then
   canclose:=false;
end;

end.