fdepartment.dfm

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

object FrmDepartment: TFrmDepartment
  Left = 292
  Top = 171
  BorderStyle = bsDialog
  Caption = #37096#38272
  ClientHeight = 446
  ClientWidth = 454
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 454
    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 NewToolButton: TToolButton
      Left = 8
      Top = 2
      Caption = #26032#22686
      ImageIndex = 5
      OnClick = NewToolButtonClick
    end
    object ModifyToolButton: TToolButton
      Left = 39
      Top = 2
      Caption = #20462#25913
      ImageIndex = 3
      OnClick = ModifyToolButtonClick
    end
    object DeleteToolButton: TToolButton
      Left = 70
      Top = 2
      Caption = #21034#38500
      ImageIndex = 12
      OnClick = DeleteToolButtonClick
    end
    object SaveToolButton: TToolButton
      Left = 101
      Top = 2
      Caption = #20445#23384
      ImageIndex = 10
      OnClick = SaveToolButtonClick
    end
    object GiveUpToolButton: TToolButton
      Left = 132
      Top = 2
      Caption = #25918#26820
      ImageIndex = 11
      OnClick = GiveUpToolButtonClick
    end
    object ToolButton7: TToolButton
      Left = 163
      Top = 2
      Width = 10
      Caption = 'ToolButton7'
      ImageIndex = 12
      Style = tbsDivider
    end
    object FirstPageToolButton: TToolButton
      Left = 173
      Top = 2
      Caption = #39318#26781
      ImageIndex = 16
      OnClick = FirstPageToolButtonClick
    end
    object PrevPageToolButton: TToolButton
      Left = 204
      Top = 2
      Caption = #19978#26781
      ImageIndex = 14
      OnClick = PrevPageToolButtonClick
    end
    object NextPageToolButton: TToolButton
      Left = 235
      Top = 2
      Caption = #19979#26781
      ImageIndex = 13
      OnClick = NextPageToolButtonClick
    end
    object LastPageToolButton: TToolButton
      Left = 266
      Top = 2
      Caption = #26411#26781
      ImageIndex = 15
      OnClick = LastPageToolButtonClick
    end
    object ToolButton1: TToolButton
      Left = 297
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 19
      Style = tbsSeparator
    end
    object ExitToolButton: TToolButton
      Left = 305
      Top = 2
      Caption = #36864#20986
      ImageIndex = 18
      OnClick = ExitToolButtonClick
    end
    object PrintToolButton: TToolButton
      Left = 336
      Top = 2
      Caption = #25171#21360
      ImageIndex = 17
      Visible = False
    end
    object ToolButton12: TToolButton
      Left = 367
      Top = 2
      Width = 8
      Caption = 'ToolButton12'
      ImageIndex = 18
      Style = tbsSeparator
    end
    object ToolButton14: TToolButton
      Left = 375
      Top = 2
      Width = 8
      Caption = 'ToolButton14'
      ImageIndex = 18
      Style = tbsSeparator
    end
    object RefreshToolButton: TToolButton
      Left = 383
      Top = 2
      Caption = #21047#26032
      ImageIndex = 21
      Visible = False
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 48
    Width = 433
    Height = 385
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'number'
        Title.Alignment = taCenter
        Title.Caption = #37096#38272#32232#34399
        Width = 88
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Title.Alignment = taCenter
        Title.Caption = #37096#38272#21517#31281
        Width = 105
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gsname'
        Title.Alignment = taCenter
        Title.Caption = #25152#23660#20844#21496
        Width = 202
        Visible = True
      end>
  end
  object ImageList2: TImageList
    Left = 872
    Top = 64
    Bitmap = {
      494C010116001800040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000006000000001002000000000000060
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000