好风景

评分 0.00, 满分 5星 0 票 No comments

image

rt

HP 安装Windows 2003 问题

评分 0.00, 满分 5星 0 票 No comments

在HP电脑上安装windows 2003 server / Ghost 系统时有时会遇到:
windows could not start because of a computer disk hardware configuration problem could not read from the selected boot disk check boot path and disk hardware. please check the windows documentation about hardware disk configuration  and your hardware refer once manuals for additional information.
在格式化和拷贝完安装文件后第一次重启时提示“因计算机磁盘硬件的配置问题,无法启动。不能读取所选的引导盘,请检查引导路径和磁盘硬件。请参阅文档中有关磁盘配置的信息并参阅您的硬件参考手册,以获得进一步的信息。

只要将BIOS中Power Management Setup中的 WDRT support 禁止掉,windows2003就可以正常启动了

*WDRT是watchdog resource table

断掉 指定数据库的 当前链接

评分 0.00, 满分 5星 0 票 No comments

断掉 当前链接 数据库的 链接,便于恢复数据库。

--终结 数据库连接
--2009-04-18 Edit by Xing
--断掉 当前链接 数据库的 链接,便于恢复数据库。
--

  Use   Master   
    
  Create   Table   #aa(spid   int,ecid   int,status   varchar(300),loginname   varchar(100),hostname   varchar(200),blk   int   ,dbname   varchar(30),cmd   varchar(100),request_id   int)   
  Insert   Into   #aa   Exec   sp_who   
  Declare   tt   Cursor   for   Select   spid   From   #aa   Where   spid>50   and   dbname='DATANAME'   ----dbname   是你的数据库名字   
  Open   tt   
  Declare   @ActiveUserId   Int,@KillString   Varchar(100)   
  Fetch   Next   From   tt   Into   @ActiveUserId   
  While(@@Fetch_Status=0)   
  Begin   
      Set   @KillString='Kill   '+Convert(Varchar(50),@ActiveUserId)   
      Exec(@KillString)   
      Fetch   Next   From   tt   Into   @ActiveUserId   
  End   
  Drop   Table   #aa   
  Close   tt   
  Deallocate   tt 

[原创]VB.net Group Box 窗口内 自由 拖拽

评分 0.00, 满分 5星 0 票 No comments
#Region "Group Box 拖拽"

    Dim CurrX As Integer
    Dim CurrY As Integer
    Dim MousX As Integer
    Dim MousY As Integer
    Dim MovBoll As Boolean

    '*--将 gpbMATERIAL_INFO 更换为 自己Group Box的名字
    Private Sub gpbATT_FILE_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles gpbMATERIAL_INFO.MouseDown
        MousX = e.X
        MousY = e.Y
        MovBoll = True
    End Sub

    Private Sub gpbATT_FILE_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles gpbMATERIAL_INFO.MouseMove
         If MovBoll = True Then
            CurrX = sender.Left - MousX + e.X
            CurrY = sender.Top - MousY + e.Y
            sender.Location = New System.Drawing.Point(CurrX, CurrY)
        End If
    End Sub

    Private Sub gpbATT_FILE_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles gpbMATERIAL_INFO.MouseUp
        MovBoll = False
    End Sub


#End Region

[原创]VB.net 使用XML 对 FpSpread 列宽记忆

评分 0.00, 满分 5星 0 票 1 comment
'需要引入的 命名空间
Imports System.Xml
Imports System.IO

#Region "XML 读取 写入 生成"
Private Sub createXML(ByVal xmlFileName As String)
	Try
	
		Dim writer As New Xml.XmlTextWriter(xmlFileName, System.Text.Encoding.GetEncoding("utf-8"))
		'使用自动缩进便于阅读
		writer.Formatting = Xml.Formatting.Indented
		writer.WriteRaw("<!--l version=""1.0"" encoding=""utf-8""-->")
		writer.WriteRaw("<!--   Xing   -->")
		'书写根元素()
		writer.WriteStartElement("xx")
		'关闭根元素
		writer.WriteFullEndElement()
		'将XML写入文件并关闭writer
		writer.Close()
	
	Catch ex As System.Exception
		MsgBox(ex.Message & vbCrLf & ex.StackTrace)
	End Try
