Delphi7 如何自动生成题号

在 Delphi7 中，可以使用 `TQuery` 组件和 SQL 语句来自动生成题号。具体实现步骤如下：

1. 在 Delphi7 中创建一个新的项目，然后添加 `TQuery` 和 `TDataSource` 组件到窗体上。

2. 双击 `TQuery` 组件，在弹出的属性编辑器中，设置 `Connection` 属性为你所连接的数据库。

3. 在 `TQuery` 的 `SQL` 属性中输入以下 SQL 语句：

   SELECT MAX(QuestionNo) AS MaxQuestionNo FROM Table1

其中，`Table1` 为你存储题号的表名，`QuestionNo` 为你存储题号的字段名。

4. 在 Delphi7 窗体上添加一个按钮，双击按钮，编写以下代码：

   var
     MaxQuestionNo: Integer;
   begin
     Query1.Open;
     try
       MaxQuestionNo := Query1.FieldByName('MaxQuestionNo').AsInteger;
       // 自动生成题号
       Edit1.Text := IntToStr(MaxQuestionNo + 1);
     finally
       Query1.Close;
     end;
   end;

该代码将从数据库中获取最大的题号，然后将其加 1，作为下一道题的题号。最后，将生成的题号显示在一个名为 `Edit1` 的文本框中。

完成上述步骤后，每次单击按钮时，都会自动生成一个新的题号。同时，将自动生成的题号保存到数据库中，以便下次使用。