frmdefinep.~dfm

二次开发模块 一、条形码的批量生成

        0000840000840000CED3D6000000CED3D6CED3D6CED3D6000000848200848200
        000000FFFFFFFFFFFFFFFFFF000000CED3D6CED3D6CED3D6840000840000CED3
        D6CED3D6CED3D6000000CED3D6CED3D6CED3D6000000848200000000FFFFFFFF
        FFFFFFFFFFFFFFFF000000CED3D6CED3D6CED3D6CED3D6840000CED3D6CED3D6
        CED3D6000000CED3D6CED3D6CED3D6000000000000FFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFF000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D600
        0000CED3D6CED3D6CED3D6000000000000000000000000000000000000000000
        000000CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6000000CED3
        D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CE
        D3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6CED3D6000000}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = sbCloseClick
    end
    object GroupBox1: TGroupBox
      Left = 9
      Top = 86
      Width = 137
      Height = 63
      Caption = ' '#19978#28216#21333#25454' '
      TabOrder = 0
      object ComboBox1: TComboBox
        Left = 7
        Top = 24
        Width = 123
        Height = 21
        Style = csDropDownList
        ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
        ItemHeight = 13
        TabOrder = 0
        OnClick = ComboBox1Click
        Items.Strings = (
          #37319#36141#35746#21333
          #37319#36141#21040#36135#21333)
      end
    end
    object BtnSave: TBitBtn
      Left = 36
      Top = 225
      Width = 76
      Height = 25
      Caption = #20445#23384
      TabOrder = 1
      OnClick = BtnSaveClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888880000000000000880330000008803088033000000880308803300000088
        0308803300000000030880333333333333088033000000003308803088888888
        0308803088888888030880308888888803088030888888880308803088888888
        0008803088888888080880000000000000088888888888888888}
    end
    object BtnCancel: TBitBtn
      Left = 36
      Top = 253
      Width = 76
      Height = 25
      Cancel = True
      Caption = #25918#24323
      TabOrder = 2
      OnClick = BtnCancelClick
      Glyph.Data = {
        1E010000424D1E010000000000007600000028000000110000000E0000000100
        040000000000A800000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8888800000008888888888888888800000008888888888888888800000008888
        8888888888888000000088888888888048888000000088444448887740888000
        0000884444788888748880000000884447888888748880000000884474788887
        7488800000008847884477774088800000008878888844440888800000008888
        8888888888888000000088888888888888888000000088888888888888888000
        0000}
    end
    object GroupBox2: TGroupBox
      Left = 9
      Top = 6
      Width = 137
      Height = 59
      Caption = ' '#21333#25454#31867#22411' '
      TabOrder = 3
      object ComboBoxVouch: TComboBox
        Left = 7
        Top = 24
        Width = 123
        Height = 21
        Style = csDropDownList
        ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
        ItemHeight = 13
        TabOrder = 0
        OnClick = ComboBoxVouchClick
        Items.Strings = (
          #37319#36141#20837#24211#21333
          #20135#25104#21697#20837#24211#21333
          #20854#23427#20837#24211#21333
          #26448#26009#20986#24211#21333
          #20854#23427#20986#24211#21333
          #35843#25320#21333)
      end
    end
  end
  object dxDBGrid1: TdxDBGrid
    Left = 0
    Top = 57
    Width = 536
    Height = 396
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alClient
    TabOrder = 2
    DataSource = dsQryIni
    Filter.Criteria = {00000000}
    object dxDBGrid1cNO: TdxDBGridColumn
      Caption = #26041#26696#21495
      HeaderAlignment = taCenter
      Width = 63
      BandIndex = 0
      RowIndex = 0
      FieldName = 'cNO'
    end
    object dxDBGrid1cPTName: TdxDBGridPopupColumn
      Caption = #37319#36141#31867#22411
      HeaderAlignment = taCenter
      Visible = False
      Width = 95
      BandIndex = 0
      RowIndex = 0
      FieldName = 'cPTName'
      OnEditButtonClick = dxDBGrid1cPTNameEditButtonClick
      PopupControl = FrmPopIni.Panel2
      OnCloseUp = dxDBGrid1cPTNameCloseUp
    end
    object dxDBGrid1cRdName: TdxDBGridPopupColumn
      Caption = #20837#24211#31867#21035
      HeaderAlignment = taCenter
      Visible = False
      Width = 95
      BandIndex = 0
      RowIndex = 0
      FieldName = 'cRdName'
      OnEditButtonClick = dxDBGrid1cRdNameEditButtonClick
      PopupControl = FrmPopIni.Panel3
      OnCloseUp = dxDBGrid1cRdNameCloseUp
    end
    object dxDBGrid1cRdNameOut: TdxDBGridPopupColumn
      Caption = #20986#24211#31867#21035
      HeaderAlignment = taCenter
      Width = 95
      BandIndex = 0
      RowIndex = 0
      FieldName = 'cRdNameOut'
      OnEditButtonClick = dxDBGrid1cRdNameOutEditButtonClick
      PopupControl = FrmPopIni.Panel5
      OnCloseUp = dxDBGrid1cRdNameOutCloseUp
    end
    object dxDBGrid1cWhName: TdxDBGridPopupColumn
      Caption = #20179#24211
      HeaderAlignment = taCenter
      Width = 95
      BandIndex = 0
      RowIndex = 0
      FieldName = 'cWhName'
      OnEditButtonClick = dxDBGrid1cWhNameEditButtonClick
      PopupControl = FrmPopIni.Panel4
      OnCloseUp = dxDBGrid1cWhNameCloseUp
    end
    object dxDBGrid1cWhNameOut: TdxDBGridPopupColumn
      Caption = #20986#24211#20179#24211
      HeaderAlignment = taCenter
      Width = 95
      BandIndex = 0
      RowIndex = 0
      FieldName = 'cWhNameOut'
      PopupControl = FrmPopIni.Panel4
      OnCloseUp = dxDBGrid1cWhNameOutCloseUp
    end
  end
  object QryIni: TADOQuery
    Active = True
    Connection = DataDm.AdoConUfsoft
    CursorType = ctStatic
    OnNewRecord = QryIniNewRecord
    Parameters = <>
    SQL.Strings = (
      'select * from szb_ini')
    Left = 144
    Top = 264
  end
  object dsQryIni: TDataSource
    DataSet = QryIni
    Left = 184
    Top = 264
  end
end