unit1.pas

劳模信息综合管理

unit Unit1;

interface

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

type
  TLoginForm = class(TForm)
    edit_username: TEdit;
    edit_password: TEdit;
    bt_login: TButton;
    bt_exit: TButton;
    ADOQ_user: TADOQuery;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Image2: TImage;
    Bevel1: TBevel;
    procedure bt_exitClick(Sender: TObject);
    procedure bt_loginClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginForm: TLoginForm;
  username ,password :string;
  user_id :Integer;
  user_grade:string;
implementation

uses Unit3, Unit2;


{$R *.dfm}

procedure TLoginForm.bt_exitClick(Sender: TObject);
begin
      LoginForm.Close;


end;

procedure TLoginForm.bt_loginClick(Sender: TObject);
begin
     adoq_user.Close;
     with TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'datalink.ini') do
      try

         datalink.ADOC_datalink.ConnectionString:=ReadString('datalink', 'ConnectionString', '');
         adoq_user.Open;
         adoq_user.Connection:=datalink.ADOC_datalink;
         adoq_user.SQL.Clear;
         adoq_user.SQL.Add('select * from userinfo');
         adoq_user.ExecSQL;
         if adoq_user.RowsAffected=0 then
            showmessage('数据库连接失败')
         finally
           ADOQ_USER.Close;
      end;

     if  (edit_username.Text='')or(edit_password.Text='')then
             begin
              MessageDlg('请填写完整登录信息',mtWarning,[mbok],0);
              ADOQ_USER.Close;
              end
    else
         begin
                 ADOQ_USER.Close;
                  username:=edit_username.Text;
                  password:=edit_password.Text;
                  adoq_user.sql.Clear ;
                  adoq_user.SQL.Add('select*from userinfo where username='''+username+''' and password='''+password+'''');
                  adoq_user.open;
                  if adoq_user.eof then
                      begin
                       showmessage('用户名或者密码错误，请重试！');
                       edit_username.Text:='';
                       edit_password.Text:='';
                       edit_username.SetFocus ;
                      end
                  else
                       begin
                       showmessage('欢迎使用劳模管理系统!!');
                       user_id:=adoq_user.FieldValues['id'];
                       user_grade:=adoq_user.FieldValues['grade'];
                        main.Show;
                        loginform.Visible:=false;
                       end;
           end;
   adoq_user.Close;
end;

end.