unit_setupservquality.dfm

来自「中国移动大客户管理系统」· DFM 代码 · 共 94 行

inherited Frm_Setupservquality: TFrm_Setupservquality
  Left = 150
  Top = 143
  Width = 593
  Caption = '服务质量设置'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 14
  inherited DBGrid_PUB: TDBGrid
    Width = 585
    Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    Columns = <
      item
        Expanded = False
        FieldName = 'QUALITYCODE'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'SERVQUALITY'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '服务质量'
        Width = 252
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'REMARK'
        PickList.Strings = ()
        Title.Alignment = taCenter
        Title.Caption = '备注'
        Width = 344
        Visible = True
      end>
  end
  inherited Pal_button: TPanel
    Width = 585
    inherited BitBtnAdd: TFlatButton
      OnClick = BitBtnAddClick
    end
    inherited BitBtnAlter: TFlatButton
      OnClick = BitBtnAlterClick
    end
    inherited BitBtnSave: TFlatButton
      OnClick = BitBtnSaveClick
    end
  end
  inherited Panel2: TPanel
    Width = 585
    inherited Label3: TLabel
      Left = 11
      Caption = '服务质量'
    end
    object Label1: TLabel [1]
      Left = 352
      Top = 11
      Width = 28
      Height = 14
      Caption = '备注'
    end
    inherited FlatEdit1: TFlatEdit
      Left = 77
      MaxLength = 12
      Text = ''
      OnKeyPress = FlatEdit1KeyPress
    end
    object FlatEdit2: TFlatEdit
      Left = 400
      Top = 8
      Width = 177
      Height = 22
      ColorFlat = clBtnFace
      ParentColor = True
      MaxLength = 20
      TabOrder = 1
      OnKeyPress = FlatEdit2KeyPress
    end
  end
  inherited Query_PUB: TQuery
    CachedUpdates = True
    AfterScroll = Query_PUBAfterScroll
    SQL.Strings = (
      'select * from t_d_servquality')
    UpdateObject = UpdateSQL1
  end
  object UpdateSQL1: TUpdateSQL
    Left = 296
    Top = 56
  end
end