delphi 7 combobox存到ACCESS是编号，显示为汉字

要在 Delphi 7 中将 ComboBox 中的汉字显示保存为编号，并将编号存储到 Access 数据库中，您可以使用 ComboBox 的 ItemIndex 属性来获取选中项的索引，然后将索引作为编号保存到数据库中。同时，您可以使用 ComboBox 的 Items 属性来设置索引与汉字之间的对应关系。以下是一个示例代码：

uses
  ADODB;

procedure TForm1.btnSaveClick(Sender: TObject);
var
  Connection: TADOConnection;
  Query: TADOQuery;
begin
  Connection := TADOConnection.Create(nil);
  Query := TADOQuery.Create(nil);
  try
    Connection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Path\To\Your\Database.mdb';
    Connection.LoginPrompt := False;
    Connection.Connected := True;

    Query.Connection := Connection;
    Query.SQL.Text := 'INSERT INTO TableName (Field1) VALUES (:Value1)';
    Query.Parameters.ParamByName('Value1').Value := ComboBox1.ItemIndex; // 将选中项的索引作为编号保存
    Query.ExecSQL;

    ShowMessage('数据保存成功！');
  finally
    Query.Free;
    Connection.Free;
  end;
end;

请确保将上述代码中的数据库连接字符串 (`ConnectionString`) 替换为您实际的 Access 数据库文件路径。同时，将 `TableName` 替换为目标数据表的名称，并根据需要添加或修改字段名称。

在上述示例中，我们假设您的窗体上有一个名为 `ComboBox1` 的 ComboBox 组件。您可以使用 `ComboBox1.Items` 属性来设置 ComboBox 中的汉字选项列表，例如：

ComboBox1.Items.Add('选项1');
ComboBox1.Items.Add('选项2');
ComboBox1.Items.Add('选项3');

用户在 ComboBox 中选择的汉字将会对应一个索引值，从 0 开始计数。然后，将该索引值作为编号保存到数据库中。

希望这对您有所帮助！如果您有任何进一步的问题，请随时提问。