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

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

SQL Server

开发平台：

SQL

frmCourseinfo.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmAddcourseinfo 
  3.    Caption         =   "添加课程信息"
  4.    ClientHeight    =   3612
  5.    ClientLeft      =   48
  6.    ClientTop       =   348
  7.    ClientWidth     =   7344
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3612
  10.    ScaleWidth      =   7344
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.ComboBox comboCoursetype 
  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            =   1560
  24.       TabIndex        =   9
  25.       Top             =   1200
  26.       Width           =   1332
  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          =   492
  40.       Left            =   3840
  41.       TabIndex        =   8
  42.       Top             =   2760
  43.       Width           =   1452
  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          =   492
  57.       Left            =   1320
  58.       TabIndex        =   7
  59.       Top             =   2760
  60.       Width           =   1452
  61.    End
  62.    Begin VB.TextBox txtCoursedes 
  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          =   1452
  73.       Left            =   4680
  74.       MultiLine       =   -1  'True
  75.       ScrollBars      =   2  'Vertical
  76.       TabIndex        =   6
  77.       Top             =   1080
  78.       Width           =   2412
  79.    End
  80.    Begin VB.TextBox txtCoursename 
  81.       BeginProperty Font 
  82.          Name            =   "宋体"
  83.          Size            =   10.8
  84.          Charset         =   0
  85.          Weight          =   700
  86.          Underline       =   0   'False
  87.          Italic          =   0   'False
  88.          Strikethrough   =   0   'False
  89.       EndProperty
  90.       Height          =   492
  91.       Left            =   4680
  92.       TabIndex        =   3
  93.       Top             =   240
  94.       Width           =   1332
  95.    End
  96.    Begin VB.TextBox txtCourseno 
  97.       BeginProperty Font 
  98.          Name            =   "宋体"
  99.          Size            =   10.8
  100.          Charset         =   0
  101.          Weight          =   700
  102.          Underline       =   0   'False
  103.          Italic          =   0   'False
  104.          Strikethrough   =   0   'False
  105.       EndProperty
  106.       Height          =   492
  107.       Left            =   1560
  108.       TabIndex        =   1
  109.       Top             =   240
  110.       Width           =   1332
  111.    End
  112.    Begin VB.Label Label4 
  113.       Caption         =   "课程描述："
  114.       BeginProperty Font 
  115.          Name            =   "宋体"
  116.          Size            =   10.8
  117.          Charset         =   0
  118.          Weight          =   700
  119.          Underline       =   0   'False
  120.          Italic          =   0   'False
  121.          Strikethrough   =   0   'False
  122.       EndProperty
  123.       Height          =   252
  124.       Left            =   3360
  125.       TabIndex        =   5
  126.       Top             =   1200
  127.       Width           =   1212
  128.    End
  129.    Begin VB.Label Label3 
  130.       Caption         =   "课程类型："
  131.       BeginProperty Font 
  132.          Name            =   "宋体"
  133.          Size            =   10.8
  134.          Charset         =   0
  135.          Weight          =   700
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       Height          =   252
  141.       Left            =   240
  142.       TabIndex        =   4
  143.       Top             =   1200
  144.       Width           =   1212
  145.    End
  146.    Begin VB.Label Label2 
  147.       Caption         =   "课程名称："
  148.       BeginProperty Font 
  149.          Name            =   "宋体"
  150.          Size            =   10.8
  151.          Charset         =   0
  152.          Weight          =   700
  153.          Underline       =   0   'False
  154.          Italic          =   0   'False
  155.          Strikethrough   =   0   'False
  156.       EndProperty
  157.       Height          =   252
  158.       Left            =   3360
  159.       TabIndex        =   2
  160.       Top             =   360
  161.       Width           =   1212
  162.    End
  163.    Begin VB.Label Label1 
  164.       Caption         =   "课程编号："
  165.       BeginProperty Font 
  166.          Name            =   "宋体"
  167.          Size            =   10.8
  168.          Charset         =   0
  169.          Weight          =   700
  170.          Underline       =   0   'False
  171.          Italic          =   0   'False
  172.          Strikethrough   =   0   'False
  173.       EndProperty
  174.       Height          =   252
  175.       Left            =   240
  176.       TabIndex        =   0
  177.       Top             =   360
  178.       Width           =   1212
  179.    End
  180. End
  181. Attribute VB_Name = "frmAddcourseinfo"
  182. Attribute VB_GlobalNameSpace = False
  183. Attribute VB_Creatable = False
  184. Attribute VB_PredeclaredId = True
  185. Attribute VB_Exposed = False
  186. Private Sub Command1_Click()
  187.     Dim mrc As ADODB.Recordset
  188.     Dim MsgText As String
  189.     Dim txtSQL As String
  190.     
  191.     If Not Testtxt(txtCourseno.Text) Then
  192.         MsgBox "请输入课程编号！", vbOKOnly + vbExclamation, "警告"
  193.         txtCourseno.SetFocus
  194.         Exit Sub
  195.     End If
  196.     
  197.     If Not Testtxt(txtCoursename.Text) Then
  198.         MsgBox "请输入课程名称！", vbOKOnly + vbExclamation, "警告"
  199.         txtCoursename.SetFocus
  200.         Exit Sub
  201.     End If
  202.     
  203.     If Not Testtxt(comboCoursetype.Text) Then
  204.         MsgBox "请选择课程类型！", vbOKOnly + vbExclamation, "警告"
  205.         comboCoursetype.SetFocus
  206.         Exit Sub
  207.     End If
  208.     
  209.         
  210.     If Not Testtxt(txtCoursedes.Text) Then
  211.         MsgBox "请输入课程描述信息！", vbOKOnly + vbExclamation, "警告"
  212.         txtCoursedes.SetFocus
  213.         Exit Sub
  214.     End If
  215.     
  216.     If Not IsNumeric(Trim(txtCourseno.Text)) Then
  217.         MsgBox "请输入数字编号！", vbOKOnly + vbExclamation, "警告"
  218.         Exit Sub
  219.         txtCourseno.SetFocus
  220.     End If
  221.     
  222.     txtSQL = "select * from course_Info "
  223.     Set mrc = ExecuteSQL(txtSQL, MsgText)
  224.     
  225.     While (mrc.EOF = False)
  226.         If (Trim(mrc.Fields(0)) = Trim(txtCourseno.Text)) Then
  227.             MsgBox "课程编号已经存在，请重新输入课程编号！", vbOKOnly + vbExclamation, "警告"
  228.             txtCourseno.Text = ""
  229.             txtCourseno.SetFocus
  230.             Exit Sub
  231.         Else
  232.             mrc.MoveNext
  233.         End If
  234.     Wend
  235.     
  236.     mrc.AddNew
  237.     mrc.Fields(0) = Trim(txtCourseno.Text)
  238.     mrc.Fields(1) = Trim(txtCoursename.Text)
  239.     mrc.Fields(2) = Trim(comboCoursetype.Text)
  240.     mrc.Fields(3) = Trim(txtCoursedes.Text)
  241.     mrc.Update
  242.     mrc.Close
  243.     MsgBox "添加课程信息成功！", vbOKOnly + vbExclamation, "添加课程信息"
  244.     Unload Me
  245.     
  246.     
  247. End Sub
  249. Private Sub Command2_Click()
  250.     Unload Me
  251. End Sub
  253. Private Sub Form_Load()
  254.     comboCoursetype.AddItem "必修"
  255.     comboCoursetype.AddItem "考查"
  256.     
  257. End Sub