u_dengji.pas

来自「销售业绩核算系统」· PAS 代码 · 共 540 行 · 第 1/3 页

PAS
540 行
字号
123
                  adoquery88.FieldValues['b007']:=adoquery7.FieldValues['bianhao'];
                  adoquery88.FieldValues['n007']:=adoquery7.FieldValues['name'];
                  adoquery88.FieldValues['b008']:=adoquery8.FieldValues['bianhao'];
                   adoquery88.FieldValues['n008']:=adoquery8.FieldValues['name'];
                   adoquery88.FieldValues['b009']:=adoquery9.FieldValues['bianhao'];
                  adoquery88.FieldValues['n009']:=adoquery9.FieldValues['name'];
                  adoquery88.FieldValues['b010']:=adoquery10.FieldValues['bianhao'];
                  adoquery88.FieldValues['n010']:=adoquery10.FieldValues['name'];
                 adoquery88.FieldValues['b011']:=adoquery11.FieldValues['bianhao'];
                adoquery88.FieldValues['n011']:=adoquery11.FieldValues['name'];

                 adoquery88.Post;
                adoquery11.next;
               end;  //11
               adoquery88.Append;
               adoquery88.FieldValues['b001']:=adoquery1.FieldValues['bianhao'];
              adoquery88.FieldValues['n001']:=adoquery1.FieldValues['name'];
              adoquery88.FieldValues['b002']:=adoquery2.FieldValues['bianhao'];
              adoquery88.FieldValues['n002']:=adoquery2.FieldValues['name'];
              adoquery88.FieldValues['b003']:=adoquery3.FieldValues['bianhao'];
              adoquery88.FieldValues['n003']:=adoquery3.FieldValues['name'];
              adoquery88.FieldValues['b004']:=adoquery4.FieldValues['bianhao'];
              adoquery88.FieldValues['n004']:=adoquery4.FieldValues['name'];
              adoquery88.FieldValues['b005']:=adoquery5.FieldValues['bianhao'];
              adoquery88.FieldValues['n005']:=adoquery5.FieldValues['name'];
              adoquery88.FieldValues['b006']:=adoquery6.FieldValues['bianhao'];
              adoquery88.FieldValues['n006']:=adoquery6.FieldValues['name'];
              adoquery88.FieldValues['b007']:=adoquery7.FieldValues['bianhao'];
              adoquery88.FieldValues['n007']:=adoquery7.FieldValues['name'];
             adoquery88.FieldValues['b008']:=adoquery8.FieldValues['bianhao'];
             adoquery88.FieldValues['n008']:=adoquery8.FieldValues['name'];
             adoquery88.FieldValues['b009']:=adoquery9.FieldValues['bianhao'];
            adoquery88.FieldValues['n009']:=adoquery9.FieldValues['name'];
             adoquery88.FieldValues['b010']:=adoquery10.FieldValues['bianhao'];
             adoquery88.FieldValues['n010']:=adoquery10.FieldValues['name'];
             adoquery88.Post;
             adoquery10.Next;
              //end;
             end;    //10
            adoquery88.Append;
            adoquery88.FieldValues['b001']:=adoquery1.FieldValues['bianhao'];
            adoquery88.FieldValues['n001']:=adoquery1.FieldValues['name'];
             adoquery88.FieldValues['b002']:=adoquery2.FieldValues['bianhao'];
             adoquery88.FieldValues['n002']:=adoquery2.FieldValues['name'];
             adoquery88.FieldValues['b003']:=adoquery3.FieldValues['bianhao'];
            adoquery88.FieldValues['n003']:=adoquery3.FieldValues['name'];
            adoquery88.FieldValues['b004']:=adoquery4.FieldValues['bianhao'];
            adoquery88.FieldValues['n004']:=adoquery4.FieldValues['name'];
           adoquery88.FieldValues['b005']:=adoquery5.FieldValues['bianhao'];
             adoquery88.FieldValues['n005']:=adoquery5.FieldValues['name'];
            adoquery88.FieldValues['b006']:=adoquery6.FieldValues['bianhao'];
            adoquery88.FieldValues['n006']:=adoquery6.FieldValues['name'];
            adoquery88.FieldValues['b007']:=adoquery7.FieldValues['bianhao'];
           adoquery88.FieldValues['n007']:=adoquery7.FieldValues['name'];
            adoquery88.FieldValues['b008']:=adoquery8.FieldValues['bianhao'];
            adoquery88.FieldValues['n008']:=adoquery8.FieldValues['name'];
            adoquery88.FieldValues['b009']:=adoquery9.FieldValues['bianhao'];
            adoquery88.FieldValues['n009']:=adoquery9.FieldValues['name'];
             adoquery88.Post;
             adoquery9.next;
            end;    //9
          adoquery88.Append;
          adoquery88.FieldValues['b001']:=adoquery1.FieldValues['bianhao'];
          adoquery88.FieldValues['n001']:=adoquery1.FieldValues['name'];
          adoquery88.FieldValues['b002']:=adoquery2.FieldValues['bianhao'];
          adoquery88.FieldValues['n002']:=adoquery2.FieldValues['name'];
          adoquery88.FieldValues['b003']:=adoquery3.FieldValues['bianhao'];
           adoquery88.FieldValues['n003']:=adoquery3.FieldValues['name'];
          adoquery88.FieldValues['b004']:=adoquery4.FieldValues['bianhao'];
          adoquery88.FieldValues['n004']:=adoquery4.FieldValues['name'];
          adoquery88.FieldValues['b005']:=adoquery5.FieldValues['bianhao'];
          adoquery88.FieldValues['n005']:=adoquery5.FieldValues['name'];
          adoquery88.FieldValues['b006']:=adoquery6.FieldValues['bianhao'];
          adoquery88.FieldValues['n006']:=adoquery6.FieldValues['name'];
          adoquery88.FieldValues['b007']:=adoquery7.FieldValues['bianhao'];
          adoquery88.FieldValues['n007']:=adoquery7.FieldValues['name'];
          adoquery88.FieldValues['b008']:=adoquery8.FieldValues['bianhao'];
          adoquery88.FieldValues['n008']:=adoquery8.FieldValues['name'];
          adoquery88.Post;
          adoquery8.Next;
           end;   //8
          adoquery88.Append;
          adoquery88.FieldValues['b001']:=adoquery1.FieldValues['bianhao'];
          adoquery88.FieldValues['n001']:=adoquery1.FieldValues['name'];
          adoquery88.FieldValues['b002']:=adoquery2.FieldValues['bianhao'];
          adoquery88.FieldValues['n002']:=adoquery2.FieldValues['name'];
          adoquery88.FieldValues['b003']:=adoquery3.FieldValues['bianhao'];
          adoquery88.FieldValues['n003']:=adoquery3.FieldValues['name'];
          adoquery88.FieldValues['b004']:=adoquery4.FieldValues['bianhao'];
          adoquery88.FieldValues['n004']:=adoquery4.FieldValues['name'];
          adoquery88.FieldValues['b005']:=adoquery5.FieldValues['bianhao'];
          adoquery88.FieldValues['n005']:=adoquery5.FieldValues['name'];
          adoquery88.FieldValues['b006']:=adoquery6.FieldValues['bianhao'];
          adoquery88.FieldValues['n006']:=adoquery6.FieldValues['name'];
          adoquery88.FieldValues['b007']:=adoquery7.FieldValues['bianhao'];
          adoquery88.FieldValues['n007']:=adoquery7.FieldValues['name'];
          adoquery88.Post;
          adoquery7.Next;
          end;   //7
          adoquery88.Append;
          adoquery88.FieldValues['n001']:=adoquery1.FieldValues['bianhao'];
          adoquery88.FieldValues['n001']:=adoquery1.FieldValues['name'];
          adoquery88.FieldValues['b002']:=adoquery2.FieldValues['bianhao'];
          adoquery88.FieldValues['n002']:=adoquery2.FieldValues['name'];
          adoquery88.FieldValues['b003']:=adoquery3.FieldValues['bianhao'];
          adoquery88.FieldValues['n003']:=adoquery3.FieldValues['name'];
          adoquery88.FieldValues['b004']:=adoquery4.FieldValues['bianhao'];
          adoquery88.FieldValues['n004']:=adoquery4.FieldValues['name'];
          adoquery88.FieldValues['b005']:=adoquery5.FieldValues['bianhao'];
          adoquery88.FieldValues['n005']:=adoquery5.FieldValues['name'];
          adoquery88.FieldValues['b006']:=adoquery6.FieldValues['bianhao'];
          adoquery88.FieldValues['n006']:=adoquery6.FieldValues['name'];
          adoquery88.Post;
           adoquery6.Next;
           end;   //6
           adoquery88.Append;
           adoquery88.FieldValues['n001']:=adoquery1.FieldValues['bianhao'];
           adoquery88.FieldValues['n001']:=adoquery1.FieldValues['name'];
           adoquery88.FieldValues['b002']:=adoquery2.FieldValues['bianhao'];
            adoquery88.FieldValues['n002']:=adoquery2.FieldValues['name'];
           adoquery88.FieldValues['b003']:=adoquery3.FieldValues['bianhao'];
           adoquery88.FieldValues['n003']:=adoquery3.FieldValues['name'];
            adoquery88.FieldValues['b004']:=adoquery4.FieldValues['bianhao'];
           adoquery88.FieldValues['n004']:=adoquery4.FieldValues['name'];
           adoquery88.FieldValues['b005']:=adoquery5.FieldValues['bianhao'];
            adoquery88.FieldValues['n005']:=adoquery5.FieldValues['name'];
            adoquery88.Post;
            adoquery5.Next;
           end;  //5
          adoquery88.Append;
           adoquery88.FieldValues['n001']:=adoquery1.FieldValues['bianhao'];
          adoquery88.FieldValues['n001']:=adoquery1.FieldValues['name'];
          adoquery88.FieldValues['b002']:=adoquery2.FieldValues['bianhao'];
          adoquery88.FieldValues['n002']:=adoquery2.FieldValues['name'];
          adoquery88.FieldValues['b003']:=adoquery3.FieldValues['bianhao'];
          adoquery88.FieldValues['n003']:=adoquery3.FieldValues['name'];
          adoquery88.FieldValues['b004']:=adoquery4.FieldValues['bianhao'];
          adoquery88.FieldValues['n004']:=adoquery4.FieldValues['name'];
          adoquery88.Post;
          adoquery4.Next;
           end;    //4
          adoquery88.Append;
          adoquery88.FieldValues['n001']:=adoquery1.FieldValues['bianhao'];
          adoquery88.FieldValues['n001']:=adoquery1.FieldValues['name'];
          adoquery88.FieldValues['b002']:=adoquery2.FieldValues['bianhao'];
          adoquery88.FieldValues['n002']:=adoquery2.FieldValues['name'];
          adoquery88.FieldValues['b003']:=adoquery3.FieldValues['bianhao'];
          adoquery88.FieldValues['n003']:=adoquery3.FieldValues['name'];
          adoquery88.Post                                                                             ;
          adoquery3.Next;
           end;   //3
             adoquery88.Append;
            adoquery88.FieldValues['n001']:=adoquery1.FieldValues['bianhao'];
            adoquery88.FieldValues['n001']:=adoquery1.FieldValues['name'];
            adoquery88.FieldValues['b002']:=adoquery2.FieldValues['bianhao'];
            adoquery88.FieldValues['n002']:=adoquery2.FieldValues['name'];
             adoquery88.Post;
             adoquery2.Next;
         end;  //2
          adoquery88.append;
         adoquery88.FieldValues['b001']:=adoquery1.FieldValues['bianhao'];
         adoquery88.FieldValues['n001']:=adoquery1.FieldValues['name'];
         adoquery88.Post;
         adoquery1.next;
    end;  //1

end;

procedure TForm_dengji.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure TForm_dengji.FormShow(Sender: TObject);
begin
ADOQuery88.Active:=true;
end;

end.
123

u_dengji.pas - 源码说明

本页面展示了「销售业绩核算系统」中的 u_dengji.pas 源码文件，采用 PAS 编程语言编写，共 540 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与销售管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?