purviewform.dfm

地址档案管理系统

object FormPurview: TFormPurview
  Left = 21
  Top = 117
  Width = 800
  Height = 534
  Caption = #26435#38480#35774#32622
  Color = clBtnFace
  Constraints.MaxHeight = 534
  Constraints.MaxWidth = 800
  Constraints.MinHeight = 534
  Constraints.MinWidth = 800
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 88
    Top = 16
    Width = 345
    Height = 473
    Ctl3D = False
    DataSource = dsPurviewPerson
    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 = 'p_name'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'password'
        Width = 75
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'note'
        Width = 157
        Visible = True
      end>
  end
  object tDbNav971: tDbNav97
    Left = 8
    Top = 8
    Width = 65
    Height = 168
    DataSource = dsPurviewPerson
    VisibleButtons = [nbAppend, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
    Ctl3D = True
    ParentCtl3D = False
    CaptionStyle = blBitmapTop
    Style = btCaption
    TabOrder = 1
  end
  object clbFunc: TCheckListBox
    Left = 448
    Top = 16
    Width = 329
    Height = 433
    AutoComplete = False
    ItemHeight = 13
    Items.Strings = (
      #65293#65293#65293' '#35831#20180#32454#36873#25321' '#65293#65293#65293
      #26723#26696#25968#25454#32500#25252'-->'#21333#20117
      #26723#26696#25968#25454#32500#25252'-->'#27979#20301#22270
      #26723#26696#25968#25454#32500#25252'-->'#32508#21512#25104#26524
      #26723#26696#25968#25454#32500#25252'-->'#22320#38663#27979#32447
      #30446#24405#27719#32534'-->'#24635#30446#24405'-->'#21333#20117#26723#26696#24635#30446#24405
      #30446#24405#27719#32534'-->'#24635#30446#24405'-->'#32508#21512#25104#26524#26723#26696#24635#30446#24405
      #30446#24405#27719#32534'-->'#24635#30446#24405'-->'#22320#38663#27979#32447#26723#26696#24635#30446#24405
      #30446#24405#27719#32534'-->'#20998#31867#30446#24405'-->'#21333#20117#26723#26696#20998#31867#30446#24405
      #30446#24405#27719#32534'-->'#20998#31867#30446#24405'-->'#32508#21512#25104#26524#20998#31867#30446#24405
      #30446#24405#27719#32534'-->'#20998#31867#30446#24405'-->'#21306#22359#22320#38663#27979#32447#21078#38754#30331#35760#34920
      #30446#24405#27719#32534'-->'#20998#31867#30446#24405'-->'#22320#38663#27979#32447#29305#27530#22788#29702#30331#35760#34920
      #30446#24405#27719#32534'-->'#20998#31867#30446#24405'-->'#27979#20301#22270#30446#24405#34920
      #30446#24405#27719#32534'-->'#33014#29255#30446#24405'-->'#21333#20117#21508#31867#22270#20214#33014#29255#30446#24405
      #30446#24405#27719#32534'-->'#33014#29255#30446#24405'-->'#22320#36136#22270#20214#33014#29255#30446#24405
      #23383#20856#31649#29702'-->'#20844#21496#21517#31216
      #23383#20856#31649#29702'-->'#20117#21495#31867#21035
      #23383#20856#31649#29702'-->'#27979#32447#22788#29702#26041#27861
      #23383#20856#31649#29702'-->'#24120#29992#31867#21035#20195#30721
      #32479#35745#19982#19987#39064'-->'#32479#35745#25253#34920'-->'#24211#23384#37327#32479#35745'('#25353#24402#26723#26085#26399#32479#35745')'
      #32479#35745#19982#19987#39064'-->'#32479#35745#25253#34920'-->'#24211#23384#20998#31867#32479#35745
      #32479#35745#19982#19987#39064'-->'#32479#35745#25253#34920'-->'#21333#20117#26723#26696#20998#24211#32479#35745#25968#25454
      #32479#35745#19982#19987#39064'-->'#32479#35745#25253#34920'-->'#32508#21512#25104#26524#26723#26696#20998#24211#32479#35745#25968#25454
      #32479#35745#19982#19987#39064'-->'#32479#35745#25253#34920'-->'#22320#38663#27979#32447#20998#24211#32479#35745#25968#25454
      #32479#35745#19982#19987#39064'-->'#32479#35745#25253#34920'-->'#27979#20301#22270#20998#24211#32479#35745#25968#25454
      #32479#35745#19982#19987#39064'-->'#32479#35745#25253#34920'-->'#20511#38405#12289#24402#36824#24037#20316#37327#32479#35745
      #32479#35745#19982#19987#39064'-->'#21333#20117#19987#39064#30446#24405#25253#21578
      #20511#38405#31649#29702'-->'#20511#38405#30331#35760
      #20511#38405#31649#29702'-->'#32493#20511#30331#35760
      #20511#38405#31649#29702'-->'#24402#36824#30331#35760
      #20511#38405#31649#29702'-->'#20511#38405#26723#26696#20652#36824
      #20511#38405#31649#29702'-->'#35835#32773#36164#26009#35774#23450)
    TabOrder = 2
  end
  object Button1: TButton
    Left = 496
    Top = 472
    Width = 73
    Height = 25
    Caption = #20840#37096#36873#20013
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 584
    Top = 472
    Width = 73
    Height = 25
    Caption = #20840#37096#21462#28040
    TabOrder = 4
    OnClick = Button2Click
  end
  object btnSave: TButton
    Left = 672
    Top = 472
    Width = 73
    Height = 25
    Caption = #20445#23384#26435#38480
    Enabled = False
    TabOrder = 5
    OnClick = btnSaveClick
  end
  object tblPP: TADOTable
    Connection = DM.DBCnt
    CursorType = ctStatic
    AfterPost = tblPPAfterScroll
    AfterScroll = tblPPAfterScroll
    TableName = 'PurviewPerson'
    Left = 24
    Top = 216
    object tblPPp_name: TStringField
      DisplayLabel = #29992#25143#22995#21517
      FieldName = 'p_name'
      FixedChar = True
      Size = 10
    end
    object tblPPpassword: TWideStringField
      DisplayLabel = #23494#30721
      FieldName = 'password'
      Size = 50
    end
    object tblPPfunctions: TWideStringField
      FieldName = 'functions'
      Visible = False
      Size = 100
    end
    object tblPPnote: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'note'
      Size = 50
    end
  end
  object dsPurviewPerson: TDataSource
    AutoEdit = False
    DataSet = tblPP
    Left = 24
    Top = 264
  end
end