frmotheroutp.dfm

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

          0000FFFFFF008400848484008400848484008400848484008400848484008400
          848484008400848484008400848484008400848484FFFFFF0000}
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = btnOutBodyClick
      end
      object SpeedButton1: TSpeedButton
        Left = 235
        Top = 10
        Width = 76
        Height = 25
        Hint = 'Delete'
        Caption = #21024#24405
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333333333000033337733333333333333333F333333333333
          0000333911733333973333333377F333333F3333000033391117333911733333
          37F37F333F77F33300003339111173911117333337F337F3F7337F3300003333
          911117111117333337F3337F733337F3000033333911111111733333337F3337
          3333F7330000333333911111173333333337F333333F73330000333333311111
          7333333333337F3333373333000033333339111173333333333337F333733333
          00003333339111117333333333333733337F3333000033333911171117333333
          33337333337F333300003333911173911173333333373337F337F33300003333
          9117333911173333337F33737F337F33000033333913333391113333337FF733
          37F337F300003333333333333919333333377333337FFF730000333333333333
          3333333333333333333777330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton1Click
      end
      object Label3: TLabel
        Left = 405
        Top = 15
        Width = 72
        Height = 16
        Caption = #25968#37327#24635#35745':'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object DBNavigator2: TDBNavigator
        Left = 104
        Top = 10
        Width = 128
        Height = 25
        DataSource = dsQryOtherOutList
        VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
        TabOrder = 0
      end
    end
    object dxDBGrid2: TdxDBGrid
      Left = 0
      Top = 308
      Width = 543
      Height = 45
      Bands = <
        item
          Fixed = bfLeft
        end
        item
        end>
      DefaultLayout = False
      HeaderPanelRowCount = 1
      KeyField = 'ID'
      ShowSummaryFooter = True
      SummaryGroups = <>
      SummarySeparator = ', '
      Align = alClient
      TabOrder = 3
      DataSource = dsQryOtherOutList
      Filter.Criteria = {00000000}
      OptionsBehavior = [edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
      OptionsDB = [edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoLoadAllRecords, edgoUseBookmarks]
      RowFooterColor = clWhite
      object dxDBGrid2cc: TdxDBGridColumn
        Alignment = taCenter
        Caption = '-'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        HeaderAlignment = taCenter
        Width = 23
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cc'
      end
      object dxDBGrid2cBarCode: TdxDBGridMaskColumn
        Caption = #26465#24418#30721
        HeaderAlignment = taCenter
        Width = 120
        BandIndex = 0
        RowIndex = 0
        FieldName = 'cBarCode'
        SummaryFooterType = cstCount
      end
      object dxDBGrid2cInvCode: TdxDBGridMaskColumn
        Caption = #23384#36135#20195#30721
        HeaderAlignment = taCenter
        Width = 108
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cInvCode'
      end
      object dxDBGrid2cInvName: TdxDBGridMaskColumn
        Caption = #23384#36135#21517#31216
        HeaderAlignment = taCenter
        Width = 143
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cInvName'
      end
      object dxDBGrid2cFree1: TdxDBGridColumn
        Alignment = taLeftJustify
        Caption = #39068#33394
        HeaderAlignment = taCenter
        Width = 50
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cFree1'
      end
      object dxDBGrid2cFree2: TdxDBGridColumn
        Caption = #23610#30721
        HeaderAlignment = taCenter
        Width = 50
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cFree2'
      end
      object dxDBGrid2cInvStd: TdxDBGridMaskColumn
        Caption = #35268#26684
        HeaderAlignment = taCenter
        Width = 150
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cInvStd'
      end
      object dxDBGrid2iQuantity: TdxDBGridMaskColumn
        Caption = #25968#37327
        HeaderAlignment = taCenter
        Width = 74
        BandIndex = 1
        RowIndex = 0
        FieldName = 'iQuantity'
        SummaryFooterType = cstSum
      end
      object dxDBGrid2iUnitCost: TdxDBGridMaskColumn
        Caption = #21333#20215
        HeaderAlignment = taCenter
        Visible = False
        Width = 76
        BandIndex = 1
        RowIndex = 0
        FieldName = 'iUnitCost'
      end
      object dxDBGrid2iPrice: TdxDBGridCurrencyColumn
        Caption = #37329#39069
        HeaderAlignment = taCenter
        Visible = False
        Width = 140
        BandIndex = 1
        RowIndex = 0
        FieldName = 'iPrice'
        SummaryFooterType = cstSum
        Nullable = False
      end
      object dxDBGrid2cError: TdxDBGridColumn
        Caption = #38169#35823#25552#31034
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        HeaderAlignment = taCenter
        Width = 250
        BandIndex = 1
        RowIndex = 0
        FieldName = 'cError'
      end
    end
  end
  object QryOtherOut: TADOQuery
    Connection = DataDm.AdoConUfsoft
    CursorType = ctStatic
    BeforeEdit = QryOtherOutBeforeEdit
    BeforePost = QryOtherOutBeforePost
    AfterPost = QryOtherOutAfterPost
    AfterScroll = QryOtherOutAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from Szb_PurIn')
    Left = 120
    Top = 112
    object QryOtherOutid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object QryOtherOutcMaker: TStringField
      FieldName = 'cMaker'
    end
    object QryOtherOutPCID: TStringField
      FieldName = 'PCID'
    end
    object QryOtherOutcVouchType: TStringField
      FieldName = 'cVouchType'
      Size = 6
    end
    object QryOtherOutcOrderCode: TStringField
      FieldName = 'cOrderCode'
      Size = 30
    end
    object QryOtherOutipurorderid: TIntegerField
      FieldName = 'ipurorderid'
    end
    object QryOtherOutcType: TStringField
      FieldName = 'cType'
      Size = 10
    end
    object QryOtherOutcVenCode: TStringField
      FieldName = 'cVenCode'
      Size = 30
    end
    object QryOtherOutcVenAbbName: TStringField
      FieldName = 'cVenAbbName'
      Size = 30
    end
    object QryOtherOutcDept: TStringField
      FieldName = 'cDept'
    end
    object QryOtherOutcDeptName: TStringField
      FieldName = 'cDeptName'
      Size = 30
    end
    object QryOtherOutcPerson: TStringField
      FieldName = 'cPerson'
    end
    object QryOtherOutcPersonName: TStringField
      FieldName = 'cPersonName'
      Size = 30
    end
    object QryOtherOutcWhCode: TStringField
      FieldName = 'cWhCode'
    end
    object QryOtherOutcWhName: TStringField
      FieldName = 'cWhName'
      Size = 30
    end
    object QryOtherOutcPTCode: TStringField
      FieldName = 'cPTCode'
      Size = 15
    end
    object QryOtherOutcRdCode: TStringField
      FieldName = 'cRdCode'
      Size = 15
    end
    object QryOtherOutcMemo: TStringField
      FieldName = 'cMemo'
      Size = 60
    end
    object QryOtherOutipurarriveid: TIntegerField
      FieldName = 'ipurarriveid'
    end
    object QryOtherOutcCusCode: TStringField
      FieldName = 'cCusCode'
      Size = 30
    end
    object QryOtherOutcCusAbbName: TStringField
      FieldName = 'cCusAbbName'
      Size = 30
    end
    object QryOtherOutcPTName: TStringField
      FieldName = 'cPTName'
    end
    object QryOtherOutcSTCode: TStringField
      FieldName = 'cSTCode'
      Size = 15
    end
    object QryOtherOutcSTName: TStringField
      FieldName = 'cSTName'
    end
    object QryOtherOutDLID: TIntegerField
      FieldName = 'DLID'
    end
    object QryOtherOutcc: TStringField
      FieldKind = fkCalculated
      FieldName = 'cc'
      Size = 4
      Calculated = True
    end
    object QryOtherOutcError: TStringField
      FieldKind = fkCalculated
      FieldName = 'cError'
      Size = 50
      Calculated = True
    end
    object QryOtherOutcRdName: TStringField
      FieldName = 'cRdName'
    end
  end
  object dsQryOtherOut: TDataSource
    DataSet = QryOtherOut
    Left = 160
    Top = 112
  end
  object QryOtherOutList: TADOQuery
    Connection = DataDm.AdoConUfsoft
    CursorType = ctStatic
    BeforeEdit = QryOtherOutListBeforeEdit
    AfterScroll = QryOtherOutListAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from Szb_PurInList'
      '')
    Left = 104
    Top = 384
    object QryOtherOutListcc: TStringField
      FieldKind = fkCalculated
      FieldName = 'cc'
      Size = 2
      Calculated = True
    end
    object QryOtherOutListID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object QryOtherOutListPCID: TStringField
      FieldName = 'PCID'
    end
    object QryOtherOutListiPurID: TIntegerField
      FieldName = 'iPurID'
    end
    object QryOtherOutListcInvCode: TStringField
      FieldName = 'cInvCode'
      Size = 30
    end
    object QryOtherOutListcInvName: TStringField
      FieldName = 'cInvName'
      Size = 50
    end
    object QryOtherOutListcInvStd: TStringField
      FieldName = 'cInvStd'
      Size = 60
    end
    object QryOtherOutListcBarCode: TStringField
      FieldName = 'cBarCode'
      Size = 30
    end
    object QryOtherOutListiQuantity: TFloatField
      FieldName = 'iQuantity'
    end
    object QryOtherOutListiUnitCost: TFloatField
      FieldName = 'iUnitCost'
    end
    object QryOtherOutListiPrice: TBCDField
      FieldName = 'iPrice'
      Precision = 19
    end
    object QryOtherOutListiPosID: TIntegerField
      FieldName = 'iPosID'
    end
    object QryOtherOutListcError: TStringField
      FieldKind = fkCalculated
      FieldName = 'cError'
      Size = 50
      Calculated = True
    end
    object QryOtherOutListiArrsId: TIntegerField
      FieldName = 'iArrsId'
    end
    object QryOtherOutListcVouchType: TStringField
      FieldName = 'cVouchType'
      Size = 6
    end
    object QryOtherOutListiDLsID: TIntegerField
      FieldName = 'iDLsID'
    end
    object QryOtherOutListcFree1: TStringField
      FieldName = 'cFree1'
    end
    object QryOtherOutListcFree2: TStringField
      FieldName = 'cFree2'
    end
  end
  object dsQryOtherOutList: TDataSource
    DataSet = QryOtherOutList
    Left = 136
    Top = 384
  end
  object LsQryPop: TADOQuery
    Connection = DataDm.AdoConUfsoft
    Parameters = <>
    SQL.Strings = (
      'SELECT DISTINCT dbo.Szb_PurInList.cBarCode'
      'FROM dbo.Inventory RIGHT OUTER JOIN'
      '      dbo.Szb_PurInList ON '
      '      dbo.Inventory.cBarCode = dbo.Szb_PurInList.cBarCode'
      'WHERE (dbo.Inventory.cBarCode IS NULL)'
      'Order by dbo.Szb_PurInList.cBarCode')
    Left = 288
    Top = 168
  end
  object QryCheckPo: TADOQuery
    Connection = DataDm.AdoConUfsoft
    Parameters = <>
    SQL.Strings = (
      'SELECT  dbo.Szb_PurIn.ID,dbo.Szb_PurIn.cOrderCode'
      'FROM dbo.Szb_PurIn LEFT OUTER JOIN'
      
        '      dbo.PO_Pomain ON dbo.Szb_PurIn.cOrderCode = dbo.PO_Pomain.' +
        'cPOID'
      'WHERE (dbo.PO_Pomain.cPOID IS NULL)')
    Left = 328
    Top = 240
  end
  object QryCheckType: TADOQuery
    Connection = DataDm.AdoConUfsoft
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT Szb_PurIn.id, Szb_PurIn.cType'
      'FROM (SELECT *'
      '        FROM szb_ini'
      
        '        WHERE (Szb_Ini.cMaker = '#39'admin'#39') AND (Szb_Ini.cType = '#39#37319 +
        #36141#35746#21333#39')) '
      '      AA RIGHT OUTER JOIN'
      '      Szb_PurIn ON AA.cNO = Szb_PurIn.cType'
      'WHERE (Szb_PurIn.PCID = '#39'095947589'#39') AND (AA.cNO IS NULL)')
    Left = 368
    Top = 176
  end
  object SaveDialog1: TSaveDialog
    Filter = '*.xml|*.xml'
    Left = 72
    Top = 32
  end
end