unbmans.pas

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

unit UNBMANS;

interface

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

type
  TFMBMANS = 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;
    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;
    procedure FormActivate(Sender: TObject);
    procedure BTNQUTClick(Sender: TObject);
    procedure BTNUPDClick(Sender: TObject);
    procedure FormCreate(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
  FMBMANS: TFMBMANS;

implementation

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

{$R *.DFM}


procedure TFMBMANS.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 TFMBMANS.BTNQUTClick(Sender: TObject);
begin
CLOSE;
end;

procedure TFMBMANS.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 TFMBMANS.FormCreate(Sender: TObject);
begin
{
SETFILENAME := ExtractFilePath(Application.EXEName)+'INI\'+FMBGDSS.NAME+'.INI';
IF FileExists(SETFILENAME) = FALSE  THEN FILE_CREATE(SETFILENAME);

S_ORDERBY1 := '';
S_ORDERBY2 := '';

ED_1.ItemIndex := INI_LOAD_INT(SETFILENAME, 'ED_1' ,0);
ED_2.ItemIndex := INI_LOAD_INT(SETFILENAME, 'ED_2' ,1);
ED_3.Checked   := INI_LOAD_BOOL(SETFILENAME,'ED_3' ,FALSE);

LBBGENO.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGENO' ,FALSE);
LBBGNAM.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGNAM' ,FALSE);
LBBGKIN.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGKIN' ,FALSE);
LBBGPST.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGPST' ,FALSE);
LBBGPVP.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGPVP' ,FALSE);
LBBGPMM.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGPMM' ,FALSE);
LBBGQTS.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGQTS' ,FALSE);
LBBGCOS.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGCOS' ,FALSE);
LBBSENO.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBSENO' ,FALSE);
LBBGID1.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGID1' ,FALSE);
LBBGCNA.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGCNA' ,FALSE);
LBBGSNA.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGSNA' ,FALSE);
LBBGSCN.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGSCN' ,FALSE);
LBBGSUM.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGSUM' ,FALSE);
LBBGCSF.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGCSF' ,FALSE);
LBBGCSN.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGCSN' ,FALSE);
LBBGCSS.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGCSS' ,FALSE);
LBBGCSI.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGCSI' ,FALSE);
LBBGQTE.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGQTE' ,FALSE);
LBBGRUL.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGRUL' ,FALSE);
LBBGGAU.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGGAU' ,FALSE);
LBBGUNS.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGUNS' ,FALSE);
LBBGUNP.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGUNP' ,FALSE);
LBBGCLR.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGCLR' ,FALSE);
LBBGCLH.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGCLH' ,FALSE);
LBBGCLW.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGCLW' ,FALSE);
LBBGUNW.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGUNW' ,FALSE);
LBBGUSE.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGUSE' ,FALSE);
LBBGMRK.Checked := INI_LOAD_BOOL(SETFILENAME,'LBBGMRK' ,FALSE);

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

ED_BGPMMD.TEXT := INI_LOAD_STR(SETFILENAME,'ED_BGPMMD' ,ED_BGPMMD.TEXT);
ED_BGPVPD.TEXT := INI_LOAD_STR(SETFILENAME,'ED_BGPVPD' ,ED_BGPVPD.TEXT);
ED_BGPR1D.TEXT := INI_LOAD_STR(SETFILENAME,'ED_BGPR1D' ,ED_BGPR1D.TEXT);
ED_BGPR2D.TEXT := INI_LOAD_STR(SETFILENAME,'ED_BGPR2D' ,ED_BGPR2D.TEXT);
ED_BGPR3D.TEXT := INI_LOAD_STR(SETFILENAME,'ED_BGPR3D' ,ED_BGPR3D.TEXT);
 }
CHANG_INI;
end;


PROCEDURE TFMBMANS.CHANG_INI;
BEGIN
IF ED_1.ItemIndex = 0 THEN S_ORDERBY1 := 'BGENO';
IF ED_1.ItemIndex = 1 THEN S_ORDERBY1 := 'BGID1';
IF ED_1.ItemIndex = 2 THEN S_ORDERBY1 := 'BGNAM';
IF ED_2.ItemIndex = 0 THEN S_ORDERBY2 := 'BGENO';
IF ED_2.ItemIndex = 1 THEN S_ORDERBY2 := 'BGID1';
IF ED_2.ItemIndex = 2 THEN S_ORDERBY2 := 'BGNAM';
IF ED_3.Checked   = TRUE  THEN S_AUTOINSERT := TRUE;
IF ED_3.Checked   = FALSE THEN S_AUTOINSERT := FALSE;
END;

PROCEDURE TFMBMANS.CHANG_BGDS_LABEL;
BEGIN
{
FMBGDS.LBBGENO.CAPTION := LDBGENO.Text;
FMBGDS.LBBGNAM.CAPTION := LDBGNAM.Text;
FMBGDS.LBBGKIN.CAPTION := LDBGKIN.Text;
FMBGDS.LBBGPST.CAPTION := LDBGPST.Text;
FMBGDS.LBBGPVP.CAPTION := LDBGPVP.Text;
FMBGDS.LBBGPMM.CAPTION := LDBGPMM.Text;
FMBGDS.LBBGQTS.CAPTION := LDBGQTS.Text;
FMBGDS.LBBGCOS.CAPTION := LDBGCOS.Text;
FMBGDS.LBBSENO.CAPTION := LDBSENO.Text;
FMBGDS.LBBGID1.CAPTION := LDBGID1.Text;
FMBGDS.LBBGCNA.CAPTION := LDBGCNA.Text;
FMBGDS.LBBGSNA.CAPTION := LDBGSNA.Text;
FMBGDS.LBBGSCN.CAPTION := LDBGSCN.Text;
FMBGDS.LBBGSUM.CAPTION := LDBGSUM.Text;
FMBGDS.LBBGCSF.CAPTION := LDBGCSF.Text;
FMBGDS.LBBGCSN.CAPTION := LDBGCSN.Text;
FMBGDS.LBBGCSS.CAPTION := LDBGCSS.Text;
FMBGDS.LBBGCSI.CAPTION := LDBGCSI.Text;
FMBGDS.LBBGQTE.CAPTION := LDBGQTE.Text;
FMBGDS.LBBGRUL.CAPTION := LDBGRUL.Text;
FMBGDS.LBBGGAU.CAPTION := LDBGGAU.Text;
FMBGDS.LBBGUNS.CAPTION := LDBGUNS.Text;
FMBGDS.LBBGUNP.CAPTION := LDBGUNP.Text;
FMBGDS.LBBGCLR.CAPTION := LDBGCLR.Text;
FMBGDS.LBBGCLH.CAPTION := LDBGCLH.Text;
FMBGDS.LBBGCLW.CAPTION := LDBGCLW.Text;
FMBGDS.LBBGUNW.CAPTION := LDBGUNW.Text;
FMBGDS.LBBGUSE.CAPTION := LDBGUSE.Text;
FMBGDS.LBBGMRK.CAPTION := LDBGMRK.Text;


IF FormExists('FMBGDSF')=TRUE THEN
   BEGIN
{   FMBGDSF.LB1.Caption := LDBGENO.Text;
   FMBGDSF.LB2.Caption := LDBGNAM.Text;
   FMBGDSF.LB3.Caption := LDBGID1.Text;
   FMBGDSF.LB4.Caption := LDBSENO.Text;
   FMBGDSF.LB5.Caption := LDBGKIN.Text;
 }        {
   FMBGDSF.LBBGENO.Caption := LDBGENO.Text;
   FMBGDSF.LBBGNAM.Caption := LDBGNAM.Text;
   FMBGDSF.LBBGKIN.Caption := LDBGKIN.Text;
   FMBGDSF.LBBSENO.Caption := LDBSENO.Text;
   FMBGDSF.LBBGID1.Caption := LDBGID1.Text;
   FMBGDSF.LBBGCNA.Caption := LDBGCNA.Text;
   FMBGDSF.LBBGSNA.Caption := LDBGSNA.Text;
   FMBGDSF.LBBGSCN.Caption := LDBGSCN.Text;
   FMBGDSF.LBBGRUL.Caption := LDBGRUL.Text;
   FMBGDSF.LBBGGAU.Caption := LDBGGAU.Text;
   FMBGDSF.LBBGUNS.Caption := LDBGUNS.Text;
   FMBGDSF.LBBGUNP.Caption := LDBGUNP.Text;
   FMBGDSF.LBBGCLR.Caption := LDBGCLR.Text;
   FMBGDSF.LBBGCLH.Caption := LDBGCLH.Text;
   FMBGDSF.LBBGCLW.Caption := LDBGCLW.Text;
   FMBGDSF.LBBGUNW.Caption := LDBGUNW.Text;
   FMBGDSF.LBBGUSE.Caption := LDBGUSE.Text;
   FMBGDSF.LBBGMRK.Caption := LDBGMRK.Text;
   END;

IF FormExists('FMBGDSP')=TRUE THEN
   BEGIN
   FMBGDSP.LBBGENO.CAPTION := LDBGENO.Text;
   FMBGDSP.LBBGNAM.CAPTION := LDBGNAM.Text;
   FMBGDSP.LBBGKIN.CAPTION := LDBGKIN.Text;
   FMBGDSP.LBBGPST.CAPTION := LDBGPST.Text;
   FMBGDSP.LBBGPVP.CAPTION := LDBGPVP.Text;
   FMBGDSP.LBBGPMM.CAPTION := LDBGPMM.Text;
//   FMBGDSP.LBBGQTS.CAPTION := LDBGQTS.Text;
   FMBGDSP.LBBGCOS.CAPTION := LDBGCOS.Text;
   FMBGDSP.LBBSENO.CAPTION := LDBSENO.Text;
   FMBGDSP.LBBGID1.CAPTION := LDBGID1.Text;
   FMBGDSP.LBBGCNA.CAPTION := LDBGCNA.Text;
   FMBGDSP.LBBGSNA.CAPTION := LDBGSNA.Text;
   FMBGDSP.LBBGSCN.CAPTION := LDBGSCN.Text;
//   FMBGDSP.LBBGCSF.CAPTION := LDBGCSF.Text;
//   FMBGDSP.LBBGCSN.CAPTION := LDBGCSN.Text;
//   FMBGDSP.LBBGCSS.CAPTION := LDBGCSS.Text;
   FMBGDSP.LBBGCSI.CAPTION := LDBGCSI.Text;
   FMBGDSP.LBBGQTE.CAPTION := LDBGQTE.Text;
   FMBGDSP.LBBGRUL.CAPTION := LDBGRUL.Text;
   FMBGDSP.LBBGGAU.CAPTION := LDBGGAU.Text;
   FMBGDSP.LBBGUNS.CAPTION := LDBGUNS.Text;
   FMBGDSP.LBBGUNP.CAPTION := LDBGUNP.Text;
   FMBGDSP.LBBGCLR.CAPTION := LDBGCLR.Text;
   FMBGDSP.LBBGCLH.CAPTION := LDBGCLH.Text;
   FMBGDSP.LBBGCLW.CAPTION := LDBGCLW.Text;
   FMBGDSP.LBBGUNW.CAPTION := LDBGUNW.Text;
   FMBGDSP.LBBGUSE.CAPTION := LDBGUSE.Text;
   FMBGDSP.LBBGMRK.CAPTION := LDBGMRK.Text;

   END;
 }
END;




















end.