unit1.pas

客户关系管理系统 客户关系管理系统

unit Unit1;

interface

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

type
  Tcustrom = class(TForm)
    Eusername: TEdit;
    Epassword: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  custrom: Tcustrom;

implementation

uses Main;

{$R *.dfm}

procedure Tcustrom.Button1Click(Sender: TObject);
var sqlstr:string;
    username:string;
    password:string;
begin
   username:=trim(Eusername.Text);
   password:=trim(Epassword.Text);
   if username='' then
    begin
     showmessage('用户名不能为空！');
     Eusername.SetFocus;
    exit;
    end;

   if password='' then
    begin
     showmessage('密码不能为空！');
     Epassword.SetFocus;
     exit;
    end;



   with adoquery1 do
     begin
         close;
         sql.clear;
         sqlstr:='select * from login where user=:V1 ';
         sql.Add(sqlstr);
         Parameters.ParamByName('V1').value:=username;
            try
              OPEN;
            except
            on EDatabaseError do
              messagedlg('数据库操作错误！',mtError,[mbok],0);
            end;
              if isempty then
                begin
                  showmessage('无此用户名，请重新录入！');
                  Eusername.SetFocus;
                  exit;
                end
              else
                begin
                  close;
                  sql.Clear;
                  sqlstr:='select * from login where user=:V1 and password=:V2';
                  sql.Add(sqlstr);
                  Parameters.ParamByName('V1').value:=username;
                  Parameters.ParamByName('V2').value:=password;
                      try
                        OPEN;
                      except
                      on EDatabaseError do
                        messagedlg('数据库操作错误！',mtError,[mbok],0);
                      end;
                     if isempty then
                      begin
                        showmessage('密码输入有误，请重新输入密码！');
                        Epassword.SetFocus;
                        exit;
                     end
                    else
                       begin
                         custrom.Hide;
                         mainform.show;
                       end;
                end;
    end;


















end;

procedure Tcustrom.Button2Click(Sender: TObject);
begin
 custrom.Close;
end;

end.