unbman.pas

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

unit UNBMAN;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, Grids, DBGrids, StdCtrls, DBCtrls, SELOOKUPD, JLOOKUPD, Mask,
  JEdit, ExtCtrls, ComCtrls, Buttons;

type

  TFMBMAN = class(TForm)
    StatusBar: TStatusBar;
    Panel2: TPanel;
    MainMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    MENPRE: TMenuItem;
    MENPRN: TMenuItem;
    Panel1: TPanel;
    BTNQUT: TBitBtn;
    BTNCAL: TBitBtn;
    BTNYES: TBitBtn;
    BTNDEL: TBitBtn;
    BTNINS: TBitBtn;
    BTNPRN: TBitBtn;
    BTNSET: TBitBtn;
    GroupBox1: TGroupBox;
    LB1: TLabel;
    LB2: TLabel;
    LB3: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label1: TLabel;
    LB11: TJEdit;
    LB31: TJEdit;
    LB12: TJEdit;
    LB32: TJEdit;
    LB21: TJEdit;
    LB22: TJEdit;
    BTNSER: TBitBtn;
    BTNCLR: TBitBtn;
    BTNPRE: TBitBtn;
    N6: TMenuItem;
    Page: TPageControl;
    PAGE_A: TTabSheet;
    LBBNCNA: TLabel;
    LBBNBTH: TLabel;
    LBBNCTY: TLabel;
    LBBNROT: TLabel;
    LBBNIDN: TLabel;
    LBBNPAS: TLabel;
    LBBNLIV: TLabel;
    LBBNSEX: TLabel;
    LBBNBLD: TLabel;
    LBBNSCS: TLabel;
    LBBNSDP: TLabel;
    LBBNCPL: TLabel;
    LBBNSCH: TLabel;
    LBBNHIS: TLabel;
    LBBNCMN: TLabel;
    LBBNREL: TLabel;
    LBBNTL1: TLabel;
    LBBNTL2: TLabel;
    LBBNTL3: TLabel;
    LBBNAD1: TLabel;
    LBBNVIC: TLabel;
    LBBNVIN: TLabel;
    LBBNAD2: TLabel;
    LBBNZP2: TLabel;
    LBBNZP1: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    LBBNENO: TLabel;
    LBBNNAM: TLabel;
    BNCNA: TJDBEdit;
    BNBTH: TJDBEdit;
    BNROT: TJDBEdit;
    BNIDN: TJDBEdit;
    BNPAS: TJDBEdit;
    BNLIV: TJDBEdit;
    BNSCH: TJDBEdit;
    BNHIS: TJDBEdit;
    BNSCS: JDBLOOKUPBOX;
    BNCMN: TJDBEdit;
    BNREL: TJDBEdit;
    BNTL1: TJDBEdit;
    BNTL3: TJDBEdit;
    BNAD1: TJDBEdit;
    BNVIN: TJDBEdit;
    BNAD2: TJDBEdit;
    BNTL2: TJDBEdit;
    BNZP2: TJDBEdit;
    BNZP1: TJDBEdit;
    BNENO: TJDBEdit;
    BNNAM: TJDBEdit;
    TabSheet6: TTabSheet;
    LBBNSEC: TLabel;
    LBBNCLS: TLabel;
    LBBNDPO: TLabel;
    LBBNDPT: TLabel;
    LBBNLLC: TLabel;
    LBBNSVR: TLabel;
    LBBNNUM: TLabel;
    LBBNLCC: TLabel;
    LBBNEPC: TLabel;
    LBBNTIT: TLabel;
    LBBNGRC: TLabel;
    LBBNC02: TLabel;
    LBBNFDY: TLabel;
    LBBNEDY: TLabel;
    LBBNHPS: TLabel;
    LBBNHPF: TLabel;
    LBBNHPV: TLabel;
    LBBNSPL: TLabel;
    LBBNSPN: TLabel;
    LBBNC03: TLabel;
    LBBNCHM: TLabel;
    LBBNLV2: TLabel;
    LBBNLV1: TLabel;
    LBBNTB1: TLabel;
    LBBNTB2: TLabel;
    LBBNIF1: TLabel;
    LBBNIF2: TLabel;
    LBBNHI1: TLabel;
    LBBNHI2: TLabel;
    LBBNISM: TLabel;
    LBBNHIM: TLabel;
    LBBNBNS: TLabel;
    LBBNBNO: TLabel;
    LBBNHIN: TLabel;
    LBBNHIX: TLabel;
    LBBNTBX: TLabel;
    LBBNSPP: TLabel;
    BNDPO: TJDBEdit;
    BNDPT: TJDBEdit;
    BNSVR: TJDBEdit;
    BNNUM: TJDBEdit;
    BNC02: TJDBEdit;
    BNFDY: TJDBEdit;
    BNEDY: TJDBEdit;
    BNHPS: TJDBEdit;
    BNHPF: TJDBEdit;
    BNHPV: TJDBEdit;
    BNSPL: TJDBEdit;
    BNSPN: TJDBEdit;
    BNC03: TJDBEdit;
    BNCHM: TJDBEdit;
    BNHBS: TDBCheckBox;
    BNLV2: TJDBEdit;
    BNLV1: TJDBEdit;
    BNTB1: TJDBEdit;
    BNTB2: TJDBEdit;
    BNIF1: TJDBEdit;
    BNIF2: TJDBEdit;
    BNHI1: TJDBEdit;
    BNHI2: TJDBEdit;
    BNISM: TJDBEdit;
    BNHIM: TJDBEdit;
    BNBNO: TJDBEdit;
    BNHIN: TJDBEdit;
    BNSPP: TJDBEdit;
    DBGrid: TDBGrid;
    BNSEX: SEDBLOOKUPBOX;
    BNBLD: SEDBLOOKUPBOX;
    BNCPL: SEDBLOOKUPBOX;
    BNCTY: SEDBLOOKUPBOX;
    BNSDP: SEDBLOOKUPBOX;
    BNVIC: SEDBLOOKUPBOX;
    BNBNS: SEDBLOOKUPBOX;
    BNCLS: SEDBLOOKUPBOX;
    BNLLC: SEDBLOOKUPBOX;
    BNEPC: SEDBLOOKUPBOX;
    BNTIT: SEDBLOOKUPBOX;
    BNLCC: SEDBLOOKUPBOX;
    BNSEC: SEDBLOOKUPBOX;
    BNGRC: SEDBLOOKUPBOX;
    BNHIX: SEDBLOOKUPBOX;
    BNTBX: SEDBLOOKUPBOX;
    Bevel3: TBevel;
    Bevel4: TBevel;
    LBBNPWD: TLabel;
    BNPWD: TEdit;
    BTNPMS: TBitBtn;
    N7: TMenuItem;
    LB_MAX: TLabel;
    BTNMSG: TBitBtn;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure BTNQUTClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BTNINSClick(Sender: TObject);
    procedure BTNDELClick(Sender: TObject);
    procedure BTNYESClick(Sender: TObject);
    procedure BTNCALClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BTNPRNClick(Sender: TObject);
    procedure BTNSERClick(Sender: TObject);
    procedure BTNCLRClick(Sender: TObject);
    procedure BNPWDKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BTNPMSClick(Sender: TObject);
    procedure BTNSETClick(Sender: TObject);
    procedure BTNMSGClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    FORMMODE : STRING;
    procedure BTNMODE;
    procedure INSERTMODE;
    procedure UPDATEMODE;
    procedure NORMALMODE;
  end;


