newtel.dfm

个人桌面电话簿管理

object Frmnewtel: TFrmnewtel
  Left = -1
  Top = 0
  Width = 799
  Height = 572
  Caption = #30005#35805#31807
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 791
    Height = 37
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 33
        Width = 787
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 774
      Height = 33
      ButtonHeight = 28
      Caption = 'ToolBar1'
      TabOrder = 0
      object sbAppend: TSpeedButton
        Left = 0
        Top = 2
        Width = 35
        Height = 28
        Caption = #26032#22686
        OnClick = sbAppendClick
      end
      object sbEdit: TSpeedButton
        Left = 35
        Top = 2
        Width = 35
        Height = 28
        Caption = #32534#36753
        OnClick = sbEditClick
      end
      object sbDel: TSpeedButton
        Left = 70
        Top = 2
        Width = 35
        Height = 28
        Caption = #21024#38500
        OnClick = sbDelClick
      end
      object sbSave: TSpeedButton
        Left = 105
        Top = 2
        Width = 35
        Height = 28
        Caption = #20648#23384
        OnClick = sbSaveClick
      end
      object sbCancel: TSpeedButton
        Left = 140
        Top = 2
        Width = 35
        Height = 28
        Caption = #21462#28040
        OnClick = sbCancelClick
      end
      object sbRefresh: TSpeedButton
        Left = 175
        Top = 2
        Width = 35
        Height = 28
        Caption = #26356#26032
        OnClick = sbRefreshClick
      end
      object sbFirst: TSpeedButton
        Left = 210
        Top = 2
        Width = 48
        Height = 28
        Caption = #31532#19968#31508
        OnClick = sbFirstClick
      end
      object sbPrior: TSpeedButton
        Left = 258
        Top = 2
        Width = 48
        Height = 28
        Caption = #19978#19968#31508
        OnClick = sbPriorClick
      end
      object sbNext: TSpeedButton
        Left = 306
        Top = 2
        Width = 48
        Height = 28
        Caption = #19979#19968#31508
        OnClick = sbNextClick
      end
      object sbLast: TSpeedButton
        Left = 354
        Top = 2
        Width = 58
        Height = 28
        Caption = #26368#21518#19968#31508
        OnClick = sbLastClick
      end
      object sbPrint: TSpeedButton
        Left = 412
        Top = 2
        Width = 35
        Height = 28
        Caption = #21015#21360
        OnClick = sbPrintClick
      end
      object sbExit: TSpeedButton
        Left = 447
        Top = 2
        Width = 35
        Height = 28
        Caption = #36864#20986
        OnClick = sbExitClick
      end
      object Splitter1: TSplitter
        Left = 482
        Top = 2
        Width = 13
        Height = 28
      end
      object CheckBox1: TCheckBox
        Left = 495
        Top = 2
        Width = 106
        Height = 28
        Caption = #31579#36873
        TabOrder = 0
        OnClick = CheckBox1Click
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 526
    Width = 791
    Height = 19
    Panels = <
      item
        Width = 100
      end
      item
        Width = 200
      end>
  end
  object dxDBGrid1: TdxDBGrid
    Left = 0
    Top = 37
    Width = 791
    Height = 489
    Bands = <
      item
      end>
    DefaultLayout = True
    HeaderPanelRowCount = 1
    KeyField = 'xingm'
    SummaryGroups = <>
    SummarySeparator = ', '
    Align = alClient
    TabOrder = 2
    DataSource = dsMaster
    Filter.Criteria = {00000000}
    OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoEnterThrough, edgoImmediateEditor, edgoTabThrough, edgoVertThrough]
    OptionsDB = [edgoCanAppend, edgoCancelOnExit, edgoCanDelete, edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
    object dxDBGrid1xingm: TdxDBGridColumn
      Caption = #22995#21517
      BandIndex = 0
      RowIndex = 0
      FieldName = 'xingm'
    end
    object dxDBGrid1leib: TdxDBGridPickColumn
      Caption = #31867#21035
      BandIndex = 0
      RowIndex = 0
      FieldName = 'leib'
      Items.Strings = (
        #23458#25143
        #20379#24212#21830
        #26379#21451
        #20146#20154
        #20854#20182)
    end
    object dxDBGrid1gongs: TdxDBGridColumn
      Caption = #20844#21496
      BandIndex = 0
      RowIndex = 0
      FieldName = 'gongs'
    end
    object dxDBGrid1zhib: TdxDBGridPickColumn
      Caption = #32844#21035
      BandIndex = 0
      RowIndex = 0
      FieldName = 'zhib'
      Items.Strings = (
        #32463#29702
        #21378#38271
        #19994#21153
        #37319#36141
        #36319#21333
        #36130#21153
        #25253#20851#21592
        #20179#31649
        #33891#20107#38271
        #20854#20182)
    end
    object dxDBGrid1dha: TdxDBGridColumn
      Caption = #30005#35805'1'
      BandIndex = 0
      RowIndex = 0
      FieldName = 'dha'
    end
    object dxDBGrid1cuanz: TdxDBGridColumn
      Caption = #20256#30495
      BandIndex = 0
      RowIndex = 0
      FieldName = 'cuanz'
    end
    object dxDBGrid1dhb: TdxDBGridColumn
      Caption = #30005#35805'2'
      BandIndex = 0
      RowIndex = 0
      FieldName = 'dhb'
    end
    object dxDBGrid1diany: TdxDBGridColumn
      Caption = #30005#37038
      BandIndex = 0
      RowIndex = 0
      FieldName = 'diany'
    end
    object dxDBGrid1beiz: TdxDBGridColumn
      Caption = #22791#27880
      BandIndex = 0
      RowIndex = 0
      FieldName = 'beiz'
    end
  end
  object ADOqyMaster: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\telbook\data\tel' +
      'k.mdb;Persist Security Info=False'
    CursorType = ctStatic
    AfterOpen = ADOqyMasterAfterOpen
    BeforeDelete = ADOqyMasterBeforeDelete
    AfterScroll = ADOqyMasterAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from telt')
    Left = 56
    Top = 88
    object ADOqyMasterxingm: TWideStringField
      FieldName = 'xingm'
      Size = 10
    end
    object ADOqyMasterleib: TWideStringField
      FieldName = 'leib'
      Size = 10
    end
    object ADOqyMastergongs: TWideStringField
      FieldName = 'gongs'
      Size = 50
    end
    object ADOqyMasterzhib: TWideStringField
      FieldName = 'zhib'
      Size = 6
    end
    object ADOqyMasterdha: TWideStringField
      FieldName = 'dha'
    end
    object ADOqyMastercuanz: TWideStringField
      FieldName = 'cuanz'
    end
    object ADOqyMasterdhb: TWideStringField
      FieldName = 'dhb'
    end
    object ADOqyMasterdiany: TWideStringField
      FieldName = 'diany'
      Size = 50
    end
    object ADOqyMasterbeiz: TWideStringField
      FieldName = 'beiz'
      Size = 60
    end
  end
  object dsMaster: TDataSource
    DataSet = ADOqyMaster
    OnStateChange = dsMasterStateChange
    Left = 88
    Top = 88
  end
  object frxReport1: TfrxReport
    DataSet = frxDBDataset1
    DataSetName = 'frxDBDataset1'
    DotMatrixReport = False
    EngineOptions.MaxMemSize = 10000000
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Default'
    ReportOptions.CreateDate = 38325.709119826400000000
    ReportOptions.LastChange = 38325.735858101800000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    Left = 56
    Top = 128
    Datasets = <
      item
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
      end>
    Variables = <>
    Style = <>
    object Page1: TfrxReportPage
      PaperWidth = 210.000000000000000000
      PaperHeight = 297.000000000000000000
      PaperSize = 9
      LeftMargin = 10.000000000000000000
      RightMargin = 10.000000000000000000
      TopMargin = 10.000000000000000000
      BottomMargin = 10.000000000000000000
      object ReportTitle1: TfrxReportTitle
        Height = 94.488250000000000000
        Top = 18.897650000000000000
        Width = 718.110700000000000000
        object Memo1: TfrxMemoView
          Left = 311.181303330000000000
          Top = 2.519686669999999000
          Width = 114.645743330000000000
          Height = 36.535456670000000000
          GroupIndex = 0
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -32
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          Frame.Typ = [ftBottom]
          Memo.Strings = (
            #30005#35805#31807)
          ParentFont = False
        end
        object Line1: TfrxLineView
          Left = 3.779530000000000000
          Top = 75.590546300000000000
          Width = 706.772110000000000000
          GroupIndex = 0
          Frame.Typ = [ftTop]
          Frame.Width = 2.200000000000000000
        end
        object Memo2: TfrxMemoView
          Left = 18.897650000000000000
          Top = 55.937007870000000000
          Width = 42.834673330000000000
          Height = 22.677165350000000000
          GroupIndex = 0
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = []
          Memo.Strings = (
            #22995#21517)
          ParentFont = False
        end
        object Memo3: TfrxMemoView
          Left = 94.488250000000000000
          Top = 55.937007870000000000
          Width = 50.393733330000000000
          Height = 22.677165350000000000
          GroupIndex = 0
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = []
          Memo.Strings = (
            #31867#21035)
          ParentFont = False
        end
        object Memo4: TfrxMemoView
          Left = 185.196970000000000000
          Top = 55.937007870000000000
          Width = 60.472480000000000000
          Height = 22.677165350000000000
          GroupIndex = 0
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = []
          Memo.Strings = (
            #20844#21496)
          ParentFont = False
        end
        object Memo5: TfrxMemoView
          Left = 495.118430000000000000
          Top = 55.937007870000000000
          Width = 45.354360000000000000
          Height = 22.677165350000000000
          GroupIndex = 0
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = []
          Memo.Strings = (
            #30005#35805)
          ParentFont = False
        end
        object Memo6: TfrxMemoView
          Left = 613.543703330000000000
          Top = 55.937007870000000000
          Width = 45.354360000000000000
          Height = 22.677165350000000000
          GroupIndex = 0
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -15
          Font.Name = 'Arial'
          Font.Style = []
          Memo.Strings = (
            #20256#30495)
          ParentFont = False
        end
      end
      object MasterData1: TfrxMasterData
        Height = 26.456710000000000000
        Top = 173.858380000000000000
        Width = 718.110700000000000000
        DataSet = frxDBDataset1
        DataSetName = 'frxDBDataset1'
        RowCount = 0
        object Memo7: TfrxMemoView
          Left = 7.559060000000000000
          Top = 3.779529999999994000
          Width = 79.370130000000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          DataField = 'xingm'
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          Memo.Strings = (
            '[frxDBDataset1."xingm"]')
        end
        object Memo8: TfrxMemoView
          Left = 90.708720000000000000
          Top = 3.779529999999994000
          Width = 79.370130000000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          DataField = 'leib'
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          Memo.Strings = (
            '[frxDBDataset1."leib"]')
        end
        object Memo9: TfrxMemoView
          Left = 173.858380000000000000
          Top = 3.779529999999994000
          Width = 309.921460000000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          DataField = 'gongs'
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          Memo.Strings = (
            '[frxDBDataset1."gongs"]')
        end
        object Memo10: TfrxMemoView
          Left = 487.559370000000000000
          Top = 3.779529999999994000
          Width = 102.047310000000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          DataField = 'dha'
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          Memo.Strings = (
            '[frxDBDataset1."dha"]')
        end
        object Memo11: TfrxMemoView
          Left = 593.386210000000000000
          Top = 3.779529999999994000
          Width = 102.047310000000000000
          Height = 18.897650000000000000
          GroupIndex = 0
          DataField = 'dhb'
          DataSet = frxDBDataset1
          DataSetName = 'frxDBDataset1'
          Memo.Strings = (
            '[frxDBDataset1."dhb"]')
        end
      end
    end
  end
  object frxDBDataset1: TfrxDBDataset
    UserName = 'frxDBDataset1'
    DataSet = ADOqyMaster
    Left = 88
    Top = 128
  end
end