?? frmmain3.frm

?? Vb以及SQL的學(xué)生信息系統(tǒng) 軟件簡介: 學(xué)生信息管理系統(tǒng)
?? FRM
?? 第 1 頁 / 共 3 頁
字號:
上一頁 1 23
              Dbstudent.Execute sqlDest
              '復(fù)制余下數(shù)據(jù)
              recDest.AddNew
              For K = 1 To Number
                recDest.Fields(K).Value = recSource.Fields(K).Value
              Next K
              recDest.Update
          End If
      Else
          '復(fù)制余下數(shù)據(jù)
           recDest.AddNew
           For K = 1 To Number
             recDest.Fields(K).Value = recSource.Fields(K).Value
           Next K
           recDest.Update
      End If
    Next I
    MsgBox "導(dǎo)入數(shù)據(jù)成功!", vbInformation + vbOKOnly, "導(dǎo)入信息提示"
    Screen.MousePointer = 0
    Exit Sub
Else
    MsgBox "導(dǎo)入過程錯誤,請檢查軟盤是否插入軟驅(qū)或軟盤上是否有數(shù)據(jù)文件!", vbInformation + vbOKOnly, "導(dǎo)入信息提示"
    Exit Sub
End If
Screen.MousePointer = 0
End Sub

Public Sub CopyRecordXueH(ByVal REC As String, ByVal Number As Integer)
'生成recsourc表
On Error Resume Next
Dim recSource As Recordset
Dim sqlForCopy As String
Dim recDest As Recordset
Dim recRepeat As Recordset
Dim sqlDest As String
sqlForCopy = "select * from " + Trim(REC) + ""
Set recSource = dbOldStudent.OpenRecordset(sqlForCopy, dbOpenSnapshot)

If recSource.RecordCount > 0 Then
'處理重復(fù)數(shù)據(jù)并復(fù)制數(shù)據(jù)
    '讀第一條記錄
    recSource.MoveLast
    recSource.MoveFirst
    sqlDest = "select top 1 * from " + Trim(REC) + " where xueh='" + Trim(recSource!XueH) + "'"
    Set recRepeat = Dbstudent.OpenRecordset(sqlDest, dbOpenSnapshot)
    If recRepeat.RecordCount > 0 Then
        If MsgBox("您確定替換" & "" + Trim(recRepeat!XingM) + "", vbInformation + vbOKCancel) = vbOK Then
            sqlDest = "delete * from " + Trim(REC) + " where xueh='" + Trim(recSource!XueH) + "'"
            Dbstudent.Execute sqlDest
             '復(fù)制第一條記錄
            Set recDest = Dbstudent.OpenRecordset("" + Trim(REC) + "")
            recDest.AddNew
            For K = 0 To Number - 1
              recDest.Fields(K).Value = recSource.Fields(K).Value
            Next K
            recDest.Update
        End If
    Else
        Set recDest = Dbstudent.OpenRecordset("" + Trim(REC) + "")
        recDest.AddNew
        For K = 0 To Number - 1
          recDest.Fields(K).Value = recSource.Fields(K).Value
        Next K
        recDest.Update
    End If
    '處理余下記錄
    For I = 1 To recSource.RecordCount - 1
      recSource.MoveNext
      sqlDest = "select top 1 * from " + Trim(REC) + " where xueh='" + Trim(recSource!XueH) + "'"
      Set recRepeat = Dbstudent.OpenRecordset(sqlDest, dbOpenSnapshot)
      If recRepeat.RecordCount > 0 Then
          If MsgBox("您確定替換" & "" + Trim(recRepeat!XingM) + "", vbInformation + vbOKCancel) = vbOK Then
              sqlDest = "delete * from " + Trim(REC) + " where xueh='" + Trim(recSource!XueH) + "'"
              Dbstudent.Execute sqlDest
              '復(fù)制余下數(shù)據(jù)
              recDest.AddNew
              For K = 0 To Number - 1
                recDest.Fields(K).Value = recSource.Fields(K).Value
              Next K
              recDest.Update
          End If
      Else
          '復(fù)制余下數(shù)據(jù)
           recDest.AddNew
           For K = 0 To Number - 1
             recDest.Fields(K).Value = recSource.Fields(K).Value
           Next K
           recDest.Update
      End If
    Next I
    MsgBox "導(dǎo)入數(shù)據(jù)成功", vbInformation, "導(dǎo)入信息提示"
    Screen.MousePointer = 0
    Exit Sub
Else
    MsgBox "導(dǎo)入過程錯誤,請檢查軟盤是否插入軟驅(qū)或軟盤上是否有數(shù)據(jù)文件!", vbInformation + vbOKOnly, "導(dǎo)入信息提示"
    Exit Sub
End If
Screen.MousePointer = 0
End Sub


'導(dǎo)出函數(shù)
Public Sub CopyRecordXHO(ByVal REC As String, ByVal Number As Integer)
'生成recsourc表
On Error Resume Next
Dim sqlForCopy As String
Dim recSource As Recordset
Dim recDest As Recordset
Dim recRepeat As Recordset
Dim sqlDest As String
sqlForCopy = "select * from " + Trim(REC) + ""
Set recSource = Dbstudent.OpenRecordset(sqlForCopy, dbOpenSnapshot)

