loginform.~pas

基于SQL数据库,实现所有图书馆基本功能 可以按图书类别系别班别等信息自动生成书号或学号

unit LoginForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB,DataModule, WinSkinData;

type
  TForm_login = class(TForm)
    ED_login_name: TEdit;
    ED_login_psw: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Bit_login: TBitBtn;
    Bit_cancel: TBitBtn;
    ED_servername: TEdit;
    ED_ID: TEdit;
    ED_psw: TEdit;
    ED_database: TEdit;
    Lab_servername: TLabel;
    Lab_psw: TLabel;
    Lab_ID: TLabel;
    Lab_database: TLabel;
    Bit_login_information: TBitBtn;
    procedure Bit_loginClick(Sender: TObject);
    procedure Bit_cancelClick(Sender: TObject);
    procedure Bit_login_informationClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_login: TForm_login;
  j:integer=1;
  UserName,PassWord:string;
implementation

uses MainForm;

{$R *.dfm}

procedure TForm_login.Bit_loginClick(Sender: TObject);
  var
  str_cstring1,str_cstring2,str_cstring3,str_cstring4:string;
  jihui:string;

begin
   str_cstring1:='Provider=SQLOLEDB.1;Password=';
    str_cstring2:=';Persist Security Info=True;User ID=';
    str_cstring3:=';Initial Catalog=';
    str_cstring4:=';Data Source=';
    DM.ADOConnection1.ConnectionString:=str_cstring1+ED_psw.text+str_cstring2+ED_ID.Text+str_cstring3+ED_database.Text+str_cstring4+ED_servername.Text;


   DM.ADOQuery1.SQL.Clear;
   DM.ADOQuery1.SQL.Add('select * from admin where username='+QuotedStr(ED_login_name.Text)+' and psw='+QuotedStr(ED_login_psw.Text));

   DM.ADOQuery1.Open;
   If DM.ADOQuery1.RecordCount>0 Then
Begin

         UserName:=DM.ADOQuery1.fieldbyname('username').AsString;
         PassWord:=DM.ADOQuery1.fieldbyname('psw').AsString;

         If (Trim(UserName)=Trim(ED_login_name.Text)) and (Trim(PassWord)=Trim(ED_login_psw.Text)) Then
             Begin
             DM.str_user:=UserName;
                  if DM.ADOQuery1.fieldbyname('admin').AsString='True' then
                     begin
                      ModalResult := mrYes;
                     end
                  else
                    begin
                    Form_main.PageControl1.Pages[0].TabVisible:=false;
                    Form_main.PageControl1.Pages[1].TabVisible:=false;
                    Form_main.PageControl1.Pages[3].TabVisible:=false;
                    Form_main.MainMenu1.Items[0].Enabled:=false;
                    ModalResult := mrYes;
                    end;
           End;
          
                
       
     
End
else
begin
  If j=3 Then
                   Begin
                      Messagebox(handle,'非法登录！','系统提示',MB_OK+MB_ICONERROR);
                      DM.ADOQuery1.Close;
                      Application.Terminate;  //退出系统 
                   End;

                jihui:='用户名或密码不正确，请重新填写！你还剩下'+inttostr(3-j)+'次机会';
                MessageBox(handle,Pchar(jihui),'提示',MB_OK+MB_ICONINFORMATION);
                j:=j+1;
                ED_login_name.Clear;
                ED_login_psw.Clear;
                ED_login_name.SetFocus;
                DM.ADOConnection1.Close;
end;
end;

procedure TForm_login.Bit_cancelClick(Sender: TObject);
begin
 Application.Terminate;

end;

procedure TForm_login.Bit_login_informationClick(Sender: TObject);
begin

if Bit_login_information.Caption='完成设置' then
begin
  Form_login.Height:=177;
  Bit_login_information.Caption:='设置登陆信息'
end
else
begin
  Form_login.Height:=310;
  Bit_login_information.Caption:='完成设置'
end;

end;
end.