cdbqss1-CSDN博客

原创在VB.net中，利用反射，获得项目中所有公用对象的属性、方法、事件等

近日，想整理下我自己的vb.net应用程序中，自己定义的类、控件、窗体等对象，希望能够获得它们的“属性”、“字段”、“方法”、“事件”等名称。查阅了“反射”（Reflection）相关资料，写了以下一段代码，分享给朋友们。当然，由于本人的水平有限，有些功能还没完善，比如“按对象名排序”的问题，比如“获得属性、方法的参数”的问题，等等。此文抛砖引玉，希望能够得到大侠们的指点。...

2020-03-12 13:39:34 2494 2

转载如何在 Visual Basic .NET 中使用 ADO.NET 检索和修改 Excel 工作簿中的记录

本文讨论如何使用 ADO.NET 检索 Microsoft Excel 工作簿中的数据、修改现有工作簿中的数据或将数据添加至新的工作簿中。要通过 ADO.NET 访问 Excel 工作簿，您可以使用 Jet OLE DB 提供程序；本文提供了您所需要的信息，以便您可以在 Excel 充当目标数据源时使用 Jet OLE DB 提供程序。如何将 Jet OLE DB 提供程序与 Micr

2010-05-25 18:27:00 859

原创双重循环的使用 "九九乘法口诀表"

SET TALK OFF CLEA m=SPACE(24)+"九九乘法口诀表" ? m ? &&需要换行 FOR i=1 TO 9 FOR j=1 TO i m=STR(i,1)+"*"+STR(j,1)+"="+STR(i*j,2)+SPACE(2) ?? m &&直接把整个算式当成字符来显示 ENDFOR ? &&需要换行 ENDFOR

2008-07-13 07:55:00 1578

原创内存变量的作用范围

今天在csdn论坛中，看到几个题目。分析并解答。原贴是：http://topic.csdn.net/u/20080116/20/4eed1feb-a5a5-4080-87b5-aaded56e723d.html（3）指出下面程序的运行结果主程序：MAIN.RPG 过程文件：PROGC.PRG SE

2008-01-17 03:48:00 1197

原创排序问题

今天在csdn论坛中，看到几个题目。分析并解答。 FoxPro数据库编程题如下: 1、通过键盘输入20个数。（1）求其中最大者和最小者，并显示之；（2）将这20个数依从大到小排序，并显示排序结果。原贴见：http://topic.csdn.net/u/20080116/20/1a683

2008-01-17 03:39:00 693

原创加法器问题

今天在csdn论坛中，看到几个题目。分析并解答。题如下: 原贴见 http://topic.csdn.net/u/20080116/21/1f271f51-8423-4333-bb53-6f7a75b768bf.html计算S=12+32+52+…+n2，直到S> =10000为止，求n和S的值。特别说明:以上所有的2都是表示"平方"的意思,偶是菜鸟!!不会设置"上标"格式.让大家见

2008-01-17 03:31:00 867

原创我的数据访问类

Public Class BqDataClassClass BqDataClass 数据访问类 Dim ldailDataName As String Dim ldailYN As Boolean = False Dim ldailConnectionString As String Dim ldailConn As New Data.OleDb.OleDbConn

2007-11-26 22:58:00 915

原创导出数据到excel中

Public Class BqExcelClass BqExcel Dim lConnString As String = "" Dim lBookName As String = "" Dim lSchemaTable As DataTable Dim lMessErr As String 得到当前错误信息 Dim lMessSuc As String 得到

2007-11-26 22:51:00 848

原创得到本计算机的一些信息

Public Class Bq_PcClass Bq_Pc 得到本计算机的一些信息 Private lPcIP, lName, lPcName As String Private lTemp, lSys32, lDesk, lWindir, lTemplates As String Private lFavorites, lProgramFiles As String

2007-11-26 22:47:00 699

原创小学一年级加减法生成器

前段时间，女儿所在的学校要求家长每天都要给孩子出一些加减法的数学题，让孩子练习。作为会一点程序设计的我来说，总想偷一些懒，于是制作了以下程序。程序窗口，如下所示。具体源代码如下：首先，在表单Form1的 init 事件中，加入以下代码CLOSE TABLES ALLTHISFORM.spinner1.VALUE=0THISFORM.spinne

2007-11-23 21:21:00 6259 6

原创 VFP趣味编程：鸡兔同笼

鸡兔同笼。小朋友数了数圈在笼子里的鸡和兔共有14个头，脚共有44只，问圈在笼子里的鸡和兔各有多少只？算法分析。这个问题与上次所讲的盲人裁判的问题差不多，如何解决鸡兔同笼问题呢？首先，设笼子中有x只鸡，则兔有14-x（为什么？因为无论是鸡或兔都只有一个头噻）。其次，寻找到另一个条件，脚一共有44只；这里还要用上生活常识作为默认条件，即一只鸡有2只脚，一只兔有4只脚，所以不用考虑鸡、兔缺胳膊少腿这

2007-03-30 23:18:00 6293 1

