1

我的任务是修补 Delphi 软件以使用新的数据库（mssql）结构。在之前的数据库（mssql）中，所有被读取的列都在同一个表中。在新版本中，file_name 和 class_name 与数量值位于不同的表中。我相信我可以通过为这两个数据库表编写一个 Join 来解决这个问题。问题是，我不熟悉德尔福！
当前代码如下。如何让这两个数据库合二为一？

数据表=样式001 数据表1=样式

谢谢！！！

  dataTable.Active := True;
  datatable.Open;
  dataTable1.Active := True;
  datatable1.Open;

  while not datatable1.Eof do
  begin
    Application.ProcessMessages;

    file_name := trim(datatable1.FieldByName('code').asString) + '.jpg';
    class_name := trim(datatable1.FieldByName('category').asString);

    if not FileExists(picfolder + file_name) then
    begin
      dataTable1.next;
      continue;
    end;

    instock := datatable.FieldByName('onhand').asString;
    TryStrToInt(instock, instock_num);

    quantity := datatable.FieldByName('onorder').asString;
    TryStrToInt(quantity, num);

    num := instock_num - num;

    is_active := ( num > 10 );


    for i := 0 to file_count-1 do
    begin
      if is_active = active_class[file_class[i]] then
      if SameText(files[i],file_name) then
      begin // use TStringList instead
        if SameText(class_name, classes[file_class[i]]) then // same class
        begin
          file_ok[i] := true;
          class_ok[file_class[i]] := true;
        end;
        break;
      end;
    end;

    if class_name <> '' then class_name := class_name + '\';
    dest := picfolder + active_path[is_active] + class_name;
    deldest := picfolder + active_path[not is_active] + class_name;

    {$I-}

    if FileExists(deldest + file_name) then
      DeleteFile(PChar(deldest + file_name ));

    if not FileExists(dest + file_name) then
    begin
      ForceDirectories(dest);
      CopyFile(PChar(picfolder + file_name ), PChar(dest + file_name ), true );
    end;

    dataTable1.next;
  end;

  for i := 0 to file_count-1 do
    if not file_ok[i] then
    begin // delete wrong file if empty
//      ShowMessage('problem: ' + picfolder + active_path[active_class[file_class[i]]] + classes[file_class[i]] + '\' + files[i]);
      DeleteFile(picfolder + active_path[active_class[file_class[i]]] + classes[file_class[i]] + '\' + files[i]);
    end;
  for i := 0 to class_count-1 do
    if not class_ok[i] then
    begin // delete old class if empty
//      ShowMessage('problem: ' + picfolder + active_path[active_class[i]] + classes[i] + '\' );
      RemoveDir(picfolder + active_path[active_class[i]] + classes[i] + '\' );
    end;


  beep;
  dataTable.Active := False;
  dataTable1.Active := False;
4

2 回答 2

4

JOIN 在 SQL 请求中，而不是您在此处显示的使用循环代码。

您必须使用 aTQuery而不是 two TTable，并编写一个 SQL 选择来连接这两个表。

您必须修改 SQL 请求，在 SELECT 的 FROM 子句中添加两个表，并在 WHERE 子句中添加一个 JOINture。请参阅这篇关于 JOIN的文章。

于 2012-07-21T19:37:28.670 回答
2

使用 aTDataSource并将其DataSet属性连接到其中一个表。然后将MasterSource另一个表的属性设置为该数据源。单击MasterFields属性的省略号按钮并选择连接字段。

假设样式字段是唯一的，当您浏览第一个表格时，第二个表格将自动跟随。

于 2012-07-21T21:27:41.350 回答