phonenote.dfm

SM_Msg.rar 手机短信发送程序

object frmPhoneNote: TfrmPhoneNote
  Left = 255
  Top = 124
  BorderStyle = bsDialog
  Caption = #36890#20449#24405
  ClientHeight = 327
  ClientWidth = 408
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 408
    Height = 170
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 16185078
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 26
      Width = 404
      Height = 142
      Align = alBottom
      BorderStyle = bsNone
      Ctl3D = True
      DataSource = dsr_PhoneNote
      ParentCtl3D = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'Name'
          Title.Caption = #22995#21517
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PhoneNum1'
          Title.Caption = #21830#21153#30005#35805'1'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PhoneNum2'
          Title.Caption = #21830#21153#30005#35805'2'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Fax'
          Title.Caption = #20256#30495
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'HomePhone'
          Title.Caption = #23478#24237#30005#35805
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MobilePhone'
          Title.Caption = #31227#21160#30005#35805
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Email'
          Title.Caption = 'E:mail'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Unit'
          Title.Caption = #21333#20301
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'OfficeAdd'
          Title.Caption = #21150#20844#22320#22336
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CommAdd'
          Title.Caption = #36890#20449#22320#22336
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Post'
          Title.Caption = #37038#32534
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Retic'
          Title.Caption = #32593#31449
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'QQNum'
          Title.Caption = 'QQ'#21495#30721
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Bz'
          Title.Caption = #22791#27880
          Visible = True
        end>
    end
    object DBNavigator1: TDBNavigator
      Left = 1
      Top = 1
      Width = 240
      Height = 24
      DataSource = dsr_PhoneNote
      TabOrder = 1
    end
    object BitBtn4: TBitBtn
      Left = 336
      Top = 3
      Width = 68
      Height = 22
      Caption = #20851#38381'(&C)'
      TabOrder = 2
      Kind = bkClose
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 170
    Width = 408
    Height = 157
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 16185078
    TabOrder = 1
    object Label1: TLabel
      Left = 155
      Top = 9
      Width = 60
      Height = 12
      Caption = #26597#35810#26465#20214#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object BitBtn1: TBitBtn
      Left = 100
      Top = 3
      Width = 50
      Height = 24
      Caption = #26597#25214
      TabOrder = 0
      Kind = bkRetry
    end
    object BitBtn2: TBitBtn
      Left = 1
      Top = 3
      Width = 50
      Height = 24
      Caption = #21024#38500
      TabOrder = 1
      Kind = bkCancel
    end
    object BitBtn3: TBitBtn
      Left = 51
      Top = 3
      Width = 50
      Height = 24
      Caption = #20462#25913
      TabOrder = 2
      Kind = bkNo
    end
    object strdString: TStringGrid
      Left = 2
      Top = 30
      Width = 404
      Height = 125
      Align = alBottom
      BorderStyle = bsNone
      ColCount = 14
      Ctl3D = False
      DefaultRowHeight = 16
      RowCount = 2
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
      ParentCtl3D = False
      TabOrder = 3
      ColWidths = (
        66
        91
        84
        73
        64
        64
        64
        64
        64
        64
        64
        64
        66
        70)
    end
    object cm_Search: TComboBox
      Left = 213
      Top = 5
      Width = 79
      Height = 21
      BevelInner = bvLowered
      BevelOuter = bvRaised
      Ctl3D = False
      ItemHeight = 13
      ParentCtl3D = False
      TabOrder = 4
    end
    object edt_Search: TEdit
      Left = 292
      Top = 5
      Width = 110
      Height = 19
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 5
    end
  end
  object ADOTbl_PhoneNote: TADOTable
    Active = True
    Connection = frmSM_Data.ADOSM_Data
    CursorType = ctStatic
    TableName = 'PhoneNote'
    Left = 72
    Top = 56
    object ADOTbl_PhoneNoteClass: TWideStringField
      FieldName = 'Class'
      Size = 4
    end
    object ADOTbl_PhoneNoteName: TWideStringField
      FieldName = 'Name'
      Size = 15
    end
    object ADOTbl_PhoneNotePhoneNum1: TWideStringField
      FieldName = 'PhoneNum1'
      Size = 15
    end
    object ADOTbl_PhoneNotePhoneNum2: TWideStringField
      FieldName = 'PhoneNum2'
      Size = 15
    end
    object ADOTbl_PhoneNoteFax: TWideStringField
      FieldName = 'Fax'
      Size = 15
    end
    object ADOTbl_PhoneNoteHomePhone: TWideStringField
      FieldName = 'HomePhone'
      Size = 15
    end
    object ADOTbl_PhoneNoteMobilePhone: TWideStringField
      FieldName = 'MobilePhone'
      Size = 11
    end
    object ADOTbl_PhoneNoteEmail: TWideStringField
      FieldName = 'Email'
    end
    object ADOTbl_PhoneNoteUnit: TWideStringField
      FieldName = 'Unit'
      Size = 30
    end
    object ADOTbl_PhoneNoteOfficeAdd: TWideStringField
      FieldName = 'OfficeAdd'
      Size = 30
    end
    object ADOTbl_PhoneNoteCommAdd: TWideStringField
      FieldName = 'CommAdd'
      Size = 40
    end
    object ADOTbl_PhoneNotePost: TWideStringField
      FieldName = 'Post'
      Size = 6
    end
    object ADOTbl_PhoneNoteRetic: TWideStringField
      FieldName = 'Retic'
      Size = 30
    end
    object ADOTbl_PhoneNoteQQNum: TWideStringField
      FieldName = 'QQNum'
      Size = 13
    end
    object ADOTbl_PhoneNoteBz: TWideStringField
      FieldName = 'Bz'
      Size = 50
    end
  end
  object dsr_PhoneNote: TDataSource
    DataSet = ADOTbl_PhoneNote
    Left = 104
    Top = 56
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    Left = 265
    Top = 1
  end
end