unit_remind.dfm

delphi开发的中国移动大客户管理系统,后台数据库为oracle

object Frm_REMIND: TFrm_REMIND
  Left = 202
  Top = 177
  Width = 547
  Height = 338
  Caption = '系统提示'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 539
    Height = 276
    Align = alClient
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 276
    Width = 539
    Height = 35
    Align = alBottom
    TabOrder = 1
    object Button1: TButton
      Left = 6
      Top = 5
      Width = 75
      Height = 25
      Caption = '关闭'
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 539
    Height = 276
    Align = alClient
    DataSource = DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'typename'
        Title.Alignment = taCenter
        Title.Caption = '提醒类型'
        Width = 145
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'REMIND'
        Title.Alignment = taCenter
        Title.Caption = '提醒内容'
        Width = 358
        Visible = True
      end>
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 128
    Top = 64
  end
  object Query1: TQuery
    OnCalcFields = Query1CalcFields
    DatabaseName = 'db_vipdl'
    SQL.Strings = (
      'select * from T_Q_REMIND')
    Left = 64
    Top = 64
    object Query1CITYNO: TStringField
      FieldName = 'CITYNO'
      Origin = 'DB_VIPDL.T_Q_REMIND.CITYNO'
      Size = 3
    end
    object Query1OFF_NO_HOME: TFloatField
      FieldName = 'OFF_NO_HOME'
      Origin = 'DB_VIPDL.T_Q_REMIND.OFF_NO_HOME'
    end
    object Query1WK_NO: TStringField
      FieldName = 'WK_NO'
      Origin = 'DB_VIPDL.T_Q_REMIND.WK_NO'
      Size = 9
    end
    object Query1REMIND_TYPE: TFloatField
      FieldName = 'REMIND_TYPE'
      Origin = 'DB_VIPDL.T_Q_REMIND.REMIND_TYPE'
    end
    object Query1REMIND: TStringField
      FieldName = 'REMIND'
      Origin = 'DB_VIPDL.T_Q_REMIND.REMIND'
      Size = 60
    end
    object Query1SMS_FLAG: TFloatField
      FieldName = 'SMS_FLAG'
      Origin = 'DB_VIPDL.T_Q_REMIND.SMS_FLAG'
    end
    object Query1SEND_TIME: TDateTimeField
      FieldName = 'SEND_TIME'
      Origin = 'DB_VIPDL.T_Q_REMIND.SEND_TIME'
    end
    object Query1typename: TStringField
      FieldKind = fkLookup
      FieldName = 'typename'
      LookupDataSet = Query2
      LookupKeyFields = 'PAR_VALUES'
      LookupResultField = 'PAR_DESC'
      KeyFields = 'REMIND_TYPE'
      Lookup = True
    end
  end
  object Query2: TQuery
    DatabaseName = 'db_vipdl'
    SQL.Strings = (
      'select * from t_d_config where '
      ' Upper(PAR_NAME)='#39'SYSTEMWAKETYPE'#39)
    Left = 216
    Top = 72
  end
end