unitseribarkod.pas

Basic Marketing stock Program

unit Unitseribarkod;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ColorBtns, DBarcode, DBarQrp, QuickRpt, Qrctrls, ExtCtrls,
  DBarImage, Buttons;

type
  Tseribarkod = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    QRImage1: TQRImage;
    QRImage2: TQRImage;
    ComboBox1: TComboBox;
    Label2: TLabel;
    QRImage3: TQRImage;
    QRImage4: TQRImage;
    QRImage5: TQRImage;
    QRImage6: TQRImage;
    QRImage7: TQRImage;
    QRImage8: TQRImage;
    QRImage9: TQRImage;
    QRImage10: TQRImage;
    barimage: TDuckBarCodeImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox2: TComboBox;
    Label3: TLabel;
    QRImage11: TQRImage;
    QRImage12: TQRImage;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  seribarkod: Tseribarkod;

implementation

{$R *.DFM}

procedure Tseribarkod.BitBtn1Click(Sender: TObject);
begin
        close;
end;

procedure Tseribarkod.BitBtn2Click(Sender: TObject);
begin
       barimage.Options :=barimage.Options - [bocheckcrc];
       if ComboBox1.Text='EVET' Then
            barimage.Options :=barimage.Options + [bocheckcrc];
       barimage.Text:=Edit1.Text;
       QRImage1.Picture:=barimage.Picture;
       QRImage2.Picture:=barimage.Picture;
       QRImage3.Picture:=barimage.Picture;
       QRImage4.Picture:=barimage.Picture;
       QRImage5.Picture:=barimage.Picture;
       QRImage6.Picture:=barimage.Picture;
       QRImage7.Picture:=barimage.Picture;
       QRImage8.Picture:=barimage.Picture;
       QRImage9.Picture:=barimage.Picture;
       QRImage10.Picture:=barimage.Picture;
       QRImage11.Picture:=barimage.Picture;
       QRImage12.Picture:=barimage.Picture;
       Quickrep1.Preview;

end;

procedure Tseribarkod.ComboBox2Change(Sender: TObject);
begin
       if ComBobox2.Text='bsEAN13' then
          barimage.Style:=bsEAN13;
       if ComBobox2.Text='bsEAN8' then
          barimage.Style:=bsEAN8;
       if ComBobox2.Text='bsUPCA' then
          barimage.Style:=bsUPCA;
       if ComBobox2.Text='bsUPCE' then
          barimage.Style:=bsUPCE;
end;

end.