xfwh.dfm

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

object xfwhForm: TxfwhForm
  Left = 0
  Top = 104
  Width = 794
  Height = 461
  Anchors = [akLeft, akRight, akBottom]
  BiDiMode = bdLeftToRight
  BorderIcons = [biSystemMenu]
  Caption = '消费项目维护'
  Color = clBtnFace
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  ParentBiDiMode = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 173
    Height = 434
    Align = alLeft
    Caption = '树状类别图'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -13
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object TreeView1: TTreeView
      Left = 4
      Top = 41
      Width = 131
      Height = 32
      HotTrack = True
      Indent = 19
      TabOrder = 0
      Visible = False
      OnClick = TreeView2Click
    end
    object TreeView2: TTreeView
      Left = 2
      Top = 15
      Width = 169
      Height = 417
      Align = alClient
      Color = clBtnFace
      HotTrack = True
      Images = ImageList1
      Indent = 19
      PopupMenu = PopupMenu1
      ReadOnly = True
      TabOrder = 1
      OnChange = TreeView2Change
      OnClick = TreeView2Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 173
    Top = 0
    Width = 613
    Height = 434
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 609
      Height = 381
      Align = alClient
      Color = clInfoBk
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      OnKeyDown = DBGrid1KeyDown
      OnKeyPress = DBGrid1KeyPress
      Columns = <
        item
          Expanded = False
          FieldName = 'Cuscode'
          Title.Alignment = taCenter
          Title.Caption = '消费编号'
          Width = 65
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CusName'
          Title.Alignment = taCenter
          Title.Caption = '消费名称'
          Width = 131
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cusjc'
          Title.Alignment = taCenter
          Title.Caption = '简称'
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Price'
          Title.Alignment = taCenter
          Title.Caption = '单价'
          Width = 49
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Unit'
          Title.Alignment = taCenter
          Title.Caption = '单位'
          Width = 66
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'spcode'
          Title.Alignment = taCenter
          Title.Caption = '商品编号'
          Width = 76
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Iszy'
          Title.Alignment = taCenter
          Title.Caption = '专业'
          Width = 30
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Iszk'
          Title.Alignment = taCenter
          Title.Caption = '折扣'
          Width = 32
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tcje'
          Title.Caption = '提成金额'
          Visible = True
        end>
    end
    object Panel1: TPanel
      Left = 2
      Top = 396
      Width = 609
      Height = 36
      Align = alBottom
      BevelOuter = bvNone
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object GroupBox3: TGroupBox
        Left = 0
        Top = 0
        Width = 609
        Height = 36
        Align = alClient
        TabOrder = 0
        object BitBtn3: TBitBtn
          Left = 447
          Top = 9
          Width = 75
          Height = 23
          Caption = '删除'
          TabOrder = 0
          OnClick = BitBtn3Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333333333333333333333333FFF33FF333FFF339993370733
            999333777FF37FF377733339993000399933333777F777F77733333399970799
            93333333777F7377733333333999399933333333377737773333333333990993
            3333333333737F73333333333331013333333333333777FF3333333333910193
            333333333337773FF3333333399000993333333337377737FF33333399900099
            93333333773777377FF333399930003999333337773777F777FF339993370733
            9993337773337333777333333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333333333333}
          NumGlyphs = 2
        end
        object BitBtn5: TBitBtn
          Left = 522
          Top = 9
          Width = 73
          Height = 23
          Caption = '退出'
          TabOrder = 1
          OnClick = BitBtn5Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
            0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000
            00007777777777777777933393303933337073F37F37F73F3377393393303393
            379037FF7F37F37FF777379793303379793037777337F3777737339933303339
            93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399
            999037777337F377777793993330333393307377FF37F3337FF7333993303333
            993033377F37F33377F7333993303333993033377337F3337737333333303333
            33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303
            03037F7F7F7F7F7F7F7F00000000000000007777777777777777}
          NumGlyphs = 2
        end
        object BitBtn1: TBitBtn
          Left = 371
          Top = 9
          Width = 76