pricesetmodi.dfm

来自「停车场用」· DFM 代码 · 共 766 行 · 第 1/2 页

          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7E7E7FFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFF7F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFBFFFFFFFFFFFFFFFFFF
          FF00}
        Transparent = True
      end
      object CheckBox1: TCheckBox
        Left = 12
        Top = 15
        Width = 66
        Height = 17
        Caption = '不收费：'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object DBEdit3: TDBEdit
        Left = 78
        Top = 11
        Width = 81
        Height = 26
        Color = clScrollBar
        DataField = 'PNeverPrice'
        DataSource = PDataModule.DataSource_Price
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
    object CheckBox2: TCheckBox
      Left = 13
      Top = 57
      Width = 90
      Height = 17
      Caption = '一次收费：'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object DBEdit4: TDBEdit
      Left = 92
      Top = 54
      Width = 80
      Height = 26
      Color = clScrollBar
      DataField = 'POnePrice'
      DataSource = PDataModule.DataSource_Price
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object CheckBox3: TCheckBox
      Left = 13
      Top = 86
      Width = 80
      Height = 17
      Caption = '按年收费：'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 92
      Top = 83
      Width = 80
      Height = 26
      Color = clScrollBar
      DataField = 'PPrice'
      DataSource = PDataModule.DataSource_Price
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 92
      Top = 112
      Width = 80
      Height = 26
      Color = clScrollBar
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
    end
    object CheckBox5: TCheckBox
      Left = 13
      Top = 147
      Width = 87
      Height = 17
      Caption = '按月收费：'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
    object DBEdit7: TDBEdit
      Left = 92
      Top = 142
      Width = 80
      Height = 26
      Color = clScrollBar
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
    end
    object CheckBox6: TCheckBox
      Left = 13
      Top = 176
      Width = 78
      Height = 17
      Caption = '按日收费：'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
    end
    object DBEdit8: TDBEdit
      Left = 92
      Top = 171
      Width = 80
      Height = 26
      Color = clScrollBar
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
    end
    object CheckBox7: TCheckBox
      Left = 217
      Top = 55
      Width = 79
      Height = 17
      Caption = '按时收费：'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
    end
    object DBEdit9: TDBEdit
      Left = 467
      Top = 84
      Width = 81
      Height = 26
      Color = clScrollBar
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 14
    end
    object CheckBox8: TCheckBox
      Left = 217
      Top = 168
      Width = 84
      Height = 17
      Caption = '按次收费：'
      TabOrder = 17
    end
    object DBEdit10: TDBEdit
      Left = 304
      Top = 164
      Width = 81
      Height = 26
      Color = clScrollBar
      Enabled = False
      TabOrder = 18
    end
    object DBEdit11: TDBEdit
      Left = 467
      Top = 164
      Width = 81
      Height = 26
      Color = clScrollBar
      Enabled = False
      TabOrder = 19
    end
    object DBEdit12: TDBEdit
      Left = 304
      Top = 84
      Width = 81
      Height = 26
      Color = clScrollBar
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 13
    end
    object DBEdit13: TDBEdit
      Left = 304
      Top = 112
      Width = 81
      Height = 26
      Color = clScrollBar
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 15
    end
    object DBEdit14: TDBEdit
      Left = 467
      Top = 112
      Width = 81
      Height = 26
      Color = clScrollBar
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 16
    end
    object DBEdit15: TDBEdit
      Left = 368
      Top = 53
      Width = 81
      Height = 26
      Color = clScrollBar
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 12
    end
    object Panel6: TPanel
      Left = 1
      Top = 199
      Width = 683
      Height = 186
      Align = alBottom
      TabOrder = 20
      object DBGrid1: TDBGrid
        Left = 1
        Top = 1
        Width = 681
        Height = 184
        Align = alClient
        DataSource = PDataModule.DataSource_Price
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'RecNo'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PUserType'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PType'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PPrice'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PFirst'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PFirstPrice'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PSecond'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PSecondPrice'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'POnePrice'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PNeightPrice'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PDayPrice'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PNeverPrice'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Remark'
            Visible = True
          end>
      end
    end
  end
end