addstudgo.frm

简单的数据库系统

      Begin VB.Label Label5 
         Caption         =   "应届与否"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   3600
         TabIndex        =   18
         Top             =   360
         Width           =   1215
      End
      Begin VB.Label Label6 
         Caption         =   "录取时间"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   3600
         TabIndex        =   17
         Top             =   960
         Width           =   1215
      End
      Begin VB.Label Label7 
         Caption         =   "录取院校及专业"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   3600
         TabIndex        =   16
         Top             =   1440
         Width           =   1695
      End
      Begin VB.Label Label8 
         Caption         =   "高考成绩"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   3600
         TabIndex        =   15
         Top             =   2040
         Width           =   1215
      End
      Begin VB.Label Label9 
         Caption         =   "备注"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   120
         TabIndex        =   14
         Top             =   2640
         Width           =   1215
      End
   End
   Begin VB.Frame Frame1 
      Height          =   2775
      Left            =   8520
      TabIndex        =   0
      Top             =   0
      Width           =   1575
      Begin VB.CommandButton Command3 
         Caption         =   "关闭(&C)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   120
         TabIndex        =   3
         Top             =   1920
         Width           =   1215
      End
      Begin VB.CommandButton Command2 
         Caption         =   "重置(&E)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   120
         TabIndex        =   2
         Top             =   1080
         Width           =   1215
      End
      Begin VB.CommandButton Command1 
         Caption         =   "确定(&O)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   1215
      End
   End
End
Attribute VB_Name = "addstudgo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Command1.Caption = "确定(&O)" Then
    If Not Testtxt(Text1.Text) Then
      MsgBox "请输入编号！", 48, "提示"
      Text1.SetFocus
      Exit Sub
    End If
   If Not Testtxt(Text2.Text) Then
      MsgBox "请输入姓名！", 48, "提示"
      Text2.SetFocus
      Exit Sub
   End If
   If Not Testtxt(Combo1.Text) Then
      MsgBox "请选择性别！", 48, "提示"
      Combo1.SetFocus
      Exit Sub
   End If
   If Not Testtxt(Combo2.Text) Then
     MsgBox "请选择民族！", 48, "提示"
     Combo2.SetFocus
     Exit Sub
   End If
   If Not Testtxt(Combo1.Text) Then
     MsgBox "请选择应届与否 ！", 48, "提示"
     Combo1.SetFocus
     Exit Sub
   End If
   If Not Testtxt(Text4.Text) Then
      MsgBox "请输入时间！", 48, "提示"
      Text4.SetFocus
      Exit Sub
    End If
   If Not Testtxt(Text5.Text) Then
      MsgBox "请输入录取院校及专业！", 48, "提示"
      Text5.SetFocus
      Exit Sub
   End If
   If Not Testtxt(Text6.Text) Then
      MsgBox "请输入高考成绩！", 48, "提示"
      Text6.SetFocus
      Exit Sub
    End If
    txtSQL = "select * from studentgo  "
    Set dream = ExecuteSQL(txtSQL, Msgtext)
     While (dream.EOF = False)
       If (dream.Fields(0)) = Trim(Text1.Text) Then
         MsgBox "编号已经存在！", 48, "提示"
         Text1.Text = ""
         Text1.SetFocus
         Exit Sub
       Else
         dream.MoveNext
      End If
    Wend
    dream.AddNew
    dream.Fields(0) = Trim(Text1.Text)
    dream.Fields(1) = Trim(Text2.Text)
    dream.Fields(2) = Trim(Combo1.Text)
    dream.Fields(3) = Trim(Text3.Text)
    dream.Fields(4) = Trim(Combo2.Text)
    dream.Fields(5) = Trim(Text4.Text)
    dream.Fields(6) = Trim(Text5.Text)
    dream.Fields(7) = Trim(Text6.Text)
    dream.Fields(8) = Trim(Text7.Text)
    dream.Update
    dream.Close
    MsgBox "添加毕业生信息成功！", 48, "提示"
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Combo1.Text = ""
    Combo2.Text = ""
End If
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
addstudgo.Width = 10665
addstudgo.Height = 5460
End Sub