泽漆

Private Sub DataList1_Click()    Dim strQuery As String    strQuery = "SELECT*FROM ygyj WHERE 业绩名称='" & DataList1.BoundText & "'"    With AdoDataSource                                      .Re

机房收费系统中子窗体不仅要固定大小还要能够最小化，最小化后还要满足最大化，最小化按钮不遮挡标题，以便能更好地重新从最小化窗体调出子窗体，在这里可将子窗体的BonderStyle属性设为4并使MinButton属性值设为True，这样当窗体最小化时，双击状态栏可重新调用子窗体

报表的制作在这里以机房收费系统的日结账单为例1. 下载报表设计器Untitle-Grid+Report报表设计器2009安装后双击快捷键，打开报表设计器2. 单击菜单栏中的插入-报表头3. 单击菜单栏中的插入-静态框，然后在报表头中拖动十字画出静态框，单击静态框，使静态框处于选中状态，在右侧属性栏的文本处输入“机房日收入汇总表”，在字体属性位置可以设置合适的大小

Vb中添加MonthView控件：工程—部件-microsoftwindows common controls -2.6然后在工具栏中选择MonthView控件如何取得MonthView控件中的日期呢？Private SubMonthView1_DateClick(ByVal DateClicked As Date) '利用monthview1控件选择日期    Dim strye

VB实现带指针的时钟

刚刚完成了学生信息管理系统，对其做了小小的总结，现发表到csdn博客上     下面这张图是对窗体的总结：                                  下面这张图是对数据库的总结：下面是对代码的部分总结：

我是在结项几天后才发现学生信息管理系统存在好多纰漏的，对当初仅仅实现了基本功能就草草结项了的知足心里很惭愧,在这里对发现的问题一一做出解答。纰漏一：当在一个文本框中输入完之后，按Table键切换到的旺旺不是下一个，还得用鼠标进行切换，降低了输入的效率。解决方法：将所有文本框和按钮的TableIndex值设为由0开始重复的值纰漏二：设置年级课程时，CmdSet按钮每执行一次Click事件

在添加了picturebox 控件的多文档界面窗体中，子窗体显示时会被picturebox覆盖解决方法：(1)利用API Viewer添加函数：Public Declare FunctionSetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParentAs Long) As Long如果该函数实在模块中声明，则不改变，若

Private Sub cmdInquire_Click()    Dim mrc As ADODB.Recordset    Dim msgText As String    Dim txtSQL As String    txtSQL = "select cardno,studentno,studentname,sex,department,grade,class,cash,s