u_dengji.pas

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

PAS
540 行
字号
123
                      adoquery88.FieldValues['n016']:=adoquery16.FieldValues['name'];
                      adoquery88.FieldValues['b017']:=adoquery17.FieldValues['bianhao'];
                      adoquery88.FieldValues['n017']:=adoquery17.FieldValues['name'];
                      adoquery88.Post;
                      adoquery17.Next;
                               end;    //17
                            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.FieldValues['b011']:=adoquery11.FieldValues['bianhao'];
                      adoquery88.FieldValues['n011']:=adoquery11.FieldValues['name'];
                      adoquery88.FieldValues['b012']:=adoquery12.FieldValues['bianhao'];
                      adoquery88.FieldValues['n012']:=adoquery12.FieldValues['name'];
                      adoquery88.FieldValues['b013']:=adoquery13.FieldValues['bianhao'];
                      adoquery88.FieldValues['n013']:=adoquery13.FieldValues['name'];
                      adoquery88.FieldValues['b014']:=adoquery14.FieldValues['bianhao'];
                      adoquery88.FieldValues['n014']:=adoquery14.FieldValues['name'];
                      adoquery88.FieldValues['b015']:=adoquery15.FieldValues['bianhao'];
                      adoquery88.FieldValues['n015']:=adoquery15.FieldValues['name'];
                      adoquery88.FieldValues['b016']:=adoquery16.FieldValues['bianhao'];
                      adoquery88.FieldValues['n016']:=adoquery16.FieldValues['name'];
                      adoquery88.Post;
                      adoquery16.Next;
                            end;   //16
                        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.FieldValues['b011']:=adoquery11.FieldValues['bianhao'];
                      adoquery88.FieldValues['n011']:=adoquery11.FieldValues['name'];
                      adoquery88.FieldValues['b012']:=adoquery12.FieldValues['bianhao'];
                      adoquery88.FieldValues['n012']:=adoquery12.FieldValues['name'];
                      adoquery88.FieldValues['b013']:=adoquery13.FieldValues['bianhao'];
                      adoquery88.FieldValues['n013']:=adoquery13.FieldValues['name'];
                      adoquery88.FieldValues['b014']:=adoquery14.FieldValues['bianhao'];
                      adoquery88.FieldValues['n014']:=adoquery14.FieldValues['name'];
                      adoquery88.FieldValues['b015']:=adoquery15.FieldValues['bianhao'];
                      adoquery88.FieldValues['n015']:=adoquery15.FieldValues['name'];
                      adoquery88.Post;
                      adoquery15.Next;
                          end;  //15
                      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.FieldValues['b011']:=adoquery11.FieldValues['bianhao'];
                      adoquery88.FieldValues['n011']:=adoquery11.FieldValues['name'];
                       adoquery88.FieldValues['b012']:=adoquery12.FieldValues['bianhao'];
                       adoquery88.FieldValues['n012']:=adoquery12.FieldValues['name'];
                       adoquery88.FieldValues['b013']:=adoquery13.FieldValues['bianhao'];
                       adoquery88.FieldValues['n013']:=adoquery13.FieldValues['name'];
                       adoquery88.FieldValues['b014']:=adoquery14.FieldValues['bianhao'];
                       adoquery88.FieldValues['n014']:=adoquery14.FieldValues['name'];
                       adoquery88.Post;
                      adoquery14.Next;
                        end;  //14
                     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.FieldValues['b011']:=adoquery11.FieldValues['bianhao'];
                      adoquery88.FieldValues['n011']:=adoquery11.FieldValues['name'];
                       adoquery88.FieldValues['b012']:=adoquery12.FieldValues['bianhao'];
                       adoquery88.FieldValues['n012']:=adoquery12.FieldValues['name'];
                       adoquery88.FieldValues['b013']:=adoquery13.FieldValues['bianhao'];
                       adoquery88.FieldValues['n013']:=adoquery13.FieldValues['name'];
                       adoquery88.Post;
                      adoquery13.Next;
                      end;       //13

                       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.FieldValues['b011']:=adoquery11.FieldValues['bianhao'];
                      adoquery88.FieldValues['n011']:=adoquery11.FieldValues['name'];
                      adoquery88.FieldValues['b012']:=adoquery12.FieldValues['bianhao'];
                      adoquery88.FieldValues['n012']:=adoquery12.FieldValues['name'];
                      adoquery88.Post;
                      adoquery12.next;
                    end;     //12
                   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'];
123

u_dengji.pas - 源码说明

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

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

⌨️ 快捷键说明

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