add_pencode_unit.dfm

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

object add_pencodeform: Tadd_pencodeform
  Left = 227
  Top = 152
  Width = 349
  Height = 290
  BorderIcons = [biSystemMenu]
  Caption = '添加巡检棒'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 341
    Height = 263
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 11
      Top = 15
      Width = 54
      Height = 13
      Caption = '棒   号:'
    end
    object SpeedButton1: TSpeedButton
      Left = 181
      Top = 230
      Width = 57
      Height = 22
      Caption = '保存'
      Flat = True
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 268
      Top = 230
      Width = 57
      Height = 22
      Caption = '关闭'
      Flat = True
      OnClick = SpeedButton2Click
    end
    object Bevel2: TBevel
      Left = 250
      Top = 224
      Width = 4
      Height = 35
      Shape = bsRightLine
    end
    object Edit1: TEdit
      Left = 84
      Top = 7
      Width = 57
      Height = 21
      MaxLength = 2
      TabOrder = 0
      OnKeyPress = Edit1KeyPress
    end
    object list_code: TListView
      Left = 8
      Top = 41
      Width = 159
      Height = 212
      Columns = <
        item
          Caption = '钮号'
          Width = 60
        end
        item
          Alignment = taCenter
          Caption = '员工姓名'
          Width = 80
        end>
      HideSelection = False
      ReadOnly = True
      RowSelect = True
      TabOrder = 1
      ViewStyle = vsReport
    end
    object GroupBox1: TGroupBox
      Left = 176
      Top = 8
      Width = 151
      Height = 204
      Caption = '任务栏目'
      TabOrder = 2
      object SpeedButton3: TSpeedButton
        Left = 16
        Top = 173
        Width = 57
        Height = 22
        Caption = '添加'
        Flat = True
        OnClick = SpeedButton3Click
      end
      object SpeedButton4: TSpeedButton
        Left = 77
        Top = 173
        Width = 57
        Height = 22
        Caption = '删除'
        Flat = True
        OnClick = SpeedButton4Click
      end
      object list_pen: TListView
        Left = 12
        Top = 18
        Width = 126
        Height = 148
        Columns = <
          item
            Caption = ' 棒号'
          end
          item
            Alignment = taCenter
            Caption = '钮号'
          end>
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 104
    Top = 88
  end
end