unbgds.pas

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

unit UNBGDS;

interface

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

type

  TFMBGDS = class(TForm)
    StatusBar: TStatusBar;
    Panel2: TPanel;
    MainMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Panel1: TPanel;
    BTNQUT: TBitBtn;
    BTNCAL: TBitBtn;
    BTNYES: TBitBtn;
    BTNDEL: TBitBtn;
    BTNINS: TBitBtn;
    BTNPRN: TBitBtn;
    BTNSET: TBitBtn;
    GroupBox1: TGroupBox;
    BTNSER: TBitBtn;
    BTNCLR: TBitBtn;
    BTNPRE: TBitBtn;
    N6: TMenuItem;
    MENPRE: TMenuItem;
    MENPRN: TMenuItem;
    LBBGENO: TLabel;
    LBBGNAM: TLabel;
    LBBGKIN: TLabel;
    LBBGPST: TLabel;
    LBBGPVP: TLabel;
    LBBGPMM: TLabel;
    LBBGQTS: TLabel;
    LBBGCOS: TLabel;
    LBBSENO: TLabel;
    LBBGCST: TLabel;
    LBBGOTH: TLabel;
    LBBGCNA: TLabel;
    LBBGSUM: TLabel;
    LBBGCSS: TLabel;
    LBBGQTE: TLabel;
    LBBGRUL: TLabel;
    LBBGGAU: TLabel;
    LBBGUNS: TLabel;
    LBBGUNP: TLabel;
    LBBGCLR: TLabel;
    LBBGCLH: TLabel;
    LBBGCLW: TLabel;
    LBBGUNW: TLabel;
    LBBGUSE: TLabel;
    LBBGDTC: TLabel;
    LBBGDAT: TLabel;
    LBBGMRK: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Image: TImage;
    Label4: TLabel;
    Bevel1: TBevel;
    BGENO: TJDBEdit;
    BGNAM: TJDBEdit;
    BGPST: TJDBEdit;
    BGPVP: TJDBEdit;
    BGPMM: TJDBEdit;
    BGQTS: TJDBEdit;
    BGCOS: TJDBEdit;
    BSENO: JDBLOOKUPBOX;
    BGCST: TJDBEdit;
    BGOTH: TJDBEdit;
    BGCNA: TJDBEdit;
    BGSUM: TJDBEdit;
    BGCSS: TJDBEdit;
    BGQTE: TJDBEdit;
    BTNPTH: TBitBtn;
    BGCLH: TJDBEdit;
    BGCLW: TJDBEdit;
    BGDTC: TJDBEdit;
    BGDAT: TJDBEdit;
    LBBGQTN: TLabel;
    BGQTN: TJDBEdit;
    DBGrid: TDBGrid;
    BGMRK: TDBMemo;
    BGKIN: SEDBLOOKUPBOX;
    BGRUL: SEDBLOOKUPBOX;
    BGGAU: SEDBLOOKUPBOX;
    BGUNS: SEDBLOOKUPBOX;
    BGUNP: SEDBLOOKUPBOX;
    BGUNW: SEDBLOOKUPBOX;
    BGUSE: SEDBLOOKUPBOX;
    BGCLR: SEDBLOOKUPBOX;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label7: TLabel;
    LB11: TJEdit;
    LB21: TJEdit;
    LB31: JLOOKUPBOX;
    LB41: JLOOKUPBOX;
    Label8: TLabel;
    LB51: TJEdit;
    Label9: TLabel;
    LB61: TJEdit;
    LB71: TJEdit;
    CB1: TRadioGroup;
    Label10: TLabel;
    OpenDialog1: TOpenPictureDialog;
    BTNSER1: TBitBtn;
    BTNSER2: TBitBtn;
    BTNSER3: TBitBtn;
    BTNLABEL: TBitBtn;
    BGSIN: TJDBEdit;
    Label11: TLabel;
    BTNBGSIN: TBitBtn;
    LB_MAX: TLabel;
    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 BTNPTHClick(Sender: TObject);
    procedure BGENOChange(Sender: TObject);
    procedure BTNSER2Click(Sender: TObject);
    procedure BTNLABELClick(Sender: TObject);
    procedure BTNBGSINClick(Sender: TObject);
    procedure BTNSETClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    FORMMODE : STRING;
    procedure BTNMODE;
    procedure INSERTMODE;
    procedure UPDATEMODE;
    procedure NORMALMODE;
  end;


