⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 mainform.~dfm

📁 停车场收费系统停车场收费系统停车场收费系统停车场收费系统
💻 ~DFM
📖 第 1 页 / 共 2 页
字号:
object frmMain: TfrmMain
  Left = 156
  Top = 130
  Width = 512
  Height = 391
  BorderIcons = [biSystemMenu]
  Caption = '收费管理系统'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 504
    Height = 345
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 0
    object Panel11: TPanel
      Left = 1
      Top = 1
      Width = 502
      Height = 32
      Align = alTop
      TabOrder = 0
      object lblConnection: TLabel
        Left = 168
        Top = 7
        Width = 97
        Height = 20
        AutoSize = False
        Caption = '网络连接状态'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lblEmployeeName: TLabel
        Left = 280
        Top = 7
        Width = 73
        Height = 20
        AutoSize = False
        Caption = '收费人员'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object lblLoginTime: TLabel
        Left = 376
        Top = 7
        Width = 113
        Height = 20
        AutoSize = False
        Caption = '登录时间'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
    end
    object Panel14: TPanel
      Left = 1
      Top = 33
      Width = 502
      Height = 312
      Align = alTop
      Caption = 'Panel14'
      TabOrder = 1
      object Panel15: TPanel
        Left = 241
        Top = 1
        Width = 260
        Height = 310
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label7: TLabel
          Left = 16
          Top = 61
          Width = 48
          Height = 16
          Caption = '停车费:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label8: TLabel
          Left = 16
          Top = 107
          Width = 36
          Height = 16
          Caption = '付款:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 16
          Top = 152
          Width = 36
          Height = 16
          Caption = '找零:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 79
          Top = 52
          Width = 13
          Height = 29
          Caption = '$'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -24
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label11: TLabel
          Left = 80
          Top = 97
          Width = 13
          Height = 29
          Caption = '$'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -24
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 80
          Top = 144
          Width = 13
          Height = 29
          Caption = '$'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -24
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object edtOughtPay: TEdit
          Left = 104
          Top = 54
          Width = 121
          Height = 24
          Color = clMenu
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
        end
        object edtPayed: TEdit
          Left = 104
          Top = 103
          Width = 121
          Height = 24
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          OnKeyPress = edtPayedKeyPress
        end
        object edtChange: TEdit
          Left = 105
          Top = 150
          Width = 121
          Height = 24
          Color = clMenu
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
        end
        object pnlReadCard: TPanel
          Left = 1
          Top = 1
          Width = 258
          Height = 40
          Align = alTop
          Caption = '欢迎光临...'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clOlive
          Font.Height = -19
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          object lblCard: TLabel
            Left = 8
            Top = 13
            Width = 57
            Height = 19
            AutoSize = False
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clTeal
            Font.Height = -13
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
        end
        object Panel3: TPanel
          Left = 1
          Top = 192
          Width = 258
          Height = 117
          Align = alBottom
          Caption = 'Panel3'
          TabOrder = 4
          object lvError: TListView
            Left = 1
            Top = 1
            Width = 256
            Height = 115
            Align = alClient
            Color = clBackground
            Columns = <
              item
                Width = 300
              end>
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWhite
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            GridLines = True
            ParentFont = False
            SmallImages = iglMessage
            TabOrder = 0
            ViewStyle = vsReport
          end
          object msmDisplay: TMSComm
            Left = 160
            Top = 61
            Width = 32
            Height = 32
            ControlData = {
              2143341208000000ED030000ED03000001568A64000006000000010000040000
              00020000802500000000080000000000000000003F00000001000000}
          end
        end
      end
      object Panel1: TPanel
        Left = 1
        Top = 1
        Width = 240
        Height = 310
        Align = alLeft
        Caption = 'Panel1'
        TabOrder = 1
        object Panel5: TPanel
          Left = 1
          Top = 1
          Width = 238
          Height = 56
          Align = alTop
          Caption = 'Panel5'
          TabOrder = 0
          object ToolBar1: TToolBar
            Left = 1
            Top = 1
            Width = 236
            Height = 56
            ButtonHeight = 21
            ButtonWidth = 67
            Caption = 'ToolBar1'
            ShowCaptions = True
            TabOrder = 0
            object ToolButton1: TToolButton
              Left = 0
              Top = 2
              Caption = '注销'
              ImageIndex = 2
              MenuItem = mmiLoginOut
            end
            object tbnFloodOff: TToolButton
              Left = 67
              Top = 2
              AutoSize = True
              Caption = '关照明系统'
              ImageIndex = 0
              OnClick = tbnFloodOffClick
            end
            object ToolButton2: TToolButton
              Left = 138
              Top = 2
              Caption = '挡车器...'
              ImageIndex = 0
              MenuItem = mmiBlocker
              Wrap = True
            end
            object tbnLockTicket: TToolButton
              Left = 0
              Top = 23
              Caption = '票丢手续'
              ImageIndex = 0
              MenuItem = mmiLoseTicket
            end
            object tbnFloodOn: TToolButton
              Left = 67
              Top = 23
              Caption = '开照明系统'
              ImageIndex = 0
              OnClick = tbnFloodOnClick
            end
            object ToolButton3: TToolButton
              Left = 134
              Top = 23
              Caption = '查看数据库'
              ImageIndex = 1
              Visible = False
            end
          end
        end
        object Panel6: TPanel
          Left = 1
          Top = 57
          Width = 238
          Height = 252
          Align = alClient
          Caption = 'Panel6'
          TabOrder = 1
          object Panel4: TPanel
            Left = 1
            Top = 1
            Width = 236
            Height = 250
            Align = alClient
            TabOrder = 0
            object Label1: TLabel
              Left = 16
              Top = 123
              Width = 60
              Height = 13
              Caption = '上班金额:'
            end
            object Label2: TLabel
              Left = 16
              Top = 148
              Width = 60
              Height = 13
              Caption = '收到金额:'
            end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -