frmlogin.~pas

这是一个商品管理系统

unit FrmLogin;

interface

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

type
  TFormLogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    EditUserName: TEdit;
    EditPassword: TEdit;
    BtnOK: TButton;
    BtnCancel: TButton;
    DSUser: TADODataSet;
    procedure BtnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
        CurUserName: string;
        CurUserType: integer;
    { Public declarations }
  end;

var
  FormLogin: TFormLogin;

implementation

{$R *.dfm}

procedure TFormLogin.BtnOKClick(Sender: TObject);
begin
        ModalResult := mrCancel;
        CurUserName := '';
        CurUserType := -1;
        if ( not(EditPassWord.Text = '') and not(EditUserName.Text = '')) then
        begin
                DSUser.Active := False;
                DSUser.CommandText := 'select type from SysUser where name = ''' + EditUserName.Text + ''' and password = ''' + EditPassWord.Text + '''';
                DSUser.Active := True;
                if (DSUser.IsEmpty) then
                begin
                        Application.MessageBox('错误的用户名或密码！', '系统信息', MB_OK);
                end
                else
                begin
                        Application.MessageBox('登陆成功！', '系统信息', MB_OK);
                        CurUserName := EditUserName.Text;
                        CurUserType := DSUser.FieldByName('type').AsInteger;
                        ModalResult := mrOK;
                end
        end;
end;

end.