u_dengji.pas

销售业绩核算系统

{$A+,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N+,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}
unit U_dengji;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids, Buttons;

type
  TForm_dengji = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    username: TEdit;
    DBGrid1: TDBGrid;
    bianhao: TEdit;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    ADOQuery5: TADOQuery;
    ADOQuery6: TADOQuery;
    ADOQuery7: TADOQuery;
    ADOQuery8: TADOQuery;
    ADOQuery9: TADOQuery;
    ADOQuery10: TADOQuery;
    ADOQuery11: TADOQuery;
    ADOQuery12: TADOQuery;
    ADOQuery13: TADOQuery;
    ADOQuery88: TADOQuery;
    Label1: TLabel;
    Label2: TLabel;
    ADOQuery14: TADOQuery;
    ADOQuery15: TADOQuery;
    ADOQuery17: TADOQuery;
    ADOQuery16: TADOQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_dengji: TForm_dengji;

implementation

uses F_DM;

{$R *.dfm}

procedure TForm_dengji.SpeedButton1Click(Sender: TObject);
begin
//查询等级关系
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select * from aaa where shangshuname='''+trim(username.text)+''' and shangshu='''+trim(bianhao.text)+'''';
adoquery1.Open;
  while not adoquery1.Eof do
    begin
     adoquery2.SQL.Clear;
     adoquery2.SQL.Text:='select * from aaa where shangshuname='''+trim(adoquery1.FieldValues['name'])+''' and shangshu='''+trim(adoquery1.FieldValues['bianhao'])+'''';
     adoquery2.Open;
     while not adoquery2.Eof do
     begin
     adoquery3.SQL.Clear;
     adoquery3.SQL.Text:='select * from aaa where shangshuname='''+trim(adoquery2.FieldValues['name'])+''' and shangshu='''+trim(adoquery2.FieldValues['bianhao'])+'''';
     adoquery3.Open;
      while not adoquery3.Eof do
       begin
        adoquery4.SQL.Clear;
        adoquery4.SQL.Text:='select * from aaa where shangshuname='''+trim(adoquery3.FieldValues['name'])+''' and shangshu='''+trim(adoquery3.FieldValues['bianhao'])+'''';
        adoquery4.Open;
        while not adoquery4.Eof do
         begin
          adoquery5.SQL.clear;
          adoquery5.SQL.Text:='select * from aaa where shangshuname='''+trim(adoquery4.FieldValues['name'])+''' and shangshu='''+trim(adoquery4.FieldValues['bianhao'])+'''';
          adoquery5.Open;
          while not adoquery5.Eof do
           begin
            adoquery6.SQL.Clear;
            adoquery6.SQL.text:='select * from aaa where shangshuname='''+trim(adoquery5.FieldValues['name'])+''' and shangshu='''+trim(adoquery5.FieldValues['bianhao'])+'''';
            adoquery6.Open;
            while not adoquery6.Eof do
             begin
             adoquery7.SQL.Clear;
             adoquery7.SQL.Text:='select * from aaa where shangshuname='''+trim(adoquery6.FieldValues['name'])+''' and shangshu='''+trim(adoquery6.FieldValues['bianhao'])+'''';
             adoquery7.open;
             while not adoquery7.Eof do
             begin
             adoquery8.SQL.Clear;
             adoquery8.sql.text:='select * from aaa where shangshuname='''+trim(adoquery7.FieldValues['name'])+''' and shangshu='''+trim(adoquery7.FieldValues['bianhao'])+'''';
             adoquery8.Open;
             while not adoquery8.Eof do
             begin
             adoquery9.sql.clear;
             adoquery9.sql.text:='select * from aaa where shangshuname='''+trim(adoquery8.FieldValues['name'])+''' and shangshu='''+trim(adoquery8.FieldValues['bianhao'])+'''';
             adoquery9.open;
              while not adoquery9.Eof do
              begin
              adoquery10.sql.clear;
              adoquery10.sql.text:='select * from aaa where shangshuname='''+trim(adoquery9.FieldValues['name'])+''' and shangshu='''+trim(adoquery9.FieldValues['bianhao'])+'''';
              adoquery10.open;
               while not adoquery10.eof do
               begin
                adoquery11.sql.clear;
               adoquery11.sql.text:='select * from aaa where shangshuname='''+trim(adoquery10.FieldValues['name'])+''' and shangshu='''+trim(adoquery10.FieldValues['bianhao'])+'''';
                adoquery11.open;
                 while not adoquery11.eof do
                  begin
                  adoquery12.sql.clear;
                  adoquery12.sql.text:='select * from aaa where shangshuname='''+trim(adoquery11.FieldValues['name'])+''' and shangshu='''+trim(adoquery11.FieldValues['bianhao'])+'''';
                  adoquery12.open;
                  while not adoquery12.eof do
                   begin
                   adoquery13.sql.Clear;
                   adoquery13.sql.text:='select * from aaa where shangshuname='''+trim(adoquery12.FieldValues['name'])+''' and shangshu='''+trim(adoquery12.FieldValues['bianhao'])+'''';
                   adoquery13.Open;
                   while not adoquery13.Eof do
                    begin
                      adoquery14.sql.Clear;
                      adoquery14.sql.Text:='select * from aaa where shangshuname='''+trim(adoquery13.FieldValues['name'])+''' and shangshu='''+trim(adoquery13.FieldValues['bianhao'])+'''';
                      adoquery14.Open;
                       while not adoquery14.Eof do
                        begin
                         adoquery15.SQL.Clear;
                         adoquery15.SQL.Text:='select * from aaa where shangshuname='''+trim(adoquery14.FieldValues['name'])+''' and shangshu='''+trim(adoquery14.FieldValues['bianhao'])+'''';
                         adoquery15.Open;
                         while not adoquery15.Eof do
                          begin
                           adoquery16.SQL.Clear;
                           adoquery16.SQL.Text:='select * from aaa where shangshuname='''+trim(adoquery15.FieldValues['name'])+''' and shangshu='''+trim(adoquery15.FieldValues['bianhao'])+'''';
                           adoquery16.Open;
                           while not adoquery16.Eof do
                            begin
                             adoquery17.SQL.Clear;
                             adoquery17.SQL.Text:='select * from aaa where shangshuname='''+trim(adoquery16.FieldValues['name'])+''' and shangshu='''+trim(adoquery16.FieldValues['bianhao'])+'''';
                             adoquery17.Open;
                             while not adoquery17.Eof do
                               begin
                                 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'];