khxxunit.dfm

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

object khxxForm: TkhxxForm
  Left = 1
  Top = 99
  Width = 801
  Height = 478
  Caption = '客户信息'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 793
    Height = 451
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '客户信息录入'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      object Label2: TLabel
        Left = 46
        Top = 42
        Width = 48
        Height = 12
        Caption = '客户名称'
        DragMode = dmAutomatic
      end
      object Label3: TLabel
        Left = 46
        Top = 74
        Width = 48
        Height = 12
        Caption = '客户简称'
        DragMode = dmAutomatic
      end
      object Label5: TLabel
        Left = 46
        Top = 107
        Width = 48
        Height = 12
        Caption = '客户类型'
        DragMode = dmAutomatic
      end
      object Label6: TLabel
        Left = 338
        Top = 264
        Width = 48
        Height = 12
        Caption = '邮政编码'
        DragMode = dmAutomatic
      end
      object Label7: TLabel
        Left = 338
        Top = 116
        Width = 54
        Height = 12
        Caption = '电话号码1'
        DragMode = dmAutomatic
      end
      object Label8: TLabel
        Left = 338
        Top = 153
        Width = 54
        Height = 12
        Caption = '电话号码2'
        DragMode = dmAutomatic
      end
      object Label10: TLabel
        Left = 338
        Top = 190
        Width = 42
        Height = 12
        Caption = '传   真'
        DragMode = dmAutomatic
      end
      object Label12: TLabel
        Left = 338
        Top = 227
        Width = 48
        Height = 12
        Caption = '电子邮件'
        DragMode = dmAutomatic
      end
      object Label15: TLabel
        Left = 46
        Top = 139
        Width = 48
        Height = 12
        Caption = '联 系 人'
        DragMode = dmAutomatic
      end
      object Label18: TLabel
        Left = 338
        Top = 301
        Width = 48
        Height = 12
        Caption = '业 务 员'
        DragMode = dmAutomatic
      end
      object Label9: TLabel
        Left = 46
        Top = 172
        Width = 60
        Height = 12
        Caption = '联系人职称'
        DragMode = dmAutomatic
      end
      object Label17: TLabel
        Left = 338
        Top = 42
        Width = 48
        Height = 12
        Caption = '所在城市'
        DragMode = dmAutomatic
      end
      object Label11: TLabel
        Left = 338
        Top = 79
        Width = 48
        Height = 12
        Caption = '客户地址'
        DragMode = dmAutomatic
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 46
        Top = 204
        Width = 48
        Height = 12
        Caption = '所在部门'
      end
      object Label4: TLabel
        Left = 46
        Top = 236
        Width = 48
        Height = 12
        Caption = '开 户 行'
      end
      object Label13: TLabel
        Left = 46
        Top = 269
        Width = 48
        Height = 12
        Caption = '银行帐号'
      end
      object Label14: TLabel
        Left = 46
        Top = 301
        Width = 42
        Height = 12
        Caption = '税   号'
      end
      object Label16: TLabel
        Left = 128
        Top = 344
        Width = 42
        Height = 12
        Caption = '备   注'
      end
      object Label19: TLabel
        Left = 360
        Top = 344
        Width = 72
        Height = 12
        Caption = '双击输入详情'
      end
      object BitBtn1: TBitBtn
        Left = 648
        Top = 64
        Width = 77
        Height = 28
        Caption = '添加'
        TabOrder = 0
        OnClick = BitBtn1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333333333333333333333333333333333333333333FF333333333333
          3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
          E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
          E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
          E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
          000033333373FF77777733333330003333333333333777333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
      end
      object BitBtn2: TBitBtn
        Left = 648
        Top = 152
        Width = 77
        Height = 28
        Caption = '取消'
        TabOrder = 1
        OnClick = BitBtn2Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
          555557777F777555F55500000000555055557777777755F75555005500055055
          555577F5777F57555555005550055555555577FF577F5FF55555500550050055
          5555577FF77577FF555555005050110555555577F757777FF555555505099910
          555555FF75777777FF555005550999910555577F5F77777775F5500505509990
          3055577F75F77777575F55005055090B030555775755777575755555555550B0
          B03055555F555757575755550555550B0B335555755555757555555555555550
          BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
          50BB555555555555575F555555555555550B5555555555555575}
        NumGlyphs = 2
      end
      object BitBtn3: TBitBtn
        Left = 646
        Top = 239
        Width = 79
        Height = 28
        Caption = '退出'
        TabOrder = 2
        OnClick = BitBtn3Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000
          00007777777777777777933393303933337073F37F37F73F3377393393303393
          379037FF7F37F37FF777379793303379793037777337F3777737339933303339
          93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399
          999037777337F377777793993330333393307377FF37F3337FF7333993303333
          993033377F37F33377F7333993303333993033377337F3337737333333303333
          33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303
          03037F7F7F7F7F7F7F7F00000000000000007777777777777777}
        NumGlyphs = 2
      end
      object khm: TEdit
        Left = 128
        Top = 38
        Width = 184
        Height = 20
        TabOrder = 3
        Text = 'khm'
        OnExit = khmExit
        OnKeyPress = khmKeyPress
      end
      object khjc: TEdit
        Left = 128
        Top = 72
        Width = 184
        Height = 20
        TabOrder = 4
        Text = 'khjc'
        OnExit = khmExit
        OnKeyPress = khmKeyPress
      end
      object lxr: TEdit
        Left = 128
        Top = 136
        Width = 184
        Height = 20
        TabOrder = 5
        Text = 'lxr'
        OnKeyPress = khmKeyPress
      end
      object lxrzc: TEdit
        Left = 128
        Top = 168
        Width = 184
        Height = 20
        TabOrder = 6
        Text = 'lxrzc'
        OnKeyPress = khmKeyPress
      end
      object szbm: TEdit
        Left = 128
        Top = 200
        Width = 184
        Height = 20
        TabOrder = 7
        Text = 'szbm'
        OnKeyPress = khmKeyPress
      end
      object khh: TEdit
        Left = 128
        Top = 232
        Width = 184
        Height = 20
        TabOrder = 8
        Text = 'khh'
        OnKeyPress = khmKeyPress
      end
      object yhzh: TEdit
        Left = 128
        Top = 264
        Width = 184
        Height = 20
        TabOrder = 9
        Text = 'yhzh'
        OnKeyPress = khmKeyPress
      end
      object sh: TEdit
        Left = 128
        Top = 297
        Width = 184
        Height = 20
        TabOrder = 10
        Text = 'sh'
        OnKeyPress = khmKeyPress
      end
      object szcs: TEdit
        Left = 427
        Top = 38
        Width = 165
        Height = 20
        TabOrder = 11
        Text = 'szcs'
        OnKeyPress = khmKeyPress
      end
      object khdz: TEdit
        Left = 427
        Top = 75
        Width = 165
        Height = 20
        TabOrder = 12
        Text = 'khdz'
        OnKeyPress = khmKeyPress