原创 关于SQL Server SQL语句查询分页数据的解决方案

比如：要求选取 tbllendlist 中 第3000页的记录，每一页100条记录。----------方法1：----------select top 100 * from tbllendlist where fldserialNo not in(select top 300100 fldserialNo from tbllendlist order by fldserialNo)order

原创 文件的默认保存路径为用户的My Documents文件夹

SaveFileDialog1.InitialDirectory = System.Environment.GetFolderPath(Environment.SpecialFolder.Personal)

原创 如何得到系统版本和物理内存

主要是使用My.Computer.Info对象如下:txtOSname=My.Computer.Info.OSFullNametxtPhysicalMemory=My.Computer.Info.TotalPhysicalMemoryMy.Computer.Info对象下面还有一些方法可以获得系统版本号,标示,虚拟内存等信息. 

原创 用My.Computer.Network.Ping 方法来判断远程计算机是否可用

My.Computer.Network.Ping 方法  UsageDim value As Boolean = My.Computer.Network.Ping(hostNameOrAddress)Dim value As Boolean = My.Computer.Network.Ping(address)Dim value As Boolean = My.Compu

原创 格式化字符中，各个格式所代表的意思。

 This code example demonstrates the String.Format() method. Formatting for this example uses the "en-US" culture.Imports SystemImports Microsoft.VisualBasicClass SampleClass Sample   Public Enum C

原创 代码技巧之-----StringBuilder的用法

       大家通过“+”来连接不同的字符串，使用中是如此的便捷，但是其负面影响就是其执行效率很低；而StringBuilder执行相同的功能时速度将提升一千倍以上；当你在一个庞大的循环内使用它的时候，就会明显的感觉到速度的分升了。 它的命名空间是：System.Text定义格式：Dim StringBuildrObject As New Text.StringBuilder

原创 格式化字符

此语句不正确 Format(Today.Date, "yyyy-mm-dd")today.date  返回的格试是2006-7-26我想让它返回2006-07-26怎么处理? 答:Format(Today.Date, "yyyy-MM-dd") 

原创 怎样获得本机IP地址，主机名

获取本地计算机名字Dim strName as string=my.computer.Name获取本地IP地址：DIM strIPAddress as string=System.Net.Dns.GetHostEntry(My.Computer.Name).AddressList(0).ToString 

原创 在VS2005里面为什么找不到MdiList属性?

因为在VS2005里面已经被替换掉了。现在真的没有MDILIST了，变成了MdiWindowListItem，只要将MENU菜单的MdiWindowListItem属性设置成要显示的菜单就可以了。当你打开子窗体的时候，就会在该菜单的末尾显示当前获得焦点的子窗体。 

原创 MDI程序，调用子窗体的一点看法

在VS2005里面，我们都知道在父窗体里面调用显示子窗体的代码如下：FrmName.MdiParent=meMy.Forms.FrmName.Show()但是，这样做的结果有点小暇批，就是当你再次调用已经打开过的子窗体的时候，无论该窗体是不是激活的子窗体，都没有任何变化，所以下面的方法就解决这个问题，再次调用的时候，使之获得焦点。代码如下：If FrmName Is Nothing

原创 如何响应窗体的最大化，最小化事件

Private Sub Form1_Resize(.......)If Me.WindowState=FormWindowState.Minimized Then      Me.Text="我最小化了！"       Me.ShowInTaskbar=FalseElseIf  Me.WindowState=FormWindowState.Maximized Then     

原创 获取字段数目。

 Public Function GetDataTable(ByVal strSql As String) As DataTable        实例一个DataTable对象        Dim myDataTable As New DataTable        Try            实例一个OledbDataAdapter对象，并指定其OleDbCommand对象，下面这两

原创 获取数据库中的表名

Public Function GetSchemaTable(ByVal connectionString As String) _    As DataTable    Using connection As New OleDbConnection(connectionString)        connection.Open()        Dim schemaTable As D

原创 在ＶＢ．ＮＥＴ中实现ＭＤ５加密

