work01.dfm

一个桌球室收费系统

object StateForm: TStateForm
  Left = 75
  Top = 20
  Width = 698
  Height = 541
  ActiveControl = ListView1
  Caption = #30446#21069#21508#23089#20048#22330#25152#29366#24577#22270#31034#31383#21475
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clBlack
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  DesignSize = (
    690
    514)
  PixelsPerInch = 96
  TextHeight = 12
  object Panel3: TPanel
    Left = 6
    Top = 8
    Width = 243
    Height = 479
    Anchors = [akLeft, akTop, akBottom]
    BevelInner = bvLowered
    TabOrder = 0
    DesignSize = (
      243
      479)
    object ListView1: TListView
      Left = 11
      Top = 48
      Width = 220
      Height = 313
      Anchors = [akLeft, akTop, akRight, akBottom]
      Color = 14540242
      Columns = <>
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      HideSelection = False
      IconOptions.AutoArrange = True
      LargeImages = ImageList1
      ReadOnly = True
      ParentFont = False
      TabOrder = 0
      OnClick = ShowState
      OnDblClick = ListView1DblClick
    end
    object GroupBox1: TGroupBox
      Left = 11
      Top = 370
      Width = 221
      Height = 95
      Anchors = [akLeft, akRight, akBottom]
      Caption = ' '#24403#21069#30340#26085#26399#21644#26102#38388' '
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      DesignSize = (
        221
        95)
      object Label1: TLabel
        Left = 16
        Top = 28
        Width = 42
        Height = 14
        Caption = #26085#26399#65306
      end
      object Label2: TLabel
        Left = 16
        Top = 61
        Width = 42
        Height = 14
        Caption = #26102#38388#65306
      end
      object PDate1: TDateTimePicker
        Left = 56
        Top = 24
        Width = 150
        Height = 22
        Anchors = [akLeft, akTop, akRight]
        CalAlignment = dtaLeft
        Date = 37567.6215664352
        Format = 'yyyy'#24180' MM'#26376' dd'#26085
        Time = 37567.6215664352
        Color = clWhite
        DateFormat = dfLong
        DateMode = dmUpDown
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object PTime1: TDateTimePicker
        Left = 56
        Top = 57
        Width = 150
        Height = 22
        Anchors = [akLeft, akTop, akRight]
        CalAlignment = dtaLeft
        Date = 37567.6215664352
        Format = '  hh'#28857' mm'#20998' ss'#31186
        Time = 37567.6215664352
        Color = clWhite
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkTime
        ParseInput = False
        TabOrder = 1
      end
    end
    object Button5: TButton
      Left = 12
      Top = 12
      Width = 214
      Height = 25
      Caption = #24403#21069#23089#20048#31181#31867#21015#34920
      TabOrder = 2
    end
  end
  object SB: TStatusBar
    Left = 0
    Top = 495
    Width = 690
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Text = #29366#24577#26174#31034#25253#21578
        Width = 100
      end
      item
        Alignment = taCenter
        Width = 150
      end
      item
        Alignment = taCenter
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel4: TPanel
    Left = 253
    Top = 8
    Width = 428
    Height = 479
    Anchors = [akLeft, akTop, akRight, akBottom]
    BevelInner = bvLowered
    TabOrder = 2
    DesignSize = (
      428
      479)
    object ListView2: TListView
      Left = 11
      Top = 48
      Width = 406
      Height = 423
      Anchors = [akLeft, akTop, akRight, akBottom]
      Color = clWhite
      Columns = <>
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      HideSelection = False
      IconOptions.AutoArrange = True
      LargeImages = ImageList1
      OwnerDraw = True
      ReadOnly = True
      ParentFont = False
      TabOrder = 0
      OnClick = ListView2Click
      OnDblClick = ListView2DblClick
    end
    object Button1: TButton
      Left = 12
      Top = 12
      Width = 75
      Height = 25
      Anchors = [akLeft]
      Caption = #24320#21488'(&I)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button4: TButton
      Left = 93
      Top = 12
      Width = 91
      Height = 25
      Anchors = [akLeft]
      Caption = #37202#27700#25130#38047'(&J)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2