aiddepartment.dfm

来自「一套BCB６开发的电话管理系统」· DFM 代码 · 共 105 行

object AIDlgDepartment: TAIDlgDepartment
  Left = 224
  Top = 184
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = #37096#38272#20449#24687
  ClientHeight = 248
  ClientWidth = 301
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 4
    Top = 7
    Width = 292
    Height = 192
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'number'
        Title.Caption = #37096#38272#32232#30908
        Width = 99
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'name'
        Title.Caption = #37096#38272#21517#31281
        Width = 168
        Visible = True
      end>
  end
  object OkBtn: TBitBtn
    Left = 47
    Top = 216
    Width = 75
    Height = 25
    Caption = #30906#23450
    ModalResult = 1
    TabOrder = 1
    OnClick = OkBtnClick
    Glyph.Data = {
      4E010000424D4E01000000000000760000002800000012000000120000000100
      040000000000D800000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8888880000008888844888888888880000008888422488888888880000008884
      2222488888888800000088422222248888888800000084222A22224888888800
      00008222A8A222488888880000008A2A888A222488888800000088A88888A222
      488888000000888888888A222488880000008888888888A22248880000008888
      8888888A222488000000888888888888A222480000008888888888888A224800
      000088888888888888A228000000888888888888888A88000000888888888888
      888888000000888888888888888888000000}
  end
  object CancelBtn: TBitBtn
    Left = 170
    Top = 216
    Width = 75
    Height = 25
    Caption = #21462#28040
    ModalResult = 2
    TabOrder = 2
    Glyph.Data = {
      4E010000424D4E01000000000000760000002800000012000000120000000100
      040000000000D800000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8888880000008887788888888888880000008891178888897888880000008891
      1178889117888800000088911117891111788800000088891111711111788800
      0000888891111111178888000000888889111111788888000000888888111117
      8888880000008888889111178888880000008888891111178888880000008888
      9111711178888800000088891117891117888800000088891178889111788800
      0000888891888889111888000000888888888888919888000000888888888888
      888888000000888888888888888888000000}
  end
  object DepartmentQuery: TADOQuery
    Connection = DMTelSys.TelSysADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from department'
      'order by number')
    Left = 96
    Top = 40
  end
  object DataSource1: TDataSource
    DataSet = DepartmentQuery
    Left = 152
    Top = 64
  end
end