dfm_receive.dfm

仓库管理系统 仓库管理系统

        CurrencyStyle.CurrencySymbol = #65509
        CurrencyStyle.CompartColor = clSilver
        CurrencyStyle.KilobitColor = clGreen
        CurrencyStyle.RadixColor = clRed
        CurrencyStyle.ShowMinus = True
        CurrencyStyle.ShowZero = False
        CurrencyStyle.MinusColor = clRed
        CurrencyStyle.Layout = tlCenter
        CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
        CurrencyStyle.HeadFont.Color = clWindowText
        CurrencyStyle.HeadFont.Height = -11
        CurrencyStyle.HeadFont.Name = #26999#20307'_GB2312'
        CurrencyStyle.HeadFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'cincepbra'
            Footer.Value = #21512#35745#65306
            Footer.ValueType = fvtStaticText
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #25910#36135#37096#38376
            Width = 54
          end
          item
            EditButtons = <>
            FieldName = 'csendbra'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #21457#36135#37096#38376
            Width = 56
          end
          item
            EditButtons = <>
            FieldName = 'cstdbno'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #21333#25454#21495
          end
          item
            EditButtons = <>
            FieldName = 'cdate'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #26085#26399
            Width = 72
          end
          item
            EditButtons = <>
            FieldName = 'spbh'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #21830#21697#32534#30721
            Width = 74
          end
          item
            EditButtons = <>
            FieldName = 'sl'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #25968#37327
            Width = 41
          end
          item
            EditButtons = <>
            FieldName = 'cdbj'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #35843#25300#20215
            Width = 48
          end
          item
            EditButtons = <>
            FieldName = 'clsj'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #21806#20215
            Width = 38
          end
          item
            EditButtons = <>
            FieldName = 'cuser'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #25805#20316#21592
            Width = 46
          end>
      end
    end
    object TabSheet4: TTabSheet
      Caption = #21464#20215#21333#25509#25910
      ImageIndex = 3
    end
    object TabSheet3: TTabSheet
      Caption = #36890#30693
      ImageIndex = 2
      object GroupBox3: TGroupBox
        Left = 0
        Top = 0
        Width = 129
        Height = 345
        Align = alLeft
        Caption = #36890#30693#36164#26009#25991#20214
        TabOrder = 0
        object Memo3: TMemo
          Left = 2
          Top = 14
          Width = 125
          Height = 329
          Align = alClient
          TabOrder = 0
          OnClick = Memo3Click
        end
      end
      object GroupBox4: TGroupBox
        Left = 129
        Top = 0
        Width = 489
        Height = 345
        Align = alClient
        Caption = #36890#30693#20869#23481
        TabOrder = 1
        object richedit2: TRichEdit
          Left = 2
          Top = 14
          Width = 485
          Height = 329
          Align = alClient
          ReadOnly = True
          TabOrder = 0
        end
      end
    end
  end
  object ADOTable1: TADOTable
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    TableName = 't_spectemp'
    Left = 160
    Top = 32
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 128
    Top = 32
  end
  object ADOQuery1: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      'delete from t_spectemp')
    Left = 208
    Top = 32
  end
  object ADOQuery2: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      'insert into t_spec'
      'select * from v_insflh')
    Left = 248
    Top = 32
  end
  object ADOTable2: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 't_waretemp'
    Left = 160
    Top = 80
  end
  object ADOQuery3: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      'delete from t_waretemp')
    Left = 200
    Top = 80
  end
  object ADOQuery4: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      'insert into t_ware'
      'select * from v_insware')
    Left = 248
    Top = 80
  end
  object ADOTable3: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 't_transpara'
    Left = 160
    Top = 120
  end
  object ADOQuery5: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      'delete from t_stdbtemp')
    Left = 200
    Top = 120
  end
  object ADOTable4: TADOTable
    Connection = dmRainbowMIS.adopos
    CursorType = ctStatic
    TableName = 't_stdbtemp'
    Left = 320
    Top = 120
  end
  object DataSource2: TDataSource
    DataSet = ADOTable4
    Left = 280
    Top = 120
  end
  object Atblstoin: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 't_stoin'
    Left = 360
    Top = 120
  end
  object ADOQuery6: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    Left = 408
    Top = 120
  end
  object ADOQuery7: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      'insert into t_store'
      'select * from v_insdb')
    Left = 448
    Top = 120
  end
  object atblprice: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 't_pricetmp'
    Left = 160
    Top = 168
  end
  object ADOQuery8: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      'delete from t_pricetmp ')
    Left = 192
    Top = 168
  end
  object ADOQuery9: TADOQuery
    Connection = dmRainbowMIS.adopos
    Parameters = <>
    SQL.Strings = (
      'UPDATE t_ware, t_pricetmp SET t_ware.lsj = t_pricetmp.lsj'
      'WHERE t_ware.spbh=t_pricetmp.spbh')
    Left = 224
    Top = 168
  end
  object atblslday: TADOTable
    Connection = dmRainbowMIS.adopos
    TableName = 't_slday'
    Left = 280
    Top = 168
  end
end