小白兔智斗狐狸。山上有十个洞，每洞之间相距较远，有一只狐狸和一只白兔，住在各自洞里。狡猾的狐狸总想捕捉吃掉白兔。一天二者远远相望，白兔对狐狸说：“把十个洞依次编成1至10号，我藏在其中一个洞里，你从你自己住的第10号洞出发，第一次走一个间隔，进洞找我，第二次走两个间隔找我，第三次走三个间隔找我，依次类推，次数不限。你若能找到我，你就可以饱餐一顿。”狐狸心想，不限次数，它总可以找到这只白兔。如果，从

2007-03-30 23:16:00 2366 1

原创 VFP趣味编程：求婚者的智慧

古代一个王国的公主爱上了花匠。公主要出嫁按传统要用抛绣球的方式选择附马。花匠就给公主献了个对策。婚日来临，人群拥挤，主持人叫求婚者排成一行，花匠在队列外数了数，共有101个人，于是他找了个适当的位置也站在了队伍中。主持人喊1、2，1、2地报数，报单数的退出场外；余下的人靠拢又成一行，再重新1、2，1、2地报数，报单数的退出场外；如此下去最后只剩一下，公主便嫁给谁。当然，最后剩下的是花匠。请问花匠站

2007-03-30 23:15:00 1361 1

原创 VFP趣味编程：猜数之谜

任意一个大于10的自然数，减去它的各位数之和，在所得的差中，随意圈去某位不等于零的数字，只告诉你没有被圈去的数字，就能知道被圈去数字是几。分析：以四位数为例，设四位数abcd用多项式来表示为1000a+100b+10c+d；减去各位数之和，即减去a+b+c+d；所得的差是999a+99b+9c=9(111a+11b+c)，所以这个差一定是9的倍数。源程序ex10_1.prg如下：SET

2007-03-30 23:13:00 1588

原创 VFP趣味编程：素数（质数）的求法

素数（质数）的求法。若求N内的素数，可用N的平方根以内的素数倍数逐个筛掉，余下的便是所求的素数。源程序ex9_1.prg如下： SET TALK OFFINPUT "请输入自然数 N =" TO N?? "从1至"+STR(N)+"间的所以质数"l=0i=3DO WHILE iN j=INT(SQRT(i)) k=3 DO WHILE kj l=i-INT(i/k)*k

2007-03-30 23:11:00 4490

原创 VFP趣味编程：把45拆成四个数之和

把45拆成A、B、C、D四个数之和，并且A加上2 B减去2 C乘以2 D除以2的结果相等。问A、B、C、D这四个数分别是多少？源程序ex8_1.prg如下： SET TALK OFFCLEACLEA ALLFOR i=1 TO 45 a=i-2 b=i+2 c=INT(i/2) d=i*2 IF a+b+c+d=45 ? a,b,c,d ENDIFENDFORRETU

2007-03-30 23:09:00 1090

原创 VFP趣味编程：求出10000以内，被2除余1，被3除余2，......，被9除余8的自然数。

求出10000以内，被2除余1，被3除余2，被4除余3，被5除余4，被6除余5，被7除余6，被8除余7，被9除余8的自然数。源程序ex7_1.prg如下： SET TALK OFFCLEACLEA ALLFOR i=1 TO 10000 IF MOD(i,2)=1 AND MOD(i,3)=2 ; AND MOD(i,4)=3 AND MOD(i,5)=4 ; AND MOD

2007-03-30 23:07:00 3237 5

原创 VFP趣味编程：百钱买百鸡

公鸡3元一只，母鸡5元一只，小鸡1元三只。100元钱买100只鸡，请算出公鸡、母鸡、小鸡的数目。思路分析：题目包含的条件有两个：一是共买了100支鸡，二是共花了100元钱。我们做最极端的假设，公鸡可能是0至100只，母鸡可能也是0至100只，小鸡也一样，将这三种情况用循环验证符合条件的情况，那就要做100*100*100种情况分析。源程序ex6_1.prg如下：SET TALK OFF

2007-03-30 23:00:00 5902 3

原创 VFP趣味编程：盲人裁判的判断

关于vfp的上机练习题已经编写完成很久了，学生们都反复练习过。本人一直就很想将其中的“趣味编程”部分整理出来，与广大网友分享。今天终于有时间可以完成这个愿望了，下面用九个篇幅来介绍九个有趣的问题。甲乙两人在进行射击气球比赛，裁判员却是一位盲人。10只气球全部打破了后，裁判问：“请把甲打破的气球数乘以2，把乙打破的气球数乘以3，再把两个结果相加，请把这个结果告诉我。”乙说“26。”裁判

2007-03-30 22:52:00 1551

转载如何判断是否以独占方式打开当前数据库？

If InStr(CurrentProject.Connection.ConnectionString, "Jet OLEDB:Database Locking Mode=0") > 0 Then MsgBox "本数据库已经用独占方式打开" Else MsgBox "本数据库未用独占方式打开" End If

2006-12-16 09:22:00 1761

转载常用正则表达式