var
  FMBMAN: TFMBMAN;

implementation

uses SYSINI, UN_UTL, FM_UTL, DB_UTL, MAIND, MAINU,
     UNBMAND, UNBMANM, UNBMANG, UNREP1;
                                         
{$R *.DFM}

procedure TFMBMAN.BTNMODE;
begin
  //一般模式
  DBGrid.Enabled := FALSE;
  BTNINS.Enabled := FALSE;
  BTNDEL.Enabled := FALSE;
  BTNYES.Enabled := FALSE;
  BTNCAL.Enabled := FALSE;
  BTNSER.Enabled := FALSE;
  BTNCLR.Enabled := FALSE;
  BTNPRE.Enabled := FALSE;
  BTNPRN.Enabled := FALSE;
  BTNSET.Enabled := FALSE;
  BTNQUT.Enabled := FALSE;
  //新增修改模式
  if (FORMMODE = 'INS' ) or (FORMMODE = 'UPD' ) then
     BEGIN
     DBGrid.Enabled := FALSE;
     BTNINS.Enabled := FALSE;
     BTNDEL.Enabled := FALSE;
     BTNYES.Enabled := TRUE;
     BTNCAL.Enabled := TRUE;
     BTNSER.Enabled := FALSE;
     BTNCLR.Enabled := FALSE;
     BTNPRE.Enabled := FALSE;
     BTNPRN.Enabled := FALSE;
     BTNSET.Enabled := FALSE;
     BTNQUT.Enabled := FALSE;
     END;
  //一般模式
  if (FORMMODE = 'CAN' ) then
     BEGIN
     DBGrid.Enabled := TRUE;
     BTNINS.Enabled := TRUE;
     BTNDEL.Enabled := TRUE;
     BTNYES.Enabled := FALSE;
     BTNCAL.Enabled := FALSE;
     BTNSER.Enabled := TRUE;
     BTNCLR.Enabled := TRUE;
     BTNPRE.Enabled := TRUE;
     BTNPRN.Enabled := TRUE;
     BTNSET.Enabled := TRUE;
     BTNQUT.Enabled := TRUE;
     END;

  {新增才可改编号}         BNENO.Enabled := FALSE;
  IF FORMMODE = 'INS' THEN BNENO.Enabled := TRUE;
