farent.dfm

科思ERP部分源码及控件

          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label15: TLabel
          Left = 29
          Top = 107
          Width = 60
          Height = 12
          Caption = '设备名称：'
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object seFaRentCode: TSDEdit
          Left = 86
          Top = 19
          Width = 122
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          Text = 'seFaRentCode'
          OnKeyDown = seFaRentCodeKeyDown
          SplitSymbol = ' | '
        end
        object sdFaRentDate: TDateEdit
          Left = 86
          Top = 49
          Width = 125
          Height = 18
          LineOffset = 2
          LineColor = clGreen
          LineVisible = False
          CDate = '2003-03-07'
          InitDate = '2003-03-07 14:14:28'
          ModalResult = 0
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          TabOrder = 1
          Color = 50331647
          Ctl3D = False
          ParentFont = False
          ParentCtl3D = False
        end
        object scFaRentType: TSDComboBox
          Left = 86
          Top = 128
          Width = 125
          Height = 20
          Style = csDropDownList
          Color = 50331647
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 3
          KeyItem = cbItem2
        end
        object scFaRentMode: TSDComboBox
          Left = 86
          Top = 155
          Width = 125
          Height = 20
          Style = csDropDownList
          Color = 50331647
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 4
          KeyItem = cbItem2
        end
        object scFaRentBFMonth: TSDComboBox
          Left = 85
          Top = 184
          Width = 125
          Height = 20
          Color = 50331647
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 5
          Text = 'scFaRentBFMonth'
        end
        object scFaRentEFMonth: TSDComboBox
          Left = 85
          Top = 212
          Width = 125
          Height = 20
          Color = 50331647
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 6
          Text = 'scFaRentEFMonth'
        end
        object seFaRentFadnName: TSDEdit
          Left = 86
          Top = 102
          Width = 122
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 7
          Text = 'seFaRentFadnName'
          SplitSymbol = ' | '
        end
        object seFaRentFadn: TSDEdit
          Left = 86
          Top = 73
          Width = 122
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 2
          Text = 'seFaRentFadn'
          OnKeyDown = seFaRentFadnKeyDown
          OnButtonClick = seFaRentFadnButtonClick
          ButtonVisible = True
          SplitSymbol = ' | '
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '财务资料'
      ImageIndex = 1
      object FloatPanel2: TFloatPanel
        Left = 0
        Top = 0
        Width = 272
        Height = 288
        Align = alClient
        Color = 50331647
        Caption = 'FloatPanel4'
        ParentColor = False
        TabOrder = 0
        object Label13: TLabel
          Left = 30
          Top = 133
          Width = 60
          Height = 12
          Caption = '结清日期：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 30
          Top = 32
          Width = 60
          Height = 12
          Caption = '租赁金额：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 30
          Top = 66
          Width = 60
          Height = 12
          Caption = '入帐金额：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object chkFaRentClose: TCheckBox
          Left = 30
          Top = 99
          Width = 49
          Height = 17
          Caption = '结清'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = chkFaRentCloseClick
        end
        object sdFaRentCloseDate: TDateEdit
          Left = 86
          Top = 129
          Width = 125
          Height = 18
          LineOffset = 2
          LineColor = clGreen
          LineVisible = False
          CDate = '2003-03-07'
          InitDate = '2003-03-07 14:14:28'
          ModalResult = 0
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          TabOrder = 1
          Color = 50331647
          Ctl3D = False
          ParentFont = False
          ParentCtl3D = False
        end
        object seFaRentAmt: TSDEdit
          Left = 86
          Top = 27
          Width = 125
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          MaxLength = 13
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 2
          Text = '0'
          DigLen = 2
          DataType = dtNumber
          CharType = ctMathematic
          SplitSymbol = ' | '
          DefaultValue = '0'
        end
        object seFaRentRAmt: TSDEdit
          Left = 86
          Top = 65
          Width = 125
          Height = 18
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          MaxLength = 13
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 3
          Text = '0'
          DigLen = 2
          DataType = dtNumber
          CharType = ctMathematic
          SplitSymbol = ' | '
          DefaultValue = '0'
        end
      end
    end
  end
  inherited RecPrintDlg: TPrintDialog
    Left = 531
    Top = 39
  end
end