unit10.pas

DELPHI物流管理系统设计与实现.附带有论文.

unit Unit10;

interface

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

type
  TForm10 = class(TForm)
    Label1: TLabel;
    Button5: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    procedure Button5Click(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

    users:string;
  end;

var
  Form10: TForm10;

implementation

uses Unit5, Unit1;

{$R *.dfm}

procedure TForm10.Button5Click(Sender: TObject);


  begin
  ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM users');
ADOQuery1.SQL.Add('where user=:ss');
ADOQuery1.Parameters.ParamByName('ss').Value:= edit1.Text ;
 ADOQuery1.Open ;
if  ADOQuery1.Eof and ADOQuery1.Bof  then
    begin
     showmessage('用户错误');
       ADOQuery1.Close;
    end

else

   begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('SELECT * FROM users');
      ADOQuery1.SQL.Add('where pass=:kk and user=:ss');
      ADOQuery1.Parameters.ParamByName('ss').Value:= edit1.Text ;
      ADOQuery1.Parameters.ParamByName('kk').Value:= edit2.Text ;
      ADOQuery1.Open ;
     if  ADOQuery1.Eof and ADOQuery1.Bof  then
        begin
         showmessage('密码错误');
        end
     else
        begin
           if   ADOQuery1.FieldValues['bj']=null then
                begin
                form10.Hide;

                 form1.show ;
                  ADOQuery1.Close
                 end
            else
                begin
                users:=ADOQuery1.FieldValues['bj'];

                form10.Hide;

                form1.show ;
                 ADOQuery1.Close;
                end
        end
   end

end;
procedure TForm10.Edit1Enter(Sender: TObject);
var
  ss:string;
begin
 ss:='888';
   if  edit1.Text=ss then
        begin
         form1.show ;
          form10.Hide
        end
     else
        begin
         showmessage('密码错误');
        end
end;

end .