getfundunit.dfm

使用delphi语言

    Top = 51
    Width = 581
    Height = 229
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 1
    OnChange = PageControl1Change
    OnChanging = PageControl1Changing
    object TabSheet1: TTabSheet
      Caption = #24405#20837#30028#38754
      object Panel1: TPanel
        Left = 0
        Top = 3
        Width = 571
        Height = 197
        BevelInner = bvLowered
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label1: TLabel
          Left = 76
          Top = 27
          Width = 26
          Height = 13
          Caption = #25688#35201
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 89
          Top = 57
          Width = 13
          Height = 13
          Caption = #24180
        end
        object Label3: TLabel
          Left = 352
          Top = 57
          Width = 13
          Height = 13
          Caption = #26376
        end
        object Label4: TLabel
          Left = 50
          Top = 88
          Width = 52
          Height = 13
          Caption = #32844#24037#32534#21495
        end
        object Label5: TLabel
          Left = 339
          Top = 88
          Width = 26
          Height = 13
          Caption = #36134#21495
        end
        object Label6: TLabel
          Left = 50
          Top = 120
          Width = 52
          Height = 13
          Caption = #32844#24037#22995#21517
        end
        object Label7: TLabel
          Left = 314
          Top = 121
          Width = 52
          Height = 13
          Caption = #25552#21462#37329#39069
        end
        object Label9: TLabel
          Left = 91
          Top = 148
          Width = 390
          Height = 13
          Caption = #22312#32844#24037#32534#21495#26694#19978#21452#20987#25110#25353#22238#36710#65292#21487#35843#20986#32844#24037#32534#21495#36873#25321#26694#65292#20379#36873#25321#36755#20837
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Edit1: TEdit
          Left = 104
          Top = 23
          Width = 385
          Height = 21
          Color = 16758820
          ReadOnly = True
          TabOrder = 0
          OnEnter = Edit1Enter
          OnExit = Edit1Exit
          OnKeyDown = Edit1KeyDown
        end
        object Edit2: TEdit
          Left = 104
          Top = 84
          Width = 154
          Height = 21
          Color = 16758820
          ReadOnly = True
          TabOrder = 3
          OnDblClick = Edit2DblClick
          OnEnter = Edit1Enter
          OnExit = Edit1Exit
          OnKeyDown = Edit2KeyDown
        end
        object Edit3: TEdit
          Left = 368
          Top = 84
          Width = 120
          Height = 21
          Color = 16758820
          ReadOnly = True
          TabOrder = 4
          OnEnter = Edit1Enter
          OnExit = Edit1Exit
          OnKeyDown = Edit1KeyDown
        end
        object Edit4: TEdit
          Left = 104
          Top = 115
          Width = 154
          Height = 21
          Color = 16758820
          ReadOnly = True
          TabOrder = 5
          OnEnter = Edit1Enter
          OnExit = Edit1Exit
          OnKeyDown = Edit1KeyDown
        end
        object Edit5: TEdit
          Left = 368
          Top = 115
          Width = 120
          Height = 21
          Color = 16758820
          ReadOnly = True
          TabOrder = 6
          OnEnter = Edit1Enter
          OnExit = Edit1Exit
          OnKeyDown = Edit1KeyDown
          OnKeyPress = Edit5KeyPress
        end
        object MaskEdit1: TMaskEdit
          Left = 104
          Top = 53
          Width = 154
          Height = 21
          Color = 16758820
          EditMask = '9999;1;_'
          MaxLength = 4
          ReadOnly = True
          TabOrder = 1
          Text = '    '
          OnEnter = MaskEdit1Enter
          OnExit = MaskEdit1Exit
          OnKeyDown = Edit1KeyDown
        end
        object MaskEdit2: TMaskEdit
          Left = 368
          Top = 53
          Width = 120
          Height = 21
          Color = 16758820
          EditMask = '99;1;_'
          MaxLength = 2
          ReadOnly = True
          TabOrder = 2
          Text = '  '
          OnEnter = MaskEdit1Enter
          OnExit = MaskEdit1Exit
          OnKeyDown = Edit1KeyDown
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #32534#36753#30028#38754
      ImageIndex = 1
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 573
        Height = 201
        Align = alClient
        Color = clInfoBk
        DataSource = dm.dsdetail
        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 = #25688#35201
            Width = 139
            Visible = True
          end
          item
            Expanded = False
            FieldName = #24180
            Width = 81
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26376
            Width = 83
            Visible = True
          end
          item
            Expanded = False
            FieldName = #32844#24037#32534#21495
            Width = 109
            Visible = True
          end
          item
            Expanded = False
            FieldName = #36134#21495
            Width = 111
            Visible = True
          end
          item
            Expanded = False
            FieldName = #32844#24037#22995#21517
            Width = 146
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20943#23569#24635#31995#25968
            Title.Caption = #25552#21462#37329#39069
            Visible = True
          end>
      end
    end
  end
end