addstu.frm

用ASP编写的程序用的是VB脚本

      _ExtentY        =   5741
      _Version        =   393216
      AllowUpdate     =   0   'False
      HeadLines       =   1
      RowHeight       =   15
      FormatLocked    =   -1  'True
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   7
      BeginProperty Column00 
         DataField       =   "XH"
         Caption         =   "学号"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   "XM"
         Caption         =   "姓名"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column02 
         DataField       =   "XBM"
         Caption         =   "性别"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column03 
         DataField       =   "CSSJ"
         Caption         =   "出生日期"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column04 
         DataField       =   "ZY"
         Caption         =   "专业"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column05 
         DataField       =   "ZXF"
         Caption         =   "总学分"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column06 
         DataField       =   "BZ"
         Caption         =   "备注"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
         EndProperty
         BeginProperty Column01 
         EndProperty
         BeginProperty Column02 
         EndProperty
         BeginProperty Column03 
         EndProperty
         BeginProperty Column04 
         EndProperty
         BeginProperty Column05 
         EndProperty
         BeginProperty Column06 
         EndProperty
      EndProperty
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "添加修改删除学生信息"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   2160
      TabIndex        =   0
      Top             =   120
      Width           =   3450
   End
End
Attribute VB_Name = "AddStu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private SqlCon As New ADODB.Connection
Private SqlRes As New ADODB.Recordset
Private SqlCmd As New ADODB.Command

Private Sub Form_Load()
    SqlCon.Provider = "SQLOLEDB"
    SqlCon.Open "Server=DCR;DataBase=XSCJ;UID=sa;PWD=;"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SqlCon.Close
End Sub

Private Sub StuADO_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    If Not pRecordset.EOF And Not pRecordset.BOF Then
        StuXH.Text = pRecordset("XH")
        StuXM.Text = pRecordset("XM")
        StuCSSJ.Text = pRecordset("CSSJ")
        StuZY.Text = pRecordset("ZY")
        StuZXF.Text = pRecordset("ZXF")
        StuBZ.Text = CStr(pRecordset("BZ") & "")
        If pRecordset("XB") = 0 Then
            StuXBF.Value = True
        Else
            StuXBM.Value = True
        End If
    End If
End Sub

Private Sub StuDel_Click(Index As Integer)
    Ret = MsgBox("是否要删除" + StuADO.Recordset("XH") + "号学生的记录！", vbYesNo, "提示")
    If Ret = vbYes Then
        SqlCmd.ActiveConnection = SqlCon
        SqlCmd.CommandText = "delete from XS where XH='" + StuADO.Recordset("XH") + "'"
        SqlCmd.Execute
        StuADO.RecordSource = "select * from XS,CXB where XS.XB=CXB.XB"
        StuADO.Refresh
    End If
End Sub

Private Sub StuUpd_Click(Index As Integer)
'看是否有此学生记录，有就修改，没则添加
Dim SqlStr As String
SqlStr = "select * from XS where XH='" + Trim(StuXH.Text) + "'"
SqlRes.Open SqlStr, SqlCon, adOpenDynamic, adLockPessimistic
If Not SqlRes.EOF Then
'修改
   SqlRes("XM") = StuXM.Text
   If StuXBM.Value = True Then
       SqlRes("XB") = 1
   Else
       SqlRes("XB") = 0
   End If
   SqlRes("ZY") = StuZY.Text
   SqlRes("CSSJ") = CDate(StuCSSJ.Text)
   SqlRes("ZXF") = CInt(StuZXF.Text)
   SqlRes("BZ") = StuBZ.Text
   SqlRes.Update
Else
'添加
   SqlRes.AddNew
   SqlRes("XH") = StuXH.Text
   SqlRes("XM") = StuXM.Text
   If StuXBM.Value = True Then
      SqlRes("XB") = 1
   Else
      SqlRes("XB") = 0
   End If
   SqlRes("ZY") = StuZY.Text
   SqlRes("CSSJ") = CDate(StuCSSJ.Text)
   If Trim(StuZXF.Text) <> "" Then
       SqlRes("ZXF") = CInt(StuZXF.Text)
   End If
   SqlRes("BZ") = StuBZ.Text
   SqlRes.Update
End If
SqlRes.Close
StuADO.RecordSource = "select * from XS,CXB where XS.XB=CXB.XB"
StuADO.Refresh
End Sub