logunit.~pas

完整的ic卡管理软件

unit logUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, Mask, bsSkinBoxCtrls,
  DB, ADODB, bsMessages;

type
  TlogForm = class(TForm)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinMaskEdit1: TbsSkinMaskEdit;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinMessage1: TbsSkinMessage;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  logForm: TlogForm;
  procedure Barvisble(power:integer);

implementation
uses
  datamodel,mainUnit;

{$R *.dfm}

procedure TlogForm.bsSkinButton2Click(Sender: TObject);
begin
   close;
end;

procedure TlogForm.bsSkinButton1Click(Sender: TObject);
var
name:string;       //用户名
password:string;   //密码
power:integer;     //权限
begin
  if  bsSkinEdit1.Text='' then
  begin
    
     exit;
     bsSkinEdit1.SetFocus;
     
  end
  else
   begin
      bsSkinStdLabel3.Caption:='';
      name:= bsSkinEdit1.Text;
      password:=bsSkinMaskEdit1.Text;
      with DataModule1.userQuery do
      begin
            close;
            SQL.Clear;
            Sql.Add('select * from userMIS ' );
            sql.Add('where userid=:a and Pword=:b ' );
            Parameters[0].Value:=bsSkinEdit1.Text;
            Parameters[1].Value:=bsSkinMaskEdit1.Text;
            open;
            if eof then
              begin
                 logform.bsSkinMessage1.MessageDlg('用户名或密码不正确，请重新输入!',mtError,[mbok],0);
                  exit;
                  bsSkinEdit1.SetFocus;
              end
            else
               begin
                  useName:=fieldByName('userid').AsString;  //用户名
                  usepowd:=fieldByName('Pword').AsString;   //密码
                  power:=fieldByName('lever1').AsInteger;    //权限
                  
                  Barvisble(power);
                  
              end;
      end;
   end;
   logform.Close;
   mainform.bsSkinStatusPanel1.Caption:='操作员:'+useName;
  
end;

procedure TlogForm.FormShow(Sender: TObject);
begin
  bsSkinButton1.SetFocus;
  bsSkinEdit1.SetFocus;
  bsSkinStdLabel3.Caption:='';
  bsSkinEdit1.Text:='';
  bsSkinMaskEdit1.Text:='';
 
end;
//****权限操作*********
procedure Barvisble(power:integer);
begin
 with mainform do
  begin
   if power=0 then
    begin
     bsSkinToolBar1.Visible:=true;
    n10.Visible:=true;
   N12.Visible:=TRUE;
  n5.Visible:=true;
  IC1.Enabled:=true;
   N6.Enabled:=true;
   N7.Enabled:=true;
   N8.Enabled:=true;
   n2.Visible:=false;
  // n13.Visible:=true;
     n4.Visible:=true;
     n5.Visible:=true;
     N10.Visible:=true;
    // N12.Visible:=true;
   IC2.Visible:=true;
     IC3.Visible:=true;
     N14.Visible:=true;
     IC4.Visible:=true;
     N11.Visible:=true;
    N22.Visible:=true;
     N15.Visible:=true;
    N16.Visible:=true;
     N23.Visible:=true;
     N17.Visible:=true;
     n18.Visible:=true;
     IC5.Visible:=true;
    // n19.Visible:=true;
     end
   else
     begin
   //  bsSkinToolBar1.Visible:=true;
  n10.Visible:=true;
  n2.Visible:=false;
  n5.Visible:=true;
  IC1.Enabled:=true;
   N6.Enabled:=true;
   N7.Enabled:=true;
   N8.Enabled:=true;
   N12.Visible:=TRUE;
     n4.Visible:=true;
     n5.Visible:=true;
     N10.Visible:=true;

   IC2.Visible:=true;
     IC3.Visible:=true;
    // N14.Visible:=true;
   //  IC4.Visible:=true;
     N11.Visible:=true;
   // N22.Visible:=true;
     N15.Visible:=true;
   // N16.Visible:=true;
   //  N23.Visible:=true;

     n18.Visible:=true;
     IC5.Visible:=true;
   

     end;
   end;
end;

procedure TlogForm.bsSkinButton1KeyPress(Sender: TObject; var Key: Char);
begin
     if Key=#13 then
     begin
      bsSkinButton1.SetFocus;
     end;
end;

end.