TCL

简介

TCL即The  Creative  Life  三个英文单词首字母的缩写，意为创意感动生活。

TCL集团股份有限公司创立于1981年，是目前中国最大的、全球性规模经营的消费类电子企业集团之一，旗下拥有三家上市公司：TCL集团（SZ.000100）、TCL多媒体科技（HK.1070）、TCL通讯科技（HK.2618）。目前，TCL已形成多媒体、通讯、家电和部品四大产业集团，以及房地产及投资业务群，物流及服务业务群。

在过去二十多年中，TCL借中国改革开放的东风，秉承敬业奉献、锐意创新的企业精神，从无到有，从小到大，迅速发展成为中国电子信息产业中的佼佼者。1999年，公司开始了国际化经营的探索，在新兴市场开拓推广自主品牌，在欧美市场并购成熟品牌，成为中国民族企业国际化进程中的领头羊。

在发展壮大中，TCL确立了在自主创新方面的优势和能力：在TCL诞生了中国第一台免提式按键电话、第一台28寸大彩电、第一台钻石手机、第一台国产双核笔记本电脑等，很多具有划时代意义的创新产品。

2007年TCL全球营业收入390.63亿元人民币，5万多名员工遍布亚洲、美洲、欧洲、大洋洲等多个国家和地区。在全球40多个国家和地区设有销售机构，销售旗下TCL、Thomson、RCA等品牌彩电及TCL、Alcatel品牌手机。2007年TCL在全球各地销售超过1501万台彩电，1190万部手机。海外营业收入超过中国本土市场营业收入，成为真正意义上的跨国公司。

TCL集团旗下主力产业在中国、美国、法国、新加坡等国家设有研发总部和十几个研发分部。在中国、波兰、墨西哥、泰国、越南等国家拥有近20个制造加工基地。

2007年TCL品牌价值达401.36亿元人民币（54亿美元），稳居中国最有价值品牌榜前五位，并成为中国电视机制造业第一品牌。

未来十年TCL将继续构建融设计力、品质力、营销力及消费者洞察系统为一体的“三力一系统”，将TCL打造成中国最具创造力的品牌。

放眼未来，TCL的发展目标是：通过不断提升企业的国际化经营能力，建立自有知识产权的技术优势，成为受人尊敬的、最具创新能力的全球领先企业。

企业概括

* 企 业 远 景：成为受人尊敬和最具创新能力的全球领先企业

* 企 业 使 命：为顾客创造价值  为员工创造机会  为股东创造效益  为社会承担责任

* 企 业 精 神：敬业、诚信、团队、创新

* 企业价值 观：诚信尽责   公平公正   变革创新   知行合一    整体至上

* 经 营 策 略：研制最好产品、提供最好服务、创建最好品牌

产业篇

——TCL多媒体科技控股有限公司

——TCL通讯科技控股有限公司

——TCL电脑科技（深圳）有限公司

——TCL空调事业部

——TCL白家电事业部

——TCL家庭电器（南海）有限公司

——TCL通讯设备（惠州）有限公司

——惠州市升华工业有限公司

——TCL金能电池有限公司

——TCL照明电器事业部

——TCL工业电器事业部

——TCL南洋电器（广州）有限公司

——TCL楼宇科技（惠州）有限公司

——TCL文化发展有限公司

——TCL房地产开发有限公司

——翰林汇信息产业股份有限公司

——TCL显示科技（惠州）有限公司

——深圳爱思科微电子有限公司

——电大在线远程教育技术有限公司

——深圳速必达商务服务有限公司

——深圳幸福树电器贸易有限公司

TCL发展大事记

1981年由惠阳地区机械局电子科分离成立"惠阳地区电子工业公司".这是TCL的前身。

1985年成立中港合资的"TCL通讯设备有限公司"，初创TCL品牌。

1986年TCL商标在国家工商行政管理局商标注册。

1989年TCL电话机产销量跃居全国同行业第一名并一直名列前茅。

1990年根据当时影响企业发展的关键因素，提出"市场是企业的生命，营销是企业的先导"的观点，并开始着重于树立自己的品牌和建立自己的营销网络。

1991年在上海成立第一个销售分公司，随后又在哈尔滨、西安、武汉、成都等地建立销售分支机构，成为今天TCL全国性销售网络的雏形。

1992年研制生产TCL王牌大屏幕彩电，成功获取市场认可。同时，着手导入CI系统，成为国内较早实施CIS的企业之一。

1993年TCL通讯设备股份有限公司在深圳证券交易所挂牌上市。这是国内通讯终端产品企业中第一家上市公司（2004年1月退市，TCL集团换股上市）。

1996年TCL集团兼并香港陆氏公司彩电项目，开创国企兼并港资企业并使用国有品牌之先河；TCL王牌跃居国内彩电市场三强。

1997年TCL集团有限公司成立。

1998年以"提高效率、降低成本"为主题，在全集团开展了"经营变革、管理创新"活动。

