unitcommunity.dfm

社区服务系统

object frmCommunity: TfrmCommunity
  Left = 134
  Top = 124
  Width = 763
  Height = 536
  Caption = #31038#21306#22522#26412#20449#24687#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 755
    Height = 222
    Align = alClient
    Caption = #31038#21306#21015#34920
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 751
      Height = 205
      Align = alClient
      Color = clBtnFace
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'CID'
          Title.Alignment = taCenter
          Title.Caption = #31038#21306#32534#21495
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CName'
          Title.Alignment = taCenter
          Title.Caption = #31038#21306#21517#31216
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CMainMan'
          Title.Alignment = taCenter
          Title.Caption = #20027#35201#36127#36131#20154
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CPhone'
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#30005#35805
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CEmail'
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#37038#31665
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CAddress'
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#22320#22336
          Width = 120
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CPost'
          Title.Alignment = taCenter
          Title.Caption = #32852#31995#37038#32534
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CInfo'
          Title.Alignment = taCenter
          Title.Caption = #31038#21306#20171#32461
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CMemo'
          Title.Alignment = taCenter
          Title.Caption = #31038#21306#22791#27880
          Width = 100
          Visible = True
        end>
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 222
    Width = 755
    Height = 287
    Align = alBottom
    TabOrder = 1
    DesignSize = (
      755
      287)
    object GroupBox2: TGroupBox
      Left = 1
      Top = 45
      Width = 753
      Height = 241
      Align = alBottom
      Caption = #31038#21306#32534#36753#21306
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      object Label1: TLabel
        Left = 43
        Top = 27
        Width = 81
        Height = 22
        AutoSize = False
        Caption = #31038#21306#32534#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 43
        Top = 59
        Width = 81
        Height = 25
        AutoSize = False
        Caption = #31038#21306#21517#31216#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 32
        Top = 123
        Width = 89
        Height = 26
        AutoSize = False
        Caption = #20027#35201#36127#36131#20154#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 44
        Top = 91
        Width = 81
        Height = 25
        AutoSize = False
        Caption = #32852#31995#30005#35805#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 44
        Top = 152
        Width = 81
        Height = 25
        AutoSize = False
        Caption = #32852#31995#37038#31665#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 44
        Top = 184
        Width = 81
        Height = 25
        AutoSize = False
        Caption = #32852#31995#22320#22336#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 44
        Top = 217
        Width = 81
        Height = 25
        AutoSize = False
        Caption = #32852#31995#37038#32534#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 366
        Top = 132
        Width = 81
        Height = 25
        AutoSize = False
        Caption = #31038#21306#20171#32461#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 363
        Top = 21
        Width = 81
        Height = 25
        AutoSize = False
        Caption = #31038#21306#22791#27880#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object edtCID: TEdit
        Left = 108
        Top = 24
        Width = 137
        Height = 19
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object edtCName: TEdit
        Left = 109
        Top = 56
        Width = 137
        Height = 19
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object edtCMainMan: TEdit
        Left = 109
        Top = 119
        Width = 137
        Height = 19
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object edtCPhone: TEdit
        Left = 109
        Top = 87
        Width = 137
        Height = 19
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object edtCEmail: TEdit
        Left = 109
        Top = 150
        Width = 137
        Height = 19
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object edtCAddress: TEdit
        Left = 109
        Top = 182
        Width = 137
        Height = 19
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
      object edtCPost: TEdit
        Left = 109
        Top = 214
        Width = 137
        Height = 19
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
      end
      object memCInfo: TMemo
        Left = 424
        Top = 128
        Width = 273
        Height = 93
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          'Memo1')
        ParentFont = False
        TabOrder = 7
      end
      object memCommu: TMemo
        Left = 423
        Top = 21
        Width = 276
        Height = 92
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Lines.Strings = (
          'Memo1')
        ParentFont = False
        TabOrder = 8
      end
    end
    object bbtnAdd: TBitBtn
      Left = 89
      Top = 8
      Width = 75
      Height = 33
      Anchors = [akTop]
      Caption = #28155#21152
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = bbtnAddClick
    end
    object bbtnModify: TBitBtn
      Left = 190
      Top = 8
      Width = 75
      Height = 33
      Anchors = [akTop]
      Caption = #20462#25913
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = bbtnModifyClick
    end
    object bbtnDel: TBitBtn
      Left = 301
      Top = 7
      Width = 75
      Height = 33
      Anchors = [akTop]
      Caption = #21024#38500
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = bbtnDelClick
    end
    object bbtnSave: TBitBtn
      Left = 409
      Top = 7
      Width = 75
      Height = 33
      Anchors = [akTop]
      Caption = #20445#23384
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = bbtnSaveClick
    end
    object bbtnCancel: TBitBtn
      Left = 514
      Top = 7
      Width = 75
      Height = 33
      Anchors = [akTop]
      Caption = #21462#28040
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = bbtnCancelClick
    end
    object bbtnExit: TBitBtn
      Left = 616
      Top = 6
      Width = 75
      Height = 33
      Anchors = [akTop]
      Caption = #36864#20986
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnClick = bbtnExitClick
    end
  end
  object adoCommu: TADOQuery
    AfterScroll = adoCommuAfterScroll
    Parameters = <>
    Left = 528
    Top = 56
  end
  object DataSource1: TDataSource
    DataSet = adoCommu
    Left = 472
    Top = 56
  end
end