下面的代码可以改变任意单元格的字体、背景颜色
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (DataCol = 1)and(ADOTable1.FieldByName( 'UserName ').Value = 'Administrator ') then
begin
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.Canvas.Brush.Color := clLime;
end;
DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
以上代码仅把第一列（从零列开始），第UserName= 'Administgrator '行的单元格的字体颜色改为红色，背景颜色改为亮绿色
Orignal From: DBGrid中修改格子背景颜色，字体颜色
我的简介
劳斯莱斯恶改街霸
小白兔的冷笑话 论老板与员工
一天，一只兔子在山洞前写文章，一只狼走了过来，问："兔子啊，你在干什么？"答曰："写文章。"问："什么题目？"答曰："《浅谈兔子是怎样吃掉狼的》。"狼哈哈大笑，表示不信，于是兔子把狼领进山洞。过了一会，兔子独自走出山洞，继续写文章。一只野猪走了过来，问："兔子你在写什么？"答："文章。"问："题目是什么？ "答："《浅谈兔子是如何把野猪吃掉的》。"野猪不信，于是同样的事情发生。最后，在山洞里，一只狮子在一堆白骨之间，满意的剔着牙读着兔子交给它的文章，题目："《一只动物，能力大小关键要看你的老板是谁》。"这只兔子有次不小心告诉了他的一个兔子朋友，这消息逐渐在森林中传播；狮子知道后非常生气，他告诉兔子："如果这个星期没有食物进洞，我就吃你。"于是兔子继续在洞口写文章 .一只小鹿走过来，"兔子，你在干什么啊？""写文章" "什么题目" "《浅谈兔子是怎样吃掉狼的》""哈哈，这个事情全森林都知道啊，你别胡弄我了，我是不会进洞的""我马上要退休了，狮子说要找个人顶替我，难道你不想这篇文章的兔子变成小鹿么 "小鹿想了想，终于忍不住诱惑，跟随兔子走进洞里。过了一会，兔子独自走出山洞，继续写文章一只小马走过来，同样是事情发生了。最后，在山洞里，一只狮子在一堆白骨之间，满意的剔着牙读着兔子交给它的文章题目是：<如何发展下线动物为老板提供食物> 。随着时间的推移，狮子越长越大，兔子的食物已远远不能填饱肚子。一日，他告诉兔子："我的食物量要加倍，例如：原来4天一只小鹿，现在要2天一只如果一周之内改变不了局面我就吃你。于是，兔子离开洞口，跑进森林深处，他见到一只狼"你相信兔子能轻松吃掉狼吗"狼哈哈大笑，表示不信，于是兔子把狼领进山洞。过了一会，兔子独自走出山洞，继续进入森林深处这回他碰到一只野猪----"你相信兔子能轻松吃掉野猪吗"野猪不信，于是同样的事情发生了。原来森林深处的动物并不知道兔子和狮子的故事最后，在山洞里，一只狮子在一堆白骨之间，满意的剔着牙读着兔子交给它的文章题目是：<如何实现由坐商到行商的转型为老板提供更多的食物>时间飞快，转眼之间，兔子在森林里的名气越来越大因为大家都知道它有一个很历害的老板这只小兔开始横行霸道，欺上欺下，没有动物敢惹它时时想起和乌龟赛跑的羞辱它找到乌龟说："三天之内，见我老板！"扬长而去乌龟难过的哭了这时却碰到了一位猎人乌龟把这事告诉了他猎人哈哈大笑于是森林里发生了一件重大事情猎人披着狮子皮和乌龟一起在吃兔子火锅地下丢了半张纸片歪歪扭扭的写着：山外青山楼外楼，强中还有强中手啊！！在很长一段时间里森林里恢复了往日的宁静，兔子吃狼的故事似乎快要被大家忘记了不过一只年轻的老虎在听说了这个故事后，被激发了灵感于是他抓住了一只羚羊，对羚羊说，如果你可以象以前的兔子那样为我带来食物那我就不吃你。于是，羚羊无奈的答应了老虎，而老虎也悠然自得的进了山洞。可是三天过去了，也没有见羚羊领一只动物进洞。他实在憋不住了，想出来看看情况。羚羊早已不在了，他异常愤怒。正在他暴跳如雷的时候突然发现了羚羊写的一篇文章题目是：《想要做好老板先要懂得怎样留住员工》.........
空姐们让旅客发疯的经典口误
（一）飞机落地了，由于广播的乘务员老想着赶班车去东直门，于是广播成了“女士们，先生们，我们的飞机已经抵达首都北京东直门机场”旅客疯了。。。 （二）飞机抵达纽约，应该是肯尼迪机场，最后广播成了“我们已经抵达纽约肯德基机场” （三）回到北京，落地前乘务员要做好签封工作，刚签封完就有旅客要可乐，乘务员说“我们都封了”结果客人很不理解：“我就要个可乐，你们就疯（封）啦？！” （四）飞机机械故障延误了，过了一会又可以走了，旅客问为什么？乘务员说“没事儿，就换了一个敢开的机长。” （五）飞机落地了，还在滑行，旅客就都站起来拿行李，为了安全，要广播“女士们，先生们，我们的飞机还在滑行，请您坐好，并关闭头顶上方的行李架”结果一着急广播成了“女士们，先生们，我们的飞机滑得还行。。。”这时候，“叮——咚”内话响了，机长说“谁夸我呢？！” （六）乘务员广播“女士们，先生们，请您坐在跑道上，系好安全带，我们的飞机马上就要起飞了。。。” （七）话说，飞机起飞的时候，轰鸣声甚大，坐在头等仓的乘乘对另一乘乘 说：“看，那个旅客的鼻毛露出来了”另一乘乘没有听见，大声问到：“什么？！”又大声重复一边还是没有听到，只见那个旅客走过来，说：“小姐，她说，我的鼻毛露出来了！！” （八）一天乘务长和一乘务员迎客,上来一名外国黑人.乘务长小声的对乘务员说:"你看那外国人可真黑啊~！（笑）"第2秒钟外国黑人回头对哪个乘务长说:"就你白!" （九）乘乘:我们有雪碧可乐矿泉水请问你需要喝什么?旅客:饮料! （十）乘乘:今天为您提供的热早餐有面条和点心,请问你需要哪一种? 旅客沉思半晌：米饭! （十一）据闻俄罗斯最近又发生了一起劫机事件。 在一架莫斯科飞往巴库的班机上，一名青年男子突然掏出一把玩具手枪大喊：“劫机!我要劫机!我要和机长对话!!”机长赶紧战战兢兢地过来了，小心冀冀地说道：“先生，您有什么意见尽管说，您的要求我们都尽量满足，请您先放下枪好吗?这样以免伤及无辜……” 劫匪歇斯底里地吼道：“不!我现在只要求这架飞机立即飞往巴库!!” 机长不禁诧异地问道：“哦，先生，您听我说，本次航班本来就是飞往巴库的，您可以把枪放下来了。顺便问一句：您的精神没有问题吧?” 劫匪勃然大怒道：“你胡说八道什么?!我很好!我已经乘坐你们这个航班三次了，第一次将我劫到了阿富汗!第二次又将我劫到了伊拉克!”他抑制不住内心的激动说，“这不昨天才将我送回来，这一次无论如何，我都要先劫啦——我要回巴库!” （十二）前几天飞广州，上来大帮小红帽旅行团，收餐时见餐盘中餐盒统统被小红帽扣留，准备带回家做纪念，于是一乘务员耐心解释：这些都是必须回收的餐具，麻烦各位配合我们回收，有人上缴。但仍有个别假寐，拒不交出，再劝，又上缴几只，仍有个别顽固分子，坚持说已交给乘务员。于是另一乘务员忍无可忍，大声对另那名乘务员说：难道他们就不知道，下飞机时，门口会报警吗？此言一出，全数上缴！
（十三）乘务员正在供餐，到一位旅客前问道：“先生，我们有鸡肉米饭和鱼肉米饭，请问您吃哪种？” 旅客答道：“排骨！” 乘务员又重复一遍，旅客依然答道：“排骨！” 这时，乘务员问：“我们有鸡排骨和鱼排骨，您吃哪种？” （十四）呼唤铃响．空姐：您好，请问有什么可以帮您的吗？ 旅客：能要一杯水吗？ 空姐：当然可以，矿泉水吗？ 旅客：有果汁吗？ 空姐：有，橙汁和桃汁请问需要哪一种？ 旅客：有可乐吗？ 空姐：有，需要加冰吗？ 旅客：那给我一杯茶吧！ （十五）一天飞737-700，一位后舱旅客上卫生间，站在卫生间门口一阵猛摇，乘务员好心提醒到：“先生，请往里推”。只见那位乘客用食指轻轻一戳，乘务员又说到“推”乘客再戳。乘务员：“用力推”乘客一愣，猛吸一口气，对着卫生间一阵猛吹！乘务员们笑倒一片。。。。急忙帮他开门道：“您太经典了，我是说用力推，不是用力吹！”
（十三）乘务员正在供餐，到一位旅客前问道：“先生，我们有鸡肉米饭和鱼肉米饭，请问您吃哪种？” 旅客答道：“排骨！” 乘务员又重复一遍，旅客依然答道：“排骨！” 这时，乘务员问：“我们有鸡排骨和鱼排骨，您吃哪种？” （十四）呼唤铃响．空姐：您好，请问有什么可以帮您的吗？ 旅客：能要一杯水吗？ 空姐：当然可以，矿泉水吗？ 旅客：有果汁吗？ 空姐：有，橙汁和桃汁请问需要哪一种？ 旅客：有可乐吗？ 空姐：有，需要加冰吗？ 旅客：那给我一杯茶吧！ （十五）一天飞737-700，一位后舱旅客上卫生间，站在卫生间门口一阵猛摇，乘务员好心提醒到：“先生，请往里推”。只见那位乘客用食指轻轻一戳，乘务员又说到“推”乘客再戳。乘务员：“用力推”乘客一愣，猛吸一口气，对着卫生间一阵猛吹！乘务员们笑倒一片。。。。急忙帮他开门道：“您太经典了，我是说用力推，不是用力吹！”
没有评论:
发表评论