addjfjqunit.dfm

delphi6.0版本的主要用于学样、网吧的计费系统的源码

object SeljfjqForm: TSeljfjqForm
  Left = 204
  Top = 152
  Width = 553
  Height = 392
  Caption = #36873#25321#26426#22120
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter2: TSplitter
    Left = 309
    Top = 39
    Width = 5
    Height = 326
    Cursor = crHSplit
  end
  object Splitter1: TSplitter
    Left = 121
    Top = 39
    Width = 5
    Height = 326
    Cursor = crHSplit
  end
  object lvjf: TListView
    Left = 0
    Top = 39
    Width = 121
    Height = 326
    Align = alLeft
    Columns = <
      item
        Caption = #26426#25151#21517#31216
        Width = 100
      end>
    HideSelection = False
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    OnChange = lvjfChange
    OnClick = lvjfClick
  end
  object Panel1: TPanel
    Left = 126
    Top = 39
    Width = 183
    Height = 326
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object lvjq: TListView
      Left = 0
      Top = 23
      Width = 183
      Height = 303
      Align = alClient
      BevelInner = bvNone
      BevelOuter = bvNone
      Checkboxes = True
      Columns = <
        item
          Caption = #26426#22120#21517#31216
          Width = 160
        end>
      RowSelect = True
      TabOrder = 0
      ViewStyle = vsReport
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 183
      Height = 23
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      object CboxJq: TCheckBox
        Left = 5
        Top = 4
        Width = 65
        Height = 17
        Caption = #20840#37096#36873#20013
        TabOrder = 0
        OnClick = CboxJqClick
      end
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 545
    Height = 39
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 35
        Width = 541
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 528
      Height = 35
      AutoSize = True
      ButtonHeight = 35
      ButtonWidth = 31
      Caption = 'ToolBar1'
      EdgeBorders = []
      Flat = True
      Images = ImageList1
      ShowCaptions = True
      TabOrder = 0
      object btn_add: TToolButton
        Left = 0
        Top = 0
        AutoSize = True
        Caption = #28155#21152
        ImageIndex = 0
        OnClick = btn_addClick
      end
      object btn_del: TToolButton
        Left = 35
        Top = 0
        AutoSize = True
        Caption = #21024#38500
        ImageIndex = 1
        OnClick = btn_delClick
      end
      object ToolButton1: TToolButton
        Left = 70
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object btn_save: TToolButton
        Left = 78
        Top = 0
        AutoSize = True
        Caption = #20445#23384
        ImageIndex = 2
        OnClick = btn_saveClick
      end
      object ToolButton2: TToolButton
        Left = 113
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object btn_exit: TToolButton
        Left = 121
        Top = 0
        AutoSize = True
        Caption = #36820#22238
        ImageIndex = 3
        OnClick = btn_exitClick
      end
    end
  end
  object Panel3: TPanel
    Left = 314
    Top = 39
    Width = 231
    Height = 326
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 3
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 231
      Height = 23
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object CboxSeljq: TCheckBox
        Left = 5
        Top = 4
        Width = 65
        Height = 17
        Caption = #20840#37096#36873#20013
        TabOrder = 0
        OnClick = CboxSeljqClick
      end
    end
    object lvxzjq: TListView
      Left = 0
      Top = 23
      Width = 231
      Height = 303
      Align = alClient
      BevelInner = bvNone
      BevelOuter = bvNone
      Checkboxes = True
      Columns = <
        item
          Caption = #26426#25151#21517#31216