unbgdsn.pas

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

unit UNBGDSN;

interface

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

type
  TFMBGDSN = class(TForm)
    MainMenu1: TMainMenu;
    PREVIEW1: TMenuItem;
    SEARCH: TMenuItem;
    QBGDS: TQuery;
    Panel: TPanel;
    LBBGENO: TLabel;
    LBBGNAM: TLabel;
    LBBGKIN: TLabel;
    LBBGPST: TLabel;
    LBBGPVP: TLabel;
    LBBGPMM: TLabel;
    LBBGQTS: TLabel;
    LBBGCOS: TLabel;
    LBBSENO: TLabel;
    LBBGPR1: TLabel;
    LBBGPR2: TLabel;
    LBBGPR3: TLabel;
    LBBGCNA: TLabel;
    LBBGSUM: TLabel;
    LBBGMRK: TLabel;
    Image: TImage;
    Label4: TLabel;
    Bevel1: TBevel;
    Label3: TLabel;
    Label7: TLabel;
    BGENO: TJDBEdit;
    BGNAM: TJDBEdit;
    BGPST: TJDBEdit;
    BGPVP: TJDBEdit;
    BGPMM: TJDBEdit;
    BGQTS: TJDBEdit;
    BGCOS: TJDBEdit;
    BSENO: JDBLOOKUPBOX;
    BGKIN: JDBLOOKUPBOX;
    BGPR1: TJDBEdit;
    BGPR2: TJDBEdit;
    BGPR3: TJDBEdit;
    BGCNA: TJDBEdit;
    BGMRK: TJDBEdit;
    DSBGDS: TDataSource;
    Label1: TLabel;
    RBCNT: TEdit;
    DBGrid: TDBGrid;
    BGSUM: TJDBEdit;
    QBGDSBGENO: TStringField;
    QBGDSBGNAM: TStringField;
    QBGDSBGKIN: TStringField;
    QBGDSBGPST: TFloatField;
    QBGDSBGPVP: TFloatField;
    QBGDSBGPMM: TFloatField;
    QBGDSBGCST: TFloatField;
    QBGDSBGOTH: TFloatField;
    QBGDSBGQTS: TFloatField;
    QBGDSBGQTN: TFloatField;
    QBGDSBGCOS: TFloatField;
    QBGDSBSENO: TStringField;
    QBGDSBGCNA: TStringField;
    QBGDSBGSUM: TStringField;
    QBGDSBGSIN: TStringField;
    QBGDSBGRUL: TStringField;
    QBGDSBGGAU: TStringField;
    QBGDSBGUNS: TStringField;
    QBGDSBGUNP: TStringField;
    QBGDSBGCLR: TStringField;
    QBGDSBGCLH: TStringField;
    QBGDSBGCLW: TFloatField;
    QBGDSBGUNW: TStringField;
    QBGDSBGUSE: TStringField;
    QBGDSBGCSS: TFloatField;
    QBGDSBGQTE: TFloatField;
    QBGDSBGDTC: TDateTimeField;
    QBGDSBGDAT: TDateTimeField;
    QBGDSBGMRK: TMemoField;
    QBGDSBGBSA: TStringField;
    QBGDSBGBSB: TStringField;
    QBGDSBGBSC: TStringField;
    QBGDSBGBIA: TFloatField;
    QBGDSBGBIB: TFloatField;
    QBGDSBGBIC: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BTNQUTClick(Sender: TObject);
    procedure DSBGDSDataChange(Sender: TObject; Field: TField);
    procedure DBGridCellClick(Column: TColumn);
    procedure DBGridKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
    FUNCTION SEARCH_BGENO(T_BGENO:STRING):BOOLEAN;
    FUNCTION SEARCH_BGNAM(T_BGENO:STRING):BOOLEAN;
    FUNCTION SEARCH_BSENO(T_BGENO:STRING):BOOLEAN;
    FUNCTION SEARCH_BGKIN(T_BGENO:STRING):BOOLEAN;
    PROCEDURE SEND_BACK;
  end;

var
  FMBGDSN: TFMBGDSN;

implementation

USES SYSINI, MAINU, UN_UTL, MAIND, DB_UTL;

{$R *.DFM}

PROCEDURE TFMBGDSN.SEND_BACK;
BEGIN
  _TB_TMP_BGENO := QBGDS.FieldByName('BGENO').AsString;
END;

FUNCTION TFMBGDSN.SEARCH_BGENO(T_BGENO:STRING):BOOLEAN;
BEGIN
  QBGDS.SQL.CLEAR;
  QBGDS.SQL.ADD('SELECT * FROM BGDS');
  QBGDS.SQL.ADD('WHERE BGDS.BGENO IS NOT NULL ');
  QBGDS.SQL.ADD('  AND BGDS.BGENO LIKE ''%'+T_BGENO+'%''');
  QBGDS.SQL.ADD('ORDER BY BGDS.BGENO');
  QBGDS.CLOSE;
  QBGDS.OPEN;
  RESULT := NOT QBGDS.Eof;
  IF QBGDS.RecordCount = 1 THEN SEND_BACK;
END;

