📄 addroom1.frm

📁 简单的数据库系统
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
End Sub

Private Sub Command7_Click()
   Command5.Enabled = False
   Command6.Enabled = True
   dream.MoveLast '移动到数据集的最后一条记录
    Call viewdata
    MsgBox "这是最后一条记录!", 48, "注意!"
End Sub


Private Sub Command1_Click()
 If Command1.Caption = "确定(&O)" Then
    If Not Testtxt(Combo1.Text) Then
      MsgBox "请选择宿舍类型！", 48, "提示"
      Combo1.SetFocus
      Exit Sub
    End If
     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(Combo2.Text) Then
      MsgBox "请选择可住人数！", 48, "提示"
      Combo2.SetFocus
      Exit Sub
    End If
    If Not Testtxt(Combo3.Text) Then
      MsgBox "请选择现住人数！", 48, "提示"
      Combo3.SetFocus
      Exit Sub
    End If
     If Not Testtxt(Text3.Text) Then
      MsgBox "请输入班级！", 48, "提示"
      Text3.SetFocus
      Exit Sub
    End If
     If Not Testtxt(Text4.Text) Then
      MsgBox "请输入班主任！", 48, "提示"
      Text4.SetFocus
      Exit Sub
    End If
    
    '+++++++++++++++++++++++++++++++++++++++++++++++++
    txtSQL = "select * from room "
    Set dream = ExecuteSQL(txtSQL, Msgtext)
    dream.MoveFirst
    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(Combo1.Text)
    dream.Fields(1) = Trim(Text1.Text)
    dream.Fields(2) = Trim(Text2.Text)
    dream.Fields(3) = Trim(Combo2.Text)
    dream.Fields(4) = Trim(Combo3.Text)
    dream.Fields(5) = Trim(Text3.Text)
    dream.Fields(6) = Trim(Text4.Text)
    dream.Fields(7) = Trim(Text5.Text)
    dream.Fields(8) = Trim(Text6.Text)
    dream.UpdateBatch
    '=================================================
    MsgBox "添加学生宿舍信息成功！", 48, "提示"
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
    Combo1.Text = ""
    Combo2.Text = ""
 Else
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Text6.Text = ""
     Combo1.Text = ""
    Combo2.Text = ""

End If
End Sub

Private Sub Command10_Click()
    
    Command4.Enabled = False
    Command5.Enabled = False
    Command6.Enabled = False
    Command7.Enabled = False
    If dream.EOF = False Then
       MsgBox "真的要更新吗？", vbOKCancel + vbExclamation, "警告"
              'record current position
              dream.Bookmark = mybookmark  'return to current modifty position
              dream.Delete
              
              txtSQL = "select * from room"
              Set dream = ExecuteSQL(txtSQL, Msgtext)
             
             dream.Bookmark = mybookmark  'return to current modifty position
    
            dream.AddNew
     dream.Fields(0) = Trim(Combo4.Text)
     dream.Fields(1) = Trim(Text7.Text)
     dream.Fields(2) = Trim(Text8.Text)
     dream.Fields(3) = Trim(Text9.Text)
     dream.Fields(4) = Trim(Combo5.Text)
     dream.Fields(5) = Trim(comob6.Text)
     dream.Fields(6) = Trim(Text10.Text)
     dream.Fields(7) = Trim(Text11.Text)
     dream.Fields(8) = Trim(Text13.Text)
     dream.UpdateBatch
     dream.Close
    '==============================
    MsgBox "修改班级信息成功！", vbOKOnly, " 提示！"
     
     txtSQL = "select * from room "
     Set dream = ExecuteSQL(txtSQL, Msgtext) '执行查询操作
     dream.MoveFirst   '移到第一条记录
    
    Command4.Enabled = True
    Command5.Enabled = True
    Command6.Enabled = True
    Command7.Enabled = True
    'text can't modify
    Text7.Enabled = False
    Text8.Enabled = False
    Text9.Enabled = False
    Text10.Enabled = False
    Text11.Enabled = False
    Text13.Enabled = False
    
  End If
End Sub

Private Sub Command14_Click()
If Command14.Caption = "搜 索(&S)" Then
    If Not Testtxt(Text12.Text) Then
       MsgBox "请输入查询条件！", 48, "提示"
       Text12.SetFocus
    Else
       txtSQL = "select * from room where 宿舍号 like '%" & Text12.Text & "' OR 舍长 like '" & Text12.Text & "%'"
       Set dream = ExecuteSQL(txtSQL, Msgtext)
       On Error Resume Next
       Call viewdata
       If dream.EOF = True Then         'exsit  record ?
           MsgBox "没有此记录！", 48, "警告"
           Text12.Text = ""
        Else
           txtSQL = "select * from room where 宿舍号 like '%" & Text12.Text & "' OR 舍长 like '" & Text12.Text & "%'"
           Set dream = ExecuteSQL(txtSQL, Msgtext)
           On Error Resume Next
           Call viewdata
        End If
    End If
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Combo1.Text = ""
Combo2.Text = ""

