untlogin.pas

高校党员管理系统源代码有用的可以下载来用

unit UntLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, UntExcSQL, RzButton, RzCmboBx, RzEdit, Mask;

type
  TFrmLogin = class(TForm)
    Image1: TImage;
    BtnOK: TRzBitBtn;
    BtnCancel: TRzBitBtn;
    Pws: TRzEdit;
    Name: TRzComboBox;
    procedure BtnOKClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure NameKeyPress(Sender: TObject; var Key: Char);
    procedure PwsKeyPress(Sender: TObject; var Key: Char);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    ExcSql:TExcSql;
    { Public declarations }
  end;

var
  FrmLogin: TFrmLogin;

implementation

uses UntMain, UntAppMDIConsts;

{$R *.dfm}

procedure TFrmLogin.BtnOKClick(Sender: TObject);
begin
//判断是否选择用户，没有，退出
if Name.ItemIndex <0 then
  begin
    messagebox(Handle,'请选择一个正确的用户名！','系统提示',MB_OK+MB_ICONINFORMATION);
    Exit;
  end;

Self.ExcSql.SQL:=' Select  *  From  Admins where AdminName="'+Trim(Name.Text)+'"';
Self.ExcSql.ExcSQL(Self.ExcSql.SQL,'Search');
if Self.ExcSql.ADOQuery.RecordCount <1 then
  begin
    messagebox(Handle,'您选择的用户名不存在！','系统提示',MB_OK+MB_ICONINFORMATION);
    Exit;
  end;
if PassFormat(Self.ExcSql.ADOQuery.FieldByName('AdminPsw').AsString,True) =Trim(pws.Text)   then
  begin
    FrmMain.AdminII:=Self.ExcSql.ADOQuery.FieldByName('AdminID').AsString;
    FrmMain.AdminName:=Self.ExcSql.ADOQuery.FieldByName('AdminName').AsString;
    FrmMain.AdminType:=Self.ExcSql.ADOQuery.FieldByName('AdminType').AsString;
    FrmMain.AdminNameType.Caption:='用户：'+FrmMain.AdminName +'    '+ '类型：'+FrmMain.AdminType;
    if Trim(FrmMain.AdminType) ='系统管理员' then
       FrmMain.N10.Visible:=False;
    if Trim(FrmMain.AdminType) ='操作员' then
      begin
        FrmMain.N10.Visible:=False;
        FrmMain.N6.Visible:=False;
      end;
    Self.ExcSql.SQL:='Select * from System ';
    Self.ExcSql.ExcSQL(Self.ExcSql.SQL,'Search');
    if Trim(Self.ExcSql.ADOQuery.FieldByName('SchoolName').AsString) ='' then
      begin
        FrmMain.SchoolName:=Inputbox('系统提示','第一次使用本系统，请您先填写单位名称：',' ');
        Self.ExcSql.SQL:=' update System set SchoolName="'+Trim(FrmMain.SchoolName) +'"';
        self.ExcSql.ExcSQL(Self.ExcSql.SQL,'Mod');
      end
    else
      FrmMain.SchoolName:=Self.ExcSql.ADOQuery.FieldByName('SchoolName').AsString;
    FrmMain.Caption:=FrmMain.SchoolName+'党员管理系统';
    close;
  end
else
  begin
    messagebox(Handle,'您输入的密码不正确，请检查！','系统提示',MB_OK+MB_ICONINFORMATION);
    Pws.Text:='' ;
    Pws.SetFocus;
    Exit;
  end;
end;

procedure TFrmLogin.BtnCancelClick(Sender: TObject);
begin
 Application.Terminate;
end;

procedure TFrmLogin.FormCreate(Sender: TObject);
begin
//提取Admin表中的数据
 ExcSQL:=TExcSQL.create;
 self.ExcSQL.Sql:='select * from Admins ';
 self.ExcSQL.ExcSQL(Self.ExcSQL.SQL,'Search');
//将Admin表中AdminName的值显示到控件中
with Name do
  begin
    Items.Clear;
    self.ExcSql.ADOQuery.First;
    while Not self.ExcSql.ADOQuery.Eof do
      begin
        Items.Add(self.ExcSql.ADOQuery.FieldByName('AdminName').AsString );
        self.ExcSql.ADOQuery.Next;
      end;
    ItemIndex:=0;
  end;
end;

procedure TFrmLogin.RzBitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TFrmLogin.NameKeyPress(Sender: TObject; var Key: Char);
begin
  key:=#0;
end;

procedure TFrmLogin.PwsKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
   BtnOK.Click;
end;

procedure TFrmLogin.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
ExcSQL.Free ;
end;

end.