frmxueh.frm

Vb以及SQL的学生信息系统 软件简介: 学生信息管理系统

VERSION 5.00
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  '屏幕中心
   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 VB.PictureBox cmdqux 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   405
      Left            =   1890
      MousePointer    =   99  'Custom
      ScaleHeight     =   345
      ScaleWidth      =   885
      TabIndex        =   3
      Top             =   1440
      Width           =   945
   End
   Begin VB.PictureBox cmdqued 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   405
      Left            =   870
      MousePointer    =   99  'Custom
      ScaleHeight     =   345
      ScaleWidth      =   885
      TabIndex        =   2
      Top             =   1440
      Width           =   945
   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