update a little

Author: njzjz

Chemistry.vbp

@@ -23,13 +23,16 @@ ExeName32="Chemistry.exe"
 Command32=""
 Name="ChemicalTools"
 HelpContextID="0"
+Description="Chemical Tools"
 CompatibleMode="0"
-MajorVer=1
+MajorVer=2
 MinorVer=0
-RevisionVer=0
-AutoIncrementVer=0
+RevisionVer=3
+AutoIncrementVer=1
 ServerSupportFiles=0
-VersionCompanyName="����ʦ����ѧ"
+VersionCompanyName="����ʦ����ѧ�Ŷ�һ��"
+VersionFileDescription="Chemical Tools"
+VersionProductName="Chemical Tools"
 CompilationType=0
 OptimizationType=0
 FavorPentiumPro(tm)=0
@@ -45,3 +48,4 @@ Unattended=0
 Retained=0
 ThreadPerObject=0
 MaxNumberOfThreads=1
+DebugStartupOption=0

Chemistry.vbw

@@ -1,13 +1,13 @@
-frmMain = 212, 151, 740, 562, , 298, 28, 891, 616, C
-modCalculate = -25, 70, 902, 494, 
-modData = 180, -16, 1045, 526, 
-frmElement = 34, 92, 920, 532, , 104, 104, 990, 544, C
-frmMass = 214, 191, 1104, 631, , 325, 116, 1211, 610, C
-modUI = -2, 379, 884, 815, 
-modMain = 199, 274, 1085, 714, 
-modExam = 40, 26, 926, 466, 
-frmExam = 162, 158, 1093, 598, , 133, 77, 1019, 548, C
+frmMain = 212, 151, 740, 562, C, 298, 28, 891, 616, C
+modCalculate = -25, 70, 902, 494, C
+modData = 180, -16, 1045, 526, C
+frmElement = 34, 92, 920, 532, C, 104, 104, 990, 544, C
+frmMass = 214, 191, 1104, 631, C, 43, 123, 929, 617, C
+modUI = -2, 379, 884, 815, C
+modMain = 194, 289, 1080, 729, C
+modExam = 40, 26, 926, 466, C
+frmExam = 162, 158, 1093, 598, C, 133, 77, 1019, 548, C
 frmAbout = 104, 104, 989, 544, , 156, 142, 1042, 596, C
-frmOptions = 160, 118, 1046, 558, , 108, 6, 994, 564, C
-frmLogin = 208, 208, 735, 632, Z, 74, 117, 601, 541, C
-frmSignUp = 0, 0, 527, 424, , 499, 63, 1026, 487, C
+frmOptions = 160, 118, 1046, 558, C, 108, 6, 994, 564, C
+frmLogin = 208, 208, 735, 632, C, 74, 117, 601, 541, C
+frmSignUp = 0, 0, 527, 424, C, 499, 63, 1026, 487, C

frmAbout.frm

@@ -20,15 +20,15 @@ Begin VB.Form frmAbout
    Begin VB.PictureBox picIcon 
       AutoSize        =   -1  'True
       ClipControls    =   0   'False
-      Height          =   540
+      Height          =   780
       Left            =   240
       Picture         =   "frmAbout.frx":1B692
-      ScaleHeight     =   337.12
+      ScaleHeight     =   505.68
       ScaleMode       =   0  'User
-      ScaleWidth      =   337.12
+      ScaleWidth      =   505.68
       TabIndex        =   1
-      Top             =   2160
-      Width           =   540
+      Top             =   2040
+      Width           =   780
    End
    Begin VB.CommandButton cmdOK 
       Cancel          =   -1  'True
@@ -43,7 +43,7 @@ Begin VB.Form frmAbout
    Begin VB.Image imgClose 
       Height          =   450
       Left            =   5280
-      Picture         =   "frmAbout.frx":1B99C
+      Picture         =   "frmAbout.frx":36D24
       Stretch         =   -1  'True
       Top             =   0
       Width           =   450