If recSource.RecordCount > 0 Then
'處理重復(fù)數(shù)據(jù)并復(fù)制數(shù)據(jù)
    '讀第一條記錄
    recSource.MoveLast
    recSource.MoveFirst
    sqlDest = "select top 1 * from " + Trim(REC) + " where xh='" + Trim(recSource!XH) + "'"
    Set recRepeat = Dbstudent.OpenRecordset(sqlDest, dbOpenSnapshot)
    If recRepeat.RecordCount > 0 Then
        If MsgBox("您確定替換" & "" + Trim(recRepeat!XM) + "", vbInformation + vbOKCancel) = vbOK Then
            sqlDest = "delete * from " + Trim(REC) + " where xh='" + Trim(recSource!XH) + "'"
            Dbstudent.Execute sqlDest
             '復(fù)制第一條記錄
            Set recDest = Dbstudent.OpenRecordset("" + Trim(REC) + "")
            recDest.AddNew
            For K = 1 To Number
              recDest.Fields(K).Value = recSource.Fields(K).Value
            Next K
            recDest.Update
        End If
    Else
        Set recDest = Dbstudent.OpenRecordset("" + Trim(REC) + "")
        recDest.AddNew
        For K = 1 To Number
          recDest.Fields(K).Value = recSource.Fields(K).Value
        Next K
        recDest.Update
    End If
    '處理余下記錄
    For I = 1 To recSource.RecordCount - 1
      recSource.MoveNext
      sqlDest = "select top 1 * from " + Trim(REC) + " where xh='" + Trim(recSource!XH) + "'"
      Set recRepeat = Dbstudent.OpenRecordset(sqlDest, dbOpenSnapshot)
      If recRepeat.RecordCount > 0 Then
          If MsgBox("您確定替換" & "" + Trim(recRepeat!XM) + "", vbInformation + vbOKCancel) = vbOK Then
              sqlDest = "delete * from " + Trim(REC) + " where xh='" + Trim(recSource!XH) + "'"
              Dbstudent.Execute sqlDest
              '復(fù)制余下數(shù)據(jù)
              recDest.AddNew
              For K = 1 To Number
                recDest.Fields(K).Value = recSource.Fields(K).Value
              Next K
              recDest.Update
          End If
      Else
          '復(fù)制余下數(shù)據(jù)
           recDest.AddNew
           For K = 1 To Number
             recDest.Fields(K).Value = recSource.Fields(K).Value
           Next K
           recDest.Update
      End If
    Next I
    MsgBox "導(dǎo)入成功", vbCritical
End If
    
End Sub

Public Sub CopyRecordXueHO(ByVal REC As String, ByVal Number As Integer)
'生成recsourc表
On Error Resume Next
Dim recSource As Recordset
Dim sqlForCopy As String
Dim recDest As Recordset
Dim recRepeat As Recordset
Dim sqlDest As String
sqlForCopy = "select * from " + Trim(REC) + ""
Set recSource = dbOldStudent.OpenRecordset(sqlForCopy, dbOpenSnapshot)

If recSource.RecordCount > 0 Then
'處理重復(fù)數(shù)據(jù)并復(fù)制數(shù)據(jù)
    '讀第一條記錄
    recSource.MoveLast
    recSource.MoveFirst
    sqlDest = "select top 1 * from " + Trim(REC) + " where xueh='" + Trim(recSource!XueH) + "'"
    Set recRepeat = Dbstudent.OpenRecordset(sqlDest, dbOpenSnapshot)
    If recRepeat.RecordCount > 0 Then
        If MsgBox("您確定替換" & "" + Trim(recRepeat!XingM) + "", vbInformation + vbOKCancel) = vbOK Then
            sqlDest = "delete * from " + Trim(REC) + " where xueh='" + Trim(recSource!XueH) + "'"
            Dbstudent.Execute sqlDest
             '復(fù)制第一條記錄
            Set recDest = Dbstudent.OpenRecordset("" + Trim(REC) + "")
            recDest.AddNew
            For K = 0 To Number - 1
              recDest.Fields(K).Value = recSource.Fields(K).Value
            Next K
            recDest.Update
        End If
    Else
        Set recDest = Dbstudent.OpenRecordset("" + Trim(REC) + "")
        recDest.AddNew
        For K = 0 To Number - 1
          recDest.Fields(K).Value = recSource.Fields(K).Value
        Next K
        recDest.Update
    End If
    '處理余下記錄
    For I = 1 To recSource.RecordCount - 1
      recSource.MoveNext
      sqlDest = "select top 1 * from " + Trim(REC) + " where xueh='" + Trim(recSource!XueH) + "'"
      Set recRepeat = Dbstudent.OpenRecordset(sqlDest, dbOpenSnapshot)
      If recRepeat.RecordCount > 0 Then
          If MsgBox("您確定替換" & "" + Trim(recRepeat!XingM) + "", vbInformation + vbOKCancel) = vbOK Then
              sqlDest = "delete * from " + Trim(REC) + " where xueh='" + Trim(recSource!XueH) + "'"
              Dbstudent.Execute sqlDest
              '復(fù)制余下數(shù)據(jù)
              recDest.AddNew
              For K = 0 To Number - 1
                recDest.Fields(K).Value = recSource.Fields(K).Value
              Next K
              recDest.Update
          End If
      Else
          '復(fù)制余下數(shù)據(jù)
           recDest.AddNew
           For K = 0 To Number - 1
             recDest.Fields(K).Value = recSource.Fields(K).Value
           Next K
           recDest.Update
      End If
    Next I
    MsgBox "導(dǎo)入成功", vbCritical
