unit_setupservicetopic.dfm

一个不错的源程序DELPHI开发的,功能比较好的客户管理系统

      Caption = '服务主题:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clMaroon
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 16
      Top = 55
      Width = 63
      Height = 14
      Caption = '服务内容:'
    end
    object Label5: TLabel
      Left = 296
      Top = 129
      Width = 63
      Height = 14
      Caption = '所需积分:'
    end
    object Label6: TLabel
      Left = 16
      Top = 103
      Width = 91
      Height = 14
      Caption = '服务开始时间:'
    end
    object Label7: TLabel
      Left = 296
      Top = 103
      Width = 91
      Height = 14
      Caption = '服务结束时间:'
    end
    object Label8: TLabel
      Left = 16
      Top = 129
      Width = 63
      Height = 14
      Caption = '有效标志:'
    end
    object Label9: TLabel
      Left = 16
      Top = 153
      Width = 63
      Height = 14
      Caption = '备    注:'
    end
    object co_cityno: TFlatComboBox
      Tag = 50
      Left = 88
      Top = 7
      Width = 140
      Height = 22
      Style = csDropDownList
      Color = clWindow
      ItemHeight = 14
      TabOrder = 0
      ItemIndex = -1
      OnChange = co_citynoChange
    end
    object co_off_no_home: TFlatComboBox
      Tag = 51
      Left = 368
      Top = 7
      Width = 145
      Height = 22
      Style = csDropDownList
      Color = clWindow
      ItemHeight = 14
      TabOrder = 1
      ItemIndex = -1
    end
    object ed_Serv_Topic: TFlatEdit
      Left = 88
      Top = 32
      Width = 425
      Height = 20
      ColorFlat = clWindow
      MaxLength = 60
      TabOrder = 2
      Text = 'ed_Serv_Topic'
    end
    object spi_UseIntegral: TFlatSpinEditInteger
      Left = 376
      Top = 126
      Width = 137
      Height = 21
      ColorFlat = clWindow
      AutoSize = False
      MaxValue = 999999
      MinValue = 0
      TabOrder = 3
      Value = 0
    end
    object dtp_BeginDate: TDateTimePicker
      Left = 112
      Top = 99
      Width = 121
      Height = 22
      CalAlignment = dtaLeft
      Date = 37508.7587825116
      Time = 37508.7587825116
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 4
    end
    object dtp_EndDate: TDateTimePicker
      Left = 400
      Top = 99
      Width = 113
      Height = 22
      CalAlignment = dtaLeft
      Date = 37508.7587825116
      Time = 37508.7587825116
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 5
    end
    object co_ValidMark: TFlatComboBox
      Left = 88
      Top = 125
      Width = 142
      Height = 22
      Style = csDropDownList
      Color = clWindow
      ItemHeight = 14
      Items.Strings = (
        '有效'
        '无效')
      TabOrder = 6
      ItemIndex = -1
    end
    object me_Remark: TFlatMemo
      Left = 88
      Top = 150
      Width = 425
      Height = 41
      ColorFlat = clWindow
      MaxLength = 20
      ScrollBars = ssVertical
      TabOrder = 7
    end
    object me_ServContent: TFlatMemo
      Left = 88
      Top = 55
      Width = 425
      Height = 41
      ColorFlat = clWindow
      MaxLength = 180
      ScrollBars = ssVertical
      TabOrder = 8
    end
  end
  object Panel_dbgrid: TPanel
    Left = 0
    Top = 0
    Width = 662
    Height = 183
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel_dbgrid'
    TabOrder = 2
    object DBGrid_PUB: TDBGrid
      Left = 0
      Top = 0
      Width = 662
      Height = 183
      Align = alClient
      DataSource = DataSource_Pub
      ImeName = '中文 (简体) - 全拼'
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'CITYNO_DESC'
          Title.Caption = '地市'
          Width = 32
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'OFF_NO_HOME_DESC'
          Title.Caption = '局向'
          Width = 32
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SERV_TOPIC'
          Title.Caption = '服务主题'
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SERVCONTENT'
          Title.Caption = '服务内容'
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'USEINTEGRAL'
          Title.Caption = '所需积分'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BEGINDATE'
          Title.Caption = '服务开始时间'
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ENDDATE'
          Title.Caption = '服务结束时间'
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'VALIDMARK_DESC'
          Title.Caption = '有效标志'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'REMARK'
          Title.Caption = '备注'
          Width = 120
          Visible = True
        end>
    end
  end
  object Query_Tmp: TQuery
    DatabaseName = 'db_vipdl'
    Left = 152
    Top = 136
  end
  object DataSource_Pub: TDataSource
    DataSet = Query_PUB
    Left = 136
    Top = 64
  end
  object Query_PUB: TQuery
    AfterScroll = Query_PUBAfterScroll
    DatabaseName = 'db_vipdl'
    SQL.Strings = (
      
        'select t.*,g.cityname cityno_desc,h.home_name off_no_home_desc,d' +
        'ecode(ValidMark,0,'#39'有效'#39',1,'#39'无效'#39','#39'无效'#39') ValidMark_desc '
      'from t_d_servicetopic t,'
      '    t_d_city g,'
      '    t_d_county h'
      'where'
      '    t.cityno=g.cityno and'
      '    t.off_no_home=h.off_no_home    and'
      '    g.cityno=h.cityno'
      '')
    Left = 232
    Top = 64
  end
end