VB阶段性代码片段总结

前言

    每一次的总结都会使我们有不同的提高！

代码片

  1、连接数据库（数据库在后期的学习中是很重要，并且在今后的学习中数据库也将占有重要的位置），以文件DSNS标记，访问数据源

Public Function ConnectString() As String
 ConnectString = "FileDSN=charge.dsn;UID=sa;PWD=123456"
End Function

  2、On Error 语句，启动一个错误处理程序并指定该子程序在一个过程中的位置或者用来禁止一个错误处理程序

On Error GoTo line    'line参数可以是任何行标签或者行号
On Error Resume Next  '当运行错误时，控件直接跳转到紧接发生错误的语句之后的语句
On Error GoTo 0       '禁止当前过程中任何已启动的错误处理程序

  3、SSTab控件的使用
  4、SQL语句的使用–增删改查
  5、VB中报表的实现

Dim WithEvents Report As grproLibCtl.GridppReport  '实例化报表
Private Sub Form_Load()
        Dim txtSQL As String '局部声明 Txtsql 为 字符型
        Dim MsgText As String '局部声明 msgtext 为 字符型

        txtSQL = "select * from CheckDay_Info where date='" & Format(Date, "yyyy-mm-dd") & "'"
        Set Report = New grproLibCtl.GridppReport '实例化模板
        Report.LoadFromFile (App.Path & "\素材\daycheck.grf") '加载模板
        Report.DetailGrid.Recordset.ConnectionString = ConnectString '连接数据源
        Report.DetailGrid.Recordset.QuerySQL = txtSQL '通过select查询创建记录集
        Report.ParameterByName("XX").AsString = UserName
        Report.ParameterByName("XX").Value = UserName '显示管理员编号
        Report.ParameterByName("OPT").AsString = UserName
        grproLibCtl.Report = Report  '将数据赋给GRD的report
        grproLibCtl.Start '在报表中显示
End Sub

    报表的刷新

Private Sub cmdRefresh_Click()
    grproLibCtl.Refresh     '刷新
End Sub

    报表的打印

Private Sub cmdPrint_Click()
    Report.[Print] (True)        '打印
End Sub

    报表的预览

Private Sub cmdView_Click()
    Report.PrintPreview (True)     '打印预览
End Sub