dfm_enter.dfm

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

        Height = 20
        DataField = 'Fpunish'
        DataSource = dstmanrec
        ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
        TabOrder = 6
      end
      object DBEdit4: TDBEdit
        Left = 168
        Top = 15
        Width = 65
        Height = 20
        DataField = 'Fhortation'
        DataSource = dstmanrec
        ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
        TabOrder = 1
      end
      object DBEdit7: TDBEdit
        Left = 280
        Top = 15
        Width = 57
        Height = 20
        DataField = 'Fdetain'
        DataSource = dstmanrec
        ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
        TabOrder = 2
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 331
    Width = 529
    Height = 25
    Align = alBottom
    BevelInner = bvLowered
    Color = 13422259
    TabOrder = 3
    DesignSize = (
      529
      25)
    object delbtn: TBitBtn
      Left = 152
      Top = 0
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 0
      OnClick = delbtnClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        300033FFFFFF3333377739999993333333333777777F3333333F399999933333
        3300377777733333337733333333333333003333333333333377333333333333
        3333333333333333333F333333333333330033333F33333333773333C3333333
        330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
        993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
        333333377F33333333FF3333C333333330003333733333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object postbtn: TBitBtn
      Left = 2
      Top = 0
      Width = 75
      Height = 25
      Caption = #30830#23450
      Default = True
      ModalResult = 1
      TabOrder = 1
      OnClick = postbtnClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object cancelbtn: TBitBtn
      Left = 77
      Top = 0
      Width = 75
      Height = 25
      Cancel = True
      Caption = #21462#28040
      ModalResult = 2
      TabOrder = 2
      OnClick = cancelbtnClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object quitbtn: TBitBtn
      Left = 453
      Top = 0
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #36864#20986
      TabOrder = 3
      OnClick = quitbtnClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
        F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
        000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
        338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
        45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
        3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
        F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
        000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
        338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
        4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
        8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
        0000}
      NumGlyphs = 2
    end
    object BitBtn1: TBitBtn
      Left = 303
      Top = 0
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #35745#31639
      TabOrder = 4
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
    end
    object addbtn: TBitBtn
      Left = 228
      Top = 0
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #20135#29983#26032#34920
      TabOrder = 5
      OnClick = addbtnClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555FFFFFFFFFF5555550000000000555557777777777F5555550FFFFFFFF
        0555557F5FFFF557F5555550F0000FFF0555557F77775557F5555550FFFFFFFF
        0555557F5FFFFFF7F5555550F000000F0555557F77777757F5555550FFFFFFFF
        0555557F5FFFFFF7F5555550F000000F0555557F77777757F5555550FFFFFFFF
        0555557F5FFF5557F5555550F000FFFF0555557F77755FF7F5555550FFFFF000
        0555557F5FF5777755555550F00FF0F05555557F77557F7555555550FFFFF005
        5555557FFFFF7755555555500000005555555577777775555555555555555555
        5555555555555555555555555555555555555555555555555555}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 378
      Top = 0
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #25171#21360
      TabOrder = 6
      OnClick = BitBtn2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
  end
  object dstmanrec: TDataSource
    DataSet = tbltmanrec
    OnStateChange = dstmanrecStateChange
    Left = 16
    Top = 48
  end
  object tbltmanrec: TTable
    DatabaseName = 'money'
    FieldDefs = <
      item
        Name = 'Fname'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'Fbm'
        DataType = ftFloat
      end
      item
        Name = 'Fshop'
        DataType = ftString
        Size = 16
      end
      item
        Name = 'Fgroup'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'Fbj'
        DataType = ftFloat
      end
      item
        Name = 'Fsj'
        DataType = ftFloat
      end
      item
        Name = 'Flose'
        DataType = ftFloat
      end
      item
        Name = 'Fpunish'
        DataType = ftFloat
      end
      item
        Name = 'Fhortation'
        DataType = ftFloat
      end
      item
        Name = 'Fdetain'
        DataType = ftFloat
      end
      item
        Name = 'Ftc'
        DataType = ftFloat
      end
      item
        Name = 'Ffactin'
        DataType = ftFloat
      end
      item
        Name = 'Fbjm'
        DataType = ftInteger
      end
      item
        Name = 'Fsjm'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'tbltmanrecIndex1'
        Fields = 'Fname'
        Options = [ixPrimary, ixUnique]
      end>
    IndexFieldNames = 'Fname'
    StoreDefs = True
    TableName = 'manrec.db'
    Left = 48
    Top = 48
  end
  object Query1: TQuery
    DatabaseName = 'money'
    SQL.Strings = (
      'insert into manrec (fname,fbm,fshop,fgroup)'
      'select fname,fbm,fshop,fgroup from man '
      'where fshop=:vshop')
    Left = 104
    Top = 48
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'vshop'
        ParamType = ptUnknown
      end>
  end
  object dstpara: TDataSource
    DataSet = tblpara
    Left = 168
    Top = 48
  end
  object tblpara: TTable
    DatabaseName = 'money'
    TableName = 'paramas.db'
    Left = 200
    Top = 48
  end
  object Query2: TQuery
    DatabaseName = 'money'
    SQL.Strings = (
      'update manrec'
      'set ftc=:vtca'
      'where fgroup='#39'A'#39' ')
    Left = 248
    Top = 48
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'vtca'
        ParamType = ptUnknown
      end>
  end
  object Query3: TQuery
    DatabaseName = 'money'
    SQL.Strings = (
      'update manrec'
      'set ftc=:vtcb'
      'where fgroup='#39'B'#39)
    Left = 248
    Top = 88
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'vtcb'
        ParamType = ptUnknown
      end>
  end
  object Query4: TQuery
    DatabaseName = 'money'
    SQL.Strings = (
      'update manrec'
      'set fbjm=cast((fbm/30+ftc/30)*fbj as integer)'
      'where fbj>0')
    Left = 288
    Top = 48
  end
  object Query5: TQuery
    DatabaseName = 'money'
    SQL.Strings = (
      'update manrec'
      'set fsjm=cast((fbm/30+ftc*0.2)*fsj as integer)'
      'where fsj>0')
    Left = 328
    Top = 48
  end
  object Query6: TQuery
    DatabaseName = 'money'
    SQL.Strings = (
      'update manrec'
      'set ffactin=fbm+ftc+fhortation-fbjm-fsjm-fpunish-fdetain-flose'
      'where fname is not null')
    Left = 288
    Top = 88
  end
end