collecttelrec.dfm

来自「一套BCB６开发的电话管理系统」· DFM 代码 · 共 1,114 行 · 第 1/5 页

object FrmCollectTelRec: TFrmCollectTelRec
  Left = 5
  Top = 121
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = #25910#38598#38651#35441#35352#37636
  ClientHeight = 628
  ClientWidth = 1003
  Color = clCream
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 1003
    Height = 41
    ButtonHeight = 36
    ButtonWidth = 31
    Color = clInactiveCaptionText
    EdgeBorders = [ebLeft, ebTop, ebRight]
    EdgeInner = esLowered
    Images = ImageList2
    ParentColor = False
    ShowCaptions = True
    TabOrder = 0
    object ToolButton6: TToolButton
      Left = 0
      Top = 2
      Width = 8
      Caption = 'ToolButton6'
      ImageIndex = 12
      Style = tbsSeparator
    end
    object CollectToolButton: TToolButton
      Left = 8
      Top = 2
      Caption = #25910#38598
      ImageIndex = 6
      OnClick = CollectToolButtonClick
    end
    object ToolButton7: TToolButton
      Left = 39
      Top = 2
      Width = 10
      Caption = 'ToolButton7'
      ImageIndex = 12
      Style = tbsDivider
    end
    object FirstPageToolButton: TToolButton
      Left = 49
      Top = 2
      Caption = #39318#26781
      ImageIndex = 16
      OnClick = FirstPageToolButtonClick
    end
    object PrevPageToolButton: TToolButton
      Left = 80
      Top = 2
      Caption = #19978#26781
      ImageIndex = 14
      OnClick = PrevPageToolButtonClick
    end
    object NextPageToolButton: TToolButton
      Left = 111
      Top = 2
      Caption = #19979#26781
      ImageIndex = 13
      OnClick = NextPageToolButtonClick
    end
    object LastPageToolButton: TToolButton
      Left = 142
      Top = 2
      Caption = #26411#26781
      ImageIndex = 15
      OnClick = LastPageToolButtonClick
    end
    object ToolButton14: TToolButton
      Left = 173
      Top = 2
      Width = 8
      Caption = 'ToolButton14'
      ImageIndex = 18
      Style = tbsSeparator
    end
    object PrintToolButton: TToolButton
      Left = 181
      Top = 2
      Caption = #25171#21360
      ImageIndex = 17
    end
    object ToolButton12: TToolButton
      Left = 212
      Top = 2
      Width = 8
      Caption = 'ToolButton12'
      ImageIndex = 18
      Style = tbsSeparator
    end
    object ExitToolButton: TToolButton
      Left = 220
      Top = 2
      Caption = #36864#20986
      ImageIndex = 18
      OnClick = ExitToolButtonClick
    end
  end
  object DBGrid1: TDBGrid
    Left = 24
    Top = 48
    Width = 961
    Height = 505
    DataSource = DSNewBill
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'phone'
        Title.Alignment = taCenter
        Title.Caption = #20998#27231
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dialnumber'
        Title.Alignment = taCenter
        Title.Caption = #34987#21483#34399#30908
        Width = 115
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'startdate'
        Title.Alignment = taCenter
        Title.Caption = #36215#22987#26085#26399
        Width = 98
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'starttime'
        Title.Alignment = taCenter
        Title.Caption = #36215#22987#26178#38291
        Width = 99
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'type'
        Title.Alignment = taCenter
        Title.Caption = #35441#21209#39006#22411
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'duration'
        Title.Alignment = taCenter
        Title.Caption = #36890#35441#26178#38263
        Width = 90
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'rate'
        Title.Alignment = taCenter
        Title.Caption = #36027#29575
        Width = 72
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dhf'
        Title.Alignment = taCenter
        Title.Caption = #38651#35441#36027
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'charge'
        Title.Alignment = taCenter
        Title.Caption = #37329#38989
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'username'
        Title.Alignment = taCenter
        Title.Caption = #29992#25142#21517
        Visible = True
      end
      item
        Expanded = False
        Visible = True
      end>
  end
  object ImageList2: TImageList
    Left = 872
    Top = 64
    Bitmap = {
      494C010116001800040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000006000000001002000000000000060
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000