精华内容
下载资源
问答
  • 2、在窗体添加DBGrid控件DBGrid1和Data控件Data1。 3、设置Data1的DatabaseName属性为你要看的数据库的名字。 4、设置Data1的RecordSource属性为表的名字或合法的SQL Select语句。 5、设置DBGrid1的DataSource...
  • 窗体添加webBrowser1 (在部件里添加Microsoft internet control)和 Command1控件。 运用以下的函数将 Adodc1.Recordset 返回到HTML表格中,为什么实现不了啊?哪位高手支支招??? ``` Private Sub ...
  • 文件提取器程序,文件提取器将所选文件名存到Word表格中(VB6.0源代码编写)irecordcount = File1.ListCount 'On Error Resume Next '创建word应用程序,这一句话打开word2000 Set wdapp = CreateObject("Word....
  • C#及VB.NET的委托示例

    2016-09-21 17:58:45
    在表单1中有表格控件、按钮1、按钮2,按下按钮1添加记录,按下按钮2显示表单2 在表单2中有一个按钮1,单击按钮1时,表单1窗体表格也可以添加记录。
  • VB6写的一款笔记软件的源码,里面包含有很多窗体控件的使用技巧,比如MSHFlexgrid表格、TreeView的动态加载、Ado的增删改查等。 本软件提供对日常生活、工作中的学习笔记、图文并茂存储以及自由抓取网页中好的文章...
  • VB.NET——导出Excel

    2015-02-23 15:17:02
    多个窗体都需要这个功能,所以在U层添加一个类模块,写入一下代码Imports Microsoft.Office.Interop Imports System.Windows.Forms Imports System.Windows.Forms.KeyEventArgs Module PublicModule ''' ''' ...

        

       多个窗体都需要这个功能,所以在U层添加一个类模块,写入一下代码

    Imports Microsoft.Office.Interop
    Imports System.Windows.Forms
    Imports System.Windows.Forms.KeyEventArgs
    
    Module PublicModule
        ''' <summary>
        ''' 导出Excel表格
        ''' </summary>
        ''' <param name="frmName"></param>
        ''' <param name="dgv"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function ExportExcel(ByVal frmName As Form, ByVal dgv As DataGridView) As Boolean
            Dim myExcel As New Microsoft.Office.Interop.Excel.Application     '建立Excel连接  
    
            myExcel.Application.Workbooks.Add(True)      '新建一个Excel文件  
            myExcel.Visible = True                       '让Excel表可见  
            Dim i, j, k As Integer     '定义变量  
    
            For k = 0 To dgv.ColumnCount - 1             '添加表头, 因为Excel表从第一行第一列开始,而MyGridView从第0行第0列开始,所以需要加1  
                myExcel.Cells(1, k + 1) = dgv.Columns(k).HeaderText
            Next
    
            For i = 0 To dgv.RowCount - 1                 '通过循环来添加控件中的数据到Excel表中  
                For j = 0 To dgv.ColumnCount - 1
                    '由于第一行是表头,所以添加数据从第二行开始。  
                    myExcel.Cells(i + 2, j + 1) = dgv(j, i).Value           '因为Excel表从第一行第一列开始,而MyGridView从第0行第0列开始,所以需要加1  
                Next
            Next
            myExcel.Cells.EntireColumn.AutoFit()
            Return True
        End Function

    展开全文
  • Excel表格中基于数据比较的加载宏程序,实现自动在工具栏添加按钮,可以选择工作簿中任一工作表中的列进行比较,将不同部分自动写入新的工作表中。有面向对象的窗体操作界面。 宏的作用就是对excel进行操作,尤其是...
  • 4.5.1 数据库表格设计 26 员工信息表 26 系统用户表 27 部门信息表 27 部门工资信息表 27 福利信息表 27 工资发放信息表 27 基本工资信息表 28 日志表 28 职务信息表 28 4.5.2 E-R模型分析 28 第五章 系统总体设计 ...
  • (29KB) 65,s008.ZIP 可以把任意形状的图片转换为窗体(包含帮助文件和示例)(36KB) 66,s007.ZIP 建立一个如同vb里属性栏一样的东东,不仅形似,神也似(137KB) 67,s006.ZIP Check Box 和 List ...
  • (29KB) 65,s008.ZIP 可以把任意形状的图片转换为窗体(包含帮助文件和示例)(36KB) 66,s007.ZIP 建立一个如同vb里属性栏一样的东东,不仅形似,神也似(137KB) 67,s006.ZIP Check Box 和 List ...
  • (29KB) 65,s008.ZIP 可以把任意形状的图片转换为窗体(包含帮助文件和示例)(36KB) 66,s007.ZIP 建立一个如同vb里属性栏一样的东东,不仅形似,神也似(137KB) 67,s006.ZIP Check Box 和 List ...
  • (29KB) 65,s008.ZIP 可以把任意形状的图片转换为窗体(包含帮助文件和示例)(36KB) 66,s007.ZIP 建立一个如同vb里属性栏一样的东东,不仅形似,神也似(137KB) 67,s006.ZIP Check Box 和 List ...
  • 报表制作

    2016-03-06 20:06:41
    VB.NET中的报表,首先需要一个容器,新建一个项目,新建窗体,然后从工具箱中往窗体添加这个容器。 容器添加完成,就可以添加报表了,具体操作如下图: 当你在报表中画完表格时,会弹出...

    报表制作

     

              在VB.NET中的报表,首先需要一个容器,新建一个项目,新建窗体,然后从工具箱中往窗体上添加这个容器。

     

     

              容器添加完成,就可以添加报表了,具体操作如下图:

     

     

     

     

              当你在报表中画完表格时,会弹出数据源配置向导,默认数据库,下一步,弹出选择使用哪种类型的数据库模型,默认数据集,下一步,此时弹出选择数据连接。

              新建连接,其中第一项是数据源的类型,根据使用的数据库进行选择,第二项是服务器名,这里由于数据库就在本机PC上,故使用我的计算机名称,下面选择使用SQLServer身份认证,用户名和密码,都是自己的数据库登录的用户名和密码。

              输完用户名和密码之后,就能够连接到对应的数据库,选择使用的具体数据库的名字,测试连接,连接成功后确定即可。

     

     

     

              这里,有一个选项是否在连接字符串中包含敏感数据,选择是或者否都可以,然后下一步,弹出将连接保存到应用程序配置文件中对话框,默认选择的是,下一步即可。

     

     

     

              选择数据库对象对话框,里面包含表、视图、存储过程和函数,这里选择所需要的表,单击完成,弹出数据集属性对话框,列出该数据集的具体属性,这里的字段是无法进行添加或者删除的,确定即可。

     

     

     

              回到报表设计页面,里面包含了两行的内容,第一行是表头,自定义输入表头既可,就是显示出来的列的标题,第二行是数据,单击右上角数据库图标,选择对应的数据集的属性,也就是具体的字段即可。

              这里,在表头的标题中输入文字,显示为小方格,是字体类型的问题,选择一种你想要的字体就可以了。

     

     

              此外,可以选择文本框,在报表中添加大标题,添加图片等等,选择菜单中的视图,最后一行是报表数据,选择其中的参数,右击添加参数,可以添加日期和时间等等。

     

     

              这就是VB.NET中报表的制作,非常的简单,多点一点就都会了。

              在机房收费系统中,报表中数据的显示,这里是把控件中的两个参数传到了D层,然后,D层返回的是泛型,也就是这个报表的数据源,代码如下,仅供参考:   

              UI层

     

        '查询
        Private Sub btnInquire_Click(sender As Object, e As EventArgs) Handles btnInquire.Click
            '输入的有效性验证
            '起始日期,不能大于终止日期
            If DateDiff("d", CDate(myDateTime1.Value), CDate(myDateTime2.Value)) < 0 Then
                MsgBox("起始日期不能小于终止日期!", vbOKOnly + vbExclamation, "警告")
                Exit Sub
            End If
    
            '实例化实体类
            Dim CheckBill As New Entity.EntityT_CheckBill
            Dim myCheckBill As New List(Of Entity.EntityT_CheckBill)
            Dim facade As New Facade.FacadeInquireCheckdayBill
    
            Dim Date1 As DateTime
            Dim Date2 As DateTime
            Date1 = Format((myDateTime1.Value), "yyyy/MM/dd")
            Date2 = Format((myDateTime2.Value), "yyyy/MM/dd")
            myCheckBill = facade.ShowCheckBill(Date1, Date2)
    
            '声明一个报表数据源对象 
            Dim rptDataSource As New ReportDataSource
            '设置报表数据源名称  
            rptDataSource.Name = "DataSet1"
            '设置报表数据源实例()
            rptDataSource.Value = myCheckBill
    
            '设置嵌入报表的资源的名称  
            myReportView.LocalReport.ReportEmbeddedResource = "UI.ReportCheckdayBill.rdlc"
            '清空报表数据源  
            myReportView.LocalReport.DataSources.Clear()
            '添加报表数据源  
            myReportView.LocalReport.DataSources.Add(rptDataSource)
    
            '设置报表中的参数集合,这里传递的参数,名字大小写必须和报表中的一致  
            '且其本身数据类型必须与报表中定义的数据类型也必须一致。  
            Dim params() As ReportParameter =
                {New ReportParameter("StartDate", Date.Parse(Date1)),
                 New ReportParameter("EndDate", Date.Parse(Date2))}
    
            '传递报表中的参数集合()
            myReportView.LocalReport.SetParameters(params)
    
            '刷新报表  
            Me.myReportView.RefreshReport()
        End Sub
    

              

     

              D层

     

    Public Class SqlServerDALInquireCheckdayBill : Implements IDAL.IDALInquireCheckdayBill
    
        '查询账单数据
        '直接传参数
        Public Function ShowCheckBill(ByVal Date1 As Date, ByVal Date2 As Date) As List(Of Entity.EntityT_CheckBill) Implements IDAL.IDALInquireCheckdayBill.ShowCheckBill
            Dim Sql As String
            Dim table As DataTable
            '实例化SqlHelper
            Dim helper As New SqlHelper
            Dim myCheckBill As List(Of Entity.EntityT_CheckBill)
    
            '参数必须加@
            '不可以直接传,sql语句不识别这些自定义的参数
            '必须加上@,sql语句才知道这些是参数
            Dim sqlParams As SqlParameter() = {New SqlParameter("@Date1", Date1),
                                               New SqlParameter("@Date2", Date2)}
            Sql = "select*from T_CheckBill where NowDate between @Date1 and @Date2"
            table = helper.GetDataTable(Sql, CommandType.Text, sqlParams)
            myCheckBill = ConvertHelper.ConvertList(Of Entity.EntityT_CheckBill)(table)
            '返回泛型
            Return myCheckBill
        End Function
    
    End Class

     

     

     

    展开全文
  • 实例282 为无标题栏窗体添加菜单 实例283 创建个性化弹出式菜单 9.3 高级菜单应用 实例284 调用系统菜单 实例285 调用其他应用程序的菜单 实例286 创建右键菜单用于粘贴 实例287 制作带菜单的记事本 实例288...
  • 实例282 为无标题栏窗体添加菜单 实例283 创建个性化弹出式菜单 9.3 高级菜单应用 实例284 调用系统菜单 实例285 调用其他应用程序的菜单 实例286 创建右键菜单用于粘贴 实例287 制作带菜单的记事本 实例288...
  • 验证vba中可用的免费QR码二维码控件

    热门讨论 2012-03-25 23:13:15
    由于VBA的窗体环境和VB中的差不多,所以在VBA窗体中调用QRmaker就不再描述,这里主要说明一下如何在表格中引用QRmaker。 第一步:单击Office按钮,在Excel选项中开启“开发工具”项,从而让“开发工具”选项卡显示...
  • ACReport中国式报表控件2011(Ver2.42)

    热门讨论 2011-03-06 00:03:30
    9. 支持脚本和窗体编程,报表设计人员可以编写脚本、在报表设计器里为报表添加窗体,为最终用户提供更丰富的交互功能。 10. 既可以使用应用程序中的数据集,也支持在报表中直接连接各种数据库,通过SQL直接获得报表...
  • 9. 支持脚本和窗体编程,报表设计人员可以编写脚本、在报表设计器里为报表添加窗体,为最终用户提供更丰富的交互功能。 10. 既可以使用应用程序中的数据集,也支持在报表中直接连接各种数据库,通过SQL直接获得报表...
  • 9. 支持脚本和窗体编程,报表设计人员可以编写脚本、在报表设计器里为报表添加窗体,为最终用户提供更丰富的交互功能。 10. 既可以使用应用程序中的数据集,也支持在报表中直接连接各种数据库,通过SQL直接获得报表...
  • 3.插入:超连接,e-mail , 命名标记,表格,FLASH动画,脚本设置,日期,注解,单选框,复选框,下拉菜单,媒体,FLASH,WMA,mp3,加入以有的css,编辑css,表格,表单,脚本,日期,时间的标签 4.工具:asp参考,ihtml...
  • 支持脚本和窗体编程,报表设计人员可以编写脚本、在报表设计器里为报表添加窗体,为最终用户提供更丰富的交互功能。  10. 既可以使用应用程序中的数据集,也支持在报表中直接连接各种数据库,通过SQL直接获得报表...
  • Excel_VBA教程

    2014-09-22 11:36:34
    21.在窗体添加按钮、选项框和其它控件 204 22.更改控件名称 206 23.设置其它控件属性 206 24.准备工作表以储存窗体数据 207 25.显示自定义窗体 208 26.设置TAB顺序 208 27.了解窗体和控件事件 209 28.编写VBA过程...
  • 9. 支持脚本和窗体编程,报表设计人员可以编写脚本、在报表设计器里为报表添加窗体,为最终用户提供更丰富的交互功能。 10. 既可以使用应用程序中的数据集,也支持在报表中直接连接各种数据库,通过SQL直接获得报表...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    21.在窗体添加按钮、选项框和其它控件 204 22.更改控件名称 206 23.设置其它控件属性 206 24.准备工作表以储存窗体数据 207 25.显示自定义窗体 208 26.设置TAB顺序 208 27.了解窗体和控件事件 209 28.编写VBA过程...
  • 9. 支持脚本和窗体编程,报表设计人员可以编写脚本、在报表设计器里为报表添加窗体,为最终用户提供更丰富的交互功能。 10. 既可以使用应用程序中的数据集,也支持在报表中直接连接各种数据库,通过SQL直接获得...
  • 1.2.1 向窗体添加代码9 1.2.2 设置控件的属性10 1.2.3 为控件命名12 1.2.4 移动及重新调整控件尺寸13 1.2.5 设置Tab顺序13 1.2.6 添加代码14 1.2.7 运行和调试程序15 1.2.8 优化示例程序16 1.2.9 准备、编译、运行18...
  • 1.2.1 向窗体添加代码9 1.2.2 设置控件的属性10 1.2.3 为控件命名12 1.2.4 移动及重新调整控件尺寸13 1.2.5 设置Tab顺序13 1.2.6 添加代码14 1.2.7 运行和调试程序15 1.2.8 优化示例程序16 1.2.9 准备、编译、运行18...
  • ASP.NET精品课程+源代码

    千次下载 热门讨论 2009-01-05 20:15:51
    特别是对具体的界面设计要在多媒体教室里进行,教师可以先作一些演示和介绍,引导学生自己去动手设计界面发挥自己的想象力和创造性,至于窗体上各个控件的使用,也可以让学生自己去尝试使用,发挥学生的自主探究能力...
  • 9. 支持脚本和窗体编程,报表设计人员可以编写脚本、在报表设计器里为报表添加窗体,为最终用户提供更丰富的交互功能。 10. 既可以使用应用程序中的数据集,也支持在报表中直接连接各种数据库,通过SQL直接获得报表...
  • 图书馆管理系统

    2008-03-16 18:53:18
    他们以前对信息管理的主要方式是基于文本、表格等纸介质的手工处理,对于图书借阅情况(如借书天数、超过限定借书时间的天数)的统计和核实等往往采用对借书卡的人工检查进行,对借阅者的借阅权限、以及借阅天数...

空空如也

空空如也

1 2 3 4
收藏数 61
精华内容 24
关键字:

vb窗体添加表格