aidcompanyinfo.dfm

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

object AIDlgCompanyInfo: TAIDlgCompanyInfo
  Left = 258
  Top = 110
  BorderStyle = bsDialog
  Caption = #20844#21496#20449#24687
  ClientHeight = 398
  ClientWidth = 364
  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 = 8
    Top = 8
    Width = 348
    Height = 337
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object OkBtn: TBitBtn
    Left = 73
    Top = 361
    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 = 196
    Top = 361
    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 CompanyQuery: TADOQuery
    Connection = DMTelSys.TelSysADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from Company'
      'order by gscode')
    Left = 176
    Top = 104
  end
  object DataSource1: TDataSource
    DataSet = CompanyQuery
    Left = 136
    Top = 112
  end
end