1

我是使用 delphi 编程的新手。我目前正在创建一个简单的笔记本程序，我需要一些帮助。我有一个名为联系人的表单，其中包含 5 个 tEdit 字段。我想我可以在我的 sybase 数据库中创建一个存储过程来将记录插入到联系人表中，这样我就可以用我的 delphi 程序调用它。我如何在delphi中调用这个过程？将插入的值应取自用户输入到这些 tEdit 字段中的值。有人有什么建议吗？还是我想错了？提前致谢

4

1 回答 1

0

您在这里有几个选项，这取决于您使用的 VCL 控件。(1)。您可以通过 tTable 组件插入。这让您有一个快速、简单、低级别的控制。您将组件放在表单上，​​设置组件属性（表名等），然后像

MyTable.Open;
MyTable.Insert; (or maybe append)
MyTable.FieldByName('MY_FIELD').AsString := 'Bob'; // set the field values
MyTable.post;

(2)。使用 SQL。在表单上拖放一个 SQL 组件。使用参数设置 SQLText 属性；例如：“插入表（MyField）值：X”。我的观点是，这在复杂情况、相关子选择等情况下更容易做到。

MySQL.Close;
MySQL.ParamByName('X').AsString := 'BOB';
ExecSQL;

(3)。使用存储过程。- 这样做的好处是它们可供多个应用程序使用，并且可以轻松更改。如果要更新 SQL 代码，只需更新一次（在数据库中），而不必在应用程序中更改它，然后将应用程序分发给多个用户。

尽管我不知道您的 VCL 库的细节，但此代码几乎与 (2) 相同。但实际上，您将指定要运行的例程、指定参数值，然后执行存储过程。

请注意，所有这些例程都将返回错误代码或异常代码。最佳做法是始终检查...

下面是一个稍微复杂一点的例子，它使用了一个名为 qLoader 的 SQL 语句。qLoader 存在于数据模块上。我正在传递一个参数，执行 SQL 语句，然后遍历所有结果。

  try
  with dmXLate.qLoader do
     begin

     Close;
     ParamByName('DBTYPE').AsString := DBType;
     Open;

     while not dmXLate.qLoader.Eof do
         begin
         // Here is where we process each result
         UserName:= dmXLate.qLoader.FieldByName('USERNAME').AsString;    

         dmXLate.qLoader.Next;
         end;


      end;

except
      on E: Exception do
      begin
        ShowMEssage(E.Message);
        exit;
      end;
    end;
于 2014-11-10T02:29:22.253 回答