unit1.pas

人寿保险的管理信息系统

unit Unit1;

interface

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

type
  TF_Login = class(TForm)
    Panel1: TPanel;
    MaskEdit1: TMaskEdit;
    Edit1: TEdit;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure MaskEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Login: TF_Login;

implementation
  uses unit2,unit11,unit3,unit4,unit5,unit6,unit7,unit8,unit10,Unit15,Unit16,Unit17,Unit18,
  Unit19,Unit20,Unit21,Unit22,unit23,Unit25,Unit27,Unit29,Unit34;
{$R *.dfm}

procedure TF_Login.Button1Click(Sender: TObject);
begin
  Close;
  F_main.Show;
end;

procedure TF_Login.SpeedButton2Click(Sender: TObject);
begin
  if F_main.log=-1 then//判断是否为程序运行时重新登录
    Close
  else
    Application.Terminate;//终止进程
end;

procedure TF_Login.SpeedButton1Click(Sender: TObject);
begin
  Oper:=f_login.Edit1.Text;//定义的全局字符串变量：=操作员
  try
    with mydm.userQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select*from users where user_name=:p and user_password = :a');
      Parameters[0].Value:=Trim(Edit1.Text);
      Parameters[1].Value:=Trim(MaskEdit1.Text);
      Open;
    End;
    If mydm.userquery.RecordCount>0 then
    Begin
      F_main.statusbar1.Panels[1].Text:='当前操作员：'+oper;
      F_main.StatusBar1.Panels[2].Text:='系统日期〖'+datetostr(date())+'〗';
      F_main.SpeedButton601.Enabled:=True;
      if Trim(mydm.userQuery.fields[3].AsString)='浏览者' then//判断权限
      begin
        F_customer.Panel1.Visible:=False;
        F_insurant.panel1.Visible:=False;
        F_beneficiary.Panel1.Visible:=False;
        F_policy.Panel1.Visible:=False;

        F_bill.SpeedButton1.Visible:=false;
        F_bill.SpeedButton2.Visible:=false;
        F_billcha.SpeedButton2.Visible:=false;

        F_comp.SpeedButton1.Visible:=false;
        F_comp.SpeedButton2.Visible:=false;
        F_comp.SpeedButton3.Visible:=false;
        F_compres.SpeedButton1.Visible:=false;



        F_custcha.SpeedButton2.Visible:=false;

        F_user.Panel1.Visible:=False;
        F_user.SpeedButton1.Visible:=false;
        F_user.SpeedButton3.Visible:=false;
        F_user.SpeedButton4.Visible:=false;

        F_jiaofei.Panel1.Visible:=false;
        F_xianzhong.Panel1.Visible:=false;
        F_jiaoper.Panel1.Visible:=false;
        F_baoper.Panel1.Visible:=false;
        F_relation.Panel1.Visible:=false;
        F_emp.Panel1.Visible:=false;

        F_huanyuan.SpeedButton2.Enabled:=false;
        F_huanyuan.SpeedButton3.Enabled:=false;
        F_beifen.SpeedButton1.Enabled:=false;

      end
      else if Trim(mydm.userQuery.fields[3].AsString)='操作员' then
      begin
        F_customer.Panel1.Visible:=true;
        F_insurant.panel1.Visible:=true;
        F_beneficiary.Panel1.Visible:=true;
        F_policy.Panel1.Visible:=true;
        F_customer.SpeedButton2.Visible:=False;
        F_customer.SpeedButton3.Visible:=false;
        F_insurant.SpeedButton2.Visible:=False;
        F_insurant.SpeedButton3.Visible:=False;
        F_beneficiary.SpeedButton2.Visible:=False;
        F_beneficiary.SpeedButton3.Visible:=False;
        F_policy.SpeedButton4.Visible:=False;
        F_policy.SpeedButton6.Visible:=false;

        F_bill.SpeedButton1.Visible:=true;
        F_bill.SpeedButton2.Visible:=false;
        F_billcha.SpeedButton2.Visible:=false;

        F_comp.SpeedButton1.Visible:=true;
        F_comp.SpeedButton2.Visible:=false;
        F_comp.SpeedButton3.Visible:=false;
        F_compres.SpeedButton1.Visible:=false;



        F_custcha.SpeedButton2.Visible:=false;

        F_user.Panel1.Visible:=false;
        F_user.SpeedButton1.Visible:=false;
        F_user.SpeedButton3.Visible:=false;
        F_user.SpeedButton4.Visible:=false;

        F_jiaofei.Panel1.Visible:=true;
        F_xianzhong.Panel1.Visible:=true;
        F_jiaoper.Panel1.Visible:=true;
        F_baoper.Panel1.Visible:=true;
        F_relation.Panel1.Visible:=true;
        F_emp.Panel1.Visible:=true;

        F_jiaofei.SpeedButton2.Visible:=false;
        F_jiaofei.SpeedButton3.Visible:=false;
        F_xianzhong.SpeedButton2.Visible:=false;
        F_xianzhong.SpeedButton3.Visible:=false;
        F_jiaoper.SpeedButton2.Visible:=false;
        F_jiaoper.SpeedButton3.Visible:=false;
        F_baoper.SpeedButton2.Visible:=false;
        F_baoper.SpeedButton3.Visible:=false;
        F_relation.SpeedButton2.Visible:=false;
        F_relation.SpeedButton3.Visible:=false;
        F_emp.SpeedButton2.Visible:=false;
        F_emp.SpeedButton3.Visible:=false;

        F_huanyuan.SpeedButton2.Enabled:=false;
        F_huanyuan.SpeedButton3.Enabled:=false;
        F_beifen.SpeedButton1.Enabled:=false;
      end

      else
      begin
        F_customer.Panel1.Visible:=true;
        F_insurant.panel1.Visible:=true;
        F_beneficiary.Panel1.Visible:=true;
        F_policy.Panel1.Visible:=true;
        F_customer.SpeedButton2.Visible:=true;
        F_customer.SpeedButton3.Visible:=true;
        F_insurant.SpeedButton2.Visible:=true;
        F_insurant.SpeedButton3.Visible:=true;
        F_beneficiary.SpeedButton2.Visible:=true;
        F_beneficiary.SpeedButton3.Visible:=true;
        F_policy.SpeedButton4.Visible:=true;
        F_policy.SpeedButton6.Visible:=true;

        F_bill.SpeedButton1.Visible:=true;
        F_bill.SpeedButton2.Visible:=true;
        F_billcha.SpeedButton2.visible:=true;

        F_comp.SpeedButton1.Visible:=true;
        F_comp.SpeedButton2.Visible:=true;
        F_comp.SpeedButton3.Visible:=true;
        F_compres.SpeedButton1.Enabled:=true;

       

        F_custcha.SpeedButton2.Visible:=true;

        F_user.Panel1.Visible:=true;
        F_user.SpeedButton1.Visible:=true;
        F_user.SpeedButton3.Visible:=true;
        F_user.SpeedButton4.Visible:=true;

        F_jiaofei.Panel1.Visible:=true;
        F_xianzhong.Panel1.Visible:=true;
        F_jiaoper.Panel1.Visible:=true;
        F_baoper.Panel1.Visible:=true;
        F_relation.Panel1.Visible:=true;
        F_emp.Panel1.Visible:=true;

        F_jiaofei.SpeedButton2.Visible:=true;
        F_jiaofei.SpeedButton3.Visible:=true;
        F_xianzhong.SpeedButton2.Visible:=true;
        F_xianzhong.SpeedButton3.Visible:=true;
        F_jiaoper.SpeedButton2.Visible:=true;
        F_jiaoper.SpeedButton3.Visible:=true;
        F_baoper.SpeedButton2.Visible:=true;
        F_baoper.SpeedButton3.Visible:=true;
        F_relation.SpeedButton2.Visible:=true;
        F_relation.SpeedButton3.Visible:=true;
        F_emp.SpeedButton2.Visible:=true;
        F_emp.SpeedButton3.Visible:=true;

        F_huanyuan.SpeedButton2.Enabled:=true;
        F_huanyuan.SpeedButton3.Enabled:=true;
        F_beifen.SpeedButton1.Enabled:=true;

      end;
      Edit1.Clear;
      Maskedit1.Clear;
      Close;
      F_main.Show;
      F_main.panel301.hide;
      f_main.panel302.hide;
      f_main.Panel303.Hide;
      f_main.Panel304.Hide;
      f_main.Panel305.Hide;
      f_main.Panel306.Hide;
    end
    else
    begin
      Application.MessageBox('密码不正确。','提示',64);
      Edit1.Clear;
      Maskedit1.Clear;
      Edit1.SetFocus;
    end;
  except
    Application.MessageBox('系统出错。','提示',64);
  end;
end;

procedure TF_Login.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key= vk_return then
    Maskedit1.SetFocus;
end;

procedure TF_Login.FormShow(Sender: TObject);
begin
  Edit1.SetFocus;
end;

procedure TF_Login.MaskEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

  if Key=13 then
  SpeedButton1Click(SpeedButton1);

end;

end.