login.pas

本系统包括的功能有,预算项目管理,查询,数据库维护,系统拥护管理等

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Mask, DBCtrls;

type
  Tfrmlogin = class(TForm)
    Labelname: TLabel;
    Labelpass: TLabel;
    cmdenter: TButton;
    cmdcancel: TButton;
    DataSource1: TDataSource;
    Querycompanyuser: TQuery;
    comboxname: TComboBox;
    editpass: TEdit;
    database1: TDatabase;
    //判断能否成功登陆
    function canpass():boolean;
    procedure FormCreate(Sender: TObject);
    //function canpass():boolean;
  private
    { Private declarations }

  public
    { Public declarations }

  end;

var
  frmlogin: Tfrmlogin;

implementation

//uses login;

{$R *.dfm}



procedure Tfrmlogin.FormCreate(Sender: TObject);
begin
//判断querycompanyuser中的当前记录是否是最后一个记录
while not Querycompanyuser.Eof  do
   begin
     //将当前记录的值添加到comboxname组合框中
     comboxname.AddItem(Querycompanyuser.FieldValues['yhmc'],sender);
     //将当前记录下移一个
     Querycompanyuser.MoveBy(1);
   end;
end;

function Tfrmlogin.canpass():boolean;
var
note:array[1..4] of string;
begin
result:=false;
note[1]:='用户名称不能为空！' ;
note[2]:='用户名称或密码不正确';
//判断用户输入的用户名是否为空
if frmlogin.comboxname.Text='' then
  begin
   showmessage(note[1]);
    exit;
  end;
//判断用户输入的用户名是否为合法用户
frmlogin.querycompanyuser.Filter:='yhmc='''+frmlogin.comboxname.Text+'''';
if frmlogin.querycompanyuser.Eof then
   begin
     showmessage(note[2]);
     exit;
   end
else
//判断用户输入的口令是否正确
if frmlogin.querycompanyuser.FieldValues['yhkl']<>frmlogin.editpass.Text then
   begin
     showmessage(note[2]);
     exit;
   end;
result:=true;
end;


end.