unbsupf.pas

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

unit UNBSUPF;

interface

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

type
  TFMBSUPF = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    LB_CON11: TJEDIT;
    LB_CON1: TLabel;
    LB_CON2: TLabel;
    LB_CON3: TLabel;
    LB_CON31: TJEDIT;
    WHEREKEY1: TComboBox;
    WHEREKEY2: TComboBox;
    WHEREKEY3: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    ToolBar: TToolBar;
    ToolButton1: TToolButton;
    BTNSER: TSpeedButton;
    BTNCLR: TSpeedButton;
    BTNQUT: TSpeedButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    LB_CON12: TJEDIT;
    LB_CON32: TJEDIT;
    Label7: TLabel;
    Label9: TLabel;
    LB_CON21: TJEDIT;
    Label1: TLabel;
    LB_CON22: TJEDIT;
    Label2: TLabel;
    LB_CON41: TJEdit;
    Label3: TLabel;
    LB_CON42: TJEdit;
    Label8: TLabel;
    LB_CON51: TJEdit;
    Label10: TLabel;
    LB_CON52: TJEdit;
    Label11: TLabel;
    LB_CON61: TJEdit;
    Label12: TLabel;
    LB_CON62: TJEdit;
    Label13: TLabel;
    LB_CON71: TJEdit;
    Label14: TLabel;
    LB_CON72: TJEdit;
    procedure WHEREKEY1Exit(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BTNQUTClick(Sender: TObject);
    procedure BTNSERClick(Sender: TObject);
    procedure BTNCLRClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure Search_data;
  public
    { Public declarations }
    SearchFORMMODE : STRING;
  end;

var
  FMBSUPF: TFMBSUPF;

implementation

uses sysini, fm_utl, UNBSUPD, UNBSUPP, MAINU;

{$R *.DFM}



procedure TFMBSUPF.FormActivate(Sender: TObject);
begin
  LB_CON11.SETFOCUS;

  if SearchFORMMODE = 'SEARCH' then
     begin
     BTNSER.Caption := '&F 查询';
     BTNCLR.Caption := '&C 清除';
     //按钮图形加载
     BTN_LOADBMPFILE(BTNQUT,BTNQUT,BTNQUT,BTNQUT,BTNQUT,BTNSER,BTNCLR,BTNQUT,
                     INS_TB,UPD_TB,DEL_TB,YES_TB,CAL_TB,SER_TB,DEL_TB,QUT_TB);
     end;
  if SearchFORMMODE = 'PRINT'  then
     begin
     BTNSER.Caption := '&W 预览';
     BTNCLR.Caption := '&P 打印';
     //按钮图形加载
     BTN_LOADBMPFILE(BTNQUT,BTNQUT,BTNQUT,BTNQUT,BTNQUT,BTNSER,BTNCLR,BTNQUT,
                     INS_TB,UPD_TB,DEL_TB,YES_TB,CAL_TB,PRE_TB,PRN_TB,QUT_TB);
     end;



end;

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

procedure TFMBSUPF.WHEREKEY1Exit(Sender: TObject);
begin

  IF (WHEREKEY1.ItemIndex >= 0) AND ( (WHEREKEY1.ItemIndex = WHEREKEY2.ItemIndex) OR (WHEREKEY1.ItemIndex = WHEREKEY3.ItemIndex )) THEN
     Begin
     ShowMessage('所选择排列组合不可重复 !');
     WHEREKEY2.ItemIndex:=-1;
     WHEREKEY3.ItemIndex:=-1;
     WHEREKEY1.SetFocus;
     End;
end;


procedure TFMBSUPF.BTNSERClick(Sender: TObject);
var RecordCount_Tmp :Integer;
begin

  Search_data;

  RecordCount_Tmp := FMBSUPD.QBSUP.RecordCount;

//IF FMBSUPD.QBSUP.RecordCount > 0 THEN
//  SHOWMESSAGE(INTTOSTR(FMBSUPD.QBSUP.RecordCount));



  IF RecordCount_Tmp <= 0 THEN
    BEGIN
      SHOWMESSAGE('没有此资料');
      LB_CON11.SETFOCUS;
    END ELSE
    BEGIN

    CLOSE;
    if SearchFORMMODE = 'PRINT'  then
       begin
       FMBSUPP.LB_RECORDCOUNT.Caption := '共 '+INTTOSTR(RecordCount_Tmp)+'笔';

       FMBSUPP.LBTITLE.Caption := _USER_CORP_NAME;
       FMBSUPP.QuickRep.Preview;
       end;

       
    END;

end;

procedure TFMBSUPF.BTNCLRClick(Sender: TObject);
begin
LB_CON11.Clear;
LB_CON12.Clear;
LB_CON21.Clear;
LB_CON22.Clear;
LB_CON31.Clear;
LB_CON32.Clear;
LB_CON41.Clear;
LB_CON42.Clear;
LB_CON51.Clear;
LB_CON52.Clear;
LB_CON61.Clear;
LB_CON62.Clear;
LB_CON71.Clear;
LB_CON72.Clear;
end;





procedure TFMBSUPF.Search_data;
VAR F_NAME : array[1..10] of STRING;
begin

  WITH FMBSUPD.QBSUP DO
  BEGIN
    CLOSE;
    SQL.CLEAR;
    SQL.ADD('SELECT * ');
    SQL.ADD('FROM BSUP');
    SQL.ADD('WHERE BSENO IS NOT NULL');

    F_NAME[1] := 'BSENO';
    F_NAME[2] := 'BSNAM';
    F_NAME[3] := 'BSMN1';
    F_NAME[4] := 'BSTL1';
    F_NAME[5] := 'BSTL2';
    F_NAME[6] := 'BSAD1';
    F_NAME[7] := 'BSAD2';

    //字符串查询
    SQL.ADD(FINDFORM_WHEREKEY_STRING(F_NAME[1],LB_CON11.Text,LB_CON12.Text));
    SQL.ADD(FINDFORM_WHEREKEY_STRING(F_NAME[2],LB_CON21.Text,LB_CON22.Text));
    SQL.ADD(FINDFORM_WHEREKEY_STRING(F_NAME[3],LB_CON31.Text,LB_CON32.Text));
    SQL.ADD(FINDFORM_WHEREKEY_STRING(F_NAME[4],LB_CON41.Text,LB_CON42.Text));
    SQL.ADD(FINDFORM_WHEREKEY_STRING(F_NAME[5],LB_CON51.Text,LB_CON52.Text));
    SQL.ADD(FINDFORM_WHEREKEY_STRING(F_NAME[6],LB_CON61.Text,LB_CON62.Text));
    SQL.ADD(FINDFORM_WHEREKEY_STRING(F_NAME[7],LB_CON71.Text,LB_CON72.Text));

    //ACCESS " DATE " WHERE KEY  ======================
//    SQL.ADD(FINDFORM_WHEREKEY_DATE(F_NAME[3],LB_CON31.Text,LB_CON32.Text));

    //查询 排序    //ORDER BYE=======================================
    SQL.ADD(FINDFORM_ORDERBY3(F_NAME[1],F_NAME[2],F_NAME[3],WHEREKEY1.ItemIndex,WHEREKEY2.ItemIndex,WHEREKEY3.ItemIndex));

//    SHOWMESSAGE(SQL.TEXT);
    OPEN;
  END;

  
end;


procedure TFMBSUPF.FormCreate(Sender: TObject);
begin
  WITH FMBSUPF DO
     BEGIN
        WHEREKEY1.ITEMS.Clear;
        WHEREKEY2.ITEMS.Clear;
        WHEREKEY3.ITEMS.Clear;
     IF FindComponent('LB_CON1') <> nil then
        BEGIN
        WHEREKEY1.ITEMS.Add(LB_CON1.CAPTION);
        WHEREKEY2.ITEMS.Add(LB_CON1.CAPTION);
        WHEREKEY3.ITEMS.Add(LB_CON1.CAPTION);
        END;
     IF FindComponent('LB_CON2') <> nil then
        BEGIN
        WHEREKEY1.ITEMS.Add(LB_CON2.CAPTION);
        WHEREKEY2.ITEMS.Add(LB_CON2.CAPTION);
        WHEREKEY3.ITEMS.Add(LB_CON2.CAPTION);
        END;
     IF FindComponent('LB_CON3') <> nil then
        BEGIN
        WHEREKEY1.ITEMS.Add(LB_CON3.CAPTION);
        WHEREKEY2.ITEMS.Add(LB_CON3.CAPTION);
        WHEREKEY3.ITEMS.Add(LB_CON3.CAPTION);
        END;

     WHEREKEY1.ItemIndex := 0;
     END;




end;



end.