unbmanm.pas

DELPHI编写的商场收银POS机源代码

unit UNBMANM;

interface

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

type
  TFMBMANM = class(TForm)
    BTNQUT: TBitBtn;
    BTNCAL: TBitBtn;
    Panel1: TPanel;
    BNENO: TLabel;
    GroupBox1: TGroupBox;
    ED_BMAN_OPEN: TCheckBox;
    ED_BMAN_INS: TCheckBox;
    ED_BMAN_UPD: TCheckBox;
    ED_BMAN_DEL: TCheckBox;
    ED_BMAN_SEA: TCheckBox;
    ED_BMAN_PRN: TCheckBox;
    GroupBox2: TGroupBox;
    ED_BMEM_OPEN: TCheckBox;
    ED_BMEM_INS: TCheckBox;
    ED_BMEM_UPD: TCheckBox;
    ED_BMEM_DEL: TCheckBox;
    ED_BMEM_SEA: TCheckBox;
    ED_BMEM_PRN: TCheckBox;
    GroupBox3: TGroupBox;
    ED_BGDS_OPEN: TCheckBox;
    ED_BGDS_INS: TCheckBox;
    ED_BGDS_UPD: TCheckBox;
    ED_BGDS_DEL: TCheckBox;
    ED_BGDS_SEA: TCheckBox;
    ED_BGDS_PRN: TCheckBox;
    GroupBox4: TGroupBox;
    ED_BSUP_OPEN: TCheckBox;
    ED_BSUP_INS: TCheckBox;
    ED_BSUP_UPD: TCheckBox;
    ED_BSUP_DEL: TCheckBox;
    ED_BSUP_SEA: TCheckBox;
    ED_BSUP_PRN: TCheckBox;
    GroupBox5: TGroupBox;
    ED_BCST_OPEN: TCheckBox;
    ED_BCST_INS: TCheckBox;
    ED_BCST_UPD: TCheckBox;
    ED_BCST_DEL: TCheckBox;
    ED_BCST_SEA: TCheckBox;
    ED_BCST_PRN: TCheckBox;
    BNNAM: TLabel;
    GroupBox6: TGroupBox;
    ED_SYS_POS: TCheckBox;
    ED_SYS_POSA: TCheckBox;
    ED_SET_MAINS: TCheckBox;
    ED_SET_HARD: TCheckBox;
    ED_SET_PMS: TCheckBox;
    ED_SET_PASSWD: TCheckBox;
    GroupBox7: TGroupBox;
    ED_POSM_OPEN: TCheckBox;
    ED_POSM_INS: TCheckBox;
    ED_POSM_UPD: TCheckBox;
    ED_POSM_DEL: TCheckBox;
    ED_POSM_SEA: TCheckBox;
    ED_POSM_PRN: TCheckBox;
    GroupBox8: TGroupBox;
    ED_POSN_OPEN: TCheckBox;
    ED_POSN_INS: TCheckBox;
    ED_POSN_UPD: TCheckBox;
    ED_POSN_DEL: TCheckBox;
    ED_POSN_SEA: TCheckBox;
    ED_POSN_PRN: TCheckBox;
    GroupBox9: TGroupBox;
    ED_RCIN_OPEN: TCheckBox;
    ED_RCIN_INS: TCheckBox;
    ED_RCIN_UPD: TCheckBox;
    ED_RCIN_DEL: TCheckBox;
    ED_RCIN_SEA: TCheckBox;
    ED_RCIN_PRN: TCheckBox;
    GroupBox10: TGroupBox;
    ED_RCJN_OPEN: TCheckBox;
    ED_RCJN_INS: TCheckBox;
    ED_RCJN_UPD: TCheckBox;
    ED_RCJN_DEL: TCheckBox;
    ED_RCJN_SEA: TCheckBox;
    ED_RCJN_PRN: TCheckBox;
    GroupBox11: TGroupBox;
    ED_RPT_POSD: TCheckBox;
    ED_RPT_POS1: TCheckBox;
    ED_RPT_POS2: TCheckBox;
    ED_RPT_POS3: TCheckBox;
    ED_RPT_POS5: TCheckBox;
    ED_RPT_POS6: TCheckBox;
    ED_RPT_POS7: TCheckBox;
    ED_RPT_TOP1: TCheckBox;
    ED_RPT_TOP2: TCheckBox;
    ED_RPT_TOP3: TCheckBox;
    ED_RPT_POS667: TCheckBox;
    ED_RPT_LOG: TCheckBox;
    GroupBox12: TGroupBox;
    ED_IVTX_OPEN: TCheckBox;
    ED_SET_LABEL: TCheckBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BTNQUTClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BTNCALClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
    PROCEDURE CHECK_ALL(CHECKED:BOOLEAN);
  public
    { Public declarations }
    PMS_BNENO : STRING;
    PMS_BNNAM : STRING;
    PROCEDURE LOAD_BMAN_PMS;
  end;






