柘溪
柘溪
关注数: 0
粉丝数: 1
发帖数: 310
关注贴吧数: 0
罪恶人生 外面围满了阿根廷警察 巴特和戈比死守在迷屋里 弟兄门都死光了 四周死一般的寂静 谁都不敢轻举妄动 巴特大声喘着,汗水浸湿了背纱 显然已经恐惧到了极点 戈比承受能力不弱,此时头脑也是一片空白了,理不清任何思路,变得 异常烦躁, "里面的人听着,你们被包围了,投降吧,你们别无选择了" "你们不要再做无谓的反抗了,出来吧,我们会放你们一条出路的" 每一句话,每一个字,似乎是从灵魂深处传来一样,象是招魂的魔鬼. 巴特喘息的非常厉害,"我受不了了,我受不了啦.." 竟然象一个小孩一样嘤嘤的哭了起来,戈比试图想安慰一下,想让他冷静下来 忽然巴特站了起来,哭着往外面走去,戈比用手捞了一下,却什么也没捞着 戈比大喊"巴特,回来” "巴特,危险,快回来" 回答他的只有四周墙壁的回音 巴特出了最外面一堵墙,摇摇晃晃的出现在门口 大喊 "我投降,我不反抗了,不要开枪啊----" 回答他的是一阵乱枪声 戈比似乎看见巴特象堵墙一样的强壮的身体倒下去了 从此世间不会在有这个人了 戈壁恐惧到了极点,"为什么会这样,为什么" 捶打着头脑, 一阵枪声过后,四周又恢复了沉静,似乎什么事都没发生过 戈比渐渐冷却了下来,恐惧不复存在 外面的警察还是不敢冲进来, 因为他们都惧怕戈比那弹无虚发的枪法 即使戈比不能杀光所有的警察,但最先冲进去的肯定是挡子弹的 光线似乎更暗了,戈比想不能这样呆下去了 他是毫无办法出去,而警察们最终会想出办法逼他出去 最终只怕死的比巴特更惨 巴特忽然下定了决心,把手枪都上好弹夹 左右双枪摸了出去 借助昏暗的光线,墙角,墙,无声无息的向门口摸去 外面的警察似乎感觉过道有个影子一晃 他们紧张的盯紧门口 随后又什么东西都没有,真怀疑是盯久了眼睛出毛病了 他们只想,守好了所有出路,戈比一定不敢出来,即使出来,有这么多枪眼对着他 他只有死。 戈比已摸到最外一堵墙了,戈壁清楚的明白,他和警察就只隔一堵墙了 他甚至怀疑警察已发现了他 戈比一咬牙,晃到门口,就往外面冲去 那些警察还没回过神来 戈比晃出去一瞬间就看的那停放的一排轿车的尽头没有警察 戈比冲上车顶,冲上的同时,右手的手枪响了,中了一个守在车左边的慌忙举枪的警察 左手的手枪射向守在车右边的一个警察,迅速回了几枪,飞快跃那一排轿车 警察大乱了,忙不迭的向这边开火,并向这边聚来 戈比眼看就到了那一排轿车的尽头,跳下来,伏下,鱼跃跳进了另一个巷子 而那辆车已被射成蜂窝 这些地方的任何一个角落都再熟悉不过了 昏暗的巷道,每个拐弯处,戈比都向后面回几枪,警察也不敢追的太紧 冷不丁小分队对长出现在前面 戈比一回枪 枪瞄准队长 队长把手举起来,戈比一边撤退一边瞄着队长 退到另一个巷子,飞快闪进去,就消失在黑暗中了
SQL基础入门 我参考一些SQL文章和资料,并结合自己以前碰到的一些教训,在这里写上一些文字,网友zhoulyg123写的那篇初学SQL必须掌握的文章写的很好,我在这里就不重复他的文章里的内容了,我只是说说一些容易被忽视的细节
VB表格录入源代码 Attribute VB_Name = "Module1"Dim titles() As StringDim comboTitles() As StringDim radioTitles() As StringDim dateTitles() As StringDim data()Const fixrows = 1Const fixcols = 2Dim id As StringPrivate Sub Form_Load() m_ArrFill titles, "编号", "蔗农", "签类型", "品种", "植期", "主挂车", "签数", "装蔗点", "路级", "扣预付款", "水运", "车型", "种植日期" m_ArrFill comboTitles, "签类型", "品种", "植期", "主挂车" m_ArrFill radioTitles, "扣预付款", "水运" m_ArrFill dateTitles, "种植日期" setGridHead titles vsFormat.ColWidth(m_Index(titles, "编号")) = 420 vsFormat.ColWidth(m_Index(titles, "种植日期")) = 1120 'vsFormat.ColWidth(m_Index(title, "种植植期")) = -1 'vsFormat.ColWidth(m_Index(title, "蔗农")) = -1 'vsFormat.ColWidth(m_Index(title, "签类型")) = -1 'vsFormat.ColWidth(m_Index(title, "品种")) = -1 vsFormat.Editable = True vsFormat.FixedRows = 1 vsFormat.FixedCols = 2 Dim k(), i As Long k = Array("小发", "张林", "阿么", "阳阳", "还紫", "阳平", "阿三", "阳范军", "高高", "漂漂", "张河", "阳小军", "高圆圆", "家家乐", "还珠", "清清", "张三", "张清清", "阳小云") For i = 0 To m_ArrLen(k) - 1 vsFormat.TextMatrix(i + fixrows, m_Index(titles, "蔗农")) = k(i) 'm_strpad(CStr(k(i)), 12 - Len(CStr(i + 1))) & (i + 1) 'CStr(i + 1), 3)) & k(i) 'm_strpad(CStr(i + 1), 3) & k(i) vsFormat.TextMatrix(i + fixrows, m_Index(titles, "编号")) = i + 1 Next vsFormat.Rows = m_ArrLen(k) + fixrowsEnd SubPrivate Sub btnClose_Click() Unload MeEnd SubPrivate Sub btnSave_Click() Dim i As Long, j As Long For i = fixrows To vsFormat.Rows - 1 If Val(vsFormat.TextMatrix(i, m_Index(titles, "签数"))) > 0 Then Call rowVerify(i) Call rowSave(i) End If NextEnd SubPrivate Function rowVerify(i) Dim xk As String, i As Long For i = 0 To m_ArrLen(titles) - 1 Select Case titles(i) Case "签类型" Case "品种" Case "植期" Case "主挂车" Case "签数" Case "装蔗点" Case "路级" Case "车型" Case "种植日期" NextEnd FunctionPrivate Function rowSave(row As Long)' m_sql = "insert into zn_znxx(znid,qyid,qh,qlxid,pzid,zqid,sfsy,zzrq,sfbx,cxid,qczrq,zt,zgcflag,zqkzjhid,jlsfkyfk,lxdh)" & vbCrLf & _' values("{ End FunctionPrivate Sub Form_Activate() Text1.SetFocus Label1.Caption = m_strpad("1", 3) & Left(vsFormat.TextMatrix(fixrows, m_Index(titles, "蔗农")), 4)End SubFunction setGridHead(titles) vsFormat.Cols = m_ArrLen(titles) Dim i As Long For i = 0 To vsFormat.Cols - 1 vsFormat.TextMatrix(0, i) = titles(i) 'vsFormat.ColWidth(i) = 100 NextEnd FunctionPrivate Sub Text1_Change() Dim xt As String, i As Long, j As Long xt = Text1.Text If Len(xt) = 0 Then Exit Sub If Asc(xt) > 0 Then If Asc(xt) >= vbKey0 And Asc(xt) <= vbKey9 Then Dim index As Long: index = Int(Val(xt))
VB公用函数小结 Attribute VB_Name = "Module1"Option ExplicitPrivate Const mdlCurrName = "Module1" '--beginPublic m_sql As StringPublic SQL_COMBO1 As String '填充选择列表的SQL语句Public SQL_COUNT2 As String '读记录数Public SQL_PAGE3 As String '读页数'初始化成员数据,在启动模块里调用Public Function initDataModule() SQL_COMBO1 = _ "select {fldVal},{fldTxt} from {table}" SQL_COUNT2 = _ "select count(*) from ({sql}) t" SQL_PAGE3 = _ "select * from ( " & vbCrLf & _ " select top {size} * from ( " & vbCrLf & _ " select top {last} * from ( " & vbCrLf & _ " {sql} " & vbCrLf & _ " ) t1 order by {id} {order1} " & vbCrLf & _ " ) t2 order by {id} {order2} " & vbCrLf & _ ") t3 order by {id} {order1} "End Function'---------'★ 0.通用'---------'※ 0.1 字符串'~~~~~~~~~~~~~'-- 0.1.1 在名值对列表里搜索指定名的值 src="待搜索的字符串、splitNvs=名值对组分隔符、splitNv=名值对分隔符Public Function name_value(src As String, name As String, Optional splitNvs As String = ";", Optional splitNv As String = "=") As String On Error GoTo xx: Dim i As Long name_value = "" Dim nvs() As String: nvs = Split(src, splitNvs) For i = 0 To m_ArrLen(nvs) - 1 Dim nv() As String nv = Split(nvs(i), splitNv) If m_ArrLen(nv) = 2 Then If LCase(Trim(nv(0))) = LCase(Trim(name)) Then name_value = Trim(nv(1)) Exit For End If End If Nextxx: Exit FunctionEnd Function'--0.1.2 两个变量进行字符比较,不进行大小、首尾空格比较(与SQL SERVER默认比较方式一样)Public Function strsame(str1, str2) As Boolean strsame = False If LCase(Trim(CStr(str1))) = LCase(Trim(CStr(str2))) Then strsame = TrueEnd Function'※ 0.2 错误处理'~~~~~~~~~~~~~~~'-- 0.2.1 显示错误: str=错误提示、funName=出错函数名、sqlDef=sql语句原型、isRaise=是否继续自定义错误Public Function showError(str As String, Optional funName As String = "", Optional sqlDef As String = "", Optional isRaise As String = "isRaise") If Err.Description = "已处理的错误" Then GoTo xx: Clipboard.Clear Clipboard.SetText (m_sql) If MsgBox(str, vbOKCancel) = vbCancel Then Dim strError As String strError = "错误提示: " & str & vbCrLf & _ "错 误 源: " & Err.Source & vbCrLf & _ "错 误 号: " & Err.Number & vbCrLf & _ "错误描述: " & Err.Description & vbCrLf If funName <> "" Then strError = strError & _ "函数过程: " & funName & vbCrLf End If If sqlConn("main").Errors.count > 0 Then strError = strError & _ "其它信息: " & sqlConn("main").Errors(0).NativeError & vbCrLf & _ "SQL 定义: " & sqlDef & vbCrLf & _ "服 务 器: " & name_value(sqlConn("main").ConnectionString, "Data Source") & vbCrLf & _
VB表格录入源代码 Attribute VB_Name = "Module1"Dim titles() As StringDim comboTitles() As StringDim radioTitles() As StringDim dateTitles() As StringDim data()Const fixrows = 1Const fixcols = 2Dim id As StringPrivate Sub Form_Load() m_ArrFill titles, "编号", "蔗农", "签类型", "品种", "植期", "主挂车", "签数", "装蔗点", "路级", "扣预付款", "水运", "车型", "种植日期" m_ArrFill comboTitles, "签类型", "品种", "植期", "主挂车" m_ArrFill radioTitles, "扣预付款", "水运" m_ArrFill dateTitles, "种植日期" setGridHead titles vsFormat.ColWidth(m_Index(titles, "编号")) = 420 vsFormat.ColWidth(m_Index(titles, "种植日期")) = 1120 'vsFormat.ColWidth(m_Index(title, "种植植期")) = -1 'vsFormat.ColWidth(m_Index(title, "蔗农")) = -1 'vsFormat.ColWidth(m_Index(title, "签类型")) = -1 'vsFormat.ColWidth(m_Index(title, "品种")) = -1 vsFormat.Editable = True vsFormat.FixedRows = 1 vsFormat.FixedCols = 2 Dim k(), i As Long k = Array("小发", "张林", "阿么", "阳阳", "还紫", "阳平", "阿三", "阳范军", "高高", "漂漂", "张河", "阳小军", "高圆圆", "家家乐", "还珠", "清清", "张三", "张清清", "阳小云") For i = 0 To m_ArrLen(k) - 1 vsFormat.TextMatrix(i + fixrows, m_Index(titles, "蔗农")) = k(i) 'm_strpad(CStr(k(i)), 12 - Len(CStr(i + 1))) & (i + 1) 'CStr(i + 1), 3)) & k(i) 'm_strpad(CStr(i + 1), 3) & k(i) vsFormat.TextMatrix(i + fixrows, m_Index(titles, "编号")) = i + 1 Next vsFormat.Rows = m_ArrLen(k) + fixrowsEnd SubPrivate Sub btnClose_Click() Unload MeEnd SubPrivate Sub btnSave_Click() Dim i As Long, j As Long For i = fixrows To vsFormat.Rows - 1 If Val(vsFormat.TextMatrix(i, m_Index(titles, "签数"))) > 0 Then Call rowVerify(i) Call rowSave(i) End If NextEnd SubPrivate Function rowVerify(i) Dim xk As String, i As Long For i = 0 To m_ArrLen(titles) - 1 Select Case titles(i) Case "签类型" Case "品种" Case "植期" Case "主挂车" Case "签数" Case "装蔗点" Case "路级" Case "车型" Case "种植日期" NextEnd FunctionPrivate Function rowSave(row As Long)' m_sql = "insert into zn_znxx(znid,qyid,qh,qlxid,pzid,zqid,sfsy,zzrq,sfbx,cxid,qczrq,zt,zgcflag,zqkzjhid,jlsfkyfk,lxdh)" & vbCrLf & _' values("{ End FunctionPrivate Sub Form_Activate() Text1.SetFocus Label1.Caption = m_strpad("1", 3) & Left(vsFormat.TextMatrix(fixrows, m_Index(titles, "蔗农")), 4)End SubFunction setGridHead(titles) vsFormat.Cols = m_ArrLen(titles) Dim i As Long For i = 0 To vsFormat.Cols - 1 vsFormat.TextMatrix(0, i) = titles(i) 'vsFormat.ColWidth(i) = 100 NextEnd FunctionPrivate Sub Text1_Change() Dim xt As String, i As Long, j As Long xt = Text1.Text If Len(xt) = 0 Then Exit Sub If Asc(xt) > 0 Then If Asc(xt) >= vbKey0 And Asc(xt) <= vbKey9 Then Dim index As Long: index = Int(Val(xt))
计算机基础入门 看几行SQL语句,是用来批量更新统计表的truncate table Pub_Qytj_Kzjhdeclare @i as intset @i = 1while @i<=5 begin insert into Pub_Qytj_Kzjh(qyid,znsl) select left(qyid,@i*2),count(*) from zn_znxx group by left(qyid,@i*2) set @i=@i+1end
练功 我练了很多年,什么都练,单双杠,压腿,跑步,踢球,这些是体育活动往往没有多少效果,不过可以增进一些灵活性,初三时我天天去跑步,一大清早我就起来,然后爬过围墙,去田径场跑步,我起来时还很早,我没有手表,可能是5点,也可能是4点,也可能是3点,我在那400米跑道上跑,一直跑下去,也许三五圈,也许七八圈,也可能是十几二十几圈,我没数,就那样一直跑下去,跑到有人上来跑步时我才下去,那时我练站马步,有时咬紧牙关能站上十几分钟,那滋味极其难受,可我发现那些根本没什么用,别人欺负我时我根本还不了手,考试考立定跳远我竟然跳不到两米,所以后来我就不跑步了,我改练推掌,高中时就练推掌,先推1千次,再切一千次,然后练别的,那样练了很多年那是怎样的情景,我爬过围墙,天气清冷,外面一个人影也没有,路灯映照着我孤独的身影,我径直走到西墙那樟树下,开始一天的晨课
奇经八脉 我找到一本叫什么<<历代针炙经典歌赋详注>>,翻了翻,没想到里面尽是些诗歌,三言两语, 极其晦涩难懂,第一篇是 金针赋 ,看了第一段,看后没留下什么痕迹,后来 看书的目录,找到什么 奇经八脉 的章节,我看了看, 书上说奇经八脉 里指出人体除了十二经之外,还有奇经八脉, "奇经八脉是督脉、任脉、冲脉、带脉、阴维脉、阳维脉、阴跷脉、阳跷脉的总称。奇者,异也,是指异于十二正经而言" 可我并不知道十二正经是什么,于是从书的开头看起, 金针赋 也看了大半部分 第二章是介绍 十二经的, 人体的五脏六腑加上心包络各有一条经脉, 而这十二条经脉起止于手足,经脉在内的是阴,在外(贴着皮肤)的是阳, 又有阴三经,阳三经, 书上歌赋的来源很多,金针赋取自《针灸大成》,事实上《针灸大成》也是一本整理的书,金针赋的全名是《梓岐风谷飞经走气撮要金针赋》 手足十二经所属歌取自《医宗金鉴》,而《医宗金鉴》也是乾隆时整理的东西,后面的诗歌来源也不相同,
雪峰山 湖南省东西两部不同自然景观及沅江和资水之间的分水岭。位于省境中部偏西,中国第二级地势阶梯的南段转折带,云贵高原东坡过渡到江南丘陵的东侧边幅;是较独特的地理单元。 雪峰山属“原始江南古陆”的西南段,呈向北西突出的弧形构造。广泛分布前震旦系冷家溪群、板溪群一套由浅变质的板岩、变质砂岩及千枚岩组成的地层,震旦系变质碎屑岩亦发育良好,早古生代寒武—志留系的板岩、灰岩、细砂岩等组成的地层间有出露。因受加里东运动的抬升,形成一系列北北东至北东向的隆起与拗陷;又经燕山运动的强烈影响,产生一系列北北东向的断裂和褶皱,从而进一步奠定了雪峰山构造地貌的格局。 雪峰山为正向构造的古老隆起山地,南起于湘桂边境的大南山,尾翼倾伏于洞庭湖区,绵亘300余公里,横跨80~120公里,具有千米以上的峰峦岭脊,中段山脊标高1200~1700米,主峰罗翁八面山苏宝顶海拔1934米。山体受继承间歇式抬升活动和外力作用的影响,呈现900~1100米、650~800米、450~550米、240~350米等多级剥夷面。沟谷切割深度自150~750米不等,加之断层发育,岭壑交替起伏。整个山体两侧,大致呈现出东坡陡峻、西坡缓倾的地势。沅江支流巫水、溆水、夷望溪,资水西源及其支流平溪、辰溪等均出自山地两侧。两条干流切过雪峰山体中北段,河道呈“S”状转折,形成峡谷。
武功影子 唐代道人许宣平传拳说 有一种“三世七”拳功,据载最早露世的传人为唐代的道人许宣平。许是江南徽州歙县(即今安徽歙县)人,他当时长期隐居于歙县城南的紫阳山中,在山中向阳的一个地方结庵辟谷修炼。当时大诗人李白慕名而访,不得而遇,十分遗憾,遂留题诗曰:“我吟传舍咏,来访真人居。烟岭迷高速,云林隔太虚。窥庭但萧萧,倚杖空踌躇。应化辽天鹤,归当千岁余。”许宣平的拳功名曰“三世七”,据言因以三十七式而取名。此拳又称长拳。因为这套拳打法不分何式为先何式为后,只要将每式学会,打起来可以相继不断,绵绵不绝。许宣平的太极拳功隐于道门数百年之久,于明朝前期传于宋远桥,此时已经历十四代。宋氏后人将此技视为家传继承,然亦有所宣播。至近代辛亥革命时期,宋氏后人宋书铭将宋氏拳谱公开,今国内仍有传人。 与唐朝许宣平同时,还有一种先天拳,亦叫长拳。此拳功为李道子所传。李道子为江南安庆(即今安徽潜山县)人,为唐代道人。令人称奇的是,按明朝宋远桥的所见所闻,以及武当《太和山志》记载,明朝武当山有个叫李道子的道人,与唐朝李道子同名,是否李道子由唐朝活到明朝七百多年仍健在,堪为一谜。 《宋氏太极功源流支派论》(宋远桥)中叙述 据宋远桥在其《宋氏太极功源流支派论》中叙述,他当时游历安徽径县,因听说当地俞家世精太极拳功,便去拜访。因问源流,俞氏言,系唐时李道子所传,俞门代代相承。当年,俞门传人每年必到潜山去拜望李道子,如此直到宋朝,李道子仍在。而到宋末,李道子忽然不知所往。后来,宋远桥与俞氏传人俞莲舟结为好友,偕同云游。不久,他们二人云游至湖北均州(即今丹江口市)的武当山,偶然遇到一位蓬头垢面的道人,直呼俞莲舟曰:“我徒儿的孙辈欲到何方去!”俞莲舟言道:“你是何等之人,竟敢如此无礼!我观你弱不禁风,难经我一掌之击。”那道人并无怯意,依然又言:“我徒儿的孙辈,我倒想看看你的手。”几句话呛得俞莲舟恼怒至极,即进步发招。不料,还未挨近道人之身,自个却被击出丈余之外,平地抛起而落下,却未伤着筋骨。俞莲舟惊奇地问道人:“看来你是用过功夫,不然,能敌过我者实在少有。”道人问:“你与俞清慧、俞一诚认识不认识?”俞莲舟一听此言大惊失色,急忙跪在道人面前。原来,道人说的二人全是俞莲舟先祖的名字。这才悟知面前的道人乃是非凡之前辈。经施礼拜问,才知这道人正是他俞门前代所拜的祖师李道子。李道子言:“我来武当山已数十寒暑未曾说过话,你今遇到我乃大造化也。你既已来,让我再教你些功夫。”进又授艺于他。
张三丰 关于张三丰其人,《明外史》这样描述:身材颀长而伟岸,龟形鹤背,大耳圆目。冬天一件蓑衣,夏日一件衲衣。对待生活是极其随便,甚至可以称作怪诞。但张三丰却自小聪慧,看起书来过目不忘。 从三十多岁开始,他就而四处访道求道,大约直到七十岁左右,他才得到火龙真人的传法,得到道家内丹的真传。此后张三丰一心修道,他到过陕西宝鸡的金台观,后来又到了武当山,一直在山上结茅而居。 得道后,张三丰居无定处,处深山,游市井,嘻笑谐趣,我行我素。《明外史》中记载:“(张三丰)能一日千里”。单从这句话来看,张三丰便不是寻常之人。更富传奇色彩的传说,则是张三丰在陕西宝鸡的金台观修炼时“起死回生”:张三丰当时居住在宝鸡小官吏杨士轨家中,忽然有一天,他“留颂而逝”。宝鸡县百姓为其敛棺收尸,但临到下葬之时,张三丰却起死回生,留下一面小鼓,再次云游他方。 到了元朝灭亡明朝建立后,张三丰又入蜀到了太和山玉虚庵,他在庵前盖一草房结庐独居,人称他为邋遢道人。由于年高体健,有人问他仙术,他闭口不答;如问经书他就喋喋不休地讲起来;有人问他姓名,他只说是武当乡人。 武当山主持孙碧云亲自前去拜访,张三丰与他谈经论道交游密切。后来张三丰的名望传到朝廷,明朝洪武十七年(1385年),皇帝下诏求一百三十七岁武当隐士张三丰,不见。洪武十八年(1386年)强迫沈万三敦请亦不赴。永乐十四年(1416年)明成祖下诏武当山一百六十八岁老隐士张三丰入朝,不赴,唯以诗词托孙碧云奏,词曰:“圣师亲口诀,明方万古遗;传与世间人,能有几人知。衣破用布补,树衰用土培;人损将何补,阴阳造化机。取将坎中实,金花露一枝;庆云开天际,祥光塞死基;归已昏昏点,如醉亦如痴;大丹如黍米,脱壳证无为;优游天下广,万象掌中珠。人能服此药,寿如天地齐;如若不延年,吾言皆是非。金丹重一斤,闭目静存神;只在家中取,何劳向外寻,炼成离女汞,吞尽坎男精;金丹并火喉,口口是元音。”明成祖读词后,封张三丰为武当真人。
计算机图形图象学 图形处理一直是计算机面临的一个极大的问题,从基本的线条绘制,到复杂的三维动画,都需要计算机图形图象学的支持,很多人做出了卓越的贡献,总结出了大量的公式方法,在那些的支持下,有很多应用层的东西,比如GL库,OpenGL库,而微软的DirectX更是封装了非常多的东西而且与别的应用层次紧密结合,游戏开发里很多选择C++主要就是因为微软的DirectX
计算机的前景 微软推出.NET平台,我也学过C#,但我学过后就怀疑微软只是炒作性的推出.NET平台,因为.NET平台,增进了通用性的同时,却存在一个很大的隔阂,那就是在非.NET平台上无法运行程序,但一切都在改变的,微软在2005里内置了NET平台,而且那种.NET平台越来越多的使用,只怕也就真的成了现实,
计算机函数式语言 函数式语言很相象数学里的函数,采用与数学里的函数相类似的表达方式,这与比较常用的C、Basic不怎么相同,
计算机CGI脚本 CGI脚本
计算机元语言 随着Java、C#结合XML语言开发的出现,一种东西引起重视,那就是元语言,元语言类似于数据库,但又是层次性的,对于描述计算机里的数据往往非常有效
计算机建模工具 现在比较流行的建模工具是UML,但企业里实用的还是普遍采用过程式的建模工具,主要是过程式的建模工具能无缝与编程语言藕合起来,虽然各大师们都希望UML采用对象方式来实现更自然的编程方式,但那种东西在有些地方,有些场合很有用,在有的地方却很不适用
计算机ASP语言 ASP语言基础与VB类似,不过ASP是弱化了的VB语言,所以VB里很多的用法在ASP里无法实现,
计算机C#语言 C#语言是C++风格的,不过弱化了指针的操作,而是多了很多以前只在象STL里才有的一些结构和函数
计算机VC语言 这里VC等于VC++,因为C语言编辑器几乎被C++替换掉了在很多场合还是以C的风格编写的,比如单片机用C与汇编混合编写,是C++无法取代的
计算机SQL语言 1.插入表insert into [表名]([字段1],[字段2]) values('值1','值2')2.修改表update [表名] set [字段1]='值1' where [字段2]='值2'3.删除表delete from [表名] where [字段1]='值1'标准SQL语句内容虽然很多,但功能还是有限,因此SQL SERVER扩展自己很多功能,当然有些用标准SQL语句也能实现,但主要是速度问题,比如在delete和update语句里,标准SQL语句不能链接表,但扩展SQL里能
计算机-ERP 2 1.发票核销专题 1.1 材料入库单金额的计算 先看一条[采购发票子表]记录: 税率 数量 单价(原币) 金额(原币) 税额(原币) 价税合计(原币) —————————————————————————————— 17 10 100810.087 100810.8700 17137.8500 117948.7200 从上表可以看出: [价税合计] = [金额] + [税额] 所以[金额]不包括税款,但是文档说明里指出: “普通发票金额=价税合计,专用发票金额=货款(不含税金额)” 查看该发票的类型为专用发票(InvoiceSort为1), 普通发票的[金额]包括税额,专用发票不包括税额, 在材料入库单里的金额是无税金额,那该如何计算出无税金额呢, 如果是专用发票,那[无税金额]就等于[金额] 如果是普通发票,[无税金额]就等于[金额]-[税额], 不过可以采用统一的计算方式,那就是: [无税金额] = [价税合计] - [税额]
计算机脚本入门 1.将下面的代码另存为 x.hta alert("你好!"); //说明:显示一个对话框
计算机汇编语言入门
诺贝尔奖为什么没数学奖 语文老师说诺贝尔的女朋友跟一个数学家跑了,
武功这么不好练啊 今天我回了学校,在那里练了一会儿掌法,就是用左右掌轮流推一棵松树,我推了一两千多次,感觉身体有点异样就停下来了,我这样练了很多年了,可总是停停歇歇的练,我今天练后练完上厕所,那尿都是血红的,为什么练功这样没效果啊
悔恨录
邪功 我练正功练了很多年,也练的很苦,经常因为练的强度太大导致身体虚脱,流血,我知道自己太瘦小,不是练武功的料,我想练邪功,反正练武功就是为了杀人或者不被人杀,只要能做到这点,练什么功都无所谓,我早该死了,或许我死过好多次了现在只是行尸走肉,我要报复
1
下一页