unit_setupsms.dfm

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

inherited Frm_SetupSMS: TFrm_SetupSMS
  Left = 244
  Top = 126
  Width = 594
  Caption = '短信信息设置'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 14
  inherited DBGrid_PUB: TDBGrid
    Width = 586
    DataSource = nil
    Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    Columns = <
      item
        Expanded = False
        FieldName = 'CONID'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'CONTENT'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '短信内容'
        Width = 561
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'WK_NO'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '定制人'
        Visible = False
      end>
  end
  inherited Pal_button: TPanel
    Width = 586
    inherited BitBtnAdd: TFlatButton
      OnClick = BitBtnAddClick
    end
    inherited BitBtnAlter: TFlatButton
      OnClick = BitBtnAlterClick
    end
    inherited BitBtnSave: TFlatButton
      OnClick = BitBtnSaveClick
    end
  end
  inherited Panel2: TPanel
    Width = 586
    inherited Label3: TLabel
      Left = 11
      Caption = '短信内容'
    end
    inherited FlatEdit1: TFlatEdit
      Left = 77
      Width = 500
      MaxLength = 400
      Text = ''
      OnKeyPress = FlatEdit1KeyPress
    end
  end
  object wwDBGrid1: TwwDBGrid [3]
    Left = 0
    Top = 0
    Width = 586
    Height = 314
    ControlType.Strings = (
      'CONTENT;RichEdit;')
    Selected.Strings = (
      'CONID'#9'12'#9'短信息编号'#9'F'
      'CONTENT'#9'80'#9'短信内容'#9'F'
      'WK_NO'#9'9'#9'定制人'#9'F')
    IniAttributes.Delimiter = ';;'
    TitleColor = clBtnFace
    FixedCols = 0
    ShowHorzScrollBar = True
    Align = alClient
    DataSource = DataSource_Pub
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
    ReadOnly = True
    TabOrder = 3
    TitleAlignment = taCenter
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    TitleLines = 1
    TitleButtons = False
    UseTFields = False
    IndicatorColor = icBlack
  end
  inherited DataSource_Pub: TDataSource
    Left = 80
    Top = 48
  end
  inherited Query_PUB: TQuery
    CachedUpdates = True
    AfterScroll = Query_PUBAfterScroll
    Constrained = True
    SQL.Strings = (
      'select * from t_d_smscontent')
    UpdateObject = UpdateSQL1
  end
  object UpdateSQL1: TUpdateSQL
    Left = 296
    Top = 56
  end
end