1999年TCL国际控股有限公司股票在香港成功上市，共筹得资金10.5亿港元；1999年"TCL"商标被国家工商行政管理局认定为"中国驰名商标"；1999年TCL进军越南，成立越南分公司，历经一年半就开始实现盈利。

2000年进驻东南亚和俄罗斯，通过OEM方式进入中东、非、澳、拉美、远东等国家和地区。

2001年9月TCL隆重庆祝成立20周年，并举行成长反思研讨会。

2002年4月16日TCL集团股份有限公司创立，引入国际战略投资。

2002年TCL集团收购德国施耐德彩电业务。

2002年TCL集团董事长兼总裁李东生当选2002CCTV中国经济年度人物并成为年度创新奖的唯一获得者。

2003年5月TCL被英国金融时报评为"2002年中国最受尊敬企业". 2003年5月TCL通过资本运作方式收购美国Go Video公司。

2003年7月TCL正式发布了旨在创建具有国际竞争力的世界级企业的"龙虎计划". 2003年8月中共中央总书记、国家主席胡锦涛视察TCL王牌电器（南昌）有限公司。

2003年月10月"英特尔-TCL 3C联合实验室"宣布正式成立。

2004年月1月30日TCL集团股份有限公司在深圳证券交易所上市交易。证券简称：TCL集团，股票代码：000100. 2004年8月TCL与法国汤姆逊合资组建的全球领先彩电企业TCL汤姆逊电子有限公司（TTE）在深圳开业。

2004年8月TCL与法国阿尔卡特合资组建的全球移动通信领域的主导企业——TCL阿尔卡特移动电话有限公司（TA）正式运营。

2004年9月27日TCL通讯科技控股有限公司在香港联交所上市，股份编号：2618. 2005年12月TCL对旗下非核心业务进行重组，将其控股的TCL楼宇科技（惠州）有限公司、TCL国际电工（惠州）有限公司转让与发过罗格朗集团。

2007年12月3日，TCL集团公布旗下企业大规模重组后的新阵容，曾经高调进军的电脑业务被彻底边缘化。此前的11月30日，TCL电脑82%的股权刚以4000万人民币价格易主给一家成立不足9个月的投资公司。

该企业在中国企业联合会、中国企业家协会联合发布的2007年度中国企业500强排名中名列第七十五。

TCL语言

TCL (最早称为“工具命令语言”"Tool Command Language", 但是目前已经不是这个含义，不过我们仍然称呼它为TCL)是一种 脚本语言。 由John Ousterhout创建。 TCL很好学，功能很强大。TCL经常被用于 快速原型开发,脚本编程， GUI和测试等方面。TCL念作“踢叩” "tickle". Tcl的特性包括:

* 任何东西都是一条命令，包括语法结构(for, if等)。

* 任何事物都可以重新定义和重载。

* 所有的数据类型都可以看作字符串。

* 语法规则相当简单

* 提供事件驱动给Socket和文件。基于时间或者用户定义的事件也可以。

* 动态的域定义。

* 很容易用C, C++,或者Java扩展。

* 解释语言，代码能够动态的改变。

* 完全的Unicode支持。

* 平台无关。Win32, UNIX, Mac 上都可以跑。

* 和Windows的GUI紧密集成。 Tk

* 代码紧凑，易于维护。

TCL本身不提供面向对象的支持。但是语言本身很容易扩展到支持面向对象。许多C语言扩展都提供面向对象能力，包括XOTcl, Incr Tcl 等。另外SNIT扩展本身就是用TCL写的。

使用最广泛的TCL扩展是TK。 TK提供了各种OS平台下的图形用户界面GUI。连强大的Python语言都不单独提供自己的GUI，而是提供接口适配到TK上。另一个流行的扩展包是Expect. Expect提供了通过终端自动执行命令的能力，例如(passwd, ftp, telnet等命令驱动的外壳).

下面是TCL程序的例子：

#!/bin/sh

# next line restarts using tclsh in path \

exec tclsh  ${1+"$@"}

# echo server that can handle multiple

# simultaneous connections.

proc newConnection { sock addr port } {

# client connections will be handled in

# line-buffered, non-blocking mode

fconfigure $sock -blocking no -buffering line

# call handleData when socket is readable

fileevent $sock readable [ list handleData $sock ]

}

proc handleData  {

puts $sock [ gets $sock ]

if { [ eof $sock ] } {

close $sock

}

}

# handle all connections to port given

# as argument when server was invoked

# by calling newConnection

set port [ lindex $argv 0 ]

socket -server newConnection $port

# enter the event loop by waiting

# on a dummy variable that is otherwise

# unused.

vwait forever

另外一个TK的例子 (来自 A simple A/D clock) 它使用了定时器时间，3行就显示了一个时钟。

proc every {ms body} {eval $body; after $ms [info level 0]}

pack [label .clock -textvar time]

every 1000 {set ::time [clock format [clock sec] -format %H:%M:%S]} ;# RS

解释：第一行定义了过程every， 每隔ms毫秒，就重新执行body代码。第二行创建了标签起内容由time变量决定。第3行中设置定时器，time变量从当前时间中每秒更新一次。