unit8.pas

铁路道口管理系统 开发源码 大家随便看看 呵呵

unit Unit8;

interface

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

type
  TUserOn = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    ComboBox1: TComboBox;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
   UserName: string;
    { Public declarations }
  end;

var
  UserOn: TUserOn;

implementation
uses unit3,unit12, Unit5, Unit13, Login;

{$R *.dfm}

procedure TUserOn.FormCreate(Sender: TObject);
begin
{
  }
end;

procedure TUserOn.Button1Click(Sender: TObject);
begin
  if trim(combobox1.Text) = '' then
   showmessage('请输入用户名！')
   else
  begin
  //combobox1.Text <> '' then
       with DModule1.Qry_user do
         begin
          Close;
          SQL.Clear;
          SQL.add('select * from users where userID=(:us)');    //查询用户名
          parameters.ParamByName('us').Value:=combobox1.Text;
          open;
      if recordcount < 1 then
         showmessage('用户名不存在！')
         else
        if fieldbyname('password').AsString=edit1.Text then //比较密码
          begin
          UserON.Hide;
          userName:=combobox1.Text;
          form5.loginInfo;
          loginform.close;
          form12.Image5.Visible:=false;
          form12.Image1.Visible:=true;
          form12.SpeedButton1.Visible:=true;
          form12.SpeedButton2.Visible:=true;
          form12.SpeedButton3.Visible:=true;
          form12.SpeedButton4.Visible:=true;
          form12.SpeedButton7.Visible:=true;
          form12.SpeedButton6.Visible:=true;
          edit1.Clear;
        //  form5.Update;
          UserON.close;
          end
           else
          showmessage ('密码或用户名错误！');
          end;
   end;
end;

procedure TUserOn.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//application.Terminate;
end;

procedure TUserOn.FormShow(Sender: TObject);
begin
combobox1.Clear;
with DModule1.Qry_user do
  begin
      Close;
      SQL.Text := 'select * from users';
      Open;
     while not EOF  do
      begin
      ComboBox1.items.add(fieldbyname('userID').Asstring);
      next;
      end;
  end;

form12.Enabled:=false;
end;

procedure TUserOn.FormHide(Sender: TObject);
begin
//form12.Enabled:=true;
end;

procedure TUserOn.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
 button1.SetFocus;
end;

procedure TUserOn.Button2Click(Sender: TObject);
begin
form12.Close;
end;

procedure TUserOn.ComboBox1Change(Sender: TObject);
begin
edit1.SetFocus;
end;

procedure TUserOn.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
key:=#0;
end;

end.