End Sub

Private Sub FpSpread_Column_Size_load(ByVal FpSpread As FarPoint.Win.Spread.FpSpread)
	Dim xmlDoc As New XmlDocument
	Dim XmlFileName As String = "C:\XX\INI\FpSpread_Config.xml" '修改为实际XML路径
	Dim intCol As Integer
	
	Try
	
		If File.Exists(XmlFileName) Then
			xmlDoc.Load(XmlFileName)		
			Dim nodeList As XmlNodeList = xmlDoc.SelectSingleNode("xx").ChildNodes '获取xx节点的所有子节点
			Dim xn As XmlNode
			
			For Each xn In nodeList
				Dim xe As XmlElement = CType(xn, XmlElement)				
				If xe.GetAttribute("form") = Me.Name And xe.GetAttribute("Name") = FpSpread.Name Then				
					Dim nls As XmlNodeList = xe.ChildNodes '继续获取xe子节点的所有子节点
					Dim xn1 As XmlNode
					
					For Each xn1 In nls '遍历
						Dim xe2 As XmlElement = CType(xn1, XmlElement) '转换类型
						
						intCol = xe2.Name.Substring(1, xe2.Name.Length - 1)
						FpSpread.ActiveSheet.Columns(Val(intCol)).Width = Integer.Parse(xe2.InnerText)					
					Next xn1
				
				End If
			
			Next
		End If
		
	Catch ex As System.Exception
		File.Delete(XmlFileName)
	End Try
End Sub

Private Sub FpSpread_Column_Size_save(ByVal FpSpread As FarPoint.Win.Spread.FpSpread)
	Dim xmlDoc As New XmlDocument
	Dim XmlFileName As String = "C:\xx\INI\FpSpread_Config.xml" '修改为实际XML路径
	Dim intRecord As Integer
	
	Try
	If File.Exists(XmlFileName) = False Then
		createXML(XmlFileName)
	End If
	
	xmlDoc.Load(XmlFileName)	
	Dim nodeList As XmlNodeList = xmlDoc.SelectSingleNode("xx").ChildNodes '获取xx节点的所有子节点
	Dim xn As XmlNode
	
		For Each xn In nodeList '遍历所有子节点
			Dim xe As XmlElement = CType(xn, XmlElement) '将子节点类型转换为XmlElement类型
			If xe.GetAttribute("form") = Me.Name And xe.GetAttribute("Name") = FpSpread.Name Then '如果form属性值为“当前窗口”Name为 当前spread 那么就 清空下面的数据
			intRecord += 1
			xe.RemoveAll() '*清空数据
			
				If intRecord < 2 Then
				xe.SetAttribute("form", Me.Name)
				xe.SetAttribute("Name", FpSpread.Name)
				
				Dim child_node As XmlElement
					For i As Integer = 0 To FpSpread.ActiveSheet.Columns.Count - 1
						child_node = xmlDoc.CreateElement("C" & i)
						child_node.InnerText = FpSpread.ActiveSheet.Columns(i).Width
						xe.AppendChild(child_node)
					
					Next
				End If
			End If
		Next xn
	
	If intRecord < 1 Then
		Dim root As XmlNode = xmlDoc.SelectSingleNode("xx")
		Dim xe1 As XmlElement = xmlDoc.CreateElement("spread")
		xe1.SetAttribute("form", Me.Name)
		xe1.SetAttribute("Name", FpSpread.Name)
		
		Dim child_node As XmlElement
			For i As Integer = 0 To FpSpread.ActiveSheet.Columns.Count - 1
			child_node = xmlDoc.CreateElement("C" & i)
			child_node.InnerText = FpSpread.ActiveSheet.Columns(i).Width
			xe1.AppendChild(child_node)
	
		Next
	
		root.AppendChild(xe1) '添加到节点中
	
	End If
	
	xmlDoc.Save(XmlFileName) '保存。
	Catch ex As System.Exception
	
	End Try
	
