在Delphi Xe8中将数据插入数据库

Question

我正在处理的项目需要一个“注册”表单，该表单需要将“用户”详细信息插入数据库表中。

问题在于，当单击“注册”按钮时，输入到编辑中的数据不会保存或更新到数据库中。 我还收到访问冲突“在地址0x0000006c的0x0065e3e9读取时发生访问冲突” ，我的代码在“ tblUsers.Insert”处中断。

我已经测试了我的代码，并且使用Breaks遍历了每一行代码，以找到问题的根源，并且发现它是以下代码部分。

with dmSM do
  begin
    tblUsers.Insert;
    tblUsers['FirstName'] := edtFirstName.Text;
    tblUsers['LastName'] := edtLastName.Text;
    tblUsers['BirthDate'] := cmbDay.Text + ' ' + cmbMonth.Text + ' ' +
                             cmbYear.Text;
    tblUsers['Gender'] := cmbGender.Text;
    tblUsers['AccountName'] := edtAccountName.Text;
    tblUsers['Password'] := edtPassword.Text;
    tblUsers.Post;
end; //end of with

我将尝试另一种方法，但是如果我可以从中获得一些帮助，它将很有帮助。

先感谢您

多米尼克

Answer 1

我提出这个答案是为了完整性，并为将来的读者带来好处。

在您的情况下，第一件事就是在btlUsers.Insert上设置一个断点。 这将确认执行已到达该点，并且在执行该行时会发生异常。

为什么例外？ 消息的一部分中有一个提示，即“读取地址0x0000006c”。 在Delphi中，一个Nil指针实际上是0x00000000，而6c是一个小数字（十进制为108），这就是线索，调试器告诉您异常发生于0x00000000很小的偏移量。

Delphi编译代码的一个特点是，成员的地址（例如对象的数据字段）相对于对象的基址有一定的固定偏移量（通常是很小的，除非所涉及的类非常大）。

在您的情况下，6c偏移量从0x00000000开始，因此，一个合理的解释是您的代码已尝试读取实际上为Nil的对象的成员。

因此，在断点处评估dmSM和tblUsers。 调试器告诉您dmSM为Nil，tblUsers无法访问，并且由于dmSM为Nil而无法访问。 为何dmSM Nil？

最有可能的原因是，它是一个变量，它引用到断点时尚未创建的对象。 所以：

转到项目管理器，右键单击其中的可执行文件，然后选择选项。 左侧树中的“表单”条目将告诉您哪些表单/数据模块具有与之关联的自动创建的变量以及它们的创建顺序。

然后，在.Dpr文件中查找。 它看起来应该像这样：

begin
  Application.Initialize;
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

并且如果缺少创建数据模块的行，或者它紧随创建表单的行之后，那是您的问题，而且修复起来很简单。

但是，有时，.Dpr文件中的所有内容似乎都还可以，但是仍然会发生异常。 @JerryDodge提出了这一点，这是一个很好的观点。 发生的结果是（通常是由于编辑错误），您复制了一个自动创建的对象的声明。 所以，现在，例如，你有定义了两个消失性商源，一个在TdmSM定义的单元，和一个在你的数据模块的单元后重复其他地方，编译器看到在编译过程中。 并且由于在编译发生异常的单元时最近才看到重复项，因此假定您的代码引用的是重复项，而不是原始的。

我试图以如此细腻的细节回答这个问题的原因是为了指出，许多调试过程正在思考通过仔细观察（并以SO q形式报告）错误行为所获得的线索。程序。

最后，避免使用“ with”。 尽管它可以为您节省一些打字时间，但从长远来看，它往往会带来更多的麻烦，而不是值得的。 在表单单元中，如果需要继续引用数据模块中的某个对象，则可以将其值分配给在您执行表单的过程中局部作用于过程的局部变量，或者（更好）定义一个函数来返回有问题的对象，像这样

function TForm1.tblUsers : TDataSet;
begin
  Result := dmSM.tblUsers;
end;