摘要： 对文本文件的读取,如果直接使用简体文字,繁体系统下用OPEN "" FOR INPUT AS, LINE INPUT将会出现乱码.如果字体设置得特别一些,则显示简体文字.但大部分情况下,我是不会设字体的,因此想找一个解决方法.想到用UNICODE,结果没有达到我想要的要求,首先要用UNICODE保存文件,然后读取时要用BINARY,读进BYTE数组.再显示时繁体没有的简体字照样显示?如果字体再设... 阅读全文

摘要： Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)Dim Rs As ADODB.Recordset Set Rs = Conn.Execute("select str(12,10,2)") MsgBox Rs.Fields(0)End Sub 阅读全文

摘要： Private Sub Command1_Click() Dim oConn As New ADODB.Connection oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\Book1.xls;" & _ "Extended Properties=""Excel... 阅读全文

摘要： 我在与客户讨论如何在订单原件上体现产品价格时，遇到一个问题，他们不希望其它工作人员知道这些价格，而订单原件是要复印到生产线去的。因此当时，我就想到不能把订单复印，计论中还说是否能用彩色笔写后，让复印不出来。突然，一个说，那就先复印一份，在只在上面写产品价格，然后再用原件复印给其它工作人员。很简单的事件，为什么有时候就会想复杂呢？ 阅读全文

摘要： 我一直坚持的观点是所有编码都是用数字，主要原因在于方便输入问题。某天，我看到我的一个系统两个输入者在使用时的一个动作，让我更加相信这个原则的正确。她们的供应商由于较少，只有五六个，之前为了直观，编码编为供应商首拼缩写。在输订单时，就可以决定产品所用的原料供应商。而现在，她们输入供应商时，先输入一个数字1，然后回车，我系统找不到数字1的供应商，就把列表弹出来，然后，她们再按光标移动键的向下那个挑到要... 阅读全文

摘要： 躺在床上，想着自己曾经的梦想，要开发什么什么工具，或什么什么软件。但想到现在.NET的水平根本无法实现那些功能，只要我努力学习，一定会有一天，能用.Net开发出当初VB的那些程序，可是.Net程序还是要安装包！一个水晶报表的安装我都搞不定，怎么可能把我的工具或软件发布出去？这时，想到当初，用VB时，担心对方机子上没有相应的控件及动态运行库，而现在，VB6的运行库遍及所有计算机，根本不用安装，我是否... 阅读全文

摘要： 久违了,我的博客园由于以前操作系统是安装繁体,担心自己将来搜索有问题,并且自己有写工作日志及错误反馈,最后再加上自己懒,结果很久都没登录了.直到前几天,我看到一个邮递员,打开公司门前的信箱,然后从中取出一个印章,在一张单上盖了一下,然后收好信走了.我又感慨了一阵.好象是水浒中有一个县太爷让两个人比赛跑得快,说你们两个跑到村头的那棵枫树,再跑回来,看谁先到达,为了证明你们有跑到枫树那边,你们要摘一片... 阅读全文

摘要： 如果想让ID也要与源表一样，则要把IDENTITY_INSERT打开。但以下两句，前面不行，后者可以，原因可能在于：还必须显式地将字段列出truncate table dormgoset IDENTITY_INSERT dorm ONgoinsert into dorm select * from manpower.dbo.dormgoinsert into dorm(ID,em_code,dor... 阅读全文

摘要： 下列两个SQL语句在查询分析器中执行select * from t00sjzdselect * * from t00sjzd显然第二行是错误的使用在SQL分析器中想执行，自然是出现如下错误Server: Msg 170, Level 15, State 1, Line 2Line 2: Incorrect syntax near '*'. 但我在两个SQL语句中各加一个go，则第一句可以执行了，第... 阅读全文

摘要： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (Control.ModifierKeys And Keys.Shift) = Keys.Shift Then MessageBox.Show("Shift ... 阅读全文