FUNCTION TFMBGDSN.SEARCH_BGNAM(T_BGENO:STRING):BOOLEAN;
BEGIN
  QBGDS.SQL.CLEAR;
  QBGDS.SQL.ADD('SELECT * FROM BGDS');
  QBGDS.SQL.ADD('WHERE BGDS.BGENO IS NOT NULL ');
  QBGDS.SQL.ADD('  AND BGDS.BGNAM LIKE ''%'+T_BGENO+'%''');
  QBGDS.SQL.ADD('ORDER BY BGDS.BGENO');
  QBGDS.CLOSE;
  QBGDS.OPEN;
  RESULT := NOT QBGDS.Eof;
  IF QBGDS.RecordCount = 1 THEN SEND_BACK;
END;

FUNCTION TFMBGDSN.SEARCH_BSENO(T_BGENO:STRING):BOOLEAN;
BEGIN
  QBGDS.SQL.CLEAR;
  QBGDS.SQL.ADD('SELECT * FROM BGDS');
  QBGDS.SQL.ADD('WHERE BGDS.BGENO IS NOT NULL ');
  QBGDS.SQL.ADD('  AND BGDS.BSENO LIKE ''%'+T_BGENO+'%''');
  QBGDS.SQL.ADD('ORDER BY BGDS.BGENO');
  QBGDS.CLOSE;
  QBGDS.OPEN;
  RESULT := NOT QBGDS.Eof;
  IF QBGDS.RecordCount = 1 THEN SEND_BACK;
END;

FUNCTION TFMBGDSN.SEARCH_BGKIN(T_BGENO:STRING):BOOLEAN;
BEGIN
  QBGDS.SQL.CLEAR;
  QBGDS.SQL.ADD('SELECT * FROM BGDS');
  QBGDS.SQL.ADD('WHERE BGDS.BGENO IS NOT NULL ');
  QBGDS.SQL.ADD('  AND BGDS.BGKIN LIKE ''%'+T_BGENO+'%''');
  QBGDS.SQL.ADD('ORDER BY BGDS.BGENO');
  QBGDS.CLOSE;
  QBGDS.OPEN;
  RESULT := NOT QBGDS.Eof;
  IF QBGDS.RecordCount = 1 THEN SEND_BACK;
END;

procedure TFMBGDSN.DSBGDSDataChange(Sender: TObject; Field: TField);
VAR T_BGSUM : STRING;
begin
  IF SHOW_BGDSN_PANEL = TRUE THEN
     BEGIN
     IMAGE.Hide;
     T_BGSUM := QBGDS.FieldByName('BGSUM').AsSTRING;
     IF (T_BGSUM <> '') AND (FileExists(T_BGSUM)) THEN
       BEGIN
       Image.Picture.LoadFromFile(T_BGSUM); IMAGE.SHOW;
       END;
     END;
end;

procedure TFMBGDSN.FormCreate(Sender: TObject);
VAR SETFILENAME : STRING;
begin
  IF SHOW_BGDSN_PANEL = FALSE THEN
     BEGIN
     FMBGDSN.ClientWidth := DBGRID.WIDTH;
     Panel.Free;
     END ELSE BEGIN
     SETFILENAME := ExtractFilePath(Application.EXEName)+'INI\FMBGDSS.INI';
     IF FileExists(SETFILENAME) = FALSE  THEN FILE_CREATE(SETFILENAME);
  
     LBBGENO.CAPTION := INI_LOAD_STR(SETFILENAME,'LDBGENO' ,LBBGENO.CAPTION);
     LBBGNAM.CAPTION := INI_LOAD_STR(SETFILENAME,'LDBGNAM' ,LBBGNAM.CAPTION);
     LBBGKIN.CAPTION := INI_LOAD_STR(SETFILENAME,'LDBGKIN' ,LBBGKIN.CAPTION);
     LBBGPST.CAPTION := INI_LOAD_STR(SETFILENAME,'LDBGPST' ,LBBGPST.CAPTION);
     LBBGPVP.CAPTION := INI_LOAD_STR(SETFILENAME,'LDBGPVP' ,LBBGPVP.CAPTION);
     LBBGPMM.CAPTION := INI_LOAD_STR(SETFILENAME,'LDBGPMM' ,LBBGPMM.CAPTION);
     LBBGQTS.CAPTION := INI_LOAD_STR(SETFILENAME,'LDBGQTS' ,LBBGQTS.CAPTION);
     LBBGCOS.CAPTION := INI_LOAD_STR(SETFILENAME,'LDBGCOS' ,LBBGCOS.CAPTION);
     LBBSENO.CAPTION := INI_LOAD_STR(SETFILENAME,'LDBSENO' ,LBBSENO.CAPTION);
     LBBGCNA.CAPTION := INI_LOAD_STR(SETFILENAME,'LDBGCNA' ,LBBGCNA.CAPTION);
     LBBGSUM.CAPTION := INI_LOAD_STR(SETFILENAME,'LDBGSUM' ,LBBGSUM.CAPTION);
     LBBGMRK.CAPTION := INI_LOAD_STR(SETFILENAME,'LDBGMRK' ,LBBGMRK.CAPTION);
     END;
end;

procedure TFMBGDSN.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  QBGDS.Close;
  FMBGDSN.Release;
end;

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

procedure TFMBGDSN.DBGridCellClick(Column: TColumn);
begin
  SEND_BACK;
  CLOSE;
end;

procedure TFMBGDSN.DBGridKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin
  IF KEY = 13 THEN
     BEGIN
     SEND_BACK;
     CLOSE;
     END;
end;

end.