earning.dfm

服装厂管理系统源程序压缩包, 请耐心阅读提供的文件包含的内容

    object GroupBox6: TGroupBox
      Left = 4
      Top = 104
      Width = 250
      Height = 53
      Caption = #25910#20837#26085#26399#33539#22260#36873#25321
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      object Label31: TLabel
        Left = 127
        Top = 25
        Width = 26
        Height = 13
        Caption = #32456#27490
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label32: TLabel
        Left = 6
        Top = 25
        Width = 26
        Height = 13
        Caption = #24320#22987
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Sdate: TDateTimePicker
        Left = 34
        Top = 21
        Width = 88
        Height = 24
        Date = 38353.000000000000000000
        Time = 38353.000000000000000000
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object Edate: TDateTimePicker
        Left = 156
        Top = 21
        Width = 88
        Height = 24
        Date = 38353.999988425930000000
        Time = 38353.999988425930000000
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
    object Edit_event: TEdit
      Left = 80
      Top = 168
      Width = 160
      Height = 23
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object ComBox_opeid: TComboBox
      Left = 81
      Top = 208
      Width = 160
      Height = 23
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 15
      ParentFont = False
      TabOrder = 4
    end
    object GroupBox1: TGroupBox
      Left = 29
      Top = 245
      Width = 201
      Height = 121
      Caption = #25910#20837#37329#39069#33539#22260#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      object ComboBox1: TComboBox
        Left = 12
        Top = 20
        Width = 45
        Height = 27
        Style = csDropDownList
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ItemHeight = 19
        ItemIndex = 1
        ParentFont = False
        TabOrder = 0
        Text = '>'
        Items.Strings = (
          '='
          '>'
          '<'
          '>='
          '<='
          '<>')
      end
      object Edit1: TEdit
        Left = 56
        Top = 20
        Width = 129
        Height = 27
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnKeyPress = Edit1KeyPress
      end
      object ComboBox2: TComboBox
        Left = 56
        Top = 52
        Width = 81
        Height = 27
        Style = csDropDownList
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ItemHeight = 19
        ParentFont = False
        TabOrder = 2
        Items.Strings = (
          '   '
          'and'
          'or')
      end
      object ComboBox3: TComboBox
        Left = 12
        Top = 84
        Width = 45
        Height = 27
        Style = csDropDownList
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ItemHeight = 19
        ItemIndex = 2
        ParentFont = False
        TabOrder = 3
        Text = '<'
        Items.Strings = (
          '='
          '>'
          '<'
          '>='
          '<='
          '<>')
      end
      object Edit2: TEdit
        Left = 56
        Top = 84
        Width = 129
        Height = 27
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -19
        Font.Name = #23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
        OnKeyPress = Edit1KeyPress
      end
    end
  end
  object ADOQ_Earning: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    AfterInsert = ADOQ_EarningAfterInsert
    AfterPost = ADOQ_EarningAfterPost
    Parameters = <>
    SQL.Strings = (
      'select * from earning'
      ''
      'order by rec_date,tmp_id,flag')
    Left = 192
    Top = 312
    object ADOQ_Earningearn_id: TAutoIncField
      DisplayLabel = #27969#27700'ID'#21495
      FieldName = 'earn_id'
      ReadOnly = True
    end
    object ADOQ_Earningevent: TStringField
      FieldName = 'event'
      Size = 40
    end
    object ADOQ_Earningmoney: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'money'
      DisplayFormat = #65509',0.00'
      EditFormat = '0.00'
    end
    object ADOQ_Earningrec_date: TDateTimeField
      DisplayLabel = #35760#24405#26085#26399
      FieldName = 'rec_date'
    end
    object ADOQ_Earningtmp_id: TIntegerField
      FieldName = 'tmp_id'
    end
    object ADOQ_Earningopername: TStringField
      DisplayLabel = #32463#25163#20154
      FieldKind = fkLookup
      FieldName = 'opername'
      LookupDataSet = ADOQ_Operator
      LookupKeyFields = 'tmp_id'
      LookupResultField = 'opername'
      KeyFields = 'tmp_id'
      Lookup = True
    end
    object ADOQ_Earningflag: TStringField
      FieldName = 'flag'
      Size = 1
    end
    object ADOQ_Earningtjflag: TBooleanField
      FieldName = 'tjflag'
    end
  end
  object ADOQ_Operator: TADOQuery
    Connection = DataMod.ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from operator'
      ''
      'order by tmp_id')
    Left = 192
    Top = 352
    object ADOQ_Operatortmp_id: TAutoIncField
      FieldName = 'tmp_id'
      ReadOnly = True
    end
    object ADOQ_Operatoroperid: TStringField
      FieldName = 'operid'
    end
    object ADOQ_Operatoropername: TStringField
      FieldName = 'opername'
      Size = 10
    end
    object ADOQ_Operatorpassword: TStringField
      FieldName = 'password'
      Size = 32
    end
    object ADOQ_Operatorteam_id: TIntegerField
      FieldName = 'team_id'
    end
  end
  object DS_Earning: TDataSource
    DataSet = ADOQ_Earning
    OnStateChange = DS_EarningStateChange
    Left = 248
    Top = 312
  end
  object ADOQtmp: TADOQuery
    Connection = DataMod.ADOCon
    Parameters = <>
    Left = 248
    Top = 224
  end
  object RvProject1: TRvProject
    Engine = RvSystem1
    Left = 360
    Top = 232
  end
  object RvSystem1: TRvSystem
    TitleSetup = #30830#23450#25253#34920#36755#20986#26041#24335
    TitleStatus = #27491#22312#29983#25104#25253#34920
    TitlePreview = #25968#25454#39044#35272
    SystemSetups = [ssAllowDestPrinter]
    SystemFiler.StatusFormat = #27491#22312#29983#25104#31532'%p'#39029','#35831#31245#20505'.....'
    SystemPreview.FormState = wsMaximized
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = #27491#22312#25171#21360#31532'%p'#39029
    SystemPrinter.Title = 'ReportPrinter Report'
    SystemPrinter.UnitsFactor = 1.000000000000000000
    Left = 360
    Top = 272
  end
  object Rv_Etp_Earning: TRvDataSetConnection
    RuntimeVisibility = rtDeveloper
    DataSet = ADOQ_Earning
    Left = 360
    Top = 312
  end
end