module1.bas

原代码功能:是一个的单词记学习器,实现单词的浏览,还可以自己添加自己所要学习的单词,用一个对话框进行单词的浏览.

Attribute VB_Name = "Module1"
Public ROOT As String
Public CONFSTR As config


Type config

wordstart As String * 2
wordstop As String * 2
initlib As String * 30
stylecolor As String * 20
speet As Single               '以秒为单位

End Type


Type curRs

id As Integer
spell As String * 50
property As String * 10
interpret As String * 50
topasc As Byte

End Type

Public Sub checkConfig()
 
 Dim cfg As config
 
 cfg.initlib = "words"
 cfg.speet = 1
 cfg.stylecolor = &H8000000F
 cfg.wordstart = "A"
 cfg.wordstop = "Z"
 
 e = Dir(ROOT & "/config.db")
 
If e = "" Then
 Open ROOT & "/config.db" For Random As #1
  Put #1, 1, cfg
  Put #1, 2, cfg
 Close #1
End If

End Sub

Public Sub loadConfig()

Call checkConfig
Open ROOT & "/config.db" For Random As #1
Get #1, 2, CONFSTR
Close #1

End Sub

Public Sub writeConfig(cfg As config)
 
 Call checkConfig
 Open ROOT & "/config.db" For Random As #1
 Put #1, 2, cfg
 Close #1
 
End Sub

Public Sub setDefault()
 
 Call checkConfig
 Open ROOT & "/config.db" For Random As #1
 Get #1, 1, CONFSTR
 Close #1
 
End Sub

Public Sub initMainForm()

 Dim colorSets As String
 colorSets = Trim(CONFSTR.stylecolor)
 frmMain.BackColor = colorSets
 frmMain.lblSpell.BackColor = colorSets
 frmMain.lblProperty.BackColor = colorSets
 frmMain.lblInterpret.BackColor = colorSets
 frmMain.Timer1.Interval = CInt(Trim(CONFSTR.speet)) * 1000
 
 Dim stw As Byte, stpw As Byte
 stw = CInt(Asc(Trim(CONFSTR.wordstart))): stpw = CInt(Asc(Trim(CONFSTR.wordstop)))
 Dim src As String, db As String
 db = Trim(CONFSTR.initlib)
 src = "SELECT * FROM  " & db & "  WHERE topasc  >=  " & stw & "  AND topasc <= " & stpw & " ORDER BY topasc ASC"
 frmMain.Data1.RecordSource = src
 frmMain.Data1.Refresh
 
End Sub