unbgdss.pas

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

unit UNBGDSS;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FlEdit, Buttons, ComCtrls, ToolWin;

type
  TFMBGDSS = class(TForm)
    GroupBox1: TGroupBox;
    LB_CON1: TLabel;
    ToolBar: TToolBar;
    ToolButton1: TToolButton;
    BTNUPD: TSpeedButton;
    BTNQUT: TSpeedButton;
    ToolButton2: TToolButton;
    ED_1: TComboBox;
    Label1: TLabel;
    ED_2: TComboBox;
    ED_3: TCheckBox;
    GroupBox2: TGroupBox;
    LCBGENO: TLabel;
    LCBGNAM: TLabel;
    LCBGKIN: TLabel;
    LCBGPST: TLabel;
    LCBGPVP: TLabel;
    LCBGPMM: TLabel;
    LCBGQTS: TLabel;
    LCBGCOS: TLabel;
    LCBSENO: TLabel;
    LCBGID1: TLabel;
    LCBGCNA: TLabel;
    LCBGSNA: TLabel;
    LCBGSCN: TLabel;
    LCBGSUM: TLabel;
    LCBGCSF: TLabel;
    LCBGCSN: TLabel;
    LCBGCSS: TLabel;
    LCBGCSI: TLabel;
    LCBGQTE: TLabel;
    LCBGRUL: TLabel;
    LCBGGAU: TLabel;
    LCBGUNS: TLabel;
    LCBGUNP: TLabel;
    LCBGCLR: TLabel;
    LCBGCLH: TLabel;
    LCBGCLW: TLabel;
    LCBGUNW: TLabel;
    LCBGUSE: TLabel;
    LCBGMRK: TLabel;
    LDBGENO: TEdit;
    LDBGNAM: TEdit;
    LDBGKIN: TEdit;
    LDBGPST: TEdit;
    LDBGPVP: TEdit;
    LDBGPMM: TEdit;
    LDBGQTS: TEdit;
    LDBGCOS: TEdit;
    LDBSENO: TEdit;
    LDBGID1: TEdit;
    LDBGCNA: TEdit;
    LDBGSNA: TEdit;
    LDBGSCN: TEdit;
    LDBGSUM: TEdit;
    LDBGCSF: TEdit;
    LDBGCSN: TEdit;
    LDBGCSS: TEdit;
    LDBGCSI: TEdit;
    LDBGQTE: TEdit;
    LDBGRUL: TEdit;
    LDBGGAU: TEdit;
    LDBGUNS: TEdit;
    LDBGUNP: TEdit;
    LDBGCLR: TEdit;
    LDBGCLH: TEdit;
    LDBGCLW: TEdit;
    LDBGUNW: TEdit;
    LDBGUSE: TEdit;
    LDBGMRK: TEdit;
    GroupBox3: TGroupBox;
    Label9: TLabel;
    Label4: TLabel;
    ED_BGPMMD: TFloatEdit;
    ED_BGPVPD: TFloatEdit;
    GroupBox4: TGroupBox;
    LBBGENO: TCheckBox;
    LBBGNAM: TCheckBox;
    LBBGKIN: TCheckBox;
    LBBGPST: TCheckBox;
    LBBGPVP: TCheckBox;
    LBBGPMM: TCheckBox;
    LBBGQTS: TCheckBox;
    LBBGCOS: TCheckBox;
    LBBSENO: TCheckBox;
    LBBGID1: TCheckBox;
    LBBGCNA: TCheckBox;
    LBBGSNA: TCheckBox;
    LBBGSCN: TCheckBox;
    LBBGSUM: TCheckBox;
    LBBGCSF: TCheckBox;
    LBBGCSN: TCheckBox;
    LBBGCSS: TCheckBox;
    LBBGCSI: TCheckBox;
    LBBGQTE: TCheckBox;
    LBBGRUL: TCheckBox;
    LBBGGAU: TCheckBox;
    LBBGUNS: TCheckBox;
    LBBGUNP: TCheckBox;
    LBBGCLR: TCheckBox;
    LBBGCLH: TCheckBox;
    LBBGCLW: TCheckBox;
    LBBGUNW: TCheckBox;
    LBBGUSE: TCheckBox;
    LBBGMRK: TCheckBox;
    Button1: TButton;
    Label2: TLabel;
    ED_BGPR3D: TFloatEdit;
    Label3: TLabel;
    ED_BGPR1D: TFloatEdit;
    Label5: TLabel;
    ED_BGPR2D: TFloatEdit;
    procedure FormActivate(Sender: TObject);
    procedure BTNQUTClick(Sender: TObject);
    procedure BTNUPDClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    SETFILENAME : STRING;
  public
    { Public declarations }
    S_ORDERBY1 :STRING;
    S_ORDERBY2 :STRING;

    S_AUTOINSERT :BOOLEAN;

    PROCEDURE CHANG_INI;

    PROCEDURE CHANG_BGDS_LABEL;
  end;

