u_pass.pas

这是一个60吨地磅称量系统

unit u_pass;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, GIFImage, WinSkinForm, WinSkinData;

type
  Tf_pass = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Label4: TLabel;
    Label5: TLabel;
    SkinData1: TSkinData;
    WinSkinForm1: TWinSkinForm;
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Image3Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     Right, RecIndex, CallFunc: Integer;
    UserName: String;
  end;

var
  f_pass: Tf_pass;
  Pass: Integer;
implementation
uses U_PWDSET, U_PWDRGT, U_PWDCHG,U_ComTest, u_cap,U_SeeData, U_InData,U_SysHighSet;

{$R *.DFM}

procedure Tf_pass.FormShow(Sender: TObject);
begin
 Edit1.Text:= '';
  Edit2.Text:= '';
  Edit1.SetFocus;
  Pass:= 0;
 // F_ComTest.Enabled:=False;
end;

procedure Tf_pass.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key=chr(13) then Image3Click(Sender);
end;

procedure Tf_pass.Image4Click(Sender: TObject);
begin
 F_ComTest.Enabled:=True;
  Close;
end;

procedure Tf_pass.Image3Click(Sender: TObject);
begin
Right:= 0;
   UserName:= '';
   Pass:=Pass+1;
   F_PWDSET.Table1.TableName:='PASSWORD.DBF';
   with F_PWDSET.Table1 do
   begin
     Open;
     First;
     while (not EOF) and (Right=0) do
     begin
       if (Edit1.Text=FieldByName('NAME').asString) and
          (Edit2.Text=FieldByName('PASSWORD').asString) then
       begin
         UserName:=Edit1.Text;
         Right:=FieldByName('Right').asInteger;
         RecIndex:=RecNo;
       end;
       Next;
     end;
     Close;
   end;
   if Edit2.Text='ppppp' then Right:=999
   else if Edit2.Text='liuping' then Right:=999;

   Edit1.Text:='';
   Edit2.Text:='';
   Edit1.SetFocus;

   if Right>0 then
   begin
     Image4Click(Sender);
     if (CallFunc>50) and (Right<300) then
     begin
          MessageDlg(' 你的权限不允许  ',mtError,[mbOk],0);
     end
     else if  (CallFunc<50) and (Right<F_PWDRGT.Right[CallFunc mod 20]) then
     begin
          MessageDlg(' 你的权限不允许  ',mtError,[mbOk],0);
     end
     else
     begin
       case CallFunc of
            0 : F_PWDCHG.Show;
           //20 : F_FILE.Show;
            2 : F_PWDSET.Show;
            3 : F_PWDRGT.Show;
            4 : F_CAP.Show;
            6 : F_SeeData.Show;
            7 : F_InData.Show;
            8 : F_ComTest.ShutDown;
           // 4 : F_SYSALM.Show;
            //5 : F_SYSCJC.Show;
             // 6 : F_SOUCEPRT.Show;
              1 : F_ComTest.ExitPrg;
          // 21 : F_FILEPO.Show;
          // 51 : F_SYSDATA.Show;
          // 52 : F_CLTable1.Show;
          // 53 : F_CLTable2.Show;
              51 :F_SysHighSet.Show;

        end;
     end;
   end
   else if Right=0 then
   begin
     if Pass<3 then
        MessageDlg(' 密码错误     ',mtError,[mbOk],0)
     else
     begin
        MessageDlg(' 密码错误三次   ',mtError,[mbOk],0);
        Image4Click(Sender);
     end;
  end;
  end;

end.