1.只能输入数字：“^[0-9]*$”2.只能输入n位的数字：“^/d{n}$”3.只能输入至少n位数字：“^/d{n,}$”4.只能输入m-n位的数字：“^/d{m,n}$”5.只能输入零和非零开头的数字：“^(0|[1-9][0-9]*)$”6.只能输入有两位小数的正实数：“^[0-9]+(.[0-9]{2})?$”7.只能输入有1-3位小数的正实数：“^[0-9]+(.[0-9]{1,3})

2006-12-16 09:01:00 1069 2

转载对DBF表进行加密或解密

使用方法：DBF_JM(temp.dbf,1) &&加密DBF_JM(temp.dbf,0) &&解密注意：被操作的表如果已经打开，一定要先关闭 UNCTION dbf_jm PARAMETERS filename,jm IF AT(.,filename)=0 filename=filename+.dbf &&处理文件名 END

2006-12-16 08:52:00 3815

转载避免VFP中出现“Cannot Quit Visual FoxPro”

一、出现“Cannot Quit Visual FoxPro”的原因　　第一种原因是：在执行了read event后，read event事件处于活动状态，此时，试图使用系统窗口的关闭按钮退出Visual FoxPro（或Visual FoxPro编写的应用，以下同），则会出现“Cannot Quit Visual FoxPro”。　　在Visual FoxPro3.0中，即使read eve

2006-12-16 08:47:00 2220

原创全新打造的 DataGrid 控件

经过一段时间的努力，并参阅了很多大侠的源代码，重新改造了一下DataGrid控件。现将所有的源代码全部公布，以和朋友们共享。主要的功能有：可以显示汉字标题、列宽、左边行号；可以按照标题行排序；可以设置脚注汇总行（排序后仍然在最后一行）；表格中有右键菜单；可以根据各单元格的数据类型，自动设置显示格式；对于日期时间数据，可以只显示日期

2006-11-30 12:55:00 1967 4

原创全新打造的 TreeView

经过一段时间的努力，并参阅了很多大侠的源代码，重新改造了一下TreeView控件。现将所有的源代码全部公布，以和朋友们共享。主要的功能有：根据数据表中的记录来添加节点；每个节点都可以添加ToolTip提示；可以得到当前选定节点的父节点或根节点，及其一些相关属性；可以拖动节点，并可自由设置拖动后的数据处理办法；可以通过编号直接定位到某个节

2006-11-30 12:27:00 1576

转载农历

Shared Function GetChgDate(ByVal vDate As String, ByVal ChgType As 转换方式) As String Dim vvdate() As String = Split(vDate, "-") If vvdate(0) > 2011 Or vvdate(0) Throw New NotSupportedException("本函数只提供1

2006-11-23 01:34:00 813

转载农历的算法

********************************************************************************************建一个类，类名为clsDateOption Explicit 作者的话 clsDate本来是我在写一个软件的时候,因为需要,而且

2006-11-23 01:30:00 1307

转载高效的TreeView构建方法

网上一直有朋友说.net上的TreeView不够快，而且也不方便。那么真实的情况是否如此呢。我做的一项目中需要一个快速的Tree，它的数据源是MS SQL，其对应表中记录的结构如下： ID FatherID

2006-11-23 01:16:00 981

原创身份证号码的秘密

我国现行使用公民身份证号码有两种尊循两个国家标准，〖GB 11643-1989〗和〖GB 11643-1999〗。〖GB 11643-1989〗中规定的是15位身份证号码：排列顺序从左至右依次为：六位数字地址码，六位数字出生日期码，三位数字顺序码，其中出生日期码不包含世纪数。〖GB 11643-1999〗中规定的是18位身份证号码：公民身份号码是特征组合码，由十七位数字本体码和一位数字

2006-07-12 03:59:00 5803 1

原创动态生成多级菜单

以前，我是用数据表保存菜单项目及各个操作员的相应权限，并在vfp中编写了相应的程序来实现菜单、工具栏、Treeview 的生成。但由于vfp有一个叫宏替换的东东&，实现起来比较简单。由于vb及.net的“对象”和“对象名称”是两种不同的数据类型，之间转换起来比较麻烦，以一直困扰了我很久了。经过一段时间的努力，终于实现了上述的功能。具体做法是：我把系统中使用的各级菜单的信

2006-07-12 03:49:00 2401 1

原创判断是否含有汉字或汉字标点

*方法一： LOCAL lcString lcString="adfd1成21d功fdsf577" IF LENC(ALLTRIM(lcString)) MESSAGEBOX("字符串中含用双字节字符！",64,"信息提示") ENDIF *方法二： LOCAL lcString lcString="adfd1成21d功fdsf577" FOR I

2006-07-12 03:21:00 1041

原创根据数据表中数据,生成Powerpoint幻灯片

曾经有一个问题，一直困扰我很久。由于工作的需要，经常需要把Access数据表的内容,制作成powerpoint幻灯片，常常在做大量的单调的重复的简单劳动。作为一个程序设计的爱好者，最不愿意做的就是这种简单机械的事情。那么，如何根据数据表中数据,生成Powerpoint幻灯片呢？我的具体要求是这样的: 每个记录对应一张幻灯片; 每个字段的内容,对应一个文本框; 最好,相同字段对应

2006-07-12 03:18:00 1099

cdbqss1的专栏