hyjbsyunit.dfm

集成酒店桑拿食管管理的完整程序

      object Edit44: TEdit
        Left = 507
        Top = 19
        Width = 75
        Height = 16
        AutoSize = False
        TabOrder = 6
        OnKeyPress = Edit2KeyPress
      end
      object Edit46: TEdit
        Left = 671
        Top = 4
        Width = 75
        Height = 16
        AutoSize = False
        TabOrder = 7
        OnKeyPress = Edit2KeyPress
      end
      object Edit47: TEdit
        Left = 631
        Top = 19
        Width = 60
        Height = 16
        AutoSize = False
        TabOrder = 8
        OnKeyPress = Edit2KeyPress
      end
      object Edit48: TEdit
        Left = 715
        Top = 19
        Width = 60
        Height = 16
        AutoSize = False
        TabOrder = 9
        OnKeyPress = Edit2KeyPress
      end
      object Edit39: TEdit
        Left = 199
        Top = 36
        Width = 75
        Height = 16
        AutoSize = False
        TabOrder = 10
        OnKeyPress = Edit2KeyPress
      end
      object Edit43: TEdit
        Left = 351
        Top = 35
        Width = 75
        Height = 16
        AutoSize = False
        TabOrder = 11
        OnKeyPress = Edit2KeyPress
      end
      object Edit45: TEdit
        Left = 507
        Top = 36
        Width = 75
        Height = 16
        AutoSize = False
        TabOrder = 12
        OnKeyPress = Edit2KeyPress
      end
      object Edit49: TEdit
        Left = 671
        Top = 36
        Width = 75
        Height = 16
        AutoSize = False
        TabOrder = 13
        OnExit = Edit49Exit
        OnKeyPress = Edit2KeyPress
      end
    end
    object Edit2: TEdit
      Left = 199
      Top = 6
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 8
      OnKeyPress = Edit2KeyPress
    end
    object Edit3: TEdit
      Left = 159
      Top = 24
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 9
      OnKeyPress = Edit2KeyPress
    end
    object Edit4: TEdit
      Left = 243
      Top = 24
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 10
      OnKeyPress = Edit2KeyPress
    end
    object Edit12: TEdit
      Left = 353
      Top = 6
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 11
      OnKeyPress = Edit2KeyPress
    end
    object Edit13: TEdit
      Left = 313
      Top = 24
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 12
      OnKeyPress = Edit2KeyPress
    end
    object Edit14: TEdit
      Left = 397
      Top = 23
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 13
      OnKeyPress = Edit2KeyPress
    end
    object Edit22: TEdit
      Left = 506
      Top = 24
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 14
      OnKeyPress = Edit2KeyPress
    end
    object Edit26: TEdit
      Left = 670
      Top = 6
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 15
      OnKeyPress = Edit2KeyPress
    end
    object Edit27: TEdit
      Left = 630
      Top = 24
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 16
      OnKeyPress = Edit2KeyPress
    end
    object Edit28: TEdit
      Left = 714
      Top = 24
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 17
      OnKeyPress = Edit2KeyPress
    end
    object Edit5: TEdit
      Left = 199
      Top = 40
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 18
      OnKeyPress = Edit2KeyPress
    end
    object Edit6: TEdit
      Left = 159
      Top = 58
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 19
      OnKeyPress = Edit2KeyPress
    end
    object Edit7: TEdit
      Left = 243
      Top = 58
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 20
      OnKeyPress = Edit2KeyPress
    end
    object Edit15: TEdit
      Left = 353
      Top = 40
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 21
      OnKeyPress = Edit2KeyPress
    end
    object Edit16: TEdit
      Left = 313
      Top = 58
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 22
      OnKeyPress = Edit2KeyPress
    end
    object Edit17: TEdit
      Left = 397
      Top = 58
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 23
      OnKeyPress = Edit2KeyPress
    end
    object Edit23: TEdit
      Left = 506
      Top = 58
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 24
      OnKeyPress = Edit2KeyPress
    end
    object Edit29: TEdit
      Left = 670
      Top = 40
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 25
      OnKeyPress = Edit2KeyPress
    end
    object Edit30: TEdit
      Left = 630
      Top = 58
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 26
      OnKeyPress = Edit2KeyPress
    end
    object Edit31: TEdit
      Left = 714
      Top = 58
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 27
      OnKeyPress = Edit2KeyPress
    end
    object Edit8: TEdit
      Left = 200
      Top = 74
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 28
      OnKeyPress = Edit2KeyPress
    end
    object Edit18: TEdit
      Left = 354
      Top = 74
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 29
      OnKeyPress = Edit2KeyPress
    end
    object Edit32: TEdit
      Left = 671
      Top = 74
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 30
      OnKeyPress = Edit2KeyPress
    end
    object Edit9: TEdit
      Left = 200
      Top = 92
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 31
      OnKeyPress = Edit2KeyPress
    end
    object Edit10: TEdit
      Left = 160
      Top = 110
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 32
      OnKeyPress = Edit2KeyPress
    end
    object Edit11: TEdit
      Left = 244
      Top = 110
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 33
      OnKeyPress = Edit2KeyPress
    end
    object Edit19: TEdit
      Left = 354
      Top = 92
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 34
      OnKeyPress = Edit2KeyPress
    end
    object Edit20: TEdit
      Left = 314
      Top = 110
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 35
      OnKeyPress = Edit2KeyPress
    end
    object Edit21: TEdit
      Left = 398
      Top = 110
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 36
      OnKeyPress = Edit2KeyPress
    end
    object Edit25: TEdit
      Left = 507
      Top = 108
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 37
      OnKeyPress = Edit2KeyPress
    end
    object Edit33: TEdit
      Left = 671
      Top = 92
      Width = 75
      Height = 16
      AutoSize = False
      TabOrder = 38
      OnKeyPress = Edit2KeyPress
    end
    object Edit34: TEdit
      Left = 631
      Top = 110
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 39
      OnKeyPress = Edit2KeyPress
    end
    object Edit35: TEdit
      Left = 715
      Top = 110
      Width = 60
      Height = 16
      AutoSize = False
      TabOrder = 40
      OnKeyPress = Edit35KeyPress
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 501
    Width = 793
    Height = 55
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 4
    object Panel7: TPanel
      Left = 1
      Top = 1
      Width = 463
      Height = 53
      Align = alLeft
      BevelOuter = bvLowered
      TabOrder = 0
      object GroupBox1: TGroupBox
        Left = 1
        Top = 1
        Width = 461
        Height = 51
        Align = alClient
        Caption = '备注：'
        TabOrder = 0
        object Memo1: TMemo
          Left = 2
          Top = 14
          Width = 457
          Height = 35
          Align = alClient
          TabOrder = 0
        end
      end
    end
    object Panel8: TPanel
      Left = 464
      Top = 1
      Width = 41
      Height = 53
      Align = alLeft
      BevelOuter = bvLowered
      TabOrder = 1
      object Memo3: TMemo
        Left = 1
        Top = 1
        Width = 39
        Height = 51
        Align = alClient
        Color = clMenu
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = '宋体'
        Font.Style = []
        Lines.Strings = (
          ''
          '')
        ParentFont = False
        TabOrder = 0
      end
      object StaticText1: TStaticText
        Left = 4
        Top = 6
        Width = 36
        Height = 20
        Caption = '来宾'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object StaticText2: TStaticText
        Left = 5
        Top = 27
        Width = 36
        Height = 20
        Caption = '统计'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
    end
    object Panel9: TPanel
      Left = 513
      Top = 1
      Width = 279
      Height = 53
      Align = alRight
      BevelOuter = bvLowered
      TabOrder = 2
      object Panel10: TPanel
        Left = 1
        Top = 27
        Width = 277
        Height = 25
        Align = alBottom
        BevelOuter = bvLowered
        TabOrder = 0
        object Label54: TLabel
          Left = 4
          Top = 6
          Width = 36
          Height = 12
          Caption = '女宾：'
        end
        object Label55: TLabel
          Left = 92
          Top = 6
          Width = 36
          Height = 12
          Caption = '女散：'
        end
        object Label56: TLabel
          Left = 185
          Top = 8
          Width = 36
          Height = 12
          Caption = '合计：'
        end
        object nvb: TEdit
          Left = 37
          Top = 4
          Width = 53
          Height = 17
          AutoSize = False
          TabOrder = 0
          OnKeyPress = nbKeyPress
        end
        object nvs: TEdit
          Left = 127
          Top = 5
          Width = 53
          Height = 17
          AutoSize = False
          TabOrder = 1
          OnKeyPress = nbKeyPress
        end
        object nvhj: TEdit
          Left = 220
          Top = 4
          Width = 53
          Height = 17
          AutoSize = False
          TabOrder = 2
          OnKeyPress = nbKeyPress
        end
      end
      object Panel11: TPanel
        Left = 1
        Top = 1
        Width = 277
        Height = 26
        Align = alClient
        BevelOuter = bvLowered
        TabOrder = 1
        object Label51: TLabel
          Left = 3
          Top = 7
          Width = 36
          Height = 12
          Caption = '男宾：'
        end
        object Label52: TLabel
          Left = 93
          Top = 8
          Width = 36
          Height = 12
          Caption = '男散：'
        end
        object Label53: TLabel
          Left = 184
          Top = 7
          Width = 36
          Height = 12
          Caption = '合计：'
        end
        object nb: TEdit
          Left = 37
          Top = 4
          Width = 53
          Height = 17
          AutoSize = False
          TabOrder = 0
          OnKeyPress = nbKeyPress
        end
        object ns: TEdit
          Left = 127
          Top = 5
          Width = 53
          Height = 17
          AutoSize = False
          TabOrder = 1
          OnKeyPress = nbKeyPress
        end
        object nhj: TEdit
          Left = 220
          Top = 4
          Width = 53
          Height = 17
          AutoSize = False
          TabOrder = 2
          OnKeyPress = nbKeyPress
        end
      end
    end
  end
  object s1: TStoredProc
    DatabaseName = 'sanadm'
    StoredProcName = 'jbsy;1'
    Left = 296
    Top = 184
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 352
    Top = 152
  end
  object Table1: TTable
    DatabaseName = 'sanadm'
    TableName = 'dbo.jbsybb'
    Left = 392
    Top = 184
  end
  object Query1: TQuery
    DatabaseName = 'sanadm'
    Left = 504
    Top = 224
  end
  object s2: TStoredProc
    DatabaseName = 'sanadm'
    StoredProcName = 'jkmxtj;1'
    Left = 577
    Top = 137
    ParamData = <
      item
        DataType = ftInteger
        Name = '@RETURN_VALUE'
        ParamType = ptResult
      end
      item
        DataType = ftDateTime
        Name = '@lsendtime'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@lsbegtime'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = '@oxj'
        ParamType = ptInputOutput
      end
      item
        DataType = ftFloat
        Name = '@ozp'
        ParamType = ptInputOutput
      end
      item
        DataType = ftFloat
        Name = '@oxyk'
        ParamType = ptInputOutput
      end
      item
        DataType = ftFloat
        Name = '@ojz'
        ParamType = ptInputOutput
      end
      item
        DataType = ftFloat
        Name = '@ohj'
        ParamType = ptInputOutput
      end
      item
        DataType = ftFloat
        Name = '@ogz'
        ParamType = ptInputOutput
      end
      item
        DataType = ftFloat
        Name = '@onb'
        ParamType = ptInputOutput
      end
      item
        DataType = ftFloat
        Name = '@onvb'
        ParamType = ptInputOutput
      end
      item
        DataType = ftFloat
        Name = '@ons'
        ParamType = ptInputOutput
      end
      item
        DataType = ftFloat
        Name = '@onvs'
        ParamType = ptInputOutput
      end>
  end
end