syspms.pas

Pos Componet Some Pos Utility

unit SYSPMS;

interface

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

type
  TFMPMS = class(TForm)
    QSYSPMS: TQuery;
    DSSYSPMS: TDataSource;
    USYSPMS: TUpdateSQL;
    QBMAN: TQuery;
    QBMANBNENO: TStringField;
    QBMANBNNAM: TStringField;
    DSBMAN: TDataSource;
    QSYSPMSBNENO: TStringField;
    QSYSPMSPMSFUN: TStringField;
    QSYSPMSPMSNAM: TStringField;
    QSYSPMSPMSPMS: TBooleanField;
    QPMSFUN: TQuery;
    QPMSFUNLSTID1: TStringField;
    QPMSFUNLSTID2: TStringField;
    QPMSFUNLSTNAM: TStringField;
    QPMSFUNLSTMRK: TStringField;
    QSYSPMS_PMSFUN: TStringField;
    QSYSPMS_BNNAM: TStringField;
    Page: TPageControl;
    PAGE_A: TTabSheet;
    PAGE_B: TTabSheet;
    Label1: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    DBGrid1: TDBGrid;
    ToolBar: TToolBar;
    ToolButton1: TToolButton;
    BTNINS: TSpeedButton;
    BTNUPD: TSpeedButton;
    BTNDEL: TSpeedButton;
    BTNYES: TSpeedButton;
    BTNCAL: TSpeedButton;
    BTNSER: TSpeedButton;
    BTNQUT: TSpeedButton;
    PMSPMS: TDBCheckBox;
    PMSFUN: JDBLOOKUPBOX;
    BNENO: JDBLOOKUPBOX;
    DBGRID_BMAN: TDBGrid;
    DBGrid2: TDBGrid;
    QSYSPMSLST: TQuery;
    DSSYSPMSLST: TDataSource;
    GRID_SYSLST: TDBGrid;
    QSYSPMSLSTLSTID1: TStringField;
    QSYSPMSLSTLSTID2: TStringField;
    QSYSPMSLSTLSTNAM: TStringField;
    QSYSPMSLSTLSTMRK: TStringField;
    Label4: TLabel;
    BTNPMS: TBitBtn;
    Label8: TLabel;
    Gauge: TGauge;
    BTNPMSA: TBitBtn;
    BTNPMSD: TBitBtn;
    QALLPMS: TQuery;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    BTNPMSC: TBitBtn;
    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 DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure BTNSERClick(Sender: TObject);
    procedure BNENOKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGRID_BMANCellClick(Column: TColumn);
    procedure PageChange(Sender: TObject);
    procedure BTNPMSClick(Sender: TObject);
    procedure BTNPMSAClick(Sender: TObject);
    procedure BTNPMSDClick(Sender: TObject);
    procedure BTNPMSCClick(Sender: TObject);
  private
    { Private declarations }
    T_BNENO : STRING;

    FORMMODE : STRING;
    procedure BTNMODE;
    procedure INSERTMODE;
    procedure UPDATEMODE;
    procedure NORMALMODE;
  public
    { Public declarations }
  end;

var
  FMPMS: TFMPMS;

implementation

USES SYSINI, UN_UTL, FM_UTL, DB_UTL, MAIND, MAINU, SYSPMSF;

{$R *.DFM}

procedure TFMPMS.BTNMODE;
begin

  //