diff options
| -rwxr-xr-x | GradeBook.tcl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index cb86d94..daf3688 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -62,6 +62,10 @@ proc CreatePasswordsTable {db} { proc CreateGradesTable {db} { db eval {CREATE TABLE GradesTable(FirstName text, LastName text, UserName text, HW01 real)} + set eval_str [list INSERT INTO GradesTable VALUES('','', '_Col_Category_', '')] + db eval $eval_str + set eval_str [list INSERT INTO GradesTable VALUES('','', '_Max_Points_', '')] + db eval $eval_str set eval_str [list INSERT INTO GradesTable VALUES('John','Lname1', 'jhn', 7)] db eval $eval_str set eval_str [list INSERT INTO GradesTable VALUES('Ale','Lname2', 'ale', 5)] |