unbgds.pas

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

  FMBGDSD.UBGDS.ModifySQL.Add('BGCLR = :BGCLR ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGCLH = :BGCLH ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGCLW = :BGCLW ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGUNW = :BGUNW ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGUSE = :BGUSE ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGCSS = :BGCSS ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGQTE = :BGQTE ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGDTC = :BGDTC ,');
  FMBGDSD.UBGDS.ModifySQL.Add('BGDAT = :BGDAT  ');
  FMBGDSD.UBGDS.ModifySQL.Add('WHERE BGENO = :OLD_BGENO');

  FMBGDSD.UBGDS.DeleteSQL.CLEAR;
  FMBGDSD.UBGDS.DeleteSQL.Add('DELETE FROM BGDS ');
  FMBGDSD.UBGDS.DeleteSQL.Add('WHERE BGENO = :OLD_BGENO');

  FMBGDSD.QBGDS.CLOSE;
  FMBGDSD.QBGDS.OPEN;


  //BGENO.MaxLength := STRTOINTDEF(UNSETREAD('SYSSET','SET_BGENO'),20);

  LB_MAX.CAPTION := '最大编号'+CHECK_BASE_TABLE_NO('BGDS','BGENO');
end;

procedure TFMBGDS.FormShow(Sender: TObject);
begin
  NORMALMODE;
end;

procedure TFMBGDS.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  //Form 要结束前的询问(系统事件)
  CanClose := True;
  if (FORMMODE = 'INS' ) or (FORMMODE = 'UPD' ) then
    begin
    MessageDlg('请先结束输入模式后再退出!',mtConfirmation,[mbOk],0);
    CanClose := False;
    end;
end;

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

procedure TFMBGDS.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DataModuleRelease(FMBGDSD);
  FormRelease(FMBGDS);
  FormFREE('FMBGDSP');
end;

procedure TFMBGDS.BTNINSClick(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'BGDS_INS') = FALSE THEN EXIT;
  
  // 检查试用
  IF FileExists('\SYSTEM.SYS') = FALSE  THEN
  begin
    ShowMessage('试用版本，不提供新增功能'); // added by zxb@beijing in 2001/10/6
    EXIT;
  end;

     BEGIN
     FMMAIND.QUERY.SQL.Clear;
     FMMAIND.QUERY.SQL.ADD('SELECT COUNT(*) FROM BGDS');
     FMMAIND.QUERY.CLOSE;  FMMAIND.QUERY.OPEN;
     IF FMMAIND.QUERY.Fields.Fields[0].AsInteger >=20 THEN EXIT;
     END;
  
  INSERTMODE;

  WITH FMBGDSD DO
    BEGIN
    QBGDS.APPEND;
    END;
end;

procedure TFMBGDS.BTNDELClick(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'BGDS_DEL') = FALSE THEN EXIT;
  
  IF MessageDlg('是否确定要删除此条记录吗?',mtWarning, [mbYes, mbNo], 0) = mrYes then
     IF MessageDlg('如果您按下确定按钮此条记录将会被删除',mtWarning, [mbYes, mbNo], 0) = mrYes then
        BEGIN
        FMBGDSD.QBGDS.Delete;
        FM_DB_QUERY_UPDATE(FMMAIND.DATABASE,FMBGDSD.QBGDS);
        NORMALMODE;
        END;


  LB_MAX.CAPTION := '最大编号'+CHECK_BASE_TABLE_NO('BGDS','BGENO');
end;

