frmxueh.frm

网上教务管理系统 包括（教师

VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#2.0#0"; "THREED20.OCX"
Begin VB.Form frmXueh 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "必输字段："
   ClientHeight    =   2325
   ClientLeft      =   30
   ClientTop       =   315
   ClientWidth     =   3750
   Icon            =   "frmXueh.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2325
   ScaleWidth      =   3750
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox txtXueh 
      BackColor       =   &H00FFFFFF&
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   435
      Left            =   900
      TabIndex        =   0
      Top             =   780
      Width           =   1935
   End
   Begin Threed.SSCommand cmdqux 
      Height          =   405
      Left            =   1890
      TabIndex        =   3
      Top             =   1440
      Width           =   945
      _ExtentX        =   1667
      _ExtentY        =   714
      _Version        =   131073
      Font3D          =   1
      MousePointer    =   99
      ForeColor       =   0
      PictureFrames   =   1
      MouseIcon       =   "frmXueh.frx":0442
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Picture         =   "frmXueh.frx":075C
      Caption         =   "取消"
      Alignment       =   4
      ButtonStyle     =   2
      PictureAlignment=   1
   End
   Begin Threed.SSCommand cmdqued 
      Height          =   405
      Left            =   870
      TabIndex        =   2
      Top             =   1440
      Width           =   945
      _ExtentX        =   1667
      _ExtentY        =   714
      _Version        =   131073
      Font3D          =   1
      MousePointer    =   99
      ForeColor       =   0
      PictureFrames   =   1
      MouseIcon       =   "frmXueh.frx":0A76
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Picture         =   "frmXueh.frx":0D90
      Caption         =   "确定"
      Alignment       =   4
      ButtonStyle     =   2
      PictureAlignment=   1
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "请输入学号"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   285
      Left            =   930
      TabIndex        =   1
      Top             =   390
      Width           =   1515
   End
End
Attribute VB_Name = "frmXueh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rc3 As Recordset
Sub AddNewDatBas()
  On Error Resume Next
  Dim I As Integer
  Dim rc2 As Recordset
  
  If WhoLdXuehao = 1 Then Set rc2 = frmMain.DataMain.Recordset
  If WhoLdXuehao = 2 Then Set rc2 = FrmGrad.DataMain.Recordset
  
  rc2.AddNew
  For I = 1 To BasFldCnt(KBDH)
  rc2(I - 1).Value = Rc(I - 1).Value
  Next I
  rc2.Update
  If WhoLdXuehao = 1 Then frmMain.DataMain.Recordset.MoveLast
  If WhoLdXuehao = 2 Then FrmGrad.DataMain.Recordset.MoveLast
  rc2.Close
End Sub

Private Sub cmdQued_Click()
On Error Resume Next
  If txtXueH.Text = vbNothing Then
      MsgBox "请输入学号"
      Exit Sub
  End If
  
  Dim rec As Recordset
  Dim Dtb As Database
  Dim SQL As String
  SQL = "select * from " & KBMC & " where Xueh='" & txtXueH.Text & "'"
  Set Dtb = OpenDatabase(App.Path + "\database\student.mdb")
  Set rec = Dtb.OpenRecordset(SQL)
  If rec.EOF = False Then
     MsgBox "学号已经存在"
     FrmGrad.DataMain.Recordset.FindFirst "XUEH='" & frmXueh.txtXueH.Text & "'"
     Unload frmXueh
     FrmGrad.Command1.Visible = True
     FrmGrad.Command7.Visible = False
     Exit Sub
  End If
  
  Set DB = OpenDatabase(App.Path + "\database\student.mdb")
  Set Rc = DB.OpenRecordset("select" & BasField(KBDH) & " from ZBQKB where XH='" & txtXueH.Text & "'")
  If Rc.EOF = True And Rc.BOF = True Then
    MsgBox "基本库中无该学号记录", vbOKOnly, "询问"
    Exit Sub
  End If
   
   AddNewDatBas
   XuehaoLD = True
   Unload Me
  End Sub

Private Sub cmdQux_Click()
  On Error Resume Next
  Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
  On Error Resume Next
  If WhoLdXuehao = 1 Then
     frmMain.Enabled = True
  
    If XuehaoLD = True Then
          XuehaoLD = False
          frmMain.DataMain.Refresh
          frmMain.DataMain.Recordset.FindFirst "Xueh='" & frmXueh.txtXueH.Text & "'"
      frmMain.AddDBGridColN
    End If

  End If
  
  If WhoLdXuehao = 2 Then
     FrmGrad.Enabled = True
  
    If XuehaoLD = True Then
       XuehaoLD = False
       FrmGrad.DataMain.Refresh
       FrmGrad.DataMain.Recordset.FindFirst "Xueh='" & frmXueh.txtXueH.Text & "'"
       FrmGrad.AddDBGridName_XS
    End If

  End If
  
End Sub