tsiminfor.~dfm

本简单通信信息管理软件是个人为方便管理个人通信信息而制作的一个小数据库程序,特传上来和大家分享.有那个地方不足的地方希望各方朋友提出建议一同学习研究！ 制作:delphi7+access 作者

object SimInfor1: TSimInfor1
  Left = 200
  Top = 170
  Width = 794
  Height = 503
  Caption = 'SimInfor1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000330000000000000000000000033303303303300000000000000
    0003303330333003003300000000000000033003330330002333000000000000
    0030000033003033333000000000000033333330000003330003330000000803
    33333333333333300233330000000F033333333333333302333BB03000004F83
    33333333333333333BB003BB00004FF3333333333333B33BB0033BBB00004FF3
    33333333B3BB3BB0033BBBB000004FF83B333B3B3B3BBBB03BBBBB0300F04FFF
    33B3B3B3BBBBBBBBBBBB00330FF04FFF8B3B3333BBBBBBBBBB0033330FF044FF
    F8BBB03033BBBBB330333330FFF444FFF8BB0BB3003B330003333330FF44444F
    F88B3BBB300000033333B33FFF44444FFF3BB0BBB3000333B33BB38FF4444444
    FF003B0BB333333BBBBBB3FFF44444444FF00030BBBBBBBBBBBBBBFF44444444
    0000000303BBB3300000BFF444444400000000000000000000000FF444440000
    0000000000000000000000444444000000000000000000000000000044440000
    0000000000000000000000000444000000000000000000000000000000040000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFF1FFFFF8003FFFC0000FFF800007FF800007FE000003F0000
    001F0000001F0000000F00000007000000070000000000000000000000000000
    00000000000000000000000000000000000000000000000000000000000000C0
    00000FE01F003FFFFF80FFFFFFC0FFFFFFF0FFFFFFF8FFFFFFFEFFFFFFFF}
  OldCreateOrder = False
  Position = poDesktopCenter
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 786
    Height = 52
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 48
        Width = 782
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 769
      Height = 48
      AutoSize = True
      ButtonHeight = 44
      ButtonWidth = 47
      Caption = 'ToolBar1'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -20
      Font.Name = #21326#25991#26032#39759
      Font.Style = []
      Images = ImageList1
      ParentFont = False
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 2
        Caption = #26597#25214
        ImageIndex = 0
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 47
        Top = 2
        Caption = #28155#21152
        ImageIndex = 1
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 94
        Top = 2
        Caption = #20462#25913
        ImageIndex = 2
        OnClick = ToolButton3Click
      end
      object ToolButton4: TToolButton
        Left = 141
        Top = 2
        Caption = #21024#38500
        ImageIndex = 3
        OnClick = ToolButton4Click
      end
      object ToolButton5: TToolButton
        Left = 188
        Top = 2
        Caption = #36864#20986
        ImageIndex = 4
        OnClick = ToolButton5Click
      end
      object ToolButton6: TToolButton
        Left = 235
        Top = 2
        Caption = #20851#20110
        ImageIndex = 5
        OnClick = ToolButton6Click
      end
      object ToolButton7: TToolButton
        Left = 282
        Top = 2
        ImageIndex = 6
        OnClick = ToolButton7Click
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 52
    Width = 786
    Height = 405
    Align = alClient
    DataSource = DataModule1.DataSource2
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Pitch = fpFixed
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'Name'
        Title.Caption = #22995#21517
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Sex'
        Title.Caption = #24615#21035
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UnitWork'
        Title.Caption = #24037#20316#21333#20301
        Width = 102
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Duty'
        Title.Caption = #32844#21153
        Width = 75
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Address'
        Title.Caption = #22320#22336
        Width = 144
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DisNum'
        Title.Caption = #21306#21495
        Width = 31
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'HandNum'
        Title.Caption = #25163#26426#21495#30721
        Width = 78
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TelNum'
        Title.Caption = #30005#35805#21495#30721
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Facsimile'
        Title.Caption = #20256#30495#21495#30721
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'QQNum'
        Title.Caption = 'QQ'#21495#30721
        Width = 66
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MSNNum'
        Title.Caption = 'MSN'#21495#30721
        Width = 110
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'E-mail'
        Width = 110
        Visible = True