sysform.dfm

基本的物业管理系统

object FrmSys: TFrmSys
  Left = 342
  Top = 182
  BorderStyle = bsToolWindow
  Caption = #31995#32479
  ClientHeight = 280
  ClientWidth = 409
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 409
    Height = 281
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #28155#21152#29992#25143
      object Label1: TLabel
        Left = 8
        Top = 8
        Width = 75
        Height = 13
        Caption = #26032#29992#25143#29992#25143#21517':'
      end
      object Label2: TLabel
        Left = 8
        Top = 32
        Width = 63
        Height = 13
        Caption = #26032#29992#25143#23494#30721':'
      end
      object Label3: TLabel
        Left = 8
        Top = 80
        Width = 63
        Height = 13
        Caption = #26032#29992#25143#26435#38480':'
      end
      object Label7: TLabel
        Left = 8
        Top = 56
        Width = 75
        Height = 13
        Caption = #37325#26032#36755#20837#23494#30721':'
      end
      object Edit1: TEdit
        Left = 88
        Top = 0
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 0
      end
      object Edit2: TEdit
        Left = 88
        Top = 24
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        PasswordChar = '*'
        TabOrder = 1
      end
      object ComboBox1: TComboBox
        Left = 88
        Top = 72
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ItemHeight = 13
        TabOrder = 2
        Text = '6 '#32564#36153#31649#29702
        Items.Strings = (
          '10 '#31995#32479#31649#29702
          '9 '#25143#31821#31649#29702
          '8 '#20986#20837#31649#29702
          '7 '#32500#20462#31649#29702
          '6 '#32564#36153#31649#29702)
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 104
        Width = 401
        Height = 149
        DataSource = Data.DataSouLogin
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ReadOnly = True
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object btAddU: TButton
        Left = 264
        Top = 72
        Width = 75
        Height = 25
        Caption = #28155#21152
        TabOrder = 4
        OnClick = btAddUClick
      end
      object Edit5: TEdit
        Left = 88
        Top = 48
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        PasswordChar = '*'
        TabOrder = 5
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20462#25913#29992#25143#26435#38480
      ImageIndex = 1
      object Label4: TLabel
        Left = 8
        Top = 8
        Width = 120
        Height = 13
        Caption = #35201#20462#25913#29992#25143#30340#29992#25143#21517#65306
      end
      object Label5: TLabel
        Left = 8
        Top = 40
        Width = 60
        Height = 13
        Caption = #29992#25143#26435#38480#65306
      end
      object btFind: TButton
        Left = 264
        Top = 0
        Width = 75
        Height = 25
        Caption = #26597#25214
        TabOrder = 0
        OnClick = btFindClick
      end
      object btChange: TButton
        Left = 264
        Top = 40
        Width = 75
        Height = 25
        Caption = #20462#25913
        Enabled = False
        TabOrder = 1
        OnClick = btChangeClick
      end
      object Edit3: TEdit
        Left = 136
        Top = 0
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 2
      end
      object DBGrid2: TDBGrid
        Left = 0
        Top = 72
        Width = 401
        Height = 185
        DataSource = Data.DataSouLogin
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ReadOnly = True
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object ComboBox2: TComboBox
        Left = 136
        Top = 40
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ItemHeight = 13
        TabOrder = 4
        Text = '6 '#32564#36153#31649#29702
        Items.Strings = (
          '10 '#31995#32479#31649#29702
          '9 '#25143#31821#31649#29702
          '8 '#20986#20837#31649#29702
          '7 '#32500#20462#31649#29702
          '6 '#32564#36153#31649#29702)
      end
    end
    object TabSheet3: TTabSheet
      Caption = #21024#38500#29992#25143
      ImageIndex = 2
      object Label6: TLabel
        Left = 16
        Top = 16
        Width = 144
        Height = 13
        Caption = #36755#20837#35201#21024#38500#29992#25143#30340#29992#25143#21517#65306
      end
      object Edit4: TEdit
        Left = 168
        Top = 8
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 0
      end
      object btDel: TButton
        Left = 304
        Top = 8
        Width = 75
        Height = 25
        Caption = #21024#38500
        TabOrder = 1
        OnClick = btDelClick
      end
      object DBGrid3: TDBGrid
        Left = 0
        Top = 40
        Width = 401
        Height = 217
        DataSource = Data.DataSouLogin
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ReadOnly = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
  end
end