End Sub
#End Region

#Region "Form Load"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	'spread load
	FpSpread_Column_Size_load(Me.spListMain)
End Sub
#End Region

#Region "form 关闭"
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
	FpSpread_Column_Size_save(Me.spListMain)
End Sub
#End Region

生成的XML文件内如如下

<?xml version="1.0" encoding="utf-8"?>
<!--   Xing   -->
<xx>
  <spread form="FORM1" Name="spListMain">
    <C0>60</C0>
    <C1>90</C1>
    <C2>106</C2>
    <C3>60</C3>
    <C4>80</C4>
    <C5>60</C5>
    <C6>178</C6>
    <C7>60</C7>
    <C8>119</C8>
    <C9>82</C9>
    <C10>145</C10>
    <C11>88</C11>
    <C12>123</C12>
    <C13>60</C13>
  </spread>
  <spread form="FORM1" Name="spListList">
    <C0>17</C0>
    <C1>65</C1>
    <C2>65</C2>
    <C3>31</C3>
    <C4>60</C4>
    <C5>65</C5>
    <C6>118</C6>
    <C7>69</C7>
    <C8>62</C8>
    <C9>71</C9>
    <C10>34</C10>
    <C11>52</C11>
    <C12>58</C12>
    <C13>58</C13>
    <C14>59</C14>
    <C15>106</C15>
    <C16>34</C16>
    <C17>34</C17>
  </spread>
  <spread form="FORM1" Name="spList1">
    <C0>60</C0>
    <C1>60</C1>
    <C2>60</C2>
    <C3>32</C3>
    <C4>60</C4>
    <C5>71</C5>
    <C6>60</C6>
    <C7>60</C7>
    <C8>60</C8>
    <C9>60</C9>
    <C10>60</C10>
    <C11>72</C11>
    <C12>68</C12>
    <C13>70</C13>
    <C14>60</C14>
    <C15>60</C15>
    <C16>60</C16>
    <C17>60</C17>
    <C18>60</C18>
    <C19>60</C19>
    <C20>60</C20>
    <C21>60</C21>
    <C22>65</C22>
  </spread>
</xx>

VB.net 删除文件夹内所有文件

评分 0.00, 满分 5星 0 票 No comments
Imports System.IO

Public Shared Sub DeleteDir(ByVal aimPath As String)
    Try

        '判断待删除的目录是否存在,不存在则退出.    
        If (Not Directory.Exists(aimPath)) Then Exit Sub
        ' 得到源目录的文件列表,该里面是包含文件以及目录路径的一个数组    
        ' 如果你指向Delete目标文件下面的文件而不包含目录请使用下面的方法    
        ' string[] fileList = Directory.GetFiles(aimPath);    
        Dim fileList() As String = Directory.GetFileSystemEntries(aimPath)
        ' 遍历所有的文件和目录    
        For Each FileName As String In fileList
        If (Directory.Exists(FileName)) Then
        ' 先当作目录处理如果存在这个目录就递归Delete该目录下面的文件    
        DeleteDir(aimPath + Path.GetFileName(FileName))
        Else
        ' 否则直接Delete文件    
        File.Delete(aimPath + Path.GetFileName(FileName))
        End If
        Next
        '删除文件夹、不删除    
        'System.IO.Directory.Delete(aimPath, True)
        Catch ex As Exception
        MessageBox.Show(ex.ToString())
    End Try
End Sub

Windows 桌面文字背景 透明

评分 0.00, 满分 5星 0 票 No comments