End Sub

Private Sub Command3_Click()
Unload Me
End Sub


Private Sub Command8_Click()

If Command8.Caption = "编辑(&M)" Then
   
    Text7.Enabled = True
    Text8.Enabled = True
    Text9.Enabled = True
    Text10.Enabled = True
    Text11.Enabled = True
    Combo4.Enabled = True
    Combo5.Enabled = True
    Combo6.Enabled = True
    Command10.Enabled = True
    Command4.Enabled = False
    Command5.Enabled = False
    Command6.Enabled = False
    Command7.Enabled = False
    mybookmark = dream.Bookmark  '记下当前记录位置
  End If
End Sub

Private Sub Command9_Click()
mybookmark = dream.Bookmark
    str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
    If str2$ = vbOK Then
            dream.MoveNext
            If dream.EOF Then   'recordset is empty?
                dream.MoveFirst
                mybookmark = dream.Bookmark  'sign current position
                dream.MoveLast
                dream.Delete
                dream.Close
                
                txtSQL = "select * from room"
                Set dream = ExecuteSQL(txtSQL, Msgtext)
                dream.MoveLast
                Call viewdata
            Else
                mybookmark = dream.Bookmark 'sign current position
                dream.MovePrevious
                dream.Delete
                dream.Close
                
                txtSQL = "select * from room"
                Set dream = ExecuteSQL(txtSQL, Msgtext)
                dream.MoveLast
                Call viewdata
            End If
    Else
        dream.Bookmark = mybookmark 'return primary position
        Call viewdata
    End If
End Sub

Private Sub Form_Load()

Command10.Enabled = False 'gengxing command can't enabled

addroom1.Height = 8415
addroom1.Width = 9390
Combo2.AddItem "4"
Combo2.AddItem "5"
Combo2.AddItem "6"
Combo2.AddItem "7"
Combo2.AddItem "8"
Combo2.AddItem "9"
Combo2.AddItem "10"
Combo2.AddItem "11"
Combo2.AddItem "12"
Combo2.AddItem "14"
Combo3.AddItem "1"
Combo3.AddItem "2"
Combo3.AddItem "3"
Combo3.AddItem "4"
Combo3.AddItem "5"
Combo3.AddItem "6"
Combo3.AddItem "7"
Combo3.AddItem "8"
Combo3.AddItem "9"
Combo3.AddItem "10"
Combo3.AddItem "11"
Combo3.AddItem "12"
Combo3.AddItem "13"
Combo3.AddItem "14"

Combo5.AddItem "4"
Combo5.AddItem "5"
Combo5.AddItem "6"
Combo5.AddItem "7"
Combo5.AddItem "8"
Combo5.AddItem "9"
Combo5.AddItem "10"
Combo5.AddItem "11"
Combo5.AddItem "12"
Combo5.AddItem "14"

Combo6.AddItem "1"
Combo6.AddItem "2"
Combo6.AddItem "3"
Combo6.AddItem "4"
Combo6.AddItem "5"
Combo6.AddItem "6"
Combo6.AddItem "7"
Combo6.AddItem "8"
Combo6.AddItem "9"
Combo6.AddItem "10"
Combo6.AddItem "11"
Combo6.AddItem "12"
Combo6.AddItem "13"
Combo6.AddItem "14"

Combo1.AddItem "男生宿舍"
Combo1.AddItem "女生宿舍"
Combo4.AddItem "男生宿舍"
Combo4.AddItem "女生宿舍"


addroom1.Caption = "添加学生宿舍信息[" + Format(Date, "yyyy年mm月dd日]")
studentmdi.StatusBar1.Panels.Item(1).Text = "添加班级信息"
     
     txtSQL = "select * from room "
     Set dream = ExecuteSQL(txtSQL, Msgtext) '执行查询操作
     dream.MoveFirst   '移到第一条记录
       
       Call viewdata     '显示记录
    
    mcbookmark = dream.Bookmark '记下当前记录的位置
    Combo4.Enabled = False
    Text7.Enabled = False
    Text8.Enabled = False
    Combo5.Enabled = False
    Text9.Enabled = False
    Text10.Enabled = False
    Text11.Enabled = False
    Text13.Enabled = False
    Combo6.Enabled = False
    studentmdi.StatusBar1.Panels.Item(1).Text = "修改学生宿舍信息"
End Sub


Public Sub viewdata()       '由于程序中各处需要显示数据，定义函数ViewData
    Combo4.Text = dream.Fields(0)
    Text7.Text = dream.Fields(1)
    Text8.Text = dream.Fields(2)
    Combo5.Text = dream.Fields(3)
    Combo6.Text = dream.Fields(4)
    Text9.Text = dream.Fields(5)
    Text10.Text = dream.Fields(6)
    Text11.Text = dream.Fields(7)
    Text13.Text = dream.Fields(8)
End Sub
上一页 1 2 34
💿 文件大小 210 K
👤 上传用户 karon9999
📂 所属分类数据库系统
🏷️ 相关标签

#数据库系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -