fixform.dfm

基本的物业管理系统

object FrmFix: TFrmFix
  Left = 231
  Top = 152
  BorderStyle = bsToolWindow
  Caption = #32500#20462#31649#29702
  ClientHeight = 401
  ClientWidth = 553
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 553
    Height = 401
    Caption = 'Panel1'
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 0
      Top = 0
      Width = 553
      Height = 401
      ActivePage = TabSheet1
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #25253#20462#31649#29702
        object Label1: TLabel
          Left = 16
          Top = 24
          Width = 108
          Height = 13
          Caption = #25253#20462#25143#20027#36523#20221#35777#21495#65306
        end
        object Label2: TLabel
          Left = 272
          Top = 24
          Width = 84
          Height = 13
          Caption = #25253#20462#25143#20027#22995#21517#65306
        end
        object Label3: TLabel
          Left = 16
          Top = 56
          Width = 48
          Height = 13
          Caption = #32500#20462#20154#65306
        end
        object Label4: TLabel
          Left = 272
          Top = 56
          Width = 60
          Height = 13
          Caption = #32500#20462#31181#31867#65306
        end
        object Label5: TLabel
          Left = 16
          Top = 88
          Width = 84
          Height = 13
          Caption = #32500#20462#24320#22987#26102#38388#65306
        end
        object Label6: TLabel
          Left = 272
          Top = 88
          Width = 84
          Height = 13
          Caption = #32500#20462#32467#26463#26102#38388#65306
        end
        object Label7: TLabel
          Left = 16
          Top = 120
          Width = 36
          Height = 13
          Caption = #22791#27880#65306
        end
        object Edit1: TEdit
          Left = 136
          Top = 16
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 0
        end
        object Edit2: TEdit
          Left = 368
          Top = 16
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 1
        end
        object Edit3: TEdit
          Left = 136
          Top = 48
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 2
        end
        object Edit5: TEdit
          Left = 136
          Top = 80
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 3
        end
        object Edit6: TEdit
          Left = 368
          Top = 80
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 4
        end
        object Memo1: TMemo
          Left = 16
          Top = 136
          Width = 513
          Height = 201
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 5
        end
        object btAdd: TButton
          Left = 248
          Top = 344
          Width = 75
          Height = 25
          Caption = #28155#21152#32426#24405
          TabOrder = 6
          OnClick = btAddClick
        end
        object ComboBox1: TComboBox
          Left = 368
          Top = 48
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ItemHeight = 13
          TabOrder = 7
          Text = #30005#22120
          Items.Strings = (
            #30005#22120
            #29028#27668
            #19978#27700
            #19979#27700
            #29627#29827
            #22681
            #22320#26495
            #38376
            #20854#23427)
        end
      end
      object TabSheet2: TTabSheet
        Caption = #32500#20462#26597#35810'/'#20462#25913
        ImageIndex = 1
        object Label8: TLabel
          Left = 40
          Top = 56
          Width = 108
          Height = 13
          Caption = #35831#30452#25509#22312#34920#20013#20462#25913#65306
        end
        object Edit4: TEdit
          Left = 40
          Top = 16
          Width = 289
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 0
          Text = 'Select * from Fix where'
        end
        object btSearch: TButton
          Left = 368
          Top = 16
          Width = 75
          Height = 25
          Caption = #26597#35810
          TabOrder = 1
          OnClick = btSearchClick
        end
        object DBGrid1: TDBGrid
          Left = 0
          Top = 80
          Width = 545
          Height = 297
          DataSource = Data.DataSFix
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 2
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'ID'
              Width = 28
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'HomeMasterSIDCardNo'
              Width = 98
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'HomeMasterName'
              Width = 60
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FixterName'
              Width = 60
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FixKind'
              Width = 60
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FixBeginDate'
              Width = 60
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FixEndDate'
              Width = 60
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Memo'
              Width = 60
              Visible = True
            end>
        end
      end
    end
  end
end