打开系统属性-高级-性能-视觉效果使用了“在桌面上为图标标签使用阴影”之后标签上仍然显示桌面背景底色而非透明的问题。
值得一提的是,设定了桌面上锁定web项目或显示网页也会导致上面这个问题(确保你没启用)
其实,只要你的注册表中的下面两个键值跟 给出的数据都一样,可以确保你的桌面图标标签背景透明。
(打开注册表编辑器:开始-运行regedit )
hkey_current_user\software\microsoft\windows\currentversion\explorer\advanced 中的listviewshadow键值数据为1
该键值修改生效需重启explorer.exe —— 任务管理器中结束所有explorer进程,再新建任务explorer
hkey_current_user\software\microsoft\windows\currentversion\explorer 中的shellstate键值(双击)数据显示为该键值修改生效只需刷新桌面
两者一定要同时成立。

日本本土的明治、森永、雪印、固力果、和光堂奶粉特性比较

评分 0.00, 满分 5星 0 票 No comments

日本明治乳业及森永乳业多年来至力研制出最接近母乳的婴儿奶粉。因此他们于日本全国收集不同的数据,例如收集初乳到一年多的母乳,分析其成分的不同,从而发现母乳中各成分的浓度会随着泌乳期不同而有所差异。他们以此数据为基础研制出最适合婴儿的母乳奶粉,成份及功能均与母乳极为相似。
  
  产品特点:森永奶粉的品质,在日本同行业中,一直处于领先地位。该公司研制生产的奶粉,其90%成分接近母乳。令您的宝宝更健康,更聪明。日本原装本土森永奶粉–DHA脂肪酸特高的一种奶粉,有助于婴儿脑部发育。含钙高,有助于排便,便秘的宝宝吃了可是立竿见影!在HKG,很多BB都是吃森永和雪印,也颇受明星宝宝们的亲睐。在大陆是明治的天下。其实说不出到底哪种就最好。作为日本市场内大牌品牌,绝对不可能有哪个在营养上自甘落后.个人建议可以换着吃吃。每种奶粉的营养注重点都不一样。据说是森永含钙高,有助于排便;明治吃了结实;吃雪印的和固力果的皮肤会比较白晰。有报料说固力果是日本公主吃的呢,不过日本的奶粉口碑都不错。不妨换着试试。
  
  森永和明治两种奶粉的区别和特点:  
  第一,在营养成分上,其实是相差不多的,就算钙铁有一点点出入,但是真正吸收后肯定差别很小.否则作为日本市场内大牌品牌,绝对不可能有哪个在营养上自甘落后.
  第二,口感,明治更清淡些,(成分接近母乳)森永浓香些.比明治甜,特别是第一阶段。
  第三, 溶化方面是森永比明治好些,明治容易气泡!
  第四,冲调方法上森永每40ml水一勺奶粉,明治则是50ml一勺奶粉
  第五,日本的销售榜是一段明治,二段森永。宝宝肠胃适应的情况下,建议各位妈妈可以两种互换,营养更加均衡
  
  森永奶粉在日本同行中比较贵的,但是日本市场讲的是一分钱一分货,否则就会被市场淘汰,该奶粉包含婴儿成长发育缺乏的铁、钙、维生素C和DHA等营养元素。多一种选择,平衡营养,避免挑食,森永当然不例外。最新的改良配方后上市的产品,配方里增强了DHA和铁分的含量,在母乳配方的基础上改良成初乳配方,幷且不含砂糖成份,对宝宝的脑部发育和骨胳成长提供了充足的营养.

明治奶粉的具体特点:
  明治- 口感较淡,接近母乳
  - 据说吃了宝宝比较结实–不会虚胖(很多小朋友看看胖嘟嘟,家人很自豪呢,其实不健康,易生病。)
  - 加强胡萝卜素
  - 添加寡醣调整肠胃
  - 增强乳清蛋白质
  - 加入适量的牛磺酸
  - 增加DHA成份

森永- DHA脂肪酸特高的一种奶粉
  - 口感浓香、较甜
  - 据说由于含钙高,有助于排便。
  - 对宝宝湿疹比较有帮助
  - 加强胡萝卜素
  - 添加寡醣调解肠胃
  - 增强乳清蛋白质
  - 加入适量的牛磺酸
  - 添加DHA成份
  - 不含砂糖

