u_main.pas

是一小型门诊挂号软件

unit U_main;

interface

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

type
  TF_main = class(TForm)
    Panel1: TPanel;
    Image2: TImage;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    user: TEdit;
    password: TEdit;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
    function Logining(user,password:String):integer;
  public
    { Public declarations }
  end;

var
  F_main: TF_main;

implementation

uses u_datamodule,u_register,u_sick,u_statistic,u_system;

{$R *.dfm}
///////////////////////////////
//判断用户是否存在，是则返回权限，否则返回-1
///////////////////////////////
function TF_main.Logining(user,password:String):integer;
begin
  with f_dm.Q_login  do       //认证
  begin
    Params.ParamValues['user']:=user;     //设置参数
    params.ParamValues['password']:=password;
    open;  //打开查询
    if (RecordCount =1) then   //存在这个用户
    begin
      result:=FieldByName('权限').AsInteger;//得到用户权限
    end
    else//不存在这个用户
    begin
      result:=-1;
    end;
    Close;//关闭查询
  end;
end;

procedure TF_main.BitBtn1Click(Sender: TObject);
var
  isLogin:integer;
begin
  isLogin := Logining(user.Text,password.Text); //判断登陆用户
  if (isLogin<>-1) then //登陆成功
  begin
    GroupBox1.Visible:=false;//隐藏登陆框
    panel1.Visible:=true; //显示功能按键
    //对不同权限有不同功能，这里只分为两种：挂号员和系统管理员
    if (isLogin<>0) then//非系统管理员不能进行系统管理
      button4.Visible:=false;
  end
  else     //登陆失败
  begin
    Application.MessageBox('请重新输入！','登录失败',MB_OK);
  end;
end;

procedure TF_main.Button1Click(Sender: TObject);
begin
  f_register.Show;
end;

procedure TF_main.FormShow(Sender: TObject);
begin
  panel1.Visible:=false;//隐藏功能按键
  GroupBox1.visible:=true; //显示登陆框
end;

procedure TF_main.Button3Click(Sender: TObject);
begin
  f_sick.Show;
end;

procedure TF_main.Button2Click(Sender: TObject);
begin
   f_statistic.Show;
end;

procedure TF_main.Button4Click(Sender: TObject);
begin
  f_system.Show;
end;

end.