var
  FMBGDSS: TFMBGDSS;

implementation

uses SYSINI,MAINU,FM_UTL,UN_UTL,UNBGDS,UNBGDSF, UNBGDSP;

{$R *.DFM}


procedure TFMBGDSS.FormActivate(Sender: TObject);
begin
BTN_LOADBMPFILE(BTNUPD,BTNUPD,BTNUPD,BTNUPD,BTNQUT,BTNQUT,BTNQUT,BTNQUT,
                INS_TB,UPD_TB,DEL_TB,YES_TB,CAL_TB,SER_TB,DEL_TB,QUT_TB);
end;

procedure TFMBGDSS.BTNQUTClick(Sender: TObject);
begin
CLOSE;
end;

procedure TFMBGDSS.BTNUPDClick(Sender: TObject);
begin
INI_SAVE_INT(SETFILENAME, 'ED_1'  ,ED_1.ItemIndex);
INI_SAVE_INT(SETFILENAME, 'ED_2'  ,ED_2.ItemIndex);
INI_SAVE_BOOL(SETFILENAME,'ED_3'  ,ED_3.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGENO' ,LBBGENO.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGNAM' ,LBBGNAM.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGKIN' ,LBBGKIN.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGPST' ,LBBGPST.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGPVP' ,LBBGPVP.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGPMM' ,LBBGPMM.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGQTS' ,LBBGQTS.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGCOS' ,LBBGCOS.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBSENO' ,LBBSENO.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGID1' ,LBBGID1.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGCNA' ,LBBGCNA.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGSNA' ,LBBGSNA.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGSCN' ,LBBGSCN.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGSUM' ,LBBGSUM.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGCSF' ,LBBGCSF.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGCSN' ,LBBGCSN.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGCSS' ,LBBGCSS.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGCSI' ,LBBGCSI.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGQTE' ,LBBGQTE.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGRUL' ,LBBGRUL.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGGAU' ,LBBGGAU.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGUNS' ,LBBGUNS.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGUNP' ,LBBGUNP.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGCLR' ,LBBGCLR.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGCLH' ,LBBGCLH.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGCLW' ,LBBGCLW.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGUNW' ,LBBGUNW.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGUSE' ,LBBGUSE.Checked);
INI_SAVE_BOOL(SETFILENAME,'LBBGMRK' ,LBBGMRK.Checked);

INI_SAVE_STR(SETFILENAME,'LDBGENO' ,LDBGENO.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGNAM' ,LDBGNAM.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGKIN' ,LDBGKIN.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGPST' ,LDBGPST.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGPVP' ,LDBGPVP.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGPMM' ,LDBGPMM.TEXT);
//INI_SAVE_STR(SETFILENAME,'LDBGPR1' ,LDBGPR1.TEXT);
//INI_SAVE_STR(SETFILENAME,'LDBGPR2' ,LDBGPR2.TEXT);
//INI_SAVE_STR(SETFILENAME,'LDBGPR3' ,LDBGPR3.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGQTS' ,LDBGQTS.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGCOS' ,LDBGCOS.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBSENO' ,LDBSENO.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGID1' ,LDBGID1.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGCNA' ,LDBGCNA.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGSNA' ,LDBGSNA.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGSCN' ,LDBGSCN.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGSUM' ,LDBGSUM.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGCSF' ,LDBGCSF.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGCSN' ,LDBGCSN.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGCSS' ,LDBGCSS.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGCSI' ,LDBGCSI.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGQTE' ,LDBGQTE.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGRUL' ,LDBGRUL.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGGAU' ,LDBGGAU.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGUNS' ,LDBGUNS.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGUNP' ,LDBGUNP.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGCLR' ,LDBGCLR.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGCLH' ,LDBGCLH.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGCLW' ,LDBGCLW.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGUNW' ,LDBGUNW.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGUSE' ,LDBGUSE.TEXT);
INI_SAVE_STR(SETFILENAME,'LDBGMRK' ,LDBGMRK.TEXT);


INI_SAVE_STR(SETFILENAME,'ED_BGPMMD' ,ED_BGPMMD.TEXT);
INI_SAVE_STR(SETFILENAME,'ED_BGPVPD' ,ED_BGPVPD.TEXT);
INI_SAVE_STR(SETFILENAME,'ED_BGPR1D' ,ED_BGPR1D.TEXT);
INI_SAVE_STR(SETFILENAME,'ED_BGPR2D' ,ED_BGPR2D.TEXT);
INI_SAVE_STR(SETFILENAME,'ED_BGPR3D' ,ED_BGPR3D.TEXT);


CHANG_INI;
CHANG_BGDS_LABEL;
CLOSE;
end;

procedure TFMBGDSS.FormCreate(Sender: TObject);