fox-infofrmoptions.frm

vb 编写的获得系统硬件信息的程序

End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub CpuUpdateSpeed_Click()
    Set WS = DBEngine.Workspaces(0)
        DbFile = (App.Path & "\Data\Options.mdb")
        PwdString = "swordfishofvolen"
    Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
    Set rs = db.OpenRecordset("tblOptions", dbOpenTable)
    
    Select Case CpuUpdateSpeed.ListIndex
    Case 4
    rs.Edit
    rs("CPUupdatespeed") = 250
    rs.Update
    Form2.Timer1.Interval = 250
    Case 3
    rs.Edit
    rs("CPUupdatespeed") = 500
    rs.Update
    Form2.Timer1.Interval = 500
    Case 2
    rs.Edit
    rs("CPUupdatespeed") = 1000
    rs.Update
    Form2.Timer1.Interval = 1000
    Case 1
    rs.Edit
    rs("CPUupdatespeed") = 2000
    rs.Update
    Form2.Timer1.Interval = 2000
    Case 0
    rs.Edit
    rs("CPUupdatespeed") = 3000
    rs.Update
    Form2.Timer1.Interval = 3000
    End Select
End Sub

Private Sub Form_Load()
Dim DbFile
Dim PwdString
TOPmostPOSITIONonSCREEN_Click
'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
RamUpdateSpeed.AddItem "非常慢 ( 3000 毫秒 )"
RamUpdateSpeed.AddItem "慢 ( 2000 毫秒 )"
RamUpdateSpeed.AddItem "正常速度 ( 1000 毫秒 )"
RamUpdateSpeed.AddItem "快 ( 500 毫秒 )"
RamUpdateSpeed.AddItem "非常快 ( 250 毫秒 )"
'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
CpuUpdateSpeed.AddItem "非常慢 ( 3000 毫秒 )"
CpuUpdateSpeed.AddItem "慢 ( 2000 毫秒 )"
CpuUpdateSpeed.AddItem "正常速度 ( 1000 毫秒 )"
CpuUpdateSpeed.AddItem "快 ( 500 毫秒 )"
CpuUpdateSpeed.AddItem "非常快 ( 250 毫秒 )"
'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
PagingFileUpdateSpeed.AddItem "非常慢 ( 3000 毫秒 )"
PagingFileUpdateSpeed.AddItem "慢 ( 2000 毫秒 )"
PagingFileUpdateSpeed.AddItem "正常速度 ( 1000 毫秒 )"
PagingFileUpdateSpeed.AddItem "快 ( 500 毫秒 )"
PagingFileUpdateSpeed.AddItem "非常快 ( 250 毫秒 )"
'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Set WS = DBEngine.Workspaces(0)
    DbFile = (App.Path & "\Data\Options.mdb")
    PwdString = "swordfishofvolen"
Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
Set rs = db.OpenRecordset("tblOptions", dbOpenTable)
Select Case rs("CPUupdatespeed")
Case 250
CpuUpdateSpeed.ListIndex = 4
Case 500
CpuUpdateSpeed.ListIndex = 3
Case 1000
CpuUpdateSpeed.ListIndex = 2
Case 2000
CpuUpdateSpeed.ListIndex = 1
Case 3000
CpuUpdateSpeed.ListIndex = 0
End Select

Select Case rs("PagingFileUpdateSpeed")
Case 250
PagingFileUpdateSpeed.ListIndex = 4
Case 500
PagingFileUpdateSpeed.ListIndex = 3
Case 1000
PagingFileUpdateSpeed.ListIndex = 2
Case 2000
PagingFileUpdateSpeed.ListIndex = 1
Case 3000
PagingFileUpdateSpeed.ListIndex = 0
End Select

Select Case rs("Ramupdatespeed")
Case 250
RamUpdateSpeed.ListIndex = 4
Case 500
RamUpdateSpeed.ListIndex = 3
Case 1000
RamUpdateSpeed.ListIndex = 2
Case 2000
RamUpdateSpeed.ListIndex = 1
Case 3000
RamUpdateSpeed.ListIndex = 0
End Select
End Sub

Private Sub lblBlue_Click()
    Set WS = DBEngine.Workspaces(0)
        DbFile = (App.Path & "\Data\Options.mdb")
        PwdString = "swordfishofvolen"
    Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
    Set rs = db.OpenRecordset("tblOptions", dbOpenTable)
    
    rs.Edit
    rs("CPUcolor") = lblBlue.BackColor
    rs.Update
    
    Form2.CPUBAR.FillColor = lblBlue.BackColor
End Sub

