unbgdss.pas

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

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 TFMBGDSS.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 TFMBGDSS.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;




















procedure TFMBGDSS.Button1Click(Sender: TObject);
begin
LDBGENO.Text := LCBGENO.CAPTION;
LDBGNAM.Text := LCBGNAM.CAPTION;
LDBGKIN.Text := LCBGKIN.CAPTION;
LDBGPST.Text := LCBGPST.CAPTION;
LDBGPVP.Text := LCBGPVP.CAPTION;
LDBGPMM.Text := LCBGPMM.CAPTION;
LDBGQTS.Text := LCBGQTS.CAPTION;
LDBGCOS.Text := LCBGCOS.CAPTION;
LDBSENO.Text := LCBSENO.CAPTION;
LDBGID1.Text := LCBGID1.CAPTION;
LDBGCNA.Text := LCBGCNA.CAPTION;
LDBGSNA.Text := LCBGSNA.CAPTION;
LDBGSCN.Text := LCBGSCN.CAPTION;
LDBGSUM.Text := LCBGSUM.CAPTION;
LDBGCSF.Text := LCBGCSF.CAPTION;
LDBGCSN.Text := LCBGCSN.CAPTION;
LDBGCSS.Text := LCBGCSS.CAPTION;
LDBGCSI.Text := LCBGCSI.CAPTION;
LDBGQTE.Text := LCBGQTE.CAPTION;
LDBGRUL.Text := LCBGRUL.CAPTION;
LDBGGAU.Text := LCBGGAU.CAPTION;
LDBGUNS.Text := LCBGUNS.CAPTION;
LDBGUNP.Text := LCBGUNP.CAPTION;
LDBGCLR.Text := LCBGCLR.CAPTION;
LDBGCLH.Text := LCBGCLH.CAPTION;
LDBGCLW.Text := LCBGCLW.CAPTION;
LDBGUNW.Text := LCBGUNW.CAPTION;
LDBGUSE.Text := LCBGUSE.CAPTION;
LDBGMRK.Text := LCBGMRK.CAPTION;

end;

end.