newunit.pas

帮朋友编写的幼儿教育的管理平台

          GDKD := BLKD+BL_FXKD+BF_FXKD-NJXZZ_G ;//单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度+内角轨道修
          BLJ_CJLD := SJD/DS ;
          BLJ_CJRD := 0.00 ;
          L_CJ := 'N';
          R_CJ := 'L' ;
          JD := -(180-SNJD);
          JDD := SDD-(180-SNJD)*(Sub_Num-1) ;
        end ;
        if (Sub_Num<>1) and (Sub_Num<>DS) then
        begin
          BLJKD := BLKD+BL_FXKD-2*NJXZZ_B ;  //单片玻璃宽度+玻璃缝隙宽度+内角玻璃夹修正值
          GDKD := BLKD+BL_FXKD-2*NJXZZ_G ;//单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度+内角轨道修
          BLJ_CJLD := SJD/DS ;
          BLJ_CJRD := SJD/DS ;
          L_CJ := 'N';
          R_CJ := 'N' ;
          JD := -(180-SNJD);
          JDD := SDD -(180-SNJD)*(Sub_Num-1) ;
        end ;
        OrderSQLInsert := 'Insert into OrderTbl(OrderNum,ClassType,NUM,GDZC,BLZK,Sub_Num,BLKD,GDKD,BLJKD,BLJ_CJ,BLJ_CJLD,BLJ_CJRD,L_CJ,R_CJ,JD,JDD,GHD,XC,YTGD,BLGD,SR) values('''+OrderNum+''','''+ClassType+''','+IntToStr(SN)+','+FloatToStr(GDZC)+','+FloatToStr(BLZK)+','+IntToStr(Sub_Num)+','+FloatToStr(BLKD)+','+FloatToStr(GDKD)+','+FloatToStr(BLJKD)+','''+BLJ_CJ+''','+FloatToStr(BLJ_CJLD)+','+FloatToStr(BLJ_CJRD)+','''+L_CJ+''','''+R_CJ+''','+FloatToStr(JD)+','+FloatToStr(JDD)+','+FloatToStr(GHD)+','''+Class_XC+''','+FloatToStr(YTGD)+','+FloatToStr(BLGD)+','+FloatToStr(SR)+')' ;
        DM.Order_Query.Close ;DM.Order_Query.SQL.Clear ;DM.Order_Query.SQL.Add(OrderSQLInsert) ;DM.Order_Query.ExecSQL ;
        Sub_Num := Sub_Num + 1 ;
      end ;
    end ;
    if(T_Record>0) and (T_Record<>Total_JS-1) then //中间的2至n-1段的情况
    begin
      GDZC := DS*2*SR*Sin((SJD/DS)*Pi/180) ;  //轨道总长=玻璃片数×2×Rsin∠2  轨道总长＝轨道区总长－封厚度
      BLZK := GDZC-DS*BL_FXKD+(DS-1)*2*NJXZZ_G+P_NJXZZ_G+N_NJXZZ_G ;  //b=玻璃总宽
      BLKD := BLZK/DS ;//玻璃宽度
      //wr db
      while Sub_Num<DS+1 do
      begin
        if Sub_Num=1 then
        begin
          BLJKD := BLKD+BL_FXKD-NJXZZ_B-P_NJXZZ_B ;
          GDKD := BLKD+BL_FXKD-NJXZZ_G-P_NJXZZ_G ; //单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度+内角轨道修正值
          BLJ_CJLD := P_CJD ;
          BLJ_CJRD := SJD/DS ; //切割角
          L_CJ := P_CJ;//变化与下一段相关
          R_CJ := 'N' ;
          JD := SD+P_SCJD+SCJD;
          JDD := SDD+SCJD;
        end ;
        if Sub_num=DS then
        begin
          BLJKD := BLKD+BL_FXKD-NJXZZ_B-N_NJXZZ_B ;
          GDKD := BLKD+BL_FXKD-NJXZZ_G-N_NJXZZ_G ; //单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度+内角轨道修正值
          BLJ_CJLD := SJD/DS ;
          BLJ_CJRD := N_CJD ;
          L_CJ := 'N';//变化与下一段相关
          R_CJ := N_CJ ; // 变化与下一段相关
          JD := -(180-SNJD);
          JDD := SDD - (180-SNJD)*(Sub_Num-1) ;
        end ;
        if (Sub_Num<>1) and (Sub_Num<>DS) then
        begin
          BLJKD := BLKD+BL_FXKD-2*NJXZZ_B ;  //单片玻璃宽度+玻璃缝隙宽度+内角玻璃夹修正值
          GDKD := BLKD+BL_FXKD-2*NJXZZ_G ;//单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度+内角轨道修
          BLJ_CJLD := SJD/DS ;
          BLJ_CJRD := SJD/DS ;
          L_CJ := 'N';
          R_CJ := 'N' ;
          JD := -(180-SNJD);
          JDD := SDD - (180-SNJD)*(Sub_Num-1) ;
        end ;
        OrderSQLInsert := 'Insert into OrderTbl(OrderNum,ClassType,NUM,GDZC,BLZK,Sub_Num,BLKD,GDKD,BLJKD,BLJ_CJ,BLJ_CJLD,BLJ_CJRD,L_CJ,R_CJ,JD,JDD,GHD,XC,YTGD,BLGD,SR) values('''+OrderNum+''','''+ClassType+''','+IntToStr(SN)+','+FloatToStr(GDZC)+','+FloatToStr(BLZK)+','+IntToStr(Sub_Num)+','+FloatToStr(BLKD)+','+FloatToStr(GDKD)+','+FloatToStr(BLJKD)+','''+BLJ_CJ+''','+FloatToStr(BLJ_CJLD)+','+FloatToStr(BLJ_CJRD)+','''+L_CJ+''','''+R_CJ+''','+FloatToStr(JD)+','+FloatToStr(JDD)+','+FloatToStr(GHD)+','''+Class_XC+''','+FloatToStr(YTGD)+','+FloatToStr(BLGD)+','+FloatToStr(SR)+')' ;//L_CJ,R_CJ,
        DM.Order_Query.Close ;DM.Order_Query.SQL.Clear ;DM.Order_Query.SQL.Add(OrderSQLInsert) ;DM.Order_Query.ExecSQL ;
        Sub_Num := Sub_Num + 1 ;
      end ;
    end ;
  END ;
////?????????????????????????????内凹
  IF ClassType='N' THEN   // 内凹 ?????NNNNNNNN????????????????????????????//
  BEGIN
    NJXZZ_G := XZZ(SNJD,GHD,'W','G',MY_XC_NOW) ;  //外切形状
    NJXZZ_B := XZZ(SNJD,GHD,'W','B',MY_XC_NOW) ;
    BLJ_CJ := 'W' ; //内切角
    if Total_JS=1 then  //只有一段
    begin
      GDZC := DS*2*SR*Sin((SJD/DS)*Pi/180)-2*BF_HD ;//轨道总长=玻璃片数×2×Rsin∠2  轨道总长＝轨道区总长－2×边封厚度
      BLZK := GDZC-DS*BL_FXKD-2*BF_FXKD+(DS-1)*2*NJXZZ_G ;//b=玻璃总宽
      BLKD := BLZK/DS ;//玻璃宽度
      //wr db
      while Sub_Num<DS+1 do
      begin
        if Sub_Num=1 then    //第一子端
        begin
          BLJKD := BLKD+BL_FXKD-NJXZZ_B ;  //单片玻璃宽度+玻璃缝隙宽度-内角玻璃夹修正值
          GDKD := BLKD+BL_FXKD+BF_FXKD-NJXZZ_G ;//单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度-内角轨道修
          BLJ_CJLD := 0.00 ;
          BLJ_CJRD := SJD/DS ;
          L_CJ := 'L';
          R_CJ := 'W' ;
          JD := SCJD ;
          JDD := SDD - SCJD ;
        end ;
        if Sub_num=DS then   //最后一段
        begin
          BLJKD := BLKD+BL_FXKD-NJXZZ_B ;
          GDKD := BLKD+BL_FXKD+BF_FXKD-NJXZZ_G ;//单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度-内角轨道修正值
          BLJ_CJLD := SJD/DS ;
          BLJ_CJRD := 0.00 ;
          L_CJ := 'W';
          R_CJ := 'L' ;
          JD := (180-SNJD);
          JDD := SDD + (180-SNJD)*(Sub_Num-1) ;
        end ;
        if (Sub_Num<>1) and (Sub_Num<>DS) then //中间2 到 n-1 段
        begin
          BLJKD := BLKD+BL_FXKD-2*NJXZZ_B ;
          GDKD := BLKD+BL_FXKD-2*NJXZZ_G ; //单片玻璃宽度+玻璃缝隙宽度+2×内角轨道修正值
          BLJ_CJLD := SJD/DS ;
          BLJ_CJRD := SJD/DS ;
          L_CJ := 'W';
          R_CJ := 'W' ;
          JD := (180-SNJD) ;
          JDD := SDD+(180-SNJD)*(Sub_Num-1) ;
        end ;
        OrderSQLInsert := 'Insert into OrderTbl(OrderNum,ClassType,NUM,GDZC,BLZK,Sub_Num,BLKD,GDKD,BLJKD,BLJ_CJ,BLJ_CJLD,BLJ_CJRD,L_CJ,R_CJ,JD,JDD,GHD,XC,YTGD,BLGD,SR) values('''+OrderNum+''','''+ClassType+''','+IntToStr(SN)+','+FloatToStr(GDZC)+','+FloatToStr(BLZK)+','+IntToStr(Sub_Num)+','+FloatToStr(BLKD)+','+FloatToStr(GDKD)+','+FloatToStr(BLJKD)+','''+BLJ_CJ+''','+FloatToStr(BLJ_CJLD)+','+FloatToStr(BLJ_CJRD)+','''+L_CJ+''','''+R_CJ+''','+FloatToStr(JD)+','+FloatToStr(JDD)+','+FloatToStr(GHD)+','''+Class_XC+''','+FloatToStr(YTGD)+','+FloatToStr(BLGD)+','+FloatToStr(SR)+')' ;
        DM.Order_Query.Close ;DM.Order_Query.SQL.Clear ;DM.Order_Query.SQL.Add(OrderSQLInsert) ;DM.Order_Query.ExecSQL ;
        Sub_Num := Sub_Num + 1 ;
      end ;
    end ;
    if (T_Record=0) and (Total_JS>1) then //多于一段，第一段的情况
    begin
      GDZC := DS*2*SR*Sin((SJD/DS)*Pi/180) - BF_HD ;//轨道总长=玻璃片数×2×Rsin∠2  轨道总长＝轨道区总长－封厚度
      BLZK := GDZC-DS*BL_FXKD-BF_FXKD+(DS-1)*2*NJXZZ_G-N_NJXZZ_G ;//b=玻璃总宽
      BLKD := BLZK/DS ;//玻璃宽度
      //wr db
      while Sub_Num<DS+1 do
      begin
        if Sub_Num=1 then
        begin
          BLJKD := BLKD+BL_FXKD-NJXZZ_B ;  //单片玻璃宽度+玻璃缝隙宽度+内角玻璃夹修正值
          GDKD := BLKD+BL_FXKD+BF_FXKD-NJXZZ_G ;//单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度+内角轨道修
          BLJ_CJLD := 0.00 ;
          BLJ_CJRD := SJD/DS ;
          L_CJ := 'L';
          R_CJ := 'W' ;
          JD := SCJD ;
          JDD := SDD - SCJD ;
        end ;
        if Sub_num=DS then
        begin
          BLJKD := BLKD+BL_FXKD-NJXZZ_B-N_NJXZZ_B ;
          GDKD := BLKD+BL_FXKD-NJXZZ_G-N_NJXZZ_G ; //单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度+内角轨道修正值
          BLJ_CJLD := SJD/DS ;
          BLJ_CJRD := N_CJD ; //切割角 ????!!!!
          L_CJ := 'W';
          R_CJ := N_CJ ;//变化与下一段相关
          JD := (180-SNJD);
          JDD := SDD+(180-SNJD)*(Sub_Num-1) ;
        end ;
        if (Sub_Num<>1) and (Sub_Num<>DS) then
        begin
          BLJKD := BLKD+BL_FXKD-2*NJXZZ_B ;
          GDKD := BLKD+BL_FXKD-2*NJXZZ_G ; //单片玻璃宽度+玻璃缝隙宽度+2×内角轨道修正值
          BLJ_CJLD := SJD/DS ;
          BLJ_CJRD := SJD/DS ;
          L_CJ := 'W';
          R_CJ := 'W' ;
          JD := (180-SNJD);
          JDD := SDD+(180-SNJD)*(Sub_Num-1) ;
        end ;
        OrderSQLInsert := 'Insert into OrderTbl(OrderNum,ClassType,NUM,GDZC,BLZK,Sub_Num,BLKD,GDKD,BLJKD,BLJ_CJ,BLJ_CJLD,BLJ_CJRD,L_CJ,R_CJ,JD,JDD,GHD,XC,YTGD,BLGD,SR) values('''+OrderNum+''','''+ClassType+''','+IntToStr(SN)+','+FloatToStr(GDZC)+','+FloatToStr(BLZK)+','+IntToStr(Sub_Num)+','+FloatToStr(BLKD)+','+FloatToStr(GDKD)+','+FloatToStr(BLJKD)+','''+BLJ_CJ+''','+FloatToStr(BLJ_CJLD)+','+FloatToStr(BLJ_CJRD)+','''+L_CJ+''','''+R_CJ+''','+FloatToStr(JD)+','+FloatToStr(JDD)+','+FloatToStr(GHD)+','''+Class_XC+''','+FloatToStr(YTGD)+','+FloatToStr(BLGD)+','+FloatToStr(SR)+')' ;
        DM.Order_Query.Close ;DM.Order_Query.SQL.Clear ;DM.Order_Query.SQL.Add(OrderSQLInsert) ;DM.Order_Query.ExecSQL ;
        Sub_Num := Sub_Num + 1 ;
      end ;
    end ;
    if (T_Record=Total_JS-1) and (Total_JS>1) then //多于一段，最后一段的情况
    begin
      GDZC := DS*2*SR*Sin((SJD/DS)*Pi/180) - BF_HD ;//轨道总长=玻璃片数×2×Rsin∠2  轨道总长＝轨道区总长－封厚度
      BLZK := GDZC-DS*BL_FXKD-BF_FXKD+(DS-1)*2*NJXZZ_G+P_NJXZZ_G ;//b=玻璃总宽
      BLKD := BLZK/DS ;//玻璃宽度
      //wr db
      while Sub_Num<DS+1 do
      begin
        if Sub_Num=1 then
        begin
          BLJKD := BLKD+BL_FXKD-NJXZZ_B-P_NJXZZ_B ;
          GDKD := BLKD+BL_FXKD-NJXZZ_G-P_NJXZZ_G ; //单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度+内角轨道修正值
          BLJ_CJLD := P_CJD ;      //????!!!!
          BLJ_CJRD := SJD/DS ; //切割角
          L_CJ := P_CJ ;
          R_CJ := 'W' ;
          JD := SD+P_SCJD+SCJD ;      //   ????!!!!
          JDD := SDD+SCJD ;   //
        end ;
        if Sub_num=DS then
        begin
          BLJKD := BLKD+BL_FXKD-NJXZZ_B ;  //单片玻璃宽度+玻璃缝隙宽度+内角玻璃夹修正值
          GDKD := BLKD+BL_FXKD+BF_FXKD-NJXZZ_G ;//单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度+内角轨道修
          BLJ_CJLD := SJD/DS ;
          BLJ_CJRD := 0.00 ;
          L_CJ := 'W';
          R_CJ := 'L' ;
          JD := (180-SNJD);
          JDD := SDD +(180-SCJD)*(Sub_Num-1) ;
        end ;
        if (Sub_Num<>1) and (Sub_Num<>DS) then
        begin
          BLJKD := BLKD+BL_FXKD-2*NJXZZ_B ;  //单片玻璃宽度+玻璃缝隙宽度+内角玻璃夹修正值
          GDKD := BLKD+BL_FXKD-2*NJXZZ_G ;//单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度+内角轨道修
          BLJ_CJLD := SJD/DS ;
          BLJ_CJRD := SJD/DS ;
          L_CJ := 'W';
          R_CJ := 'W' ;
          JD := (180-SNJD);
          JDD := SDD + (180-SCJD)*(Sub_Num-1) ;
        end ;
        OrderSQLInsert := 'Insert into OrderTbl(OrderNum,ClassType,NUM,GDZC,BLZK,Sub_Num,BLKD,GDKD,BLJKD,BLJ_CJ,BLJ_CJLD,BLJ_CJRD,L_CJ,R_CJ,JD,JDD,GHD,XC,YTGD,BLGD,SR) values('''+OrderNum+''','''+ClassType+''','+IntToStr(SN)+','+FloatToStr(GDZC)+','+FloatToStr(BLZK)+','+IntToStr(Sub_Num)+','+FloatToStr(BLKD)+','+FloatToStr(GDKD)+','+FloatToStr(BLJKD)+','''+BLJ_CJ+''','+FloatToStr(BLJ_CJLD)+','+FloatToStr(BLJ_CJRD)+','''+L_CJ+''','''+R_CJ+''','+FloatToStr(JD)+','+FloatToStr(JDD)+','+FloatToStr(GHD)+','''+Class_XC+''','+FloatToStr(YTGD)+','+FloatToStr(BLGD)+','+FloatToStr(SR)+')' ;
        DM.Order_Query.Close ;DM.Order_Query.SQL.Clear ;DM.Order_Query.SQL.Add(OrderSQLInsert) ;DM.Order_Query.ExecSQL ;
        Sub_Num := Sub_Num + 1 ;
      end ;
    end ;
    if(T_Record>0) and (T_Record<>Total_JS-1) then //中间的2至n-1段的情况
    begin
      GDZC := DS*2*SR*Sin((SJD/DS)*Pi/180) ;  //轨道总长=玻璃片数×2×Rsin∠2  轨道总长＝轨道区总长－封厚度
      BLZK := GDZC-DS*BL_FXKD+(DS-1)*2*NJXZZ_G-P_NJXZZ_G-N_NJXZZ_G ;  //b=玻璃总宽
      BLKD := BLZK/DS ;//玻璃宽度
      //wr db
      while Sub_Num<DS+1 do
      begin
        if Sub_Num=1 then
        begin
          BLJKD := BLKD+BL_FXKD-NJXZZ_B-P_NJXZZ_B ;
          GDKD := BLKD+BL_FXKD-NJXZZ_G-P_NJXZZ_G ; //单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度+内角轨道修正值
          BLJ_CJLD := P_CJD ;  //????!!!!
          BLJ_CJRD := SJD/DS ; //切割角
          L_CJ := P_CJ ;
          R_CJ := 'W' ;
          JD := SD+P_SCJD+SCJD;
          JDD := SDD-SCJD;
        end ;
        if Sub_num=DS then
        begin
          BLJKD := BLKD+BL_FXKD-NJXZZ_B-N_NJXZZ_B ;
          GDKD := BLKD+BL_FXKD-NJXZZ_G-N_NJXZZ_G ; //单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度+内角轨道修正值
          BLJ_CJLD := SJD/DS ;
          BLJ_CJRD := N_CJD ;    //????!!!!
          L_CJ := 'W' ;
          R_CJ := N_CJ ;
          JD := (180-SNJD); ///
          JDD := SDD + (180-SNJD)*(Sub_Num-1) ;
        end ;
        if (Sub_Num<>1) and (Sub_Num<>DS) then
        begin
          BLJKD := BLKD+BL_FXKD-2*NJXZZ_B ;  //单片玻璃宽度+玻璃缝隙宽度+内角玻璃夹修正值
          GDKD := BLKD+BL_FXKD-2*NJXZZ_G ;//单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度+内角轨道修
          BLJ_CJLD := SJD/DS ;
          BLJ_CJRD := SJD/DS ;
          L_CJ := 'W';
          R_CJ := 'W' ;
          JD := (180-SNJD);
          JDD := SDD + (180-SNJD)*(Sub_Num-1) ;
        end ;
        OrderSQLInsert := 'Insert into OrderTbl(OrderNum,ClassType,NUM,GDZC,BLZK,Sub_Num,BLKD,GDKD,BLJKD,BLJ_CJ,BLJ_CJLD,BLJ_CJRD,L_CJ,R_CJ,JD,JDD,GHD,XC,YTGD,BLGD,SR) values('''+OrderNum+''','''+ClassType+''','+IntToStr(SN)+','+FloatToStr(GDZC)+','+FloatToStr(BLZK)+','+IntToStr(Sub_Num)+','+FloatToStr(BLKD)+','+FloatToStr(GDKD)+','+FloatToStr(BLJKD)+','''+BLJ_CJ+''','+FloatToStr(BLJ_CJLD)+','+FloatToStr(BLJ_CJRD)+','''+L_CJ+''','''+R_CJ+''','+FloatToStr(JD)+','+FloatToStr(JDD)+','+FloatToStr(GHD)+','''+Class_XC+''','+FloatToStr(YTGD)+','+FloatToStr(BLGD)+','+FloatToStr(SR)+')' ;
        DM.Order_Query.Close ;DM.Order_Query.SQL.Clear ;DM.Order_Query.SQL.Add(OrderSQLInsert) ;DM.Order_Query.ExecSQL ;
        Sub_Num := Sub_Num + 1 ;
      end ;
    end ;
  END ;
//直线  ？？？？？？？？？？？？？？？？？？？？？？？？？？？？？//
  IF ClassType='L' THEN   // 直线???LLLLLLLLLLLLLLL?????????????????????????//
  BEGIN
    NJXZZ_G := 0;
    NJXZZ_B := 0;
    BLJ_CJ := 'L' ; //内切角
    if Total_JS=1 then  //只有一段
    begin
      if XC.Text ='06' then    //06型材
      begin
        GDZC := SL-2*BF_HD ;  //轨道总长
        BLZK := GDZC+2*BF_FXKD+(DS-1)*BL_FXKD ;//玻璃区总宽＝轨道长度＋2×玻璃伸出轨道的长度 +(N-1)*14
        BLKD := (BLZK/DS) ;//玻璃宽度＝玻璃总宽÷玻璃片数＋玻璃重叠部分宽度÷2
      end
      else
      begin
        GDZC := SL-2*BF_HD ;  //轨道总长
        BLZK := GDZC-DS*BL_FXKD-2*BF_FXKD ;//b=玻璃总宽
        BLKD := BLZK/DS ;//玻璃宽度
      end ;
      //wr db
      while Sub_Num<DS+1 do
      begin
        if Sub_Num=1 then    //第一子端
        begin
          BLJKD := BLKD+BL_FXKD ;
          GDKD := BLKD+BL_FXKD+N_NJXZZ_G ;//单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度-内角轨道修
          BLJ_CJLD := 0.00 ;
          BLJ_CJRD := 0.00 ;
          L_CJ := 'L';
          R_CJ := 'L' ;
          JD := 0.00 ;
          JDD := SDD ;
        end ;
        if Sub_num=DS then   //最后一段
        begin
          BLJKD := BLKD+BL_FXKD ;
          GDKD := BLKD+BL_FXKD+N_NJXZZ_G ;//单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度-内角轨道修
          BLJ_CJLD := 0.00 ;
          BLJ_CJRD := 0.00 ;
          L_CJ := 'L';
          R_CJ := 'L' ;
          JD := 0.00 ;
          JDD := SDD ;
        end ;
        if (Sub_Num<>1) and (Sub_Num<>DS) then //中间2 到 n-1 段
        begin
          BLJKD := BLKD+BL_FXKD ;
          GDKD := BLKD+BL_FXKD+N_NJXZZ_G ;//单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度-内角轨道修
          BLJ_CJLD := 0.00 ;
          BLJ_CJRD := 0.00 ;
          L_CJ := 'L';
          R_CJ := 'L' ;
          JD := 0.00 ;
          JDD := SDD ;
        end ;
        OrderSQLInsert := 'Insert into OrderTbl(OrderNum,ClassType,NUM,GDZC,BLZK,Sub_Num,BLKD,GDKD,BLJKD,BLJ_CJ,BLJ_CJLD,BLJ_CJRD,L_CJ,R_CJ,JD,JDD,GHD,XC,YTGD,BLGD) values('''+OrderNum+''','''+ClassType+''','+IntToStr(SN)+','+FloatToStr(GDZC)+','+FloatToStr(BLZK)+','+IntToStr(Sub_Num)+','+FloatToStr(BLKD)+','+FloatToStr(GDKD)+','+FloatToStr(BLJKD)+','''+BLJ_CJ+''','+FloatToStr(BLJ_CJLD)+','+FloatToStr(BLJ_CJRD)+','''+L_CJ+''','''+R_CJ+''','+FloatToStr(JD)+','+FloatToStr(JDD)+','+FloatToStr(GHD)+','''+Class_XC+''','+FloatToStr(YTGD)+','+FloatToStr(BLGD)+')' ;
        DM.Order_Query.Close ;DM.Order_Query.SQL.Clear ;DM.Order_Query.SQL.Add(OrderSQLInsert) ;DM.Order_Query.ExecSQL ;
        Sub_Num := Sub_Num + 1 ;
      end ;
    end ;
    if (T_Record=0) and (Total_JS>1) then //多于一段，第一段的情况
    begin
      if XC.Text ='06' then    //06型材
      begin
        GDZC := SL-1*BF_HD-1*ZFHD ;//轨道长度＝L1－中封厚度－边封厚度
        BLZK := GDZC+2*BF_FXKD+(DS-1)*BL_FXKD ;//玻璃区总宽＝轨道长度＋2×玻璃伸出轨道的长度+(n-1)*14
        BLKD := (BLZK/DS) ;//玻璃宽度＝玻璃总宽÷玻璃片数
      end
      else
      begin
        GDZC := SL-1*BF_HD ;  //轨道总长
        BLZK := GDZC-DS*BL_FXKD-1*BF_FXKD+N_NJXZZ_G ;//b=玻璃总宽
        BLKD := BLZK/DS ;//玻璃宽度
      end;
      //wr db
      while Sub_Num<DS+1 do
      begin
        if Sub_Num=1 then
        begin
          BLJKD := BLKD+BL_FXKD ;
          GDKD := BLKD+BL_FXKD ;//单片玻璃宽度+边封缝隙宽度＋玻璃缝隙宽度-内角轨道修
          BLJ_CJLD := 0.00 ;
          BLJ_CJRD := 0.00 ;
          L_CJ := 'L';
          R_CJ := 'L' ;
          JD := 0.00 ;
          JDD := SDD ;
        end ;
        if Sub_num=DS then