main.~dfm

一个Delphi写的跟考勤机门禁机收款机的接品软件源码

        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 0
        object btnAddPeriods: TButton
          Left = 8
          Top = 8
          Width = 50
          Height = 25
          Caption = #28155#21152
          TabOrder = 0
          OnClick = btnAddPeriodsClick
        end
        object btnDeletePeriods: TButton
          Left = 64
          Top = 8
          Width = 50
          Height = 25
          Caption = #21024#38500
          Enabled = False
          TabOrder = 1
          OnClick = btnDeletePeriodsClick
        end
        object btnClearPeriods: TButton
          Left = 120
          Top = 8
          Width = 50
          Height = 25
          Caption = #28165#38500
          TabOrder = 2
          OnClick = btnClearPeriodsClick
        end
        object btnWritePeriods: TButton
          Left = 176
          Top = 8
          Width = 51
          Height = 25
          Caption = #20889#35774#22791
          TabOrder = 3
          OnClick = btnWritePeriodsClick
        end
        object btnWritePeriodFile: TButton
          Left = 472
          Top = 8
          Width = 51
          Height = 25
          Caption = #20889#25991#20214
          TabOrder = 5
          OnClick = btnWritePeriodFileClick
        end
        object btnReadPeriodFile: TButton
          Left = 415
          Top = 8
          Width = 51
          Height = 25
          Caption = #35835#25991#20214
          TabOrder = 4
          OnClick = btnReadPeriodFileClick
        end
        object cbAutoSaveFile: TCheckBox
          Left = 240
          Top = 11
          Width = 169
          Height = 17
          Caption = #33258#21160#20445#23384#37197#32622#25991#20214
          Checked = True
          State = cbChecked
          TabOrder = 6
        end
      end
      object lvDoorPeriods: TListView
        Left = 0
        Top = 49
        Width = 532
        Height = 303
        Align = alClient
        Columns = <
          item
            Caption = #26102#38388
            Width = 100
          end
          item
            Caption = #29366#24577
            Width = 100
          end
          item
            Caption = #26377#25928#38376
            Width = 60
          end
          item
            Caption = #31561#32423
            Width = 42
          end
          item
            Alignment = taCenter
            Caption = #21608#26085
            Width = 40
          end
          item
            Alignment = taCenter
            Caption = #21608#19968
            Width = 40
          end
          item
            Alignment = taCenter
            Caption = #21608#20108
            Width = 40
          end
          item
            Alignment = taCenter
            Caption = #21608#19977
            Width = 40
          end
          item
            Alignment = taCenter
            Caption = #21608#22235
            Width = 40
          end
          item
            Alignment = taCenter
            Caption = #21608#20116
            Width = 40
          end
          item
            Alignment = taCenter
            Caption = #21608#20845
            Width = 40
          end
          item
            MaxWidth = 1
            Width = 0
          end>
        ColumnClick = False
        HideSelection = False
        MultiSelect = True
        ReadOnly = True
        RowSelect = True
        SmallImages = ilImages
        TabOrder = 1
        ViewStyle = vsReport
        OnDblClick = lvDoorPeriodsDblClick
        OnDeletion = lvDoorPeriodsDeletion
        OnInsert = lvDoorPeriodsInsert
        OnSelectItem = lvDoorPeriodsSelectItem
      end
      object Panel10: TPanel
        Left = 0
        Top = 0
        Width = 532
        Height = 49
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 2
        object Label13: TLabel
          Left = 8
          Top = 6
          Width = 72
          Height = 12
          Caption = #38376#31105#26102#27573#31867#22411
        end
        object cbPeriodKind: TComboBox
          Left = 8
          Top = 21
          Width = 170
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          ItemIndex = 0
          TabOrder = 0
          Text = #35774#22791#29366#24577#26102#38388
          OnChange = cbPeriodKindChange
          Items.Strings = (
            #35774#22791#29366#24577#26102#38388
            #25480#26435#36890#34892#26102#27573
            #20551#26085#36890#34892#26102#27573
            #20551#26085#21015#34920
            #36229#32423#29992#25143#25480#26435#26102#27573
            #36229#32423#29992#25143#23494#30721#34920)
        end
        object CheckBox1: TCheckBox
          Left = 184
          Top = 23
          Width = 137
          Height = 17
          Caption = #21516#27493#26356#26032#25152#26377#36873#20013#35774#22791
          TabOrder = 1
          Visible = False
        end
      end
    end
    object tsPriceList: TTabSheet
      Caption = #33756#21333#31649#29702
      ImageIndex = 3
      object lvPriceList: TListView
        Left = 0
        Top = 33
        Width = 532
        Height = 319
        Align = alClient
        Columns = <
          item
            Caption = #32534#21495'('#25353#38190')'
            Width = 100
          end
          item
            Caption = #21333#20215'('#20803')'
            Width = 120
          end>
        GridLines = True
        HideSelection = False
        Items.Data = {
          0C0100000A00000000000000FFFFFFFFFFFFFFFF010000000000000001300130
          00000000FFFFFFFFFFFFFFFF01000000000000000131013000000000FFFFFFFF
          FFFFFFFF01000000000000000132013000000000FFFFFFFFFFFFFFFF01000000
          000000000133013000000000FFFFFFFFFFFFFFFF010000000000000001340130
          00000000FFFFFFFFFFFFFFFF01000000000000000135013000000000FFFFFFFF
          FFFFFFFF01000000000000000136013000000000FFFFFFFFFFFFFFFF01000000
          000000000137013000000000FFFFFFFFFFFFFFFF010000000000000001380130
          00000000FFFFFFFFFFFFFFFF010000000000000001390130FFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFF}
        ReadOnly = True
        RowSelect = True
        SmallImages = ilImages
        SortType = stText
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = btnEditPriceListClick
        OnSelectItem = lvPriceListSelectItem
      end
      object Panel2: TPanel
        Left = 0
        Top = 352
        Width = 532
        Height = 41
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object btnEditPriceList: TButton
          Left = 8
          Top = 8
          Width = 75
          Height = 25
          Caption = #20462#25913
          Enabled = False
          TabOrder = 0
          OnClick = btnEditPriceListClick
        end
        object btnSetPriceList: TButton
          Left = 440
          Top = 8
          Width = 75
          Height = 25
          Caption = #35774#32622
          TabOrder = 1
          OnClick = btnSetPriceListClick
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 532
        Height = 33
        Align = alTop
        Alignment = taLeftJustify
        BevelInner = bvLowered
        BevelOuter = bvNone
        Caption = ' '#33756#21333#20215#26684#34920
        TabOrder = 2
      end
    end
    object tsConsumption: TTabSheet
      Caption = #28040#36153#31649#29702
      ImageIndex = 4
      object GroupBox1: TGroupBox
        Left = 16
        Top = 72
        Width = 497
        Height = 125
        Caption = '690C'#28040#36153#38480#39069
        TabOrder = 1
        object lbDayMaxExpend: TLabel
          Left = 16
          Top = 23
          Width = 150
          Height = 12
          Caption = #27599#26085#26368#22823#28040#36153#38480#39069'(0'#20026#21462#28040')'
        end
        object lbDayMaxTimes: TLabel
          Left = 16
          Top = 58
          Width = 150
          Height = 12
          Caption = #27599#27573#26368#22823#28040#36153#27425#25968'(0'#20026#21462#28040')'
        end
        object lbCardForegift: TLabel
          Left = 16
          Top = 90
          Width = 138
          Height = 12
          Caption = #21345#37329#39069#26368#20302#38480#39069'(0'#20026#21462#28040')'
        end
        object Label16: TLabel
          Left = 303
          Top = 29
          Width = 60
          Height = 12
          Caption = #21333#20301#65288#35282#65289
        end
        object Label19: TLabel
          Left = 303
          Top = 61
          Width = 60
          Height = 12
          Caption = #21333#20301#65288#35282#65289
        end
        object Label20: TLabel
          Left = 303
          Top = 93
          Width = 60
          Height = 12
          Caption = #21333#20301#65288#35282#65289
        end
        object edDayMaxExpend: TEdit
          Left = 176
          Top = 20
          Width = 121
          Height = 20
          TabOrder = 0
          Text = '0'
          OnExit = edFixPriceExit
          OnKeyPress = edFixPriceKeyPress
        end
        object btnSetDayMaxExpend: TButton
          Left = 376
          Top = 17
          Width = 65
          Height = 25
          Caption = #35774#32622
          TabOrder = 1
          OnClick = btnSetDayMaxExpendClick
        end
        object edDayMaxTimes: TEdit
          Left = 176
          Top = 55
          Width = 121
          Height = 20
          TabOrder = 2
          Text = '0'
          OnExit = edDayMaxTimesExit
          OnKeyPress = edFixPriceKeyPress
        end
        object btnSetDayMaxTimes: TButton
          Left = 376
          Top = 52
          Width = 65
          Height = 25
          Caption = #35774#32622
          TabOrder = 3
          OnClick = btnSetDayMaxTimesClick
        end
        object edCardForegift: TEdit
          Left = 176
          Top = 87
          Width = 121
          Height = 20
          TabOrder = 4
          Text = '0'
          OnExit = edDayMaxTimesExit
          OnKeyPress = edFixPriceKeyPress
        end
        object btnSetCardForegift: TButton
          Left = 376
          Top = 84
          Width = 65
          Height = 25
          Caption = #35774#32622
          TabOrder = 5
          OnClick = btnSetCardForegiftClick
        end
      end
      object gbFixPrice: TGroupBox
        Left = 16
        Top = 14
        Width = 497
        Height = 50
        Caption = #23450#39069#28040#36153
        TabOrder = 0
        object lbFixPrice: TLabel
          Left = 16
          Top = 21
          Width = 114
          Height = 12
          Caption = #23450#20540#28040#36153#39069'(0'#20026#21462#28040')'
        end
        object Label23: TLabel
          Left = 303
          Top = 21
          Width = 60
          Height = 12
          Caption = #21333#20301#65288#35282#65289
        end
        object edFixPrice: TEdit
          Left = 176
          Top = 18
          Width = 121
          Height = 20
          TabOrder = 0
          Text = '0'
          OnExit = edFixPriceExit
          OnKeyPress = edFixPriceKeyPress
        end
        object btnSetFixPrice: TButton
          Left = 374
          Top = 15
          Width = 65
          Height = 25
          Caption = #35774#32622
          TabOrder = 1
          OnClick = btnSetFixPriceClick
        end
      end
      object GroupBox2: TGroupBox
        Left = 17
        Top = 207
        Width = 497
        Height = 178
        Caption = '690c2.0'#19987#29992#35774#32622
        TabOrder = 2
        object Label8: TLabel
          Left = 24
          Top = 32
          Width = 96
          Height = 12
          Caption = #27599#22825#26368#22823#28040#36153#38480#39069
        end
        object Label9: TLabel