pass.pas

来自「c/s系统。 delphi 6+access 运行前先配置数据环境：把db文件夹」· PAS 代码 · 共 102 行

unit pass;

interface

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

type
  Tfpass = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    Edit1: TEdit;
    Edit2: TEdit;
    ADOConnection1: TADOConnection;
    table1: TADOTable;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fpass: Tfpass;

implementation

uses zjm;



{$R *.dfm}

procedure Tfpass.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tfpass.Button1Click(Sender: TObject);

var
 s1,s2,s3:string;
 n:integer;
begin
  if length(edit1.text)=0 then
      begin
        showmessage('请输入用户名');
        if length(edit2.text)=0 then
            showmessage('请输入密码')
      end
  else
      begin
        if length(edit2.text)=0 then
           showmessage('请输入密码')
        else
           s1:=edit1.text;
           s3:=edit2.text;
           table1.open;
           table1.first;
      while not table1.eof do
        begin
        s2:=table1.fieldbyname('user').asstring;
        n:=comparestr(s1,s2);
        if n=0 then break;
        table1.next;
        end;
           if not table1.Eof then
               begin
                 if s3=table1.fieldbyname('passwd').asstring then
                     begin


                   fzjm.visible:=true;
                   fpass.Visible:=false;
                   
                     end
                  else
                 showmessage('密码错误')
               end
           else
                showmessage('用户名不存在');


      end;
     



end;



end.