delphi7+sql的两位数加减法系统,如何做出按下回车后向数据库插入用户ID，用户姓名，题号，做题时间

你可以创建一个包含用户ID、用户姓名、题号和做题时间的表格，然后在用户完成题目后，将这些信息插入到表格中。以下是一个简单的示例代码：

首先，创建一个表格来存储用户信息和题目信息。表格中可以包含以下字段：

- ID：自动编号，用于唯一标识每一条记录
- UserID：整数，表示用户ID
- UserName：字符串，表示用户姓名
- QuestionID：整数，表示题号
- Answer：整数，表示用户的答案
- TimeCost：整数，表示用户做题时间

接下来，在用户完成题目后，可以在提交按钮的 OnClick 事件中添加以下代码来将用户信息和题目信息插入到表格中：

// 获取用户ID和姓名
var
  userID: Integer;
  userName: String;
begin
  // 假设用户ID和姓名已经通过全局变量 CurrentUser 获取到了
  userID := CurrentUser.ID;
  userName := CurrentUser.Name;
  
  // 获取题目信息
  var
    questionID: Integer;
    answer: Integer;
    timeCost: Integer;
  begin
    // 假设题目信息已经通过界面获取到了
    questionID := StrToInt(EditQuestionID.Text);
    answer := StrToInt(EditAnswer.Text);
    timeCost := StrToInt(EditTimeCost.Text);
    
    // 将用户信息和题目信息插入到表格中
    var
      query: TADOQuery;
    begin
      query := TADOQuery.Create(Self);
      try
        query.Connection := ADOConnection1;
        query.SQL.Text := 'INSERT INTO TestResult (UserID, UserName, QuestionID, Answer, TimeCost) ' +
                          'VALUES (:UserID, :UserName, :QuestionID, :Answer, :TimeCost)';
        query.Parameters.ParamByName('UserID').Value := userID;
        query.Parameters.ParamByName('UserName').Value := userName;
        query.Parameters.ParamByName('QuestionID').Value := questionID;
        query.Parameters.ParamByName('Answer').Value := answer;
        query.Parameters.ParamByName('TimeCost').Value := timeCost;
        query.ExecSQL;
      finally
        query.Free;
      end;
    end;
  end;
end;

这样，当用户完成题目并点击提交按钮后，程序会将用户信息和题目信息插入到表格中。