procedure TFMBGDS.BTNYESClick(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'BGDS_UPD') = FALSE THEN EXIT;
  
  //检查重复
  if (FORMMODE = 'INS' ) then
  if TABLECHECK_RE1('BGDS','BGENO',BGENO.Text) > 0 THEN
     begin
     SHOWMESSAGE('此编号已经重复使用!');  EXIT;
     end;
  
  Case MessageDlg('是否确定存储此条记录?',mtConfirmation,[mbYes,mbNo,mbCancel],0) of
   mrYES :begin
          NORMALMODE;
          FM_DB_QUERY_POST(FMMAIND.DATABASE,FMBGDSD.QBGDS);
  
          // 更新 MEMO 的资料
          FMMAIND.QUPD.SQL.CLEAR;
          FMMAIND.QUPD.SQL.ADD('UPDATE BGDS SET');
          FMMAIND.QUPD.SQL.ADD('BGMRK = '''+StringReplace(BGMRK.TEXT,'''','"',[rfReplaceAll])+''' ');
          FMMAIND.QUPD.SQL.ADD('WHERE BGENO = '''+BGENO.TEXT+''' ');
          FMMAIND.QUPD.ExecSQL;
  
          end;
   mrNO  :begin
          NORMALMODE;
          FMBGDSD.QBGDS.Cancel;
          end;
  END;

  LB_MAX.CAPTION := '最大编号'+CHECK_BASE_TABLE_NO('BGDS','BGENO');
end;

procedure TFMBGDS.BTNCALClick(Sender: TObject);
begin
  NORMALMODE;
  FMBGDSD.QBGDS.Cancel;
end;

procedure TFMBGDS.BTNSERClick(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'BGDS_SEA') = FALSE THEN EXIT;
  
  WITH FMBGDSD.QBGDS DO
    BEGIN
    CLOSE;
    SQL.CLEAR;
    SQL.ADD('SELECT * FROM BGDS');
    SQL.ADD('WHERE BGENO IS NOT NULL');

    //字符串查询
    SQL.ADD(FINDFORM_WHEREKEY_STRING('BGENO',LB11.Text,''));
    SQL.ADD(FINDFORM_WHEREKEY_STRING('BGNAM',LB21.Text,''));
    SQL.ADD(FINDFORM_WHEREKEY_STRING('BSENO',LB31.Text,''));
    SQL.ADD(FINDFORM_WHEREKEY_STRING('BGKIN',LB41.Text,''));
    SQL.ADD(FINDFORM_WHEREKEY_STRING('BGCNA',LB51.Text,''));
    SQL.ADD(FINDFORM_WHEREKEY_STRING('BGMRK',LB61.Text,''));

    {         --------------- 有问题 --------------------
    IF CB1.ItemIndex = 0 THEN SQL.ADD(' AND BGQTN >= '''+INTTOSTR(STRTOINTDEF(LB71.Text,0))+'''');
    IF CB1.ItemIndex = 1 THEN SQL.ADD(' AND BGQTN <= '''+INTTOSTR(STRTOINTDEF(LB71.Text,0))+'''');
    }
    IF CB1.ItemIndex = 0 THEN SQL.ADD(' AND BGQTN >= '+INTTOSTR(STRTOINTDEF(LB71.Text,0)));
    IF CB1.ItemIndex = 1 THEN SQL.ADD(' AND BGQTN <= '+INTTOSTR(STRTOINTDEF(LB71.Text,0)));
    OPEN;
    END;
end;

procedure TFMBGDS.BTNSER2Click(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'BGDS_SEA') = FALSE THEN EXIT;
  
  WITH FMBGDSD.QBGDS DO
     BEGIN
     CLOSE;
     SQL.CLEAR;
     SQL.ADD('SELECT * FROM BGDS');
     SQL.ADD('WHERE BGENO IS NOT NULL');
     IF SENDER = BTNSER1 THEN SQL.ADD(' AND BGQTN <= BGQTS ');
     IF SENDER = BTNSER2 THEN SQL.ADD(' AND #'+DATETOSTR(DATE)+'# - BGDTC > 180 ');
     IF SENDER = BTNSER3 THEN SQL.ADD(' AND #'+DATETOSTR(DATE)+'# - BGDTC > 365 ');
     SQL.ADD('ORDER BY BGQTN, BGQTS ');
     OPEN;
     END;
end;

procedure TFMBGDS.BTNBGSINClick(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'BGDS_SEA') = FALSE THEN EXIT;

  WITH FMBGDSD.QBGDS DO
     BEGIN
     CLOSE;
     SQL.CLEAR;
     SQL.ADD('SELECT * FROM BGDS');
     SQL.ADD('WHERE BGENO IS NOT NULL');
     SQL.ADD('  AND BGSIN <> '''' ');
     SQL.ADD('ORDER BY BGSIN, BGENO ');
     OPEN;
     END;
end;

procedure TFMBGDS.BTNCLRClick(Sender: TObject);
begin
  LB11.Clear;
  LB21.Clear;
  LB31.Clear;
  LB41.Clear;
  LB51.Clear;
  LB61.Clear;
  LB71.Clear;
end;

procedure TFMBGDS.BTNPRNClick(Sender: TObject);
begin
  //检查权限============================================
  IF PERMISSION_CHECK(_USER_ID,'BGDS_PRN') = FALSE THEN EXIT;

  IF FormExists('FMREP1')=FALSE THEN Application.CreateForm(TFMREP1, FMREP1 );
  FMREP1.QR_NAME := ExtractFilePath(Application.EXEName)+'/ini/QREP_BGDS.ini';
  FMREP1.ED_PAGE_TABLE.TEXT := 'BGDS';

  FMREP1.QUERY.SQL.CLEAR;
  FMREP1.QUERY.SQL.TEXT := FMBGDSD.QBGDS.SQL.TEXT;
  FMREP1.QUERY.CLOSE;
  FMREP1.QUERY.OPEN;

  FMREP1.LOAD_INI;

  IF SENDER = BTNPRE THEN FMREP1.QuickRep.Preview;
  IF SENDER = MENPRE THEN FMREP1.QuickRep.Preview;
  IF SENDER = BTNPRN THEN FMREP1.QuickRep.Print;
  IF SENDER = MENPRN THEN FMREP1.QuickRep.Print;

end;

procedure TFMBGDS.BTNPTHClick(Sender: TObject);
begin
  OpenDialog1.InitialDir := BGSUM.TEXT;
  OpenDialog1.Execute;
  IF LENGTH(OpenDialog1.FileName) >= 31 THEN
     BEGIN
     SHOWMESSAGE('文件名路径总长度不得超过30个字符');   EXIT;
     END;
  if (FORMMODE = 'CAN' ) then
     BEGIN
     UPDATEMODE;
     FMBGDSD.QBGDS.Edit;
     END;
  FMBGDSD.QBGDSBGSUM.VALUE := OpenDialog1.FileName;
  IF (FileExists(FMBGDSD.QBGDSBGSUM.VALUE)=true) THEN
     BEGIN
     Image.Picture.LoadFromFile(FMBGDSD.QBGDSBGSUM.VALUE);
     IMAGE.SHOW;
     END;
end;

procedure TFMBGDS.BGENOChange(Sender: TObject);
VAR T_BGSUM : STRING;
begin
  IMAGE.Hide;
  T_BGSUM := DB_QUERY_FIND_VALUE('BGDS','BGENO',BGENO.TEXT,'BGSUM');
  IF (FileExists(T_BGSUM)=true) THEN
     BEGIN
     Image.Picture.LoadFromFile(T_BGSUM);
     IMAGE.SHOW;
     END;
end;

procedure TFMBGDS.BTNLABELClick(Sender: TObject);
begin
  URCLEVER.CLEVER_OPEN_PORT;
end;

procedure TFMBGDS.BTNSETClick(Sender: TObject);
begin
  IF FormExists('FMREP1' )=FALSE THEN Application.CreateForm(TFMREP1, FMREP1 );
  FMREP1.QR_NAME := ExtractFilePath(Application.EXEName)+'/ini/QREP_BGDS.ini';
  FMREP1.ED_PAGE_TABLE.TEXT := 'BGDS';
  Form_NORMAL_SHOWMODAL(FMREP1,-1,-1);
end;

end.