denglu.pas

图书管理系统delphi.rar是用delphi编写的管理系统,清析的讲述了图书管的全部运行流程.对delphi有了解的人可以通过对这个管理系统的学习进一步得到提高.

unit denglu;

interface

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

type
  TdengluFrom = class(TForm)
    GroupBox1: TGroupBox;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    namebox: TEdit;
    pwdbox: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    leixingbox: TComboBox;
    Label3: TLabel;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dengluFrom: TdengluFrom;

implementation
uses DataModule,main;
{$R *.dfm}

procedure TdengluFrom.BitBtn2Click(Sender: TObject);
begin
if messagedlg('真的要退出系统吗？',mtconfirmation,[mbYes,mbNo],0)=mryes then Close;
end;

procedure TdengluFrom.BitBtn1Click(Sender: TObject);
 var
 i:integer;

begin
     if(leixingbox.ItemIndex=1) then
         begin
         if ((namebox.Text='sa') and (pwdbox.text='123456'))  then
             begin
             mainform.toolbar2.Visible:=true;
             mainform.toolbar1.Visible:=true;


             mainform.N1.Enabled:=true;
             mainform.N7.Enabled:=true;
             namebox.text:='';
             pwdbox.Text:='';
             close;
             end
         else if namebox.Text<>'sa' then
               begin application.MessageBox('非法用户，请输入正确的用户名','用户名',mb_ok+mb_iconexclamation);
               namebox.SetFocus;
               end
              else
               begin
               application.MessageBox('输入密码错误，请再输入一次','密码',mb_ok+mb_iconexclamation);
               pwdbox.SetFocus;
               end;
        end
   else
      begin

         adotable1.Open;

         adotable1.First;
         for i:=1 to adotable1.RecordCount do
             begin
               if (adotable1.FieldbyName('xingming').AsString=namebox.Text) and (adotable1.FieldbyName('mima').AsString=pwdbox.Text) then
                begin
                 mainform.toolbar1.Visible:=true;

                 mainform.N7.Enabled:=true;
                 namebox.text:='';
                 pwdbox.Text:='';
                 dengluFrom.Close;
                 break;
                end
               else
               adotable1.next;

             if i=adotable1.RecordCount then
                showmessage('用户不合法');
           end;

        adotable1.close;
           

     end;
end;
end.