var
  FMBMANM: TFMBMANM;

implementation

USES UN_UTL, MAINU;

{$R *.DFM}

PROCEDURE TFMBMANM.CHECK_ALL(CHECKED:BOOLEAN);
BEGIN
  ED_SYS_POS   .Checked := CHECKED;
  ED_SYS_POSA  .Checked := CHECKED;
  ED_SET_MAINS .Checked := CHECKED;
  ED_SET_PMS   .Checked := CHECKED;
  ED_SET_PASSWD.Checked := CHECKED;
  ED_SET_HARD  .Checked := CHECKED;
  ED_SET_LABEL .Checked := CHECKED;

  ED_BMAN_OPEN .Checked := CHECKED;
  ED_BMAN_INS  .Checked := CHECKED;
  ED_BMAN_UPD  .Checked := CHECKED;
  ED_BMAN_DEL  .Checked := CHECKED;
  ED_BMAN_SEA  .Checked := CHECKED;
  ED_BMAN_PRN  .Checked := CHECKED;
  
  ED_BMEM_OPEN .Checked := CHECKED;
  ED_BMEM_INS  .Checked := CHECKED;
  ED_BMEM_UPD  .Checked := CHECKED;
  ED_BMEM_DEL  .Checked := CHECKED;
  ED_BMEM_SEA  .Checked := CHECKED;
  ED_BMEM_PRN  .Checked := CHECKED;
  
  ED_BGDS_OPEN .Checked := CHECKED;
  ED_BGDS_INS  .Checked := CHECKED;
  ED_BGDS_UPD  .Checked := CHECKED;
  ED_BGDS_DEL  .Checked := CHECKED;
  ED_BGDS_SEA  .Checked := CHECKED;
  ED_BGDS_PRN  .Checked := CHECKED;
  
  ED_POSM_OPEN .Checked := CHECKED;
  ED_POSM_INS  .Checked := CHECKED;
  ED_POSM_UPD  .Checked := CHECKED;
  ED_POSM_DEL  .Checked := CHECKED;
  ED_POSM_SEA  .Checked := CHECKED;
  ED_POSM_PRN  .Checked := CHECKED;
  
  ED_POSN_OPEN .Checked := CHECKED;
  ED_POSN_INS  .Checked := CHECKED;
  ED_POSN_UPD  .Checked := CHECKED;
  ED_POSN_DEL  .Checked := CHECKED;
  ED_POSN_SEA  .Checked := CHECKED;
  ED_POSN_PRN  .Checked := CHECKED;

  ED_BSUP_OPEN .Checked := CHECKED;
  ED_BSUP_INS  .Checked := CHECKED;
  ED_BSUP_UPD  .Checked := CHECKED;
  ED_BSUP_DEL  .Checked := CHECKED;
  ED_BSUP_SEA  .Checked := CHECKED;
  ED_BSUP_PRN  .Checked := CHECKED;
  
  ED_BCST_OPEN .Checked := CHECKED;
  ED_BCST_INS  .Checked := CHECKED;
  ED_BCST_UPD  .Checked := CHECKED;
  ED_BCST_DEL  .Checked := CHECKED;
  ED_BCST_SEA  .Checked := CHECKED;
  ED_BCST_PRN  .Checked := CHECKED;
  
  ED_RCIN_OPEN .Checked := CHECKED;
  ED_RCIN_INS  .Checked := CHECKED;
  ED_RCIN_UPD  .Checked := CHECKED;
  ED_RCIN_DEL  .Checked := CHECKED;
  ED_RCIN_SEA  .Checked := CHECKED;
  ED_RCIN_PRN  .Checked := CHECKED;
  
  ED_RCJN_OPEN .Checked := CHECKED;
  ED_RCJN_INS  .Checked := CHECKED;
  ED_RCJN_UPD  .Checked := CHECKED;
  ED_RCJN_DEL  .Checked := CHECKED;
  ED_RCJN_SEA  .Checked := CHECKED;
  ED_RCJN_PRN  .Checked := CHECKED;
  
  ED_RPT_POSD  .Checked := CHECKED;
  ED_RPT_POS1  .Checked := CHECKED;
  ED_RPT_POS2  .Checked := CHECKED;
  ED_RPT_POS3  .Checked := CHECKED;
  ED_RPT_POS5  .Checked := CHECKED;