在ＶＢ．ＮＥＴ中的项目中，添加引用 system.web 然后：str2=System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str1, "MD5") ，就ok了，如果要换成＂SHA1＂加密形式，只要把＂MD5＂换成＂MD5＂就行了．备注：MD5和SHA1都是散列加密技术，所谓的散列加

转载 三峡枢纽布置

(1).枢纽布置     枢纽主要建 筑物由大坝、水 电站、通航建筑 物等三大部分组 成。主要建筑物 的型式、位置及 布置，经多年各 种可能方案的比 较研究，并通过 水力学、泥沙、 结构等试验研究 验证，已经确定 。选定的布置方 案为：     泄洪坝段位 于河床中部，即 原主河槽部位， 两侧为电站坝段 和非溢流坝段。 水电站厂房位于两侧电站坝段坝后，另在右岸留有后期扩机的地        三峡工

转载 三峡工程综合效益

三峡工程是当今世界最大的水利水电枢纽工程，具有巨大的综合效益。　　　　　　　　　　　　　　　　　　　　　　　防　洪　　洪涝灾害历来是中华民族的心腹大患。在长江防洪体系中，三峡工程的战略地位和作用极为重要。　　“万里长江，险在荆江”。荆江流经的江汉平原和洞庭湖平原，沃野千里，是粮库、棉山、油海、鱼米之乡，是长江流域最为富饶的地区之一，属国家重要商品粮棉和水产品基地。荆江防洪问题，是当前长江中

转载 三峡工程之最

　　　　三峡工程是当今世界最大的水利枢纽工程。它的许多指标都突破了我国和世界水利工程的纪录。　 ● 三峡工程从首倡到正式开工有７５年，是世界上历时最长的水利工程。　 ● 三峡工程从四十年代初勘测和五十年代至八十年代全面系统的设计研究，历时半个世纪，积累了浩瀚的基本资料和研究成果，是世界上前期准备工作最为充分的水利工程。　 ● 三峡工程的兴建问题在国内外都受到最广泛的关注，是首次经过我国最高权力

转载 VS2005下SMTP发信

Dim message As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage ("sand_gold@sina.com", "sand_gold@sina.com", "text message for you.", "Test Title") Dim client As System.Net.Mail.SmtpCli

原创 本学期学习要求

1.       每两个月写一篇读书报告（5.1前、期末前）。（1）       字数不少于5000字；（2）       内容与你的研究方向有关。2.       本学期阅读参考文献30篇。其中外文文献不少于10篇，每人至少要翻译2~3篇与你选题相关的文章。3.       初步拟定论文研究方向和内容，结合读书报告写出开题报告，并在期末做一次大会报告。

原创 更新主窗体标题

Private Sub MDIParent1_MdiChildActivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MdiChildActivate        If Me.ActiveMdiChild Is Nothing Then            Me.Text = "MDIParent1"  

原创 水库调洪部分代码

以下写入bas模块中：Public Function Max(A() As Single) As Single   ‘求某一维数组A的最大值Max = A(1)For I = 1 To UBound(A)    If Max         Max = A(I)    End IfNext IEnd Function  Public Function Min(A() As Single) As S

原创 学习过程中不断解决的问题

原创 vb.net连SQL接数据库代码

   Dim mycon As New SqlClient.SqlConnection _      ("server=wuming;user ID=cheng;Password=123;database=pubs")        mycon.Open()        Me.Text = mycon.State.ToString        mycon.Close()

原创 SQL编程规范

一、sql书写规范： 二、书写优化性能建议 三、其他经验性规则一、sql书写规范： 1、sql语句的所有表名、字段名全部小写，系统保留字、内置函数名、sql保留字大写。 2、连接符or、in、and、以及＝、=等前后加上一个空格。 3、对较为复杂的sql语句加上注释，说明算法、功能。 注释风格：注释单独成行、放在语句前面。 (1) 应对不易理解的分支条件表达式加注释； (2) 对重要的计算应说明其