frmm.frm

vb源代码

VERSION 5.00
Begin VB.Form frmM 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "教学运行"
   ClientHeight    =   3825
   ClientLeft      =   4365
   ClientTop       =   4410
   ClientWidth     =   7695
   FillColor       =   &H00FFFFFF&
   FillStyle       =   6  'Cross
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3825
   ScaleWidth      =   7695
   Begin VB.Menu count 
      Caption         =   "查询统计"
      Begin VB.Menu count_student 
         Caption         =   "学生自然信息查询统计"
      End
      Begin VB.Menu count_help 
         Caption         =   "帮助"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助"
   End
   Begin VB.Menu exit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "frmM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub count_help_Click()
    help_Click
End Sub

Private Sub count_student_Click()
    '学生自然信息统计
    tmpTableName = "mytmpqueryXj"
    
    tmpStrSqlField = "bmmc as 学院,zymc as 专业,bjmc as 班级,xh as 学号,xm as 姓名,sylbmc as  性质"
    tmpStrSqlField = tmpStrSqlField & ",xb as 性别,zt as 在校状态,dq as 地区,mz as 民族"

    tmpStrSqlTable = " from ttt_zxs t"
   
    frmTjRs.Caption = "学生自然信息统计..."
    frmTjRs.Show
End Sub

Private Sub exit_Click()
    Unload Me
End Sub

Private Sub help_Click()
    sSql = "这是一个通用的查询统计程序，你只需要提供三个字符串变量就可以了"
    sSql = sSql & Chr(13) & Chr(13) & "第一个变量：临时表名"
    sSql = sSql & Chr(13) & "第二个变量：查询的字段(记得转换成中文，因为我们都是中国人)"
    sSql = sSql & Chr(13) & "第三个变量：查询的表名(如果是多个表，记得做好表间关系的联接)"
    sSql = sSql & Chr(13) & Chr(13) & "有问题请联系我：Qq(287019140),E_mail([e-mail])"
    MsgBox sSql, vbInformation + vbOKOnly, "欢迎使用我的程序..."
End Sub