fmodifytelrec.dfm

一套BCB６开发的电话管理系统

object FrmModifyTelRec: TFrmModifyTelRec
  Left = 86
  Top = 97
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = #38651#35441#20351#29992#24773#27841
  ClientHeight = 583
  ClientWidth = 858
  Color = clInfoBk
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  DesignSize = (
    858
    583)
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 7
    Top = 43
    Width = 842
    Height = 530
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = DataSource1
    Font.Charset = CHINESEBIG5_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = #32048#26126#39636
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'phone'
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Used_phone'
        Width = 67
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Uname'
        Width = 49
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Bm'
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Startdate'
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Starttime'
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Duration'
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Dialnumber'
        Width = 116
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Rate'
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Dhf'
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Service'
        Width = 39
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Charge'
        Width = 42
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Memo'
        Visible = True
      end>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 858
    Height = 41
    ButtonHeight = 36
    ButtonWidth = 31
    Color = clInactiveCaptionText
    EdgeBorders = [ebLeft, ebTop, ebRight]
    EdgeInner = esLowered
    Images = ImageList2
    ParentColor = False
    ShowCaptions = True
    TabOrder = 1
    object ToolButton6: TToolButton
      Left = 0
      Top = 2
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 12
      Style = tbsSeparator
    end
    object ModifyToolButton: TToolButton
      Left = 8
      Top = 2
      Caption = #20462#25913
      ImageIndex = 3
      OnClick = ModifyToolButtonClick
    end
    object SaveToolButton: TToolButton
      Left = 39
      Top = 2
      Caption = #20445#23384
      ImageIndex = 10
      OnClick = SaveToolButtonClick
    end
    object GiveUpToolButton: TToolButton
      Left = 70
      Top = 2
      Caption = #21462#28040
      ImageIndex = 11
      OnClick = GiveUpToolButtonClick
    end
    object ToolButton7: TToolButton
      Left = 101
      Top = 2
      Width = 10
      Caption = 'ToolButton7'
      ImageIndex = 12
      Style = tbsDivider
    end
    object FirstPageToolButton: TToolButton
      Left = 111
      Top = 2
      Caption = #39318#24373
      ImageIndex = 16
      OnClick = FirstPageToolButtonClick
    end
    object PrevPageToolButton: TToolButton
      Left = 142
      Top = 2
      Caption = #19978#24373
      ImageIndex = 14
      OnClick = PrevPageToolButtonClick
    end
    object NextPageToolButton: TToolButton
      Left = 173
      Top = 2
      Caption = #19979#24373
      ImageIndex = 13
      OnClick = NextPageToolButtonClick
    end
    object LastPageToolButton: TToolButton
      Left = 204
      Top = 2
      Caption = #26411#24373
      ImageIndex = 15
      OnClick = LastPageToolButtonClick
    end
    object ToolButton14: TToolButton
      Left = 235
      Top = 2
      Width = 8
      Caption = 'ToolButton14'
      ImageIndex = 18
      Style = tbsSeparator
    end
    object FindToolButton: TToolButton
      Left = 243
      Top = 2
      Caption = #26597#35426
      ImageIndex = 22
      OnClick = FindToolButtonClick