untbox.dfm

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

object FrmBox: TFrmBox
  Left = 53
  Top = 119
  Width = 893
  Height = 503
  Caption = #35013#31665#19994#21153
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 0
    Width = 885
    Height = 2
    Align = alTop
  end
  object dfsSplitter1: TdfsSplitter
    Left = 475
    Top = 59
    Height = 417
    Cursor = crHSplit
    Align = alLeft
    Maximized = False
    Minimized = False
    ButtonCursor = crDefault
  end
  object Panel1: TPanel
    Left = 0
    Top = 2
    Width = 885
    Height = 57
    Align = alTop
    Caption = #35013#31665#19994#21153
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -24
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object Panel2: TPanel
    Left = 733
    Top = 59
    Width = 152
    Height = 417
    Align = alRight
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 8
      Top = 6
      Width = 139
      Height = 77
      Caption = ' '#26085#26399' '
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 24
        Width = 20
        Height = 13
        Caption = #20174':'
      end
      object Label2: TLabel
        Left = 8
        Top = 50
        Width = 20
        Height = 13
        Caption = #33267':'
      end
      object Date1: TDateTimePicker
        Left = 32
        Top = 20
        Width = 102
        Height = 21
        CalAlignment = dtaLeft
        Date = 38322.879978831
        Time = 38322.879978831
        DateFormat = dfShort
        DateMode = dmComboBox
        ImeName = #26216#26342#20116#31508'5.0'
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object Date2: TDateTimePicker
        Left = 32
        Top = 46
        Width = 102
        Height = 21
        CalAlignment = dtaLeft
        Date = 38322.879978831
        Time = 38322.879978831
        DateFormat = dfShort
        DateMode = dmComboBox
        ImeName = #26216#26342#20116#31508'5.0'
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
    end
    object GroupBox2: TGroupBox
      Left = 8
      Top = 87
      Width = 140
      Height = 59
      Caption = ' '#26465#30721' '
      TabOrder = 1
      object EditBarCode: TEdit
        Left = 8
        Top = 24
        Width = 122
        Height = 21
        ImeName = #26216#26342#20116#31508'5.0'
        TabOrder = 0
      end
    end
    object GroupBox3: TGroupBox
      Left = 10
      Top = 157
      Width = 137
      Height = 58
      Caption = ' '#21046#21333' '
      TabOrder = 2
      object EditMaker: TEdit
        Left = 8
        Top = 24
        Width = 121
        Height = 21
        ImeName = #26216#26342#20116#31508'5.0'
        TabOrder = 0
      end
    end
    object btnFind: TButton
      Left = 32
      Top = 232
      Width = 75
      Height = 25
      Caption = #26597#25214
      TabOrder = 3
      OnClick = btnFindClick
    end
    object btnClose: TButton
      Left = 34
      Top = 269
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 4
      OnClick = btnCloseClick
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 59
    Width = 475
    Height = 417
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object Panel5: TPanel
      Left = 0
      Top = 0
      Width = 475
      Height = 197
      Align = alClient
      TabOrder = 0
      object dxDBGrid1: TdxDBGrid
        Left = 1
        Top = 1
        Width = 473
        Height = 154
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'BDCode'
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alClient
        TabOrder = 0
        DataSource = dsQryBox
        Filter.Criteria = {00000000}
        object dxDBGrid1ID: TdxDBGridColumn
          Width = 49
          BandIndex = 0
          RowIndex = 0
        end
        object dxDBGrid1BoxCode: TdxDBGridMaskColumn
          Caption = #31665#26465#24418#30721
          Color = 14483408
          HeaderAlignment = taCenter
          ReadOnly = True
          Width = 171
          BandIndex = 0
          RowIndex = 0
          FieldName = 'BoxCode'
        end
        object dxDBGrid1dDate: TdxDBGridMaskColumn
          Caption = #26085#26399
          HeaderAlignment = taCenter
          ReadOnly = True
          Width = 130
          BandIndex = 0
          RowIndex = 0
          FieldName = 'dDate'
        end
        object dxDBGrid1cMaker: TdxDBGridMaskColumn
          Caption = #21046#21333
          HeaderAlignment = taCenter
          ReadOnly = True
          Width = 80
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cMaker'
        end
      end
      object Panel7: TPanel
        Left = 1
        Top = 155
        Width = 473
        Height = 41
        Align = alBottom
        TabOrder = 1
        object btnOut1: TButton
          Left = 56
          Top = 8
          Width = 75
          Height = 25
          Caption = #36755#20986
          TabOrder = 0
          OnClick = btnOut1Click
        end
        object btnDelete: TButton
          Left = 144
          Top = 8
          Width = 75
          Height = 25
          Caption = #21024#38500
          TabOrder = 1
          OnClick = btnDeleteClick
        end
        object btnShow: TButton
          Left = 232
          Top = 8
          Width = 75
          Height = 25
          Caption = #26174#31034#26126#32454
          TabOrder = 2
          OnClick = btnShowClick
        end
      end
    end
    object Panel8: TPanel
      Left = 0
      Top = 197
      Width = 475
      Height = 220
      Align = alBottom
      TabOrder = 1
      Visible = False
      object Panel9: TPanel
        Left = 1
        Top = 178
        Width = 473
        Height = 41
        Align = alBottom
        TabOrder = 0
        object Label5: TLabel
          Left = 264
          Top = 13
          Width = 34
          Height = 15
          Caption = #20214':0'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
        end
        object btnOut3: TButton
          Left = 56
          Top = 8
          Width = 75
          Height = 25
          Caption = #36755#20986
          TabOrder = 0
          OnClick = btnOut3Click
        end
        object btnHide: TButton
          Left = 160
          Top = 8
          Width = 75
          Height = 25
          Caption = #38544#34255#26126#32454
          TabOrder = 1
          OnClick = btnHideClick
        end
      end
      object dxDBGrid4: TdxDBGrid
        Left = 1
        Top = 1
        Width = 473
        Height = 177
        Bands = <
          item
          end>
        DefaultLayout = True
        HeaderPanelRowCount = 1
        KeyField = 'ID'
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alClient
        TabOrder = 1
        DataSource = dsLsBarCode
        Filter.Criteria = {00000000}
        object dxDBGrid4ID: TdxDBGridColumn
          HeaderAlignment = taCenter
          ReadOnly = True
          Width = 53
          BandIndex = 0
          RowIndex = 0
        end
        object dxDBGrid4BoxCode: TdxDBGridColumn
          Caption = #31665#26465#24418#30721
          HeaderAlignment = taCenter
          ReadOnly = True
          Width = 130
          BandIndex = 0
          RowIndex = 0
          FieldName = 'BoxCode'
        end
        object dxDBGrid4BDCode: TdxDBGridColumn
          Caption = #21253#26465#24418#30721
          HeaderAlignment = taCenter
          ReadOnly = True
          Width = 130
          BandIndex = 0
          RowIndex = 0
          FieldName = 'BDCode'
        end
        object dxDBGrid4cBarCode: TdxDBGridMaskColumn
          Caption = #26465#24418#30721
          Color = 14483408
          HeaderAlignment = taCenter
          ReadOnly = True
          Width = 130
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cBarCode'
        end
        object dxDBGrid4dDate: TdxDBGridColumn
          Caption = #26085#26399
          HeaderAlignment = taCenter
          ReadOnly = True
          Width = 80
          BandIndex = 0
          RowIndex = 0
          FieldName = 'dDate'
        end
        object dxDBGrid4cMaker: TdxDBGridColumn
          Caption = #21046#21333#20154
          HeaderAlignment = taCenter
          ReadOnly = True
          Width = 70
          BandIndex = 0
          RowIndex = 0
          FieldName = 'cMaker'
        end
      end
    end
  end
  object Panel4: TPanel
    Left = 485
    Top = 59
    Width = 248
    Height = 417
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Panel6: TPanel
      Left = 0
      Top = 119
      Width = 248
      Height = 69
      Align = alBottom
      TabOrder = 0
      object Label3: TLabel
        Left = 34
        Top = 43
        Width = 34
        Height = 15
        Caption = #21253':0'
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 160
        Top = 43
        Width = 34
        Height = 15
        Caption = #20214':0'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object btnStart: TButton
        Left = 4
        Top = 8
        Width = 75
        Height = 25
        Caption = #35013#31665
        TabOrder = 0
        OnClick = btnStartClick
      end
      object btnDeleteOne: TButton
        Left = 156
        Top = 8
        Width = 75
        Height = 25
        Caption = #21024#38500#21253
        TabOrder = 1
        OnClick = btnDeleteOneClick
      end
      object btnOut2: TButton
        Left = 308
        Top = 8
        Width = 75
        Height = 25
        Caption = #36755#20986
        TabOrder = 2
        OnClick = btnOut2Click
      end
      object btnSave: TButton
        Left = 80
        Top = 8
        Width = 75
        Height = 25
        Caption = #20445#23384
        TabOrder = 3
        OnClick = btnSaveClick
      end
      object btnDrop: TButton
        Left = 233
        Top = 8
        Width = 75
        Height = 25
        Caption = #25968#25454#28165#31354
        TabOrder = 4
        OnClick = btnDropClick
      end
    end
    object dxDBGrid2: TdxDBGrid
      Left = 0
      Top = 0
      Width = 248
      Height = 119
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'ID'
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 1
      OnKeyDown = dxDBGrid2KeyDown
      DataSource = dsQryBundle
      Filter.Criteria = {00000000}
      object dxDBGrid2BdCode: TdxDBGridMaskColumn
        Caption = #21253#26465#24418#30721
        Color = 14483408
        HeaderAlignment = taCenter
        Width = 218
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BdCode'
      end
    end
    object dxDBGrid3: TdxDBGrid
      Left = 0
      Top = 188
      Width = 248
      Height = 229
      Bands = <
        item
        end>
      DefaultLayout = True
      HeaderPanelRowCount = 1
      KeyField = 'ID'
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alBottom
      TabOrder = 2
      DataSource = dsQryBarCode
      Filter.Criteria = {00000000}
      object dxDBGrid3ID: TdxDBGridColumn
        HeaderAlignment = taCenter
        Width = 53
        BandIndex = 0
        RowIndex = 0
      end
      object dxDBGrid3BDCode: TdxDBGridColumn
        Caption = #21253#26465#24418#30721
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 140
        BandIndex = 0
        RowIndex = 0
        FieldName = 'BDCode'
      end
      object dxDBGrid3cBarCode: TdxDBGridMaskColumn
        Caption = #26465#24418#30721
        Color = 14483408
        HeaderAlignment = taCenter
        ReadOnly = True
        Width = 159
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cBarCode'
      end
    end
  end
  object QryBox: TADOQuery
    Connection = DataDm.ConDataSys
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select DISTINCT BoxCode,dDate,cMaker from Box')
    Left = 96
    Top = 208
  end
  object dsQryBox: TDataSource
    DataSet = QryBox
    Left = 128
    Top = 208
  end
  object QryBundle: TADOQuery
    Connection = DataDm.ConDataSys
    CursorType = ctStatic
    BeforePost = QryBundleBeforePost
    AfterPost = QryBundleAfterPost
    OnNewRecord = QryBundleNewRecord
    Parameters = <>
    SQL.Strings = (
      'select * from LsBoxMain')
    Left = 374
    Top = 128
  end
  object dsQryBundle: TDataSource
    DataSet = QryBundle
    Left = 408
    Top = 128
  end
  object QryBarCode: TADOQuery
    Connection = DataDm.ConDataSys
    CursorType = ctStatic
    OnNewRecord = QryBundleNewRecord
    Parameters = <>
    SQL.Strings = (
      'select * from LsBoxList')
    Left = 374
    Top = 280
  end
  object dsQryBarCode: TDataSource
    DataSet = QryBarCode
    Left = 408
    Top = 280
  end
  object LsBarCode: TADOQuery
    Connection = DataDm.ConDataSys
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'boxcode'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 30
        Value = '20041202222154921'
      end>
    SQL.Strings = (
      'select * from box'
      'where boxcode=:boxcode')
    Left = 104
    Top = 376
  end
  object dsLsBarCode: TDataSource
    DataSet = LsBarCode
    Left = 136
    Top = 376
  end
end