unit1.~pas

一个完全免费的条码打印控件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, uHSBarCodeImage, DB, ADODB, StdCtrls, Grids, DBGrids,
  RxMemDS, uHSDataset, Menus, RXSpin, Spin;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Button1: TButton;
    DBGrid1: TDBGrid;
    HSBarCodeImage1: THSBarCodeImage;
    HSDataset1: THSDataset;
    ListBox1: TListBox;
    Button2: TButton;
    LabeledEdit1: TLabeledEdit;
    HSDataset1HSDataset1Field1: TStringField;
    LabeledEdit2: TLabeledEdit;
    CheckBox1: TCheckBox;
    LabeledEdit3: TLabeledEdit;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    Label2: TLabel;
    N2: TMenuItem;
    Label3: TLabel;
    RAngle: TSpinEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure LabeledEdit2Exit(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure RAngleChange(Sender: TObject);
  private
    { Private declarations }
    procedure showNew;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  HSBarCodeImage1.DataSource:=nil;
  HSBarCodeImage1.DataField:='';
  label1.Caption:='显示非DB数据得条形码';
  showNew;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  With HSDataset1 Do
  Begin
    Close;
    Open;
    Append;
    fields[0].AsString:='1234545';
    Append;
    fields[0].AsString:='1454545';
    Append;
    fields[0].AsString:='1343434';
    Append;
    fields[0].AsString:='3453545';
    Append;
    fields[0].AsString:='3453343';

  End;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  HSBarCodeImage1.BarCodeType:=THSBarcodeType(listbox1.ItemIndex);
  showNew;
end;

procedure TForm1.showNew;
begin
  HSBarCodeImage1.BarCode:=LabeledEdit1.Text;
  HSBarCodeImage1.BarLabel:=LabeledEdit2.Text;
  HSBarCodeImage1.BarShowLabel:=checkbox1.Checked;
  HSBarCodeImage1.BarCodeAngle:=RAngle.Value;
  HSBarCodeImage1.BarHeight:=strtoint(LabeledEdit3.Text);
  HSBarCodeImage1.ShowBarCode;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  HSBarCodeImage1.DataSource:=datasource1;
  HSBarCodeImage1.DataField:=Datasource1.DataSet.Fields[0].FieldName;
  label1.Caption:='显示DB数据得条形码';
  showNew;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
  Showmessage('********************************************'+#13#10+
              '**********HSPackage V1.0 自定义组件包*******'+#13#10+
              '*************HSBarCodeImage v1.1************'+#13#10+
              '************* 小点工作室编写 ***************'+#13#10+
              '********************************************'+#13#10+
              '**** Copyright (c) 1998-2001 by onedot *****'+#13#10+
              '******** E-Mail:[e-mail] ************'+#13#10+
              '********************************************');
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  shownew;
end;

procedure TForm1.LabeledEdit2Exit(Sender: TObject);
begin
  shownew;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
  showmessage('想干吗呢，呵呵');
end;

procedure TForm1.RAngleChange(Sender: TObject);
begin
  shownew;
end;

end.