unit1.~dfm

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

      FF7FFF7FFF7FFF7FFF7FFF7FFF7F}
    BarCode = '6901028075800'
    BarCodeWidth = 16
    BarHeight = 32
    BarCodeType = bcCodeEAN13
    BarLabel = #24080#21333#21495
    BarShowLabel = True
  end
  object Label1: TLabel
    Left = 161
    Top = 250
    Width = 123
    Height = 13
    Caption = #26174#31034#38750'DB'#25968#25454#30340#26465#24418#30721
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 4
    Top = 4
    Width = 84
    Height = 13
    Caption = #25903#25345#26465#24418#30721#31867#22411
  end
  object Label3: TLabel
    Left = 248
    Top = 205
    Width = 48
    Height = 13
    Caption = #26059#36716#24230#25968
  end
  object Button1: TButton
    Left = 160
    Top = 274
    Width = 121
    Height = 25
    Caption = #26174#31034#38750'DB'#26465#24418#30721
    TabOrder = 0
    OnClick = Button1Click
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 307
    Width = 459
    Height = 120
    Align = alBottom
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ListBox1: TListBox
    Left = 2
    Top = 23
    Width = 137
    Height = 274
    ItemHeight = 13
    Items.Strings = (
      'bcCode_2_5_interleaved,'
      'bcCode_2_5_industrial,'
      'bcCode_2_5_matrix,'
      'bcCode39,'
      'bcCode39Extended,'
      'bcCode128A,'
      'bcCode128B,'
      'bcCode128C,'
      'bcCode93,'
      'bcCode93Extended,'
      'bcCodeMSI,'
      'bcCodePostNet,'
      'bcCodeCodabar,'
      'bcCodeEAN8,'
      'bcCodeEAN13,'
      'bcCodeUPC_A,'
      'bcCodeUPC_E0,'
      'bcCodeUPC_E1,'
      'bcCodeUPC_Supp2,    { UPC 2 digit supplemental }'
      'bcCodeUPC_Supp5,    { UPC 5 digit supplemental }'
      'bcCodeEAN128A,'
      'bcCodeEAN128B,'
      'bcCodeEAN128C')
    TabOrder = 2
    OnClick = ListBox1Click
  end
  object Button2: TButton
    Left = 320
    Top = 274
    Width = 121
    Height = 25
    Caption = #26174#31034'DB'#26465#24418#30721
    TabOrder = 3
    OnClick = Button2Click
  end
  object LabeledEdit1: TLabeledEdit
    Left = 162
    Top = 176
    Width = 121
    Height = 21
    EditLabel.Width = 60
    EditLabel.Height = 13
    EditLabel.Caption = #26465#24418#30721#23383#31526
    LabelPosition = lpAbove
    LabelSpacing = 3
    TabOrder = 4
    Text = '6901028075800'
  end
  object LabeledEdit2: TLabeledEdit
    Left = 320
    Top = 176
    Width = 121
    Height = 21
    EditLabel.Width = 48
    EditLabel.Height = 13
    EditLabel.Caption = #27880#37322#35828#26126
    LabelPosition = lpAbove
    LabelSpacing = 3
    TabOrder = 5
    Text = #24080#21333#21495
    OnExit = LabeledEdit2Exit
  end
  object CheckBox1: TCheckBox
    Left = 345
    Top = 221
    Width = 97
    Height = 17
    Caption = #26159#21542#26174#31034#27880#37322
    Checked = True
    State = cbChecked
    TabOrder = 6
    OnClick = CheckBox1Click
  end
  object LabeledEdit3: TLabeledEdit
    Left = 160
    Top = 219
    Width = 73
    Height = 21
    EditLabel.Width = 60
    EditLabel.Height = 13
    EditLabel.Caption = #26465#24418#30721#39640#24230
    LabelPosition = lpAbove
    LabelSpacing = 3
    TabOrder = 7
    Text = '32'
  end
  object RAngle: TSpinEdit
    Left = 248
    Top = 218
    Width = 65
    Height = 22
    Increment = 90
    MaxLength = 90
    MaxValue = 270
    MinValue = 0
    TabOrder = 8
    Value = 0
    OnChange = RAngleChange
  end
  object DataSource1: TDataSource
    DataSet = HSDataset1
    Left = 168
    Top = 288
  end
  object HSDataset1: THSDataset
    FieldDefs = <
      item
        Name = 'HSDataset1Field1'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'HSDataset1Field2'
        DataType = ftInteger
      end>
    FilterType = hftAny
    Left = 128
    Top = 288
    object HSDataset1HSDataset1Field1: TStringField
      FieldName = 'HSDataset1Field1'
    end
  end
  object MainMenu1: TMainMenu
    Left = 376
    object N2: TMenuItem
      Caption = '                                                       '
      OnClick = N2Click
    end
    object N1: TMenuItem
      Caption = #20851#20110
      OnClick = N1Click
    end
  end
end