dl.~pas

来自「进货管理系统为操作员提供主功能界面。 进货管理系统在启动时要求操作员输入ID」· ~PAS 代码 · 共 70 行

unit jhgl;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 
  begin
    form1.Query1.Close;
    form1.Query1.SQL.Clear;
    form1.query1.SQL.add('select * from User_table where ID='''+trim(form1.Edit2.Text)+'''');
    form1.query1.open;
    result:=form1.query1.recordcount>=1;   //检测帐号存在性

  end;
    if result then  //若帐号存在
      begin
      form1.Query1.Close;
      form1.Query1.SQL.Clear;
      form1.query1.SQL.add('select Passwd from User_table where id='''+trim(form1.Edit2.Text)+'''');
      form1.Query1.open;
      getpwd:= form1.Query1.fieldbyname('Passwd').AsString ;   //取得密码
        if getpwd<>form1.edit1.Text   then       //密码与用户输入不一致
          begin
          messagedlg('密码不正确,请重新输入!',mtinformation,[mbok],0);
          //showmessage(getpwd);
          form1.Edit1.Text:=' ';
          end
        else
          begin      //密码正确,进入主功能界面    }
            Form1.Hide;
            Form2.Show;
          end;
       end
     else begin          //帐号不存在
       messagedlg('帐号不存在,请重新输入!',mtinformation,[mbok],0);
       //if result then
       //showmessage('result=1');
       Form1.Edit2.Text:=' ';      //将帐号框清空
       Form1.Edit1.Text:=' ';      //将密码框清空
     end;
end;

end.