根据日本厂方提供资料,雪印Bean stalk只含椰油,不含棕榈油。Bean Stalk 健康成长奶粉能补充母乳的营养,代替母乳供宝宝饮用。Bean Stalk Snow于 1960 年初次在日本举行了全国规模的母乳调查。于 1989 年,考虑到饮食生活的转变,他们收集了约 2700 个母乳样本进行母乳调查,涉及达 180 个项目,并取得各种各样的调查结果。及后,据各种跟进调查,他们得悉有关母乳的新资讯,而母乳的神秘之处亦得以逐步揭开。据这些调查显示,母乳包含具预防疾病功能的唾液酸(sialic acid)、有助脑部发育的核酸、有助婴儿发展肠胃机能的核糖核酸(RNA) 及多胺等原素。Bean Stalk 健康成长奶粉在母乳不足时大派用场,可代替母乳供宝宝饮用。以最新的母乳研究为本,Bean Stalk 健康成长奶粉配合核糖核酸 (RNA)、多胺、核酸、唾液酸(sialic acid)及寡糖等制成,务求达到与母乳成份相同的目标。据闻BB吃了会皮肤白!所以这款奶粉我是强烈推荐给小公主们吃的.呵呵

日本奶粉中相比较而言明治的吃了宝宝更容易长肉(并不是胖哦~~~)幷且很结实。

日本所有的奶粉都只分两个阶段:1、0-9个月;2、9-36个月。所以是没有三段的。超过9个月的宝宝就可以吃2段的奶粉.森永和明治相比的话明治的 DHA含量高点,但森永的钙含量高点.呵呵.其实是不分上下的.不过明治的宝宝吃了会长肉(不是胖哦~~~)幷比较结实.所以一般是推荐给男宝的。

固力果奶粉是日本最贵的奶粉.他的独特之处是配方,等下我会发固力果奶粉的特点给大家看.不能说是皇室品牌,但是日本公主吃的奶粉.呵呵.可能有点皇室效应吧.

ICREO(固力果)是美日合作强调最接近母乳,在日本排名NO.1及最接近母乳的奶粉。矿物质和脂肪酸组织非常接近,色、香、味跟母乳非常接近,不用担心宝宝不接受,奶粉成份含有主要5种的核甘酸、DHA、维生素K和β-carotene,增强宝宝免疫力,美国的权威儿科医生小组开发的 ” SMA牛奶 ” ,经严格的质量控制下,极为接近母乳营养,是ICREO(固力果)优质奶粉的优点。
ICREO(固力果)奶粉的优点 :
   去除婴儿消化吸收差的牛奶脂肪。
   使用富含α-亚麻酸DHA为基础的苏子油,脂肪酸的平衡值接近母乳。母乳不足时,可用作代替母乳给婴孩饮用。
   色、香、味皆与母乳相近,配合着在发育中不可缺少的蛋白质、脂肪和碳水化合物三大营养素。
   采用母乳中含有的乳糖和低聚糖。
   清淡不上火,婴儿的便性接近母乳喂养婴儿。
   在日本率先在奶粉中加入5种母乳中含有的核苷酸、DHA、维生素K 和 β-carotene,增强宝宝免疫力。这5类核苷酸在帮助婴儿发育、增加DHA的合成,提高免疫力方面作用非常明显。
   使用DHA的原材料苏子油。

总的来说,我个人认为男宝宝一段选明治,女宝宝一段选雪印,强调接近母乳选固力果。

和光堂
日本和光堂奶粉的配方是根据年龄段调整营养配方,富含维生素 ,矿物质, 特别添加钙和铁,帮助宝宝骨胳和牙齿生长,预防贫血。富含亚麻酸和亚油酸,帮助宝宝体内合成DAH,AA.特别调整乳清蛋白, 氨基酸平衡,更接近母乳(相当于母乳的13%)(似乎日本奶粉都注重速溶和不上火还有接近母乳,这估计和日本这种高节奏的生活方式相关)
不过和光堂的DHA含量偏低,明治有70,和光堂才50,和光堂以副食见称,奶粉的价格也是最低的。