开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > SQL Server > 查看源码
frmAddclassinfo.frm
资源名称：studentinformationmanagement.rar　[点击查看]
上传用户：rocksue
上传日期：2013-06-17
资源大小：41926k
文件大小：8k
源码类别：

SQL Server

开发平台：

SQL

frmAddclassinfo.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmAddclassinfo 
  3.    Caption         =   "添加班级信息"
  4.    ClientHeight    =   2604
  5.    ClientLeft      =   48
  6.    ClientTop       =   348
  7.    ClientWidth     =   5808
  8.    LinkTopic       =   "Form1"
  9.    MDIChild        =   -1  'True
  10.    ScaleHeight     =   2604
  11.    ScaleWidth      =   5808
  12.    Begin VB.ComboBox comboGrade 
  13.       BeginProperty Font 
  14.          Name            =   "宋体"
  15.          Size            =   10.8
  16.          Charset         =   0
  17.          Weight          =   700
  18.          Underline       =   0   'False
  19.          Italic          =   0   'False
  20.          Strikethrough   =   0   'False
  21.       EndProperty
  22.       Height          =   312
  23.       Left            =   3720
  24.       TabIndex        =   9
  25.       Top             =   480
  26.       Width           =   1692
  27.    End
  28.    Begin VB.CommandButton Command2 
  29.       Caption         =   "取消添加"
  30.       BeginProperty Font 
  31.          Name            =   "宋体"
  32.          Size            =   10.8
  33.          Charset         =   0
  34.          Weight          =   700
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       Height          =   372
  40.       Left            =   2760
  41.       TabIndex        =   8
  42.       Top             =   1920
  43.       Width           =   1092
  44.    End
  45.    Begin VB.CommandButton Command1 
  46.       Caption         =   "确认添加"
  47.       BeginProperty Font 
  48.          Name            =   "宋体"
  49.          Size            =   10.8
  50.          Charset         =   0
  51.          Weight          =   700
  52.          Underline       =   0   'False
  53.          Italic          =   0   'False
  54.          Strikethrough   =   0   'False
  55.       EndProperty
  56.       Height          =   372
  57.       Left            =   960
  58.       TabIndex        =   7
  59.       Top             =   1920
  60.       Width           =   1092
  61.    End
  62.    Begin VB.TextBox txtClassroom 
  63.       BeginProperty Font 
  64.          Name            =   "宋体"
  65.          Size            =   10.8
  66.          Charset         =   0
  67.          Weight          =   700
  68.          Underline       =   0   'False
  69.          Italic          =   0   'False
  70.          Strikethrough   =   0   'False
  71.       EndProperty
  72.       Height          =   372
  73.       Left            =   3720
  74.       TabIndex        =   6
  75.       Top             =   1200
  76.       Width           =   1692
  77.    End
  78.    Begin VB.TextBox txtDirector 
  79.       BeginProperty Font 
  80.          Name            =   "宋体"
  81.          Size            =   10.8
  82.          Charset         =   0
  83.          Weight          =   700
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.       Height          =   372
  89.       Left            =   1200
  90.       TabIndex        =   4
  91.       Top             =   1200
  92.       Width           =   1332
  93.    End
  94.    Begin VB.TextBox txtClassno 
  95.       BeginProperty Font 
  96.          Name            =   "宋体"
  97.          Size            =   10.8
  98.          Charset         =   0
  99.          Weight          =   700
  100.          Underline       =   0   'False
  101.          Italic          =   0   'False
  102.          Strikethrough   =   0   'False
  103.       EndProperty
  104.       Height          =   372
  105.       Left            =   1200
  106.       TabIndex        =   1
  107.       Top             =   480
  108.       Width           =   1332
  109.    End
  110.    Begin VB.Label Label4 
  111.       Caption         =   "教室："
  112.       BeginProperty Font 
  113.          Name            =   "宋体"
  114.          Size            =   10.8
  115.          Charset         =   134
  116.          Weight          =   700
  117.          Underline       =   0   'False
  118.          Italic          =   0   'False
  119.          Strikethrough   =   0   'False
  120.       EndProperty
  121.       Height          =   252
  122.       Left            =   2880
  123.       TabIndex        =   5
  124.       Top             =   1200
  125.       Width           =   732
  126.    End
  127.    Begin VB.Label Label3 
  128.       Alignment       =   2  'Center
  129.       Caption         =   "班主任："
  130.       BeginProperty Font 
  131.          Name            =   "宋体"
  132.          Size            =   10.8
  133.          Charset         =   134
  134.          Weight          =   700
  135.          Underline       =   0   'False
  136.          Italic          =   0   'False
  137.          Strikethrough   =   0   'False
  138.       EndProperty
  139.       Height          =   252
  140.       Left            =   120
  141.       TabIndex        =   3
  142.       Top             =   1200
  143.       Width           =   972
  144.    End
  145.    Begin VB.Label Label2 
  146.       Caption         =   "年级："
  147.       BeginProperty Font 
  148.          Name            =   "宋体"
  149.          Size            =   10.8
  150.          Charset         =   134
  151.          Weight          =   700
  152.          Underline       =   0   'False
  153.          Italic          =   0   'False
  154.          Strikethrough   =   0   'False
  155.       EndProperty
  156.       Height          =   252
  157.       Left            =   2880
  158.       TabIndex        =   2
  159.       Top             =   480
  160.       Width           =   732
  161.    End
  162.    Begin VB.Label Label1 
  163.       Caption         =   "班号："
  164.       BeginProperty Font 
  165.          Name            =   "宋体"
  166.          Size            =   10.8
  167.          Charset         =   134
  168.          Weight          =   700
  169.          Underline       =   0   'False
  170.          Italic          =   0   'False
  171.          Strikethrough   =   0   'False
  172.       EndProperty
  173.       Height          =   252
  174.       Left            =   240
  175.       TabIndex        =   0
  176.       Top             =   480
  177.       Width           =   732
  178.    End
  179. End
  180. Attribute VB_Name = "frmAddclassinfo"
  181. Attribute VB_GlobalNameSpace = False
  182. Attribute VB_Creatable = False
  183. Attribute VB_PredeclaredId = True
  184. Attribute VB_Exposed = False
  185. Private Sub Command1_Click()
  186.     Dim mrc As ADODB.Recordset
  187.     Dim MsgText As String
  188.     Dim txtSQL As String
  189.     
  190.     If Not Testtxt(txtClassno.Text) Then
  191.         MsgBox "请输入班号！", vbOKOnly + vbExclamation, "警告"
  192.         txtClassno.SetFocus
  193.         Exit Sub
  194.     End If
  195.     
  196.     If Not Testtxt(comboGrade.Text) Then
  197.         MsgBox "请选择年级！", vbOKOnly + vbExclamation, "警告"
  198.         comboGrade.SetFocus
  199.         Exit Sub
  200.     End If
  201.     
  202.     If Not Testtxt(txtDirector.Text) Then
  203.         MsgBox "请输入班主任姓名！", vbOKOnly + vbExclamation, "警告"
  204.         txtDirector.SetFocus
  205.         Exit Sub
  206.     End If
  207.     
  208.     If Not Testtxt(txtClassroom.Text) Then
  209.         MsgBox "请输入教室房间号！", vbOKOnly + vbExclamation, "警告"
  210.         txtClassroom.SetFocus
  211.         Exit Sub
  212.     End If
  213.     
  214.     If Not IsNumeric(Trim(txtClassno.Text)) Then
  215.         MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
  216.         Exit Sub
  217.         txtClassno.SetFocus
  218.     End If
  219.     
  220.     txtSQL = "select * from class_Info "
  221.     Set mrc = ExecuteSQL(txtSQL, MsgText)
  222.     mrc.MoveFirst
  223.     
  224.     While (mrc.EOF = False)
  225.         If (Trim(mrc.Fields(0)) = Trim(txtClassno.Text)) Then
  226.             MsgBox "班号已经存在，请重新输入班号！", vbOKOnly + vbExclamation, "警告"
  227.             Exit Sub
  228.             txtClassno.Text = ""
  229.             txtClassno.SetFocus
  230.         Else
  231.             mrc.MoveNext
  232.         End If
  233.     Wend
  234.     
  235.     mrc.AddNew
  236.     mrc.Fields(0) = Trim(txtClassno.Text)
  237.     mrc.Fields(1) = Trim(comboGrade.Text)
  238.     mrc.Fields(2) = Trim(txtDirector.Text)
  239.     mrc.Fields(3) = Trim(txtClassroom.Text)
  240.     mrc.Update
  241.     mrc.Close
  242.     MsgBox "添加班级信息成功！", vbOKOnly + vbExclamation, "添加班级信息"
  243.     
  244.     
  245.         
  246. End Sub
  248. Private Sub Command2_Click()
  249.     Unload Me
  250. End Sub
  252. Private Sub Form_Load()
  253.     comboGrade.AddItem "初中一年级"
  254.     comboGrade.AddItem "初中二年级"
  255.     comboGrade.AddItem "初中三年级"
  256.     comboGrade.AddItem "高中一年级"
  257.     comboGrade.AddItem "高中二年级"
  258.     comboGrade.AddItem "高中三年级"
  259. End Sub