syspsw.pas

Pos Componet Some Pos Utility

unit SYSPSW;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBTables, Db, DBCtrls, StdCtrls, Buttons, ComCtrls, ToolWin, Mask, Grids,
  DBGrids, JLOOKUPD, JEdit;

type
  TFMPSW = class(TForm)
    QSYSPSW: TQuery;
    DSSYSPSW: TDataSource;
    DBGrid1: TDBGrid;
    QSYSPSWBNENO: TStringField;
    QSYSPSWPSWPSW: TStringField;
    QSYSPSWPSWPSM: TDateTimeField;
    QSYSPSWPSWLOG: TDateTimeField;
    QSYSPSWPSWPSW2: TStringField;
    ToolBar: TToolBar;
    ToolButton1: TToolButton;
    BTNINS: TSpeedButton;
    BTNUPD: TSpeedButton;
    BTNDEL: TSpeedButton;
    BTNYES: TSpeedButton;
    BTNCAL: TSpeedButton;
    BTNQUT: TSpeedButton;
    USYSPSW: TUpdateSQL;
    PSWPSW: TEdit;
    QBMAN: TQuery;
    QBMANBNENO: TStringField;
    QBMANBNNAM: TStringField;
    QSYSPSWBNNAM: TStringField;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DSBMAN: TDataSource;
    BNENO: JDBLOOKUPBOX;
    PSWPSM: TJDBEdit;
    PSWLOG: TJDBEdit;
    Label5: TLabel;
    PSWLOM: TJDBEdit;
    QSYSPSWPSWLOM: TStringField;
    procedure QSYSPSWCalcFields(DataSet: TDataSet);
    procedure FormActivate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BTNINSClick(Sender: TObject);
    procedure BTNUPDClick(Sender: TObject);
    procedure BTNDELClick(Sender: TObject);
    procedure BTNYESClick(Sender: TObject);
    procedure BTNCALClick(Sender: TObject);
    procedure BTNQUTClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure DSSYSPSWDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
    FORMMODE : STRING;
    procedure BTNMODE;
    procedure INSERTMODE;
    procedure UPDATEMODE;
    procedure NORMALMODE;
  public
    { Public declarations }
  end;

var
  FMPSW: TFMPSW;

implementation

USES SYSINI, UN_UTL, FM_UTL, DB_UTL, MAIND;

{$R *.DFM}

procedure TFMPSW.BTNMODE;
begin

  //