add_pen_unit.~dfm

delphi6.0电子寻更源程序,用来计算保安有无查抄

object add_penform: Tadd_penform
  Left = 248
  Top = 115
  Width = 283
  Height = 306
  BorderIcons = [biSystemMenu]
  Caption = '巡检棒维护'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 275
    Height = 279
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 0
      Top = 0
      Width = 275
      Height = 78
      Align = alTop
      Caption = 
        #13#10'注：此项功能使用在多个巡检棒巡检,且每根棒'#13#10#13#10'只能指定一个钮号' +
        '，如果使用多个人员钮时，'#13#10#13#10'请不要进行设置！'
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object list_pen: TListView
      Left = 0
      Top = 78
      Width = 275
      Height = 160
      Align = alClient
      Columns = <
        item
          Caption = '   棒  号'
          Width = 100
        end
        item
          Alignment = taCenter
          Caption = '钮  号'
          Width = 100
        end>
      ReadOnly = True
      RowSelect = True
      TabOrder = 0
      ViewStyle = vsReport
    end
    object Panel2: TPanel
      Left = 0
      Top = 238
      Width = 275
      Height = 41
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object SpeedButton1: TSpeedButton
        Left = 19
        Top = 10
        Width = 54
        Height = 22
        Caption = '添加'
        Flat = True
        OnClick = SpeedButton1Click
      end
      object SpeedButton3: TSpeedButton
        Left = 104
        Top = 10
        Width = 54
        Height = 22
        Caption = '删除'
        Flat = True
        OnClick = SpeedButton3Click
      end
      object Bevel2: TBevel
        Left = 86
        Top = 4
        Width = 4
        Height = 35
        Shape = bsRightLine
      end
      object SpeedButton4: TSpeedButton
        Left = 192
        Top = 10
        Width = 54
        Height = 22
        Caption = '关闭'
        Flat = True
        OnClick = SpeedButton4Click
      end
      object Bevel3: TBevel
        Left = 171
        Top = 3
        Width = 4
        Height = 35
        Shape = bsRightLine
      end
    end
  end
end