loginpas.pas

EasyGasDpr 瓶装液化气 钢瓶 SQL,用户名：SYSTEM 密码：空

unit Loginpas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, DB, ADODB, EASY_GASMAIN, ComCtrls, INIPAS;

type
  TLoginDlg = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    usernameedit: TEdit;
    Passwordedit: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Image1: TImage;
    USERS: TADODataSet;
    StatusBar1: TStatusBar;
    procedure usernameeditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginDlg: TLoginDlg;

implementation

{$R *.dfm}

procedure TLoginDlg.usernameeditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then Postmessage(TWIncontrol(Sender).Handle,WM_KEYDOWN,VK_TAB,0);
end;

procedure TLoginDlg.FormCreate(Sender: TObject);
begin
  USERNameEDIT.text:=ReadINIStr('本地设置','最后登陆用户','');
end;

procedure TLoginDlg.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  WriteINIStr('本地设置','最后登陆用户',USERNameEDIT.text);
end;

end.