@@ -52,7 +52,7 @@ Begin VB.Form frmAbout
       Appearance      =   0  'Flat
       Height          =   2145
       Left            =   -720
-      Picture         =   "frmAbout.frx":1CE90
+      Picture         =   "frmAbout.frx":38218
       Stretch         =   -1  'True
       Top             =   -240
       Width           =   7575
@@ -68,7 +68,7 @@ Begin VB.Form frmAbout
    End
    Begin VB.Label lblDescription 
       BackStyle       =   0  'Transparent
-      Caption         =   "本作品为华东师范大学本科生计算机应用能力大赛参赛作品，由团队一号设计。"
+      Caption         =   $"frmAbout.frx":439B2
       BeginProperty Font 
          Name            =   "微软雅黑"
          Size            =   9
@@ -79,10 +79,10 @@ Begin VB.Form frmAbout
          Strikethrough   =   0   'False
       EndProperty
       ForeColor       =   &H00000000&
-      Height          =   810
-      Left            =   960
+      Height          =   1170
+      Left            =   1200
       TabIndex        =   2
-      Top             =   3360
+      Top             =   2880
       Width           =   3885
    End
    Begin VB.Label lblTitle 
@@ -99,9 +99,9 @@ Begin VB.Form frmAbout
       EndProperty
       ForeColor       =   &H00000000&
       Height          =   480
-      Left            =   960
+      Left            =   1200
       TabIndex        =   4
-      Top             =   2160
+      Top             =   2040
       Width           =   3885
    End
    Begin VB.Label lblVersion 
@@ -117,9 +117,9 @@ Begin VB.Form frmAbout
          Strikethrough   =   0   'False
       EndProperty
       Height          =   345
-      Left            =   960
+      Left            =   1200
       TabIndex        =   5
-      Top             =   2760
+      Top             =   2520
       Width           =   3885
    End
    Begin VB.Label lblDisclaimer 
@@ -170,4 +170,3 @@ Private Sub imgTitle_MouseDown(Button As Integer, Shift As Integer, x As Single,
     ReleaseCapture
     SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
 End Sub
-

frmAbout.frx

@@ -132,14 +132,7 @@ Public Function dataSettingDir()
         Call dataSettingWrite("Exam", "ScoreMax", "0")
         Call dataSettingWrite("Exam", "ScoreName", "N/A")
         Call dataSettingWrite("Exam", "ScoreTime", "N/A")
-    End If
-End Function
-
-Public Function dataSettingLoad()
-    If dataDir(dataSettingPath) = True Then
-        ExamScoreMaxAll = Int(Val(dataSettingRead("Exam", "ScoreMax")))
-        ExamScoreNameAll = dataSettingRead("Exam", "ScoreName")
-        ExamScoreTimeAll = dataSettingRead("Exam", "ScoreTime")
+        Call dataSettingWrite("History", "HisUsername", "")
     End If
 End Function
 
@@ -173,7 +166,12 @@ Public Function dataScoreSave(Username As String)
 End Function
 
 Public Function dataHistoryRead()
-    HisUsername = dataSettingRead("History", "Username")
+    If dataDir(dataSettingPath) = True Then
+        ExamScoreMaxAll = Int(Val(dataSettingRead("Exam", "ScoreMax")))
+        ExamScoreNameAll = dataSettingRead("Exam", "ScoreName")
+        ExamScoreTimeAll = dataSettingRead("Exam", "ScoreTime")
+        HisUsername = dataSettingRead("History", "Username")
+    End If
 End Function
 
 Public Function dataLogin(Username As String, Password As String) As Boolean

mdb/User.mdb

@@ -2,7 +2,6 @@ Attribute VB_Name = "modMain"
 Sub Main()
     Call dataBaseDir
     Call dataSettingDir
-    Call dataSettingLoad
     Call dataHistoryRead
     Load frmLogin
     frmLogin.Show