syslog.pas

Pos Componet Some Pos Utility

unit SYSLOG;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Buttons, JLOOKUP, Menus;

type
  TFMLOG = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    BTNLOGON: TBitBtn;
    QBMAN: TQuery;
    QBMANBNENO: TStringField;
    QBMANBNNAM: TStringField;
    DSBMAN: TDataSource;
    QSYSPSW: TQuery;
    QSYSPSWBNENO: TStringField;
    QSYSPSWPSWPSW: TStringField;
    QSYSPSWPSWPSM: TDateTimeField;
    QSYSPSWPSWLOG: TDateTimeField;
    QSYSPSWPSWPSW2: TStringField;
    QSYSPSWBNNAM: TStringField;
    DSSYSPSW: TDataSource;
    PSWPSW: TEdit;
    SUPERLOGIN: TLabel;
    BNENO: JLOOKUPBOX;
    QSYSPSW_UPDATE: TQuery;
    MainMenu1: TMainMenu;
    SUPERLOGIN1: TMenuItem;
    WINDOWS1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BTNLOGONClick(Sender: TObject);
    procedure BNENOKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure PSWPSWKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SUPERLOGINDblClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
    LOGIN_CNT : INTEGER;
    PROCEDURE QSYSPSW_UPD;
  public
    { Public declarations }
    LOGIN_NAME: STRING;
  end;

var
  FMLOG: TFMLOG;

implementation

USES SYSINI, UN_UTL, main;

{$R *.DFM}






procedure TFMLOG.FormCreate(Sender: TObject);
begin
LOGIN_CNT  := 0;
LOGIN_NAME := '';

     QSYSPSW.SQL.CLEAR;
     QSYSPSW.SQL.ADD('SELECT *  ');
     QSYSPSW.SQL.ADD('FROM SYSPSW ');
     QSYSPSW.SQL.ADD('ORDER BY BNENO ');
                                  
     QSYSPSW.CLOSE;
     QSYSPSW.OPEN;

     QBMAN.CLOSE;
     QBMAN.OPEN;

end;

procedure TFMLOG.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FMLOG.RELEASE;
end;

procedure TFMLOG.BTNLOGONClick(Sender: TObject);
var T_STR : STRING;
begin
INC(LOGIN_CNT);

// ADMIN PASSWD =========================================
T_STR := VARTOSTR(QSYSPSW.Lookup('BNENO','admin','PSWPSW'));
T_STR := copy( T_STR , 2, LENGTH(T_STR)-2);
T_STR := Decrypt(T_STR,1357,2,1);
if ( PSWPSW.Text = T_STR ) AND (BNENO.Text = '') then
   begin
   _SUPER_USER := TRUE;
   _USER_ID := 'admin';//_SUPER_USER_ID;
   _USER_NAME := '╰参恨瞶