feeform.dfm

基本的物业管理系统

object FrmFee: TFrmFee
  Left = 191
  Top = 201
  BorderStyle = bsToolWindow
  Caption = #25910#32564#36153#31649#29702
  ClientHeight = 491
  ClientWidth = 674
  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 = 673
    Height = 489
    Caption = 'Panel1'
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 0
      Top = 0
      Width = 673
      Height = 489
      ActivePage = TabSheet2
      TabOrder = 0
      OnChange = PageControl1Change
      object TabSheet1: TTabSheet
        Caption = #31649#29702
        object GroupBox1: TGroupBox
          Left = 8
          Top = 8
          Width = 321
          Height = 449
          Caption = #20132#36153#24320#22987
          TabOrder = 0
          object Label1: TLabel
            Left = 16
            Top = 24
            Width = 75
            Height = 13
            Caption = #20132#36153#24320#22987#26102#38388':'
          end
          object Label2: TLabel
            Left = 16
            Top = 48
            Width = 75
            Height = 13
            Caption = #20132#36153#32467#26463#26102#38388':'
          end
          object Label3: TLabel
            Left = 16
            Top = 72
            Width = 39
            Height = 13
            Caption = #20132#36153#39069':'
          end
          object Label4: TLabel
            Left = 16
            Top = 96
            Width = 51
            Height = 13
            Caption = #20132#36153#21517#31216':'
          end
          object Label5: TLabel
            Left = 16
            Top = 120
            Width = 27
            Height = 13
            Caption = #22791#27880':'
          end
          object Edit1: TEdit
            Left = 120
            Top = 16
            Width = 177
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
            TabOrder = 0
          end
          object Edit14: TEdit
            Left = 120
            Top = 40
            Width = 177
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
            TabOrder = 1
          end
          object Edit2: TEdit
            Left = 120
            Top = 64
            Width = 177
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
            TabOrder = 2
          end
          object ComboBox1: TComboBox
            Left = 120
            Top = 88
            Width = 177
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
            ItemHeight = 13
            TabOrder = 3
            Text = #30005#35805#36153
            Items.Strings = (
              #30005#35805#36153
              #29289#19994#36153
              #27700#36153
              #30005#36153
              #29028#27668#36153
              #26262#27668#36153
              #27927#34915#36153
              #32593#36153
              #23433#35013#36153
              #20854#20182)
          end
          object Memo1: TMemo
            Left = 16
            Top = 136
            Width = 289
            Height = 273
            ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
            TabOrder = 4
          end
          object btOK: TButton
            Left = 120
            Top = 416
            Width = 75
            Height = 25
            Caption = #24320#22987
            TabOrder = 5
            OnClick = btOKClick
          end
        end
        object GroupBox2: TGroupBox
          Left = 336
          Top = 8
          Width = 321
          Height = 449
          Caption = #20132#36153#32467#26463
          TabOrder = 1
          object Label6: TLabel
            Left = 16
            Top = 24
            Width = 84
            Height = 13
            Caption = #20132#36153#24320#22987#26102#38388#65306
          end
          object Label7: TLabel
            Left = 16
            Top = 48
            Width = 84
            Height = 13
            Caption = #20132#36153#32467#26463#26102#38388#65306
          end
          object Label8: TLabel
            Left = 16
            Top = 72
            Width = 48
            Height = 13
            Caption = #20132#36153#39069#65306
          end
          object Label9: TLabel
            Left = 16
            Top = 120
            Width = 60
            Height = 13
            Caption = #24050#20132#20154#25968#65306
          end
          object Label10: TLabel
            Left = 16
            Top = 144
            Width = 84
            Height = 13
            Caption = #26159#21542#20840#37096#20132#40784#65306
          end
          object Label11: TLabel
            Left = 16
            Top = 96
            Width = 60
            Height = 13
            Caption = #20132#36153#21517#31216#65306
          end
          object Edit3: TEdit
            Left = 120
            Top = 16
            Width = 177
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
            ReadOnly = True
            TabOrder = 0
          end
          object Edit4: TEdit
            Left = 120
            Top = 40
            Width = 177
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
            ReadOnly = True
            TabOrder = 1
          end
          object Edit5: TEdit
            Left = 120
            Top = 64
            Width = 177
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
            ReadOnly = True
            TabOrder = 2
          end
          object Edit6: TEdit
            Left = 120
            Top = 88
            Width = 177
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
            ReadOnly = True
            TabOrder = 3
          end
          object Edit7: TEdit
            Left = 120
            Top = 112
            Width = 177
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
            ReadOnly = True
            TabOrder = 4
          end
          object Edit8: TEdit
            Left = 120
            Top = 136
            Width = 177
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
            ReadOnly = True
            TabOrder = 5
          end
          object Memo2: TMemo
            Left = 16
            Top = 168
            Width = 289
            Height = 241
            ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
            ReadOnly = True
            TabOrder = 6
          end
          object btEnd: TButton
            Left = 128
            Top = 416
            Width = 75
            Height = 25
            Caption = #32467#26463
            TabOrder = 7
            OnClick = btEndClick
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #20132#36153#31649#29702
        ImageIndex = 1
        object Label12: TLabel
          Left = 8
          Top = 24
          Width = 108
          Height = 13
          Caption = #20132#36153#25143#20027#36523#20221#35777#21495#65306
        end
        object Label13: TLabel
          Left = 8
          Top = 48
          Width = 72
          Height = 13
          Caption = #20132#36153#20154#22995#21517#65306
        end
        object Label14: TLabel
          Left = 8
          Top = 72
          Width = 60
          Height = 13
          Caption = #20132#36153#25968#39069#65306
        end
        object Label15: TLabel
          Left = 8
          Top = 96
          Width = 60
          Height = 13
          Caption = #20132#36153#26085#26399#65306
        end
        object Label16: TLabel
          Left = 8
          Top = 120
          Width = 36
          Height = 13
          Caption = #22791#27880#65306
        end
        object Edit9: TEdit
          Left = 152
          Top = 16
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 0
        end
        object Edit10: TEdit
          Left = 152
          Top = 40
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 1
        end
        object Edit11: TEdit
          Left = 152
          Top = 64
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ReadOnly = True
          TabOrder = 2
        end
        object Edit12: TEdit
          Left = 152
          Top = 88
          Width = 121
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ReadOnly = True
          TabOrder = 3
        end
        object Memo3: TMemo
          Left = 8
          Top = 136
          Width = 649
          Height = 81
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 4
        end
        object btFee: TButton
          Left = 320
          Top = 88
          Width = 75
          Height = 25
          Caption = #20132#36153
          TabOrder = 5
          OnClick = btFeeClick
        end
        object DBGrid1: TDBGrid
          Left = 8
          Top = 224
          Width = 649
          Height = 225
          DataSource = Data.DataSFee
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ReadOnly = True
          TabOrder = 6
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'ID'
              Width = 29
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FeeDateBegin'
              Width = 75
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FeeDateEnd'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FeeMasterSIDCardNo'
              Width = 108
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FeeMasterName'
              Width = 71
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FeeName'
              Width = 55
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FeeCount'
              Width = 52
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FeeDate'
              Width = 51
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Memo'
              Width = 115
              Visible = True
            end>
        end
        object btCalc: TButton
          Left = 320
          Top = 56
          Width = 75
          Height = 25
          Caption = #35745#31639#22120
          TabOrder = 7
        end
      end
      object TabSheet3: TTabSheet
        Caption = #20132#36153#26597#35810
        ImageIndex = 2
        object Label17: TLabel
          Left = 32
          Top = 24
          Width = 201
          Height = 20
          Caption = #35831#36755#20837#25143#20027#36523#20221#35777#21495#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object DBGrid2: TDBGrid
          Left = 0
          Top = 72
          Width = 665
          Height = 393
          DataSource = Data.DataSFee
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'ID'
              Width = 29
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FeeDateBegin'
              Width = 75
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FeeDateEnd'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FeeMasterSIDCardNo'
              Width = 108
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FeeMasterName'
              Width = 71
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FeeName'
              Width = 55
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FeeCount'
              Width = 52
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FeeDate'
              Width = 51
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Memo'
              Width = 115
              Visible = True
            end>
        end
        object Edit13: TEdit
          Left = 248
          Top = 24
          Width = 201
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 1
        end
        object btSearch: TButton
          Left = 496
          Top = 24
          Width = 75
          Height = 25
          Caption = #26597#35810
          TabOrder = 2
          OnClick = btSearchClick
        end
      end
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 188
  end
end