xfwh.dfm

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

          Height = 23
          Caption = '添加'
          TabOrder = 2
          OnClick = BitBtn1Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
            555555555555555555555555555555555555555555FF55555555555559055555
            55555555577FF5555555555599905555555555557777F5555555555599905555
            555555557777FF5555555559999905555555555777777F555555559999990555
            5555557777777FF5555557990599905555555777757777F55555790555599055
            55557775555777FF5555555555599905555555555557777F5555555555559905
            555555555555777FF5555555555559905555555555555777FF55555555555579
            05555555555555777FF5555555555557905555555555555777FF555555555555
            5990555555555555577755555555555555555555555555555555}
          NumGlyphs = 2
        end
        object DBNavigator1: TDBNavigator
          Left = 43
          Top = 10
          Width = 301
          Height = 21
          DataSource = DataSource1
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbRefresh]
          Hints.Strings = (
            '第一条记录'
            '下一条记录'
            '上一条记录'
            '最后一条记录'
            '插入新记录'
            '删除当前记录'
            '刷新')
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
        end
      end
    end
    object ComboBox1: TComboBox
      Left = 176
      Top = 120
      Width = 161
      Height = 21
      ImeName = '全拼输入法'
      ItemHeight = 13
      TabOrder = 2
      Text = 'ComboBox1'
      Visible = False
    end
    object Panel5: TPanel
      Left = 44
      Top = 212
      Width = 393
      Height = 199
      Color = clInfoBk
      TabOrder = 3
      Visible = False
      object Label22: TLabel
        Left = 10
        Top = 179
        Width = 44
        Height = 13
        Caption = '商品简称'
      end
      object Label23: TLabel
        Left = 167
        Top = 178
        Width = 220
        Height = 12
        Caption = '按[Ctrl]+[数字]键可选择相应的记录'
        Color = clInfoBk
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object DBGrid2: TDBGrid
        Left = 1
        Top = 1
        Width = 391
        Height = 171
        Align = alTop
        Color = clInfoBk
        DataSource = DataSource2
        FixedColor = clOlive
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDblClick = DBGrid2DblClick
        OnExit = DBGrid2Exit
        OnKeyPress = DBGrid2KeyPress
      end
      object jc: TEdit
        Left = 62
        Top = 175
        Width = 105
        Height = 21
        TabOrder = 1
        OnExit = jcExit
        OnKeyDown = jcKeyDown
        OnKeyPress = jcKeyPress
        OnKeyUp = jcKeyUp
      end
    end
  end
  object Query1: TQuery
    DatabaseName = 'sanadm'
    Left = 130
    Top = 97
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 290
    Top = 137
  end
  object Table1: TTable
    AfterOpen = Table1AfterOpen
    AfterInsert = Table1AfterInsert
    DatabaseName = 'sanadm'
    IndexFieldNames = 'Cuscode'
    TableName = 'dbo.CUSITEM'
    Left = 401
    Top = 152
  end
  object PopupMenu1: TPopupMenu
    Left = 64
    Top = 224
    object N1: TMenuItem
      Caption = '新增大类'
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = '新增类别'
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = '删除类别'
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = '修改类别'
      OnClick = N4Click
    end
  end
  object ImageList1: TImageList
    Left = 56
    Top = 136
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000009F3F1F003F00803F00003F00803F
      00003F003F00BF3F803F9F1F1F003F00807F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000003F00803F00003F00803F00003F00
      803F00003F00803F00003F00803F00003F000000000000000000000000000000
      00000000000000000000000000000000000000000000000000000000007C0000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000007C007C007C
      0000000000000000000000000000000000000000E07F00000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000E07FFF7FE07FFF7F
      E07FFF7FE07FFF7FE07F00000000000000000000000000000000007C007C007C
      000000000000000000000000000000000000000000000000FF0300000000E07F
      FF7FE07FFF7FE07F000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000FF7FE07FFF7FE07F
      FF7FE07FFF7FE07FFF7F0000000000000000000000000000007C007C007C007C
      007C00000000000000000000000000000000000000000000FF030000E07FFF7F
      E07FFF7F00000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000E07FFF7FE07FFF7F
      E07FFF7FE07FFF7FE07F000000000000000000000000007C007C007C007C007C
      007C00000000000000000000000000000000000000000000FF030000FF7FE07F
      FF7FE07FFF7FE07FFF7F00000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000FF7FE07FFF7FE07F
      FF7FE07FFF7FE07FFF7F00000000000000000000EF3D007C007C00000000007C
      007C007C0000000000000000000000000000000000000000FF030000E07FFF7F
      E07FFF7F00000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000E07FFF7FE07FFF7F
      E07FFF7FE07FFF7FE07F0000000000000000EF3D007C00000000000000000000
      007C007C0000000000000000000000000000000000000000FF030000FF7FE07F
      FF7FE07FFF7FE07FFF7FE07FFF7FE07F00000000000000000000000000000000
      000000000000000000000000000000000000000000000000FF7FE07FFF7FE07F
      FF7FE07FFF7FE07FFF7F00000000000000000000000000000000000000000000
      007C007C007C000000000000000000000000000000000000FF030000E07FFF7F
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000007C007C000000000000000000000000000000000000000000000000E07F
      FF7FE07F000000000000000000000000000000007F00807F00007F00807F0000
      7F00807F00007F00807F00007F00807F00000000000000000000FF7FE07FFF7F
      E07F000000000000000000000000000000000000000000000000000000000000
      00000000007C007C000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000807F00007F00807F00007F00807F
      00007F00807F00007F00807F00007F00807F000000000000EF3D000000000000
      0000EF3D00000000000000000000000000000000000000000000000000000000
      000000000000EF3D007C00000000000000000000000000000000000000000000
      000000000000000000000000000000000000FF7FFF7FFF7FFF7FFF7FFF7FFF7F
      FF7F00007F00807F00007F00807F00007F000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000EF3D007C0000000000000000000000000000000000000000
      00000000000000000000000000000000000000007F00807F00007F00807F0000
      7F00807F00007F00807F00007F00807F00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000007C007C00000000000000000000000000000000
      000000000000000000000000000000000000000000000000FF7FFF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000FF030000FF7FE07F
      FF7FE07FFF7FE07FFF7F0000FF7FFF7FFF7F424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFF9FF1FFFFFFFE007F0FF041FFFFFC007F0FF000FFFFFC007E07F000FFFFF
      C007C07F0007FFFFC007843F0001FFFFC0071E3F0000FFFFC007FE1F0001FFFF
      C00FFF1F003FFFFFE07FFF8FFC7F0000E07FFFC7FFFF0000FFFFFFE3FFFF7F00
      FFFFFFF8FFFF0000FFFFFFFFFFFF000000000000000000000000000000000000
      000000000000}
  end
  object DataSource2: TDataSource
    DataSet = fm.Query3
    Left = 297
    Top = 268
  end
end