end;

procedure TFMBMAN.INSERTMODE;
begin
  FORMMODE := 'INS';
  BTNMODE;
  PAGE_A.Show;
  BNENO.SetFocus;
end;

procedure TFMBMAN.UPDATEMODE;
begin
  FORMMODE := 'UPD';
  BTNMODE;
end;

procedure TFMBMAN.NORMALMODE;
begin
  FORMMODE := 'CAN';
  BTNMODE;
  DBGRID.SetFocus;
end;

procedure TFMBMAN.FormCreate(Sender: TObject);
begin
  IF FormExists('FMBMAND')=FALSE THEN Application.CreateForm(TFMBMAND, FMBMAND );
  
  //按钮图形加载
  BTNINS.Glyph := INS_TB;
  BTNDEL.Glyph := DEL_TB;
  BTNYES.Glyph := YES_TB;
  BTNCAL.Glyph := CAL_TB;
  BTNSER.Glyph := SER_TB;
  BTNCLR.Glyph := CLR_TB;
  BTNPRE.Glyph := PRE_TB;
  BTNPRN.Glyph := PRN_TB;
  BTNSET.Glyph := SET_TB;
  BTNQUT.Glyph := QUT_TB;
  

  FMBMAND.UBMAN.InsertSQL.CLEAR;
  FMBMAND.UBMAN.InsertSQL.Add('INSERT INTO BMAN ');
  FMBMAND.UBMAN.InsertSQL.Add(' ( BNENO, BNNAM, BNPWD, BNCNA, BNBTH, BNCTY, BNROT, BNIDN, BNPAS, BNLIV, BNSEX, BNBLD, BNSCS, BNSDP, BNCPL, BNSPP, BNSCH, BNHIS, BNCMN, BNREL, BNTL1, BNTL2, BNTL3, BNAD1, BNAD2, BNVIC, BNVIN, BNSEC, BNCLS, BNDPO, BNDPT, BNLLC, ');
  FMBMAND.UBMAN.InsertSQL.Add('   BNSVR, BNNUM, BNLCC, BNEPC, BNTIT, BNGRC, BNBNS, BNBNO, BNC02, BNC03, BNFDY, BNEDY, BNHPS, BNHPF, BNCHM, BNHPV, BNSPL, BNSPN, BNLV1, BNLV2, BNTB1, BNTB2, BNIF1, BNIF2, BNHI1, BNHI2, BNHIX, BNTBX, BNISM, BNHIM, BNHIN, BNHBS, BNZP2, BNZP1 ) ');
  FMBMAND.UBMAN.InsertSQL.Add('   VALUES ');
  FMBMAND.UBMAN.InsertSQL.Add(' (:BNENO,:BNNAM,:BNPWD,:BNCNA,:BNBTH,:BNCTY,:BNROT,:BNIDN,:BNPAS,:BNLIV,:BNSEX,:BNBLD,:BNSCS,:BNSDP,:BNCPL,:BNSPP,:BNSCH,:BNHIS,:BNCMN,:BNREL,:BNTL1,:BNTL2,:BNTL3,:BNAD1,:BNAD2,:BNVIC,:BNVIN,:BNSEC,:BNCLS,:BNDPO,:BNDPT,:BNLLC, ');
  FMBMAND.UBMAN.InsertSQL.Add('  :BNSVR,:BNNUM,:BNLCC,:BNEPC,:BNTIT,:BNGRC,:BNBNS,:BNBNO,:BNC02,:BNC03,:BNFDY,:BNEDY,:BNHPS,:BNHPF,:BNCHM,:BNHPV,:BNSPL,:BNSPN,:BNLV1,:BNLV2,:BNTB1,:BNTB2,:BNIF1,:BNIF2,:BNHI1,:BNHI2,:BNHIX,:BNTBX,:BNISM,:BNHIM,:BNHIN,:BNHBS,:BNZP2,:BNZP1 ) ');