unit p_cbarcode;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RzButton, StBarC, StdCtrls, Mask, RzEdit, RzBtnEdt, Db, DBTables,
  IvDictio, IvMulti;

type
  Tf_cbarcode = class(TForm)
    RzButtonEdit1: TRzButtonEdit;
    StBarCode1: TStBarCode;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    Query1: TQuery;
    IvTranslator1: TIvTranslator;
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_cbarcode: Tf_cbarcode;

implementation

uses p_posmodule;

{$R *.DFM}

procedure Tf_cbarcode.RzBitBtn1Click(Sender: TObject);
begin
try
IF QUERY1.ACTIVE THEN
QUERY1.CLOSE;
QUERY1.ParamByName('MYSID').ASinteger:=strtoint(RzButtonEdit1.text);
QUERY1.OPEN;
IF QUERY1.IsEmpty=TRUE THEN
BEGIN
f_msgdlg:=tf_msgdlg.create(self);
try
f_msgdlg.mymsg.Caption:='wrong Contact number!!!';
f_msgdlg.ShowModal;
except
end;
f_msgdlg.Release;


exit;

END;

modalresult:=mrok;

 except
 end;


end;

end.