Private Sub lblGreen_Click()
    Set WS = DBEngine.Workspaces(0)
        DbFile = (App.Path & "\Data\Options.mdb")
        PwdString = "swordfishofvolen"
    Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
    Set rs = db.OpenRecordset("tblOptions", dbOpenTable)
    
    rs.Edit
    rs("CPUcolor") = lblGreen.BackColor
    rs.Update
    
    Form2.CPUBAR.FillColor = lblGreen.BackColor
End Sub

Private Sub lblGrey_Click()
    Set WS = DBEngine.Workspaces(0)
       DbFile = (App.Path & "\Data\Options.mdb")
        PwdString = "swordfishofvolen"
    Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
    Set rs = db.OpenRecordset("tblOptions", dbOpenTable)
    
    rs.Edit
    rs("CPUcolor") = lblGrey.BackColor
    rs.Update
    
    Form2.CPUBAR.FillColor = lblGrey.BackColor
End Sub

Private Sub lblRed_Click()
    Set WS = DBEngine.Workspaces(0)
        DbFile = (App.Path & "\Data\Options.mdb")
        PwdString = "swordfishofvolen"
    Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
    Set rs = db.OpenRecordset("tblOptions", dbOpenTable)
    
    rs.Edit
    rs("CPUcolor") = lblRed.BackColor
    rs.Update
    
    Form2.CPUBAR.FillColor = lblRed.BackColor
End Sub

Private Sub lblWhite_Click()
    Set WS = DBEngine.Workspaces(0)
        DbFile = (App.Path & "\Data\Options.mdb")
        PwdString = "swordfishofvolen"
    Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
    Set rs = db.OpenRecordset("tblOptions", dbOpenTable)
    
    rs.Edit
    rs("CPUcolor") = lblWhite.BackColor
    rs.Update
    
    Form2.CPUBAR.FillColor = lblWhite.BackColor
End Sub

Private Sub lblYellow_Click()
    Set WS = DBEngine.Workspaces(0)
        DbFile = (App.Path & "\Data\Options.mdb")
        PwdString = "swordfishofvolen"
    Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
    Set rs = db.OpenRecordset("tblOptions", dbOpenTable)
    
    rs.Edit
    rs("CPUcolor") = lblYellow.BackColor
    rs.Update
    
    Form2.CPUBAR.FillColor = lblYellow.BackColor
End Sub

Private Sub PagingFileUpdateSpeed_Click()
    Set WS = DBEngine.Workspaces(0)
        DbFile = (App.Path & "\Data\Options.mdb")
        PwdString = "swordfishofvolen"
    Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
    Set rs = db.OpenRecordset("tblOptions", dbOpenTable)
    
    Select Case PagingFileUpdateSpeed.ListIndex
    Case 4
    rs.Edit
    rs("PagingFileUpdateSpeed") = 250
    rs.Update
    Form2.Timer3.Interval = 250
    Case 3
    rs.Edit
    rs("PagingFileUpdateSpeed") = 500
    rs.Update
    Form2.Timer3.Interval = 500
    Case 2
    rs.Edit
    rs("PagingFileUpdateSpeed") = 1000
    rs.Update
    Form2.Timer3.Interval = 1000
    Case 1
    rs.Edit
    rs("PagingFileUpdateSpeed") = 2000
    rs.Update
    Form2.Timer3.Interval = 2000
    Case 0
    rs.Edit
    rs("PagingFileUpdateSpeed") = 3000
    rs.Update
    Form2.Timer3.Interval = 3000
    End Select
End Sub

Private Sub RamUpdateSpeed_Click()
    Set WS = DBEngine.Workspaces(0)
        DbFile = (App.Path & "\Data\Options.mdb")
        PwdString = "swordfishofvolen"
    Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
    Set rs = db.OpenRecordset("tblOptions", dbOpenTable)
    
    Select Case RamUpdateSpeed.ListIndex
    Case 4
    rs.Edit
    rs("RamUpdateSpeed") = 250
    rs.Update
    Form2.RAMtimer.Interval = 250
    Case 3
    rs.Edit
    rs("RamUpdateSpeed") = 500
    rs.Update
    Form2.RAMtimer.Interval = 500
    Case 2
    rs.Edit
    rs("RamUpdateSpeed") = 1000
    rs.Update
    Form2.RAMtimer.Interval = 1000
    Case 1
    rs.Edit
    rs("RamUpdateSpeed") = 2000
    rs.Update
    Form2.RAMtimer.Interval = 2000
    Case 0
    rs.Edit
    rs("RamUpdateSpeed") = 3000
    rs.Update
    Form2.RAMtimer.Interval = 3000
    End Select
End Sub