百科解释
目录·简介·企业概括·产业篇·TCL发展大事记·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变量从当前时间中每秒更新一次。
