farent.dfm

速达开源ERP系统

inherited frmFaRent: TfrmFaRent
  Left = 82
  Top = 155
  Width = 641
  Height = 458
  Caption = '租赁记录'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 390
    Width = 633
  end
  inherited CoolBar1: TCoolBar
    Width = 633
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 633
      end>
    inherited tbMainBar: TToolBar
      Width = 620
      inherited tbCheck: TToolButton
        Visible = True
      end
    end
  end
  object sgFaRent: TSDGrid [2]
    Left = 0
    Top = 39
    Width = 353
    Height = 318
    Align = alLeft
    Color = 50331647
    Ctl3D = False
    DefaultRowHeight = 22
    FixedColor = 8564917
    RowCount = 4
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing]
    ParentCtl3D = False
    TabOrder = 2
    OnClick = sgFaRentClick
    EvenGridColor = 50331647
    OddGridColor = 50331647
    Columns = <
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '租赁单号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '设备编码'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '设备名称'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clWindowText
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '租赁日期'
        ColumnWidth = 0
      end>
    ColWidths = (
      9
      70
      100
      90
      75)
  end
  object FloatPanel3: TFloatPanel [3]
    Left = 0
    Top = 357
    Width = 633
    Height = 33
    Align = alBottom
    Color = 50331647
    Enabled = False
    Caption = 'FloatPanel3'
    ParentColor = False
    TabOrder = 3
    object Label14: TLabel
      Left = 429
      Top = 7
      Width = 48
      Height = 12
      Caption = '操作员：'
    end
    object labFaRentUser: TLabel
      Left = 477
      Top = 7
      Width = 78
      Height = 12
      Caption = 'labFaRentUser'
    end
    object Label11: TLabel
      Left = 252
      Top = 9
      Width = 60
      Height = 12
      Caption = '审核日期：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object labFaRentChecker: TLabel
      Left = 142
      Top = 8
      Width = 96
      Height = 12
      Caption = 'labFaRentChecker'
    end
    object Label9: TLabel
      Left = 93
      Top = 8
      Width = 48
      Height = 12
      Caption = '审核人：'
    end
    object labFaRentCheckDate: TLabel
      Left = 313
      Top = 8
      Width = 108
      Height = 12
      Caption = 'labFaRentCheckDate'
    end
    object chkFaRentCheck: TCheckBox
      Left = 24
      Top = 5
      Width = 61
      Height = 17
      Caption = '审核'
      Checked = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 0
    end
  end
  object tpFaRent: TPageControl [4]
    Left = 353
    Top = 39
    Width = 280
    Height = 318
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    MultiLine = True
    ParentFont = False
    Style = tsButtons
    TabOrder = 4
    TabStop = False
    object TabSheet1: TTabSheet
      Caption = '基本资料'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      object FloatPanel1: TFloatPanel
        Left = 0
        Top = 0
        Width = 272
        Height = 288
        Align = alClient
        Color = 50331647
        Caption = 'FloatPanel4'
        ParentColor = False
        TabOrder = 0
        object Label1: TLabel
          Left = 29
          Top = 24
          Width = 60
          Height = 12
          Caption = '租赁单号：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 29
          Top = 134
          Width = 60
          Height = 12
          Caption = '租赁类型：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 29
          Top = 162
          Width = 60
          Height = 12
          Caption = '租赁方式：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 29
          Top = 189
          Width = 60
          Height = 12
          Caption = '开始月份：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label3: TLabel
          Left = 29
          Top = 79
          Width = 60
          Height = 12
          Caption = '设备编码：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label6: TLabel
          Left = 29
          Top = 52
          Width = 60
          Height = 12
          Caption = '租赁日期：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label7: TLabel
          Left = 29
          Top = 244
          Width = 60
          Height = 12
          Caption = '系统日期：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 29
          Top = 217
          Width = 60
          Height = 12
          Caption = '结束月份：'
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object labFaRentSysDate: TLabel
          Left = 87
          Top = 243
          Width = 102
          Height = 12
          Caption = 'labFaDecCheckDate'
          Font.Charset = GB2312_CHARSET