var
  FMBGDS: TFMBGDS;

implementation

uses SYSINI, FM_UTL, DB_UTL, MAIND, MAINU,
     URCLEVER,
     
     UNBGDSD, UNREP1;
     
{$R *.DFM}



procedure TFMBGDS.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;

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

procedure TFMBGDS.INSERTMODE;
begin
  FORMMODE := 'INS';
  BTNMODE;
  BGENO.SetFocus;
end;

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

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

procedure TFMBGDS.FormCreate(Sender: TObject);
begin
  IF FormExists('FMBGDSD')=FALSE THEN Application.CreateForm(TFMBGDSD, FMBGDSD );
  
  //按钮图形加载
  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;
  
  FMBGDSD.QBGDS.SQL.CLEAR;
  FMBGDSD.QBGDS.SQL.ADD('SELECT * FROM BGDS ');

  FMBGDSD.UBGDS.InsertSQL.CLEAR;
  FMBGDSD.UBGDS.InsertSQL.Add('INSERT INTO BGDS ');
  FMBGDSD.UBGDS.InsertSQL.Add(' ( BGENO, BGNAM, BGKIN, BGPST, BGPMM, BGPVP, BGCST, BGOTH, BGQTS, BGQTN, BGCOS, BSENO, ');
  FMBGDSD.UBGDS.InsertSQL.Add('   BGCNA, BGSUM, BGSIN, BGRUL, BGGAU, BGUNS, BGUNP, BGCLR, BGCLH, BGCLW, BGUNW, BGUSE, ');
  FMBGDSD.UBGDS.InsertSQL.Add('   BGCSS, BGQTE, BGDTC, BGDAT, BGMRK  )');
  FMBGDSD.UBGDS.InsertSQL.Add('VALUES ');
  FMBGDSD.UBGDS.InsertSQL.Add(' (:BGENO,:BGNAM,:BGKIN,:BGPST,:BGPMM,:BGPVP,:BGCST,:BGOTH,:BGQTS,:BGQTN,:BGCOS,:BSENO, ');
  FMBGDSD.UBGDS.InsertSQL.Add('  :BGCNA,:BGSUM,:BGSIN,:BGRUL,:BGGAU,:BGUNS,:BGUNP,:BGCLR,:BGCLH,:BGCLW,:BGUNW,:BGUSE, ');
  FMBGDSD.UBGDS.InsertSQL.Add('  :BGCSS,:BGQTE,:BGDTC,:BGDAT,:BGMRK  )');

  FMBGDSD.UBGDS.ModifySQL.CLEAR;
  FMBGDSD.UBGDS.ModifySQL.Add('UPDATE BGDS ');
  FMBGDSD.UBGDS.ModifySQL.Add('SET ');
  FMBGDSD.UBGDS.ModifySQL.Add('BGENO = :BGENO ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGNAM = :BGNAM ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGKIN = :BGKIN ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGPST = :BGPST ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGPMM = :BGPMM ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGPVP = :BGPVP ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGCST = :BGCST ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGOTH = :BGOTH ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGQTS = :BGQTS ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGQTN = :BGQTN ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGCOS = :BGCOS ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BSENO = :BSENO ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGCNA = :BGCNA ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGSUM = :BGSUM ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGSIN = :BGSIN ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGRUL = :BGRUL ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGGAU = :BGGAU ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGUNS = :BGUNS ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGUNP = :BGUNP ,');