flogin.pas

使用delphi编写的运动会编排程序,还需要更加完善!

unit flogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, RzButton, Mask, RzEdit, RzLabel;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzEdit1: TRzEdit;
    RzEdit2: TRzEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  fmain;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.Show;
end;



procedure TForm1.RzBitBtn1Click(Sender: TObject);
var a1,a2,b1,b2:string;                       //定义变量a1,a2,b1,b2 为字符串变量
begin
    with ADOtable1 do
      begin
        open;
        ADOconnection1.Connected:=true;             //连接数据库
        a1:=fieldbyname('guest').Value ;          //将客户的用户名赋给a1
        a2:=fieldbyname('password_g').Value ;     //将客户的密码赋给a2
        b1:=fieldbyname('admin').Value ;           //将管理员的用户名赋给b1
        b2:=fieldbyname('password_a').Value ;       //将管理员的密码赋给b2
        if ( a1=trim(Rzedit1.Text)) and (a2=trim(Rzedit2.Text) )  then
          begin
            form2.Show ;                      //切换到主界面
          end
        else if (b1=trim(Rzedit1.Text))  and  (b2=trim(Rzedit2.Text ))  then
          begin
            form2.Show;
          end
        //输入的用户名和密码不正确，提示出错，同时清空输入文本框！
        else
          begin
           messagedlg('输入出错，请重新输入！',mterror,[mbok],0);
           Rzedit1.Text :='';                        //清空文本框，以便重新输入！
           Rzedit2.Text :='';
           Rzedit1.SetFocus ;                        //光标重新定位到"用户名"文本框
        end;
    end;
    Rzedit1.Text :='';
    Rzedit2.Text :='';
end;

procedure TForm1.RzBitBtn2Click(Sender: TObject);
begin
   close;
end;

end.