柘溪 柘溪
关注数: 0 粉丝数: 1 发帖数: 310 关注贴吧数: 0
罪恶人生 外面围满了阿根廷警察 巴特和戈比死守在迷屋里 弟兄门都死光了 四周死一般的寂静 谁都不敢轻举妄动 巴特大声喘着,汗水浸湿了背纱 显然已经恐惧到了极点 戈比承受能力不弱,此时头脑也是一片空白了,理不清任何思路,变得 异常烦躁, "里面的人听着,你们被包围了,投降吧,你们别无选择了" "你们不要再做无谓的反抗了,出来吧,我们会放你们一条出路的" 每一句话,每一个字,似乎是从灵魂深处传来一样,象是招魂的魔鬼. 巴特喘息的非常厉害,"我受不了了,我受不了啦.." 竟然象一个小孩一样嘤嘤的哭了起来,戈比试图想安慰一下,想让他冷静下来 忽然巴特站了起来,哭着往外面走去,戈比用手捞了一下,却什么也没捞着 戈比大喊"巴特,回来” "巴特,危险,快回来" 回答他的只有四周墙壁的回音 巴特出了最外面一堵墙,摇摇晃晃的出现在门口 大喊 "我投降,我不反抗了,不要开枪啊----" 回答他的是一阵乱枪声 戈比似乎看见巴特象堵墙一样的强壮的身体倒下去了 从此世间不会在有这个人了 戈壁恐惧到了极点,"为什么会这样,为什么" 捶打着头脑, 一阵枪声过后,四周又恢复了沉静,似乎什么事都没发生过 戈比渐渐冷却了下来,恐惧不复存在 外面的警察还是不敢冲进来, 因为他们都惧怕戈比那弹无虚发的枪法 即使戈比不能杀光所有的警察,但最先冲进去的肯定是挡子弹的 光线似乎更暗了,戈比想不能这样呆下去了 他是毫无办法出去,而警察们最终会想出办法逼他出去 最终只怕死的比巴特更惨 巴特忽然下定了决心,把手枪都上好弹夹 左右双枪摸了出去 借助昏暗的光线,墙角,墙,无声无息的向门口摸去 外面的警察似乎感觉过道有个影子一晃 他们紧张的盯紧门口 随后又什么东西都没有,真怀疑是盯久了眼睛出毛病了 他们只想,守好了所有出路,戈比一定不敢出来,即使出来,有这么多枪眼对着他 他只有死。 戈比已摸到最外一堵墙了,戈壁清楚的明白,他和警察就只隔一堵墙了 他甚至怀疑警察已发现了他 戈比一咬牙,晃到门口,就往外面冲去 那些警察还没回过神来 戈比晃出去一瞬间就看的那停放的一排轿车的尽头没有警察 戈比冲上车顶,冲上的同时,右手的手枪响了,中了一个守在车左边的慌忙举枪的警察 左手的手枪射向守在车右边的一个警察,迅速回了几枪,飞快跃那一排轿车 警察大乱了,忙不迭的向这边开火,并向这边聚来 戈比眼看就到了那一排轿车的尽头,跳下来,伏下,鱼跃跳进了另一个巷子 而那辆车已被射成蜂窝 这些地方的任何一个角落都再熟悉不过了 昏暗的巷道,每个拐弯处,戈比都向后面回几枪,警察也不敢追的太紧 冷不丁小分队对长出现在前面 戈比一回枪 枪瞄准队长 队长把手举起来,戈比一边撤退一边瞄着队长 退到另一个巷子,飞快闪进去,就消失在黑暗中了
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))
雪峰山 湖南省东西两部不同自然景观及沅江和资水之间的分水岭。位于省境中部偏西,中国第二级地势阶梯的南段转折带,云贵高原东坡过渡到江南丘陵的东侧边幅;是较独特的地理单元。 雪峰山属“原始江南古陆”的西南段,呈向北西突出的弧形构造。广泛分布前震旦系冷家溪群、板溪群一套由浅变质的板岩、变质砂岩及千枚岩组成的地层,震旦系变质碎屑岩亦发育良好,早古生代寒武—志留系的板岩、灰岩、细砂岩等组成的地层间有出露。因受加里东运动的抬升,形成一系列北北东至北东向的隆起与拗陷;又经燕山运动的强烈影响,产生一系列北北东向的断裂和褶皱,从而进一步奠定了雪峰山构造地貌的格局。 雪峰山为正向构造的古老隆起山地,南起于湘桂边境的大南山,尾翼倾伏于洞庭湖区,绵亘300余公里,横跨80~120公里,具有千米以上的峰峦岭脊,中段山脊标高1200~1700米,主峰罗翁八面山苏宝顶海拔1934米。山体受继承间歇式抬升活动和外力作用的影响,呈现900~1100米、650~800米、450~550米、240~350米等多级剥夷面。沟谷切割深度自150~750米不等,加之断层发育,岭壑交替起伏。整个山体两侧,大致呈现出东坡陡峻、西坡缓倾的地势。沅江支流巫水、溆水、夷望溪,资水西源及其支流平溪、辰溪等均出自山地两侧。两条干流切过雪峰山体中北段,河道呈“S”状转折,形成峡谷。
武功影子 唐代道人许宣平传拳说 有一种“三世七”拳功,据载最早露世的传人为唐代的道人许宣平。许是江南徽州歙县(即今安徽歙县)人,他当时长期隐居于歙县城南的紫阳山中,在山中向阳的一个地方结庵辟谷修炼。当时大诗人李白慕名而访,不得而遇,十分遗憾,遂留题诗曰:“我吟传舍咏,来访真人居。烟岭迷高速,云林隔太虚。窥庭但萧萧,倚杖空踌躇。应化辽天鹤,归当千岁余。”许宣平的拳功名曰“三世七”,据言因以三十七式而取名。此拳又称长拳。因为这套拳打法不分何式为先何式为后,只要将每式学会,打起来可以相继不断,绵绵不绝。许宣平的太极拳功隐于道门数百年之久,于明朝前期传于宋远桥,此时已经历十四代。宋氏后人将此技视为家传继承,然亦有所宣播。至近代辛亥革命时期,宋氏后人宋书铭将宋氏拳谱公开,今国内仍有传人。 与唐朝许宣平同时,还有一种先天拳,亦叫长拳。此拳功为李道子所传。李道子为江南安庆(即今安徽潜山县)人,为唐代道人。令人称奇的是,按明朝宋远桥的所见所闻,以及武当《太和山志》记载,明朝武当山有个叫李道子的道人,与唐朝李道子同名,是否李道子由唐朝活到明朝七百多年仍健在,堪为一谜。 《宋氏太极功源流支派论》(宋远桥)中叙述 据宋远桥在其《宋氏太极功源流支派论》中叙述,他当时游历安徽径县,因听说当地俞家世精太极拳功,便去拜访。因问源流,俞氏言,系唐时李道子所传,俞门代代相承。当年,俞门传人每年必到潜山去拜望李道子,如此直到宋朝,李道子仍在。而到宋末,李道子忽然不知所往。后来,宋远桥与俞氏传人俞莲舟结为好友,偕同云游。不久,他们二人云游至湖北均州(即今丹江口市)的武当山,偶然遇到一位蓬头垢面的道人,直呼俞莲舟曰:“我徒儿的孙辈欲到何方去!”俞莲舟言道:“你是何等之人,竟敢如此无礼!我观你弱不禁风,难经我一掌之击。”那道人并无怯意,依然又言:“我徒儿的孙辈,我倒想看看你的手。”几句话呛得俞莲舟恼怒至极,即进步发招。不料,还未挨近道人之身,自个却被击出丈余之外,平地抛起而落下,却未伤着筋骨。俞莲舟惊奇地问道人:“看来你是用过功夫,不然,能敌过我者实在少有。”道人问:“你与俞清慧、俞一诚认识不认识?”俞莲舟一听此言大惊失色,急忙跪在道人面前。原来,道人说的二人全是俞莲舟先祖的名字。这才悟知面前的道人乃是非凡之前辈。经施礼拜问,才知这道人正是他俞门前代所拜的祖师李道子。李道子言:“我来武当山已数十寒暑未曾说过话,你今遇到我乃大造化也。你既已来,让我再教你些功夫。”进又授艺于他。
张三丰 关于张三丰其人,《明外史》这样描述:身材颀长而伟岸,龟形鹤背,大耳圆目。冬天一件蓑衣,夏日一件衲衣。对待生活是极其随便,甚至可以称作怪诞。但张三丰却自小聪慧,看起书来过目不忘。 从三十多岁开始,他就而四处访道求道,大约直到七十岁左右,他才得到火龙真人的传法,得到道家内丹的真传。此后张三丰一心修道,他到过陕西宝鸡的金台观,后来又到了武当山,一直在山上结茅而居。 得道后,张三丰居无定处,处深山,游市井,嘻笑谐趣,我行我素。《明外史》中记载:“(张三丰)能一日千里”。单从这句话来看,张三丰便不是寻常之人。更富传奇色彩的传说,则是张三丰在陕西宝鸡的金台观修炼时“起死回生”:张三丰当时居住在宝鸡小官吏杨士轨家中,忽然有一天,他“留颂而逝”。宝鸡县百姓为其敛棺收尸,但临到下葬之时,张三丰却起死回生,留下一面小鼓,再次云游他方。 到了元朝灭亡明朝建立后,张三丰又入蜀到了太和山玉虚庵,他在庵前盖一草房结庐独居,人称他为邋遢道人。由于年高体健,有人问他仙术,他闭口不答;如问经书他就喋喋不休地讲起来;有人问他姓名,他只说是武当乡人。 武当山主持孙碧云亲自前去拜访,张三丰与他谈经论道交游密切。后来张三丰的名望传到朝廷,明朝洪武十七年(1385年),皇帝下诏求一百三十七岁武当隐士张三丰,不见。洪武十八年(1386年)强迫沈万三敦请亦不赴。永乐十四年(1416年)明成祖下诏武当山一百六十八岁老隐士张三丰入朝,不赴,唯以诗词托孙碧云奏,词曰:“圣师亲口诀,明方万古遗;传与世间人,能有几人知。衣破用布补,树衰用土培;人损将何补,阴阳造化机。取将坎中实,金花露一枝;庆云开天际,祥光塞死基;归已昏昏点,如醉亦如痴;大丹如黍米,脱壳证无为;优游天下广,万象掌中珠。人能服此药,寿如天地齐;如若不延年,吾言皆是非。金丹重一斤,闭目静存神;只在家中取,何劳向外寻,炼成离女汞,吞尽坎男精;金丹并火喉,口口是元音。”明成祖读词后,封张三丰为武当真人。
1 下一页