frmtransvouchp.dfm

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

        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 = dsQryTrans
        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 = dsQryTrans
      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 QryTran: TADOQuery
    Connection = DataDm.AdoConUfsoft
    CursorType = ctStatic
    BeforeEdit = QryTranBeforeEdit
    BeforePost = QryTranBeforePost
    AfterPost = QryTranAfterPost
    AfterScroll = QryTranAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from Szb_PurIn')
    Left = 120
    Top = 112
    object QryTranid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object QryTrancMaker: TStringField
      FieldName = 'cMaker'
    end
    object QryTranPCID: TStringField
      FieldName = 'PCID'
    end
    object QryTrancVouchType: TStringField
      FieldName = 'cVouchType'
      Size = 6
    end
    object QryTrancOrderCode: TStringField
      FieldName = 'cOrderCode'
      Size = 30
    end
    object QryTranipurorderid: TIntegerField
      FieldName = 'ipurorderid'
    end
    object QryTrancType: TStringField
      FieldName = 'cType'
      Size = 10
    end
    object QryTrancVenCode: TStringField
      FieldName = 'cVenCode'
      Size = 30
    end
    object QryTrancVenAbbName: TStringField
      FieldName = 'cVenAbbName'
      Size = 30
    end
    object QryTrancDept: TStringField
      FieldName = 'cDept'
    end
    object QryTrancDeptName: TStringField
      FieldName = 'cDeptName'
      Size = 30
    end
    object QryTrancPerson: TStringField
      FieldName = 'cPerson'
    end
    object QryTrancPersonName: TStringField
      FieldName = 'cPersonName'
      Size = 30
    end
    object QryTrancWhCode: TStringField
      FieldName = 'cWhCode'
    end
    object QryTrancWhName: TStringField
      FieldName = 'cWhName'
      Size = 30
    end
    object QryTrancPTCode: TStringField
      FieldName = 'cPTCode'
      Size = 15
    end
    object QryTrancRdCode: TStringField
      FieldName = 'cRdCode'
      Size = 15
    end
    object QryTrancMemo: TStringField
      FieldName = 'cMemo'
      Size = 60
    end
    object QryTranipurarriveid: TIntegerField
      FieldName = 'ipurarriveid'
    end
    object QryTrancCusCode: TStringField
      FieldName = 'cCusCode'
      Size = 30
    end
    object QryTrancPTName: TStringField
      FieldName = 'cPTName'
    end
    object QryTrancc: TStringField
      FieldKind = fkCalculated
      FieldName = 'cc'
      Size = 4
      Calculated = True
    end
    object QryTrancError: TStringField
      FieldKind = fkCalculated
      FieldName = 'cError'
      Size = 50
      Calculated = True
    end
    object QryTrancCusAbbName: TStringField
      FieldName = 'cCusAbbName'
      Size = 30
    end
    object QryTrancWhcodeOut: TStringField
      FieldName = 'cWhcodeOut'
      Size = 15
    end
    object QryTrancWhNameOut: TStringField
      FieldName = 'cWhNameOut'
    end
    object QryTrancSTCode: TStringField
      FieldName = 'cSTCode'
      Size = 15
    end
    object QryTrancSTName: TStringField
      FieldName = 'cSTName'
    end
    object QryTrancRdName: TStringField
      FieldName = 'cRdName'
    end
    object QryTrancRdCodeOut: TStringField
      FieldName = 'cRdCodeOut'
      Size = 15
    end
    object QryTrancRdNameOut: TStringField
      FieldName = 'cRdNameOut'
    end
    object QryTranDLID: TIntegerField
      FieldName = 'DLID'
    end
  end
  object dsQryTran: TDataSource
    DataSet = QryTran
    Left = 160
    Top = 112
  end
  object QryTrans: TADOQuery
    Connection = DataDm.AdoConUfsoft
    CursorType = ctStatic
    BeforeEdit = QryTransBeforeEdit
    AfterScroll = QryTransAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from Szb_PurInList'
      '')
    Left = 104
    Top = 384
    object QryTranscc: TStringField
      FieldKind = fkCalculated
      FieldName = 'cc'
      Size = 2
      Calculated = True
    end
    object QryTransID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object QryTransPCID: TStringField
      FieldName = 'PCID'
    end
    object QryTransiPurID: TIntegerField
      FieldName = 'iPurID'
    end
    object QryTranscInvCode: TStringField
      FieldName = 'cInvCode'
      Size = 30
    end
    object QryTranscInvName: TStringField
      FieldName = 'cInvName'
      Size = 50
    end
    object QryTranscInvStd: TStringField
      FieldName = 'cInvStd'
      Size = 60
    end
    object QryTranscBarCode: TStringField
      FieldName = 'cBarCode'
      Size = 30
    end
    object QryTransiQuantity: TFloatField
      FieldName = 'iQuantity'
    end
    object QryTransiUnitCost: TFloatField
      FieldName = 'iUnitCost'
    end
    object QryTransiPrice: TBCDField
      FieldName = 'iPrice'
      Precision = 19
    end
    object QryTransiPosID: TIntegerField
      FieldName = 'iPosID'
    end
    object QryTranscError: TStringField
      FieldKind = fkCalculated
      FieldName = 'cError'
      Size = 50
      Calculated = True
    end
    object QryTransiArrsId: TIntegerField
      FieldName = 'iArrsId'
    end
    object QryTranscVouchType: TStringField
      FieldName = 'cVouchType'
      Size = 6
    end
    object QryTransiDLsID: TIntegerField
      FieldName = 'iDLsID'
    end
    object QryTranscFree1: TStringField
      FieldName = 'cFree1'
    end
    object QryTranscFree2: TStringField
      FieldName = 'cFree2'
    end
  end
  object dsQryTrans: TDataSource
    DataSet = QryTrans
    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