logindlg.pas

Monitor.dfm Meter.dpr pasMain.pas

unit Logindlg;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, ExtCtrls;

type
  TFormdlg = class(TForm)
    ComboBoxUserName: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    EditPassword: TEdit;
    Image1: TImage;
    Label3: TLabel;
    Image2: TImage;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure EditPasswordKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formdlg: TFormdlg;
  szUser : string;
  szCom : Pchar;
  bAutoDate : Boolean;
  szCurrDate : string;

implementation

uses dm,pasmain, Info, ReadData;

{$R *.DFM}

procedure TFormdlg.Button2Click(Sender: TObject);
begin
  Close;
  Application.Terminate ;
end;

procedure TFormdlg.FormCreate(Sender: TObject);
begin
  with dm1.TableOperator do
    begin
      Active := True;
      First;
      while not Eof do
        begin
          ComboBoxUserName.Items.Add(FieldByName('account').AsString);
          Next;
        end;
      Active := False;
    end;
  //EditDate.Text := FormatDateTime('yyyymmdd', now);
  bAutoDate := False;
end;

procedure TFormdlg.Button1Click(Sender: TObject);
var
  bPasswordOK : Boolean;
begin
  bPasswordOK := False;
  with dm1.TableOperator do
    begin
      Active := True;
      First;
      while not Eof do
        begin
          if((FieldByName('account').AsString = ComboBoxUserName.Text) and
             (FieldByName('Password').AsString = EditPassword.Text)) then
            begin
              bPasswordOK := True;
              if (fieldbyname('security')).asstring='5' then
              begin
                        frmmain.SetupParam.Enabled:=true;
                        frmmain.Setup_T.Enabled:=true;
                        frmmain.poweronandoff1.Enabled:=true;
                        frmmain.poweronandoff2.Enabled:=true;
                        frmmain.password.Enabled:=true;

                        frminfo.speedbutton3.enabled:=true;
                        frminfo.speedbutton4.enabled:=true;
                        frminfo.speedbutton1.enabled:=true;
                        frminfo.speedbutton2.enabled:=true;
                        frminfo.btnaddts.enabled:=true;
                        frmread.btnappend.enabled:=true;
                        frmread.btndelete.enabled:=true;
                        frmread.speedbutton2.enabled:=true;
              end;
              break;
            end;
          Next;
        end;
      Active := False;
    end;
{
  if(bPasswordOK and (Length(EditDate.Text) = 8)) then
    begin
      szUserName := ComboBoxUserName.Text;
      szCurrDate := EditDate.Text;
      if szCurrDate = EditDate.Text then bAutoDate := True;
      FormDlg.Visible := False;
      FormPayGuard.Show;
    end
}
  if(bPasswordOK) then
    begin
      szUser := ComboBoxUserName.Text;
      FormDlg.Visible := False;
      close
      //Frmmain.Visible :=true;
      //frmmain.Show;
    end
  else
    begin
      EditPassword.Text := '';
      EditPassword.Setfocus;
    end;
end;

procedure TFormdlg.EditPasswordKeyPress(Sender: TObject; var Key: Char);
begin
        If Key = chr(27) Then  Formdlg.Button2Click(Sender);

        If Key = chr(13) Then  Formdlg.Button1Click(Sender);
end;

end.