End If
    
End Sub


Public Sub CopyRecordOut0(ByVal REC As String, ByVal Number As Integer)
'生成recsourc表
On Error Resume Next
Dim sqlForCopy As String
Dim recSource As Recordset
Dim recDest As Recordset

sqlForCopy = "select * from " + Trim(REC) + ""
Set recSource = Dbstudent.OpenRecordset(sqlForCopy, dbOpenSnapshot)

'刪去所有數(shù)據(jù)
Set dbOldStudent = OpenDatabase("a:\student.mdb", False, False)
sqlForCopy = "delete * from " + Trim(REC) + ""
dbOldStudent.Execute sqlForCopy

If recSource.RecordCount > 0 Then

    '讀第一條記錄并復(fù)制
    recSource.MoveLast
    recSource.MoveFirst
    Set recDest = dbOldStudent.OpenRecordset("" + Trim(REC) + "")
    recDest.AddNew
    For K = 1 To Number
      recDest.Fields(K).Value = recSource.Fields(K).Value
    Next K
    recDest.Update
    
    '處理余下記錄
    For I = 1 To recSource.RecordCount - 1
      recSource.MoveNext
      recDest.AddNew
      For K = 1 To Number
        recDest.Fields(K).Value = recSource.Fields(K).Value
      Next K
      recDest.Update
    Next I
    
    MsgBox "數(shù)據(jù)導(dǎo)出成功！", vbInformation, "導(dǎo)出信息提示"
    
End If
dbOldStudent.Close
End Sub


Public Sub CopyRecordOut1(ByVal REC As String, ByVal Number As Integer)
'生成recsourc表
On Error Resume Next
Dim sqlForCopy As String
Dim recSource As Recordset
Dim recDest As Recordset

sqlForCopy = "select * from " + Trim(REC) + ""
Set recSource = Dbstudent.OpenRecordset(sqlForCopy, dbOpenSnapshot)

'刪去所有數(shù)據(jù)
Set dbOldStudent = OpenDatabase("a:\student.mdb", False, False)
sqlForCopy = "delete * from " + Trim(REC) + ""
dbOldStudent.Execute sqlForCopy

If recSource.RecordCount > 0 Then

    '讀第一條記錄并復(fù)制
    recSource.MoveLast
    recSource.MoveFirst
    Set recDest = dbOldStudent.OpenRecordset("" + Trim(REC) + "")
    recDest.AddNew
    For K = 0 To Number - 1
      recDest.Fields(K).Value = recSource.Fields(K).Value
    Next K
    recDest.Update
    
    '處理余下記錄
    For I = 1 To recSource.RecordCount - 1
      recSource.MoveNext
      recDest.AddNew
      For K = 0 To Number - 1
        recDest.Fields(K).Value = recSource.Fields(K).Value
      Next K
      recDest.Update
    Next I
    
    MsgBox "導(dǎo)出成功", vbCritical
   
End If
dbOldStudent.Close
End Sub
Function FileExists(ByVal FileName As String) As Integer
Dim temp$
    FileExists = True
On Error Resume Next
    temp$ = FileDateTime(FileName)
    Select Case err
        Case 53, 76, 68   'File Does Not Exist
            FileExists = False
            err = 0
        Case Else
            If err <> 0 Then
                'MsgBox "導(dǎo)入過程出錯，請檢查軟盤是否插入軟驅(qū)中！", vbExclamation, "出錯信息提示"
                'end
            End If
    End Select
End Function

Private Sub MNUXXKC_Click()
FRMXXKC.Show 1
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Index
    Case 1
    Call MNUEXIT_Click
    Case 3
    Call MNUBASE1_Click
    Case 4
    Call MNUBASE2_Click
    Case 5
    Call MNUBASE3_Click
    Case 6
    Call MNUBASE4_Click
    Case 8
    Call MNUMARKADD_Click
    Case 9
    Call MNUMARK1_Click
    End Select
End Sub
上一頁 1 23
?? 文件大小 1049 K
?? 上傳用戶 hahuhuhuhu
?? 所屬分類教育系統(tǒng)應(yīng)用
??? 相關(guān)標(biāo)簽

#SQL #信息系統(tǒng) #信息管理系統(tǒng) #軟件
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmmain3.frm

?? 快捷鍵說明
