form23.frm

办公自动化 vb+server2

l = 0


 

    
           With Form23.Cell2
     '////////////////////////////////////////////////////////////公共部分
     
     
                  .DoSetPrintMargin 30, 0, 20, 20
                  .DoSetColWidth 0, 10
                  .DoSetColWidth 1, 130
                  .DoSetColWidth 2, 75
                  .DoSetColWidth 3, 75
                 .DoSetColWidth 4, 105
                 .DoSetColWidth 5, 60
                 .DoSetColWidth 6, 90
                 
                 .DoSetColWidth 7, 150
                 .DoSetColWidth 8, 0
                  .DoDrawHLine 1, 7, 4, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 5, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 6, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 7, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 8, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 9, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 10, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 11, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 12, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 13, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 14, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 15, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 16, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 17, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 18, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 19, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 20, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 21, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 22, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 23, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 24, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 25, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 26, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  .DoDrawHLine 1, 7, 27, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
                  
                  
                  
                  
                  
                  .DoDrawVLine 5, 15, 0, False, vbBlack, 1 '(开始行,结束行,所在列,上下线,颜色,线粗细)
                  .DoDrawVLine 5, 15, 1, False, vbBlack, 1
                  .DoDrawVLine 5, 15, 2, False, vbBlack, 1
                  .DoDrawVLine 5, 15, 3, False, vbBlack, 1
                  .DoDrawVLine 5, 15, 4, False, vbBlack, 1
                  .DoDrawVLine 5, 15, 5, False, vbBlack, 1
                  .DoDrawVLine 5, 15, 6, False, vbBlack, 1
                  .DoDrawVLine 5, 15, 7, False, vbBlack, 1
                  
                  .DoDrawVLine 17, 27, 0, False, vbBlack, 1
                  .DoDrawVLine 17, 27, 1, False, vbBlack, 1
                  .DoDrawVLine 17, 27, 2, False, vbBlack, 1
                  .DoDrawVLine 17, 27, 3, False, vbBlack, 1
                  .DoDrawVLine 17, 27, 5, False, vbBlack, 1
                  .DoDrawVLine 17, 27, 7, False, vbBlack, 1


'                 .DoSetRowHeight 0, 150
   '////////////////////////////////////////////////////////////0行
                 
                 .DoJoinCells 0, 0, 8, 0 '合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoSetCellAlignment 0, 0, 4 '使字体居中
                 .DoDelHLine 0, 0, 0, True '删除网格线(开始列,结束列,所在行)
                 .DoSetCellString 0, 0, " "
                 .DoSetRowHeight 0, 20
   '////////////////////////////////////////////////////////////一行
                .DoSetCellAlignment 2, 1, 1 '使字体居中
                 .DoJoinCells 2, 1, 6, 1 '合并列成为一行
                 .DoDelHLine 0, 0, 1, True '删除网格线
                 .DoSetCellString 2, 1, "   工 程 结 算 单"
                 .DoSetCellFont 2, 1, 20, 1, 宋体 '字体大小
                 .DoSetRowHeight 1, 40
  '////////////////////////////////////////////////////////////二行
                  .DoJoinCells 0, 2, 8, 2 '合并列成为一行
                  .DoSetRowHeight 2, 30
                  .DoDrawHLine 1, 7, 2, False, vbBlack, 1 '(开始列,结束列,所在行,上下线,颜色,线粗细)
  '////////////////////////////////////////////////////////////三行
                 .DoSetRowHeight 3, 60
                 .DoSetCellAlignment 1, 3, 4 '使字体居中
                 .DoSetCellAlignment 6, 3, 1 '使字体居中
                 .DoSetCellString 1, 3, "单位："
                 .DoSetCellFont 1, 3, 10, 1, 宋体
                 .DoJoinCells 2, 3, 5, 3 '合并列成为一行
                 .DoJoinCells 7, 3, 8, 3 '合并列成为一行
                 .DoSetCellTextStyle 2, 3, 1 '设置单元格中文本显示的风格
                 .DoSetCellTextStyle 7, 3, 1 '设置单元格中文本显示的风格
'                 .DoSetCellString 2, 3, rs.Fields(0)
                 .DoSetCellString 2, 3, Form23.Text1
                 .DoSetCellFont 2, 3, 9, 0, 宋体 '字体大小
                 
                 
                 .DoSetCellString 6, 3, "工程编号："
                 .DoSetCellFont 6, 3, 10, 1, 宋体
                 .DoSetCellString 7, 3, Form23.Text2

    '////////////////////////////////////////////////////////////四行
'                  .DoJoinCells 0, 4, 8, 4 '合并列成为一行
                  .DoSetRowHeight 4, 30
    '////////////////////////////////////////////////////////////五行
                 .DoSetRowHeight 5, 30
                 .DoSetCellAlignment 1, 5, 4 '使字体居中
                 .DoSetCellAlignment 2, 5, 4 '使字体居中
                 .DoSetCellAlignment 3, 5, 4 '使字体居中
                 .DoSetCellAlignment 4, 5, 4 '使字体居中
                 .DoSetCellAlignment 5, 5, 4 '使字体居中
                 .DoSetCellAlignment 6, 5, 4 '使字体居中
                 .DoSetCellAlignment 7, 5, 4 '使字体居中

                 .DoSetCellString 1, 5, "项目"
                 .DoSetCellFont 1, 5, 10, 1, 宋体
                 .DoSetCellString 2, 5, "单位"
                 .DoSetCellFont 2, 5, 10, 1, 宋体
                 .DoSetCellString 3, 5, "数量"
                 .DoSetCellFont 3, 5, 10, 1, 宋体
                 .DoSetCellString 4, 5, "单价"
                 .DoSetCellFont 4, 5, 10, 1, 宋体
                 .DoSetCellString 5, 5, "系数"
                 .DoSetCellFont 5, 5, 10, 1, 宋体
                 .DoSetCellString 6, 5, "技术费"
                 .DoSetCellFont 6, 5, 10, 1, 宋体
                 .DoSetCellString 7, 5, "合计"
                 .DoSetCellFont 7, 5, 10, 1, 宋体
    '////////////////////////////////////////////////////////////六行
                 .DoSetRowHeight 6, 30
                 .DoSetCellAlignment 1, 6, 4 '使字体居中
                 .DoSetCellAlignment 2, 6, 4 '使字体居中
                 .DoSetCellAlignment 3, 6, 4 '使字体居中
                 .DoSetCellAlignment 4, 6, 4 '使字体居中
                 .DoSetCellAlignment 5, 6, 4 '使字体居中
                 .DoSetCellAlignment 6, 6, 4 '使字体居中
                 .DoSetCellAlignment 7, 6, 4 '使字体居中
                 
                 .DoSetCellString 1, 6, Form23.Combo1.Text
                 .DoSetCellString 2, 6, Form23.Combo2.Text
                 .DoSetCellString 3, 6, Form23.Text6
                 .DoSetCellString 4, 6, Form23.Text7
                 .DoSetCellString 5, 6, Form23.Text8
                 .DoSetCellString 6, 6, Form23.Text9
                 .DoSetCellString 7, 6, Form23.Text10
    '////////////////////////////////////////////////////////////
                .DoSetRowHeight 7, 30
                 .DoSetCellAlignment 1, 7, 4 '使字体居中
                 .DoSetCellAlignment 2, 7, 4 '使字体居中
                 .DoSetCellAlignment 3, 7, 4 '使字体居中
                 .DoSetCellAlignment 4, 7, 4 '使字体居中
                 .DoSetCellAlignment 5, 7, 4 '使字体居中
                 .DoSetCellAlignment 6, 7, 4 '使字体居中
                 .DoSetCellAlignment 7, 7, 4 '使字体居中




                   .DoSetCellString 1, 7, Form23.Combo3.Text
                 .DoSetCellString 2, 7, Form23.Combo4.Text
                 .DoSetCellString 3, 7, Form23.Text13
                 .DoSetCellString 4, 7, Form23.Text14
                 .DoSetCellString 5, 7, Form23.Text15
                 .DoSetCellString 6, 7, Form23.Text16
                 .DoSetCellString 7, 7, Form23.Text17


        '////////////////////////////////////////////////////////////
                 .DoSetRowHeight 8, 30
                 .DoSetCellAlignment 1, 8, 4 '使字体居中
                 .DoSetCellAlignment 2, 8, 4 '使字体居中
                 .DoSetCellAlignment 3, 8, 4 '使字体居中
                 .DoSetCellAlignment 4, 8, 4 '使字体居中
                 .DoSetCellAlignment 5, 8, 4 '使字体居中
                 .DoSetCellAlignment 6, 8, 4 '使字体居中
                 .DoSetCellAlignment 7, 8, 4 '使字体居中
                 

                 
                   .DoSetCellString 1, 8, Form23.Combo5.Text
                 .DoSetCellString 2, 8, Form23.Combo6.Text
                 .DoSetCellString 3, 8, Form23.Text20
                 .DoSetCellString 4, 8, Form23.Text21
                 .DoSetCellString 5, 8, Form23.Text22
                 .DoSetCellString 6, 8, Form23.Text23
                 .DoSetCellString 7, 8, Form23.Text24

        '////////////////////////////////////////////////////////////
                 .DoSetRowHeight 9, 30
                 .DoSetCellAlignment 1, 9, 4 '使字体居中
                 .DoSetCellAlignment 2, 9, 4 '使字体居中
                 .DoSetCellAlignment 3, 9, 4 '使字体居中
                 .DoSetCellAlignment 4, 9, 4 '使字体居中
                 .DoSetCellAlignment 5, 9, 4 '使字体居中
                 .DoSetCellAlignment 6, 9, 4 '使字体居中
                 .DoSetCellAlignment 7, 9, 4 '使字体居中
                 

                 
                   .DoSetCellString 1, 9, Form23.Combo7.Text
                 .DoSetCellString 2, 9, Form23.Combo8.Text
                 .DoSetCellString 3, 9, Form23.Text27
                 .DoSetCellString 4, 9, Form23.Text28
                 .DoSetCellString 5, 9, Form23.Text29
                 .DoSetCellString 6, 9, Form23.Text30
                 .DoSetCellString 7, 9, Form23.Text31

        '////////////////////////////////////////////////////////////
                 .DoSetRowHeight 10, 30
                 .DoSetCellAlignment 1, 10, 4 '使字体居中
                 .DoSetCellAlignment 2, 10, 4 '使字体居中
                 .DoSetCellAlignment 3, 10, 4 '使字体居中
                 .DoSetCellAlignment 4, 10, 4 '使字体居中
                 .DoSetCellAlignment 5, 10, 4 '使字体居中
                 .DoSetCellAlignment 6, 10, 4 '使字体居中
                 .DoSetCellAlignment 7, 10, 4 '使字体居中
                 

                 
                   .DoSetCellString 1, 10, Form23.Combo9.Text
                 .DoSetCellString 2, 10, Form23.Combo10.Text
                 .DoSetCellString 3, 10, Form23.Text34
                 .DoSetCellString 4, 10, Form23.Text35
                 .DoSetCellString 5, 10, Form23.Text36
                 .DoSetCellString 6, 10, Form23.Text37
                 .DoSetCellString 7, 10, Form23.Text38

        '////////////////////////////////////////////////////////////
                 .DoSetRowHeight 11, 30
                 .DoSetCellAlignment 1, 11, 4 '使字体居中
                 .DoSetCellAlignment 2, 11, 4 '使字体居中
                 .DoSetCellAlignment 3, 11, 4 '使字体居中
                 .DoSetCellAlignment 4, 11, 4 '使字体居中
                 .DoSetCellAlignment 5, 11, 4 '使字体居中
                 .DoSetCellAlignment 6, 11, 4 '使字体居中
                 .DoSetCellAlignment 7, 11, 4 '使字体居中
                 

                 
                 
                   .DoSetCellString 1, 11, Form23.Combo11.Text
                 .DoSetCellString 2, 11, Form23.Combo12.Text
                 .DoSetCellString 3, 11, Form23.Text41
                 .DoSetCellString 4, 11, Form23.Text42
                 .DoSetCellString 5, 11, Form23.Text43
                 .DoSetCellString 6, 11, Form23.Text44
                 .DoSetCellString 7, 11, Form23.Text45



        '////////////////////////////////////////////////////////////
                 .DoSetRowHeight 12, 30
                 .DoSetCellAlignment 1, 12, 4 '使字体居中
                 .DoSetCellAlignment 2, 12, 4 '使字体居中
                 .DoSetCellAlignment 3, 12, 4 '使字体居中
                 .DoSetCellAlignment 4, 12, 4 '使字体居中
                 .DoSetCellAlignment 5, 12, 4 '使字体居中
                 .DoSetCellAlignment 6, 12, 4 '使字体居中
                 .DoSetCellAlignment 7, 12, 4 '使字体居中
                 
                 

                 
                 .DoSetCellString 1, 12, Form23.Combo13.Text
                 .DoSetCellString 2, 12, Form23.Combo14.Text
                 .DoSetCellString 3, 12, Form23.Text48
                 .DoSetCellString 4, 12, Form23.Text49
                 .DoSetCellString 5, 12, Form23.Text50
                 .DoSetCellString 6, 12, Form23.Text51
                 .DoSetCellString 7, 12, Form23.Text52




        '////////////////////////////////////////////////////////////
                 .DoSetRowHeight 13, 30
                 .DoSetCellAlignment 1, 13, 4 '使字体居中
                 .DoSetCellAlignment 2, 13, 4 '使字体居中
                 .DoSetCellAlignment 3, 13, 4 '使字体居中
                 .DoSetCellAlignment 4, 13, 4 '使字体居中
                 .DoSetCellAlignment 5, 13, 4 '使字体居中
                 .DoSetCellAlignment 6, 13, 4 '使字体居中
                 .DoSetCellAlignment 7, 13, 4 '使字体居中
                 
                 

                 
                   .DoSetCellString 1, 13, Form23.Combo15.Text
                 .DoSetCellString 2, 13, Form23.Combo16.Text
                 .DoSetCellString 3, 13, Form23.Text73
                 .DoSetCellString 4, 13, Form23.Text74
                 .DoSetCellString 5, 13, Form23.Text75
                 .DoSetCellString 6, 13, Form23.Text76
                 .DoSetCellString 7, 13, Form23.Text77





        '////////////////////////////////////////////////////////////


        '////////////////////////////////////////////////////////////
                 .DoSetRowHeight 14, 30
                 .DoSetCellAlignment 1, 14, 4 '使字体居中
                 .DoSetCellAlignment 2, 14, 4 '使字体居中
                 .DoSetCellAlignment 3, 14, 4 '使字体居中
                 .DoSetCellAlignment 4, 14, 4 '使字体居中
                 .DoSetCellAlignment 5, 14, 4 '使字体居中
                 .DoSetCellAlignment 6, 14, 4 '使字体居中
                 .DoSetCellAlignment 7, 14, 4 '使字体居中
                 

                 
                 
                   .DoSetCellString 1, 14, Form23.Combo17.Text
                 .DoSetCellString 2, 14, Form23.Combo18.Text
                 .DoSetCellString 3, 14, Form23.Text80
                 .DoSetCellString 4, 14, Form23.Text81
                 .DoSetCellString 5, 14, Form23.Text82
                 .DoSetCellString 6, 14, Form23.Text83
                 .DoSetCellString 7, 14, Form23.Text84


        '////////////////////////////////////////////////////////////
        
        
        
                 .DoSetRowHeight 15, 30
                 .DoJoinCells 2, 15, 3, 15 '合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoJoinCells 6, 15, 7, 15 '合并列成为一行(开始列,开始行,结束列,结束行)

                 .DoSetCellAlignment 1, 15, 4 '使字体居中
                 .DoSetCellAlignment 2, 15, 4 '使字体居中
                 .DoSetCellAlignment 3, 15, 4 '使字体居中
                 .DoSetCellAlignment 4, 15, 4 '使字体居中
                 .DoSetCellAlignment 5, 15, 4 '使字体居中
                 .DoSetCellAlignment 6, 15, 4 '使字体居中
                 
                  .DoSetCellString 1, 15, "共计"
                 .DoSetCellString 2, 15, Form23.Text65
                 .DoSetCellString 4, 15, Form23.Text66
                 .DoSetCellString 5, 15, Form23.Text67
                 .DoSetCellString 6, 15, Form23.Text53

    
        '////////////////////////////////////////////////////////////
        
        
        
'                 .DoJoinCells 0, 14, 8, 14 '合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoSetRowHeight 16, 30
        '////////////////////////////////////////////////////////////
                 .DoSetRowHeight 17, 30
'                 .DoJoinCells 2, 17, 2, 17 '合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoJoinCells 3, 17, 4, 17 '合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoJoinCells 5, 17, 6, 17 '合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoJoinCells 7, 17, 7, 17 '合并列成为一行(开始列,开始行,结束列,结束行)
                 .DoSetCellAlignment 1, 17, 4 '使字体居中
                 .DoSetCellAlignment 2, 17, 4 '使字体居中
                 .DoSetCellAlignment 3, 17, 4 '使字体居中
                 .DoSetCellAlignment 5, 17, 4 '使字体居中
                 .DoSetCellAlignment 7, 17, 4 '使字体居中
                 .DoSetCellString 1, 17, "作业组"
                 .DoSetCellFont 1, 17, 10, 1, 宋体
                 .DoSetCellString 2, 17, "超期"
                 .DoSetCellFont 2, 17, 10, 1, 宋体
                 .DoSetCellString 3, 17, "产值"
                 .DoSetCellFont 3, 17, 10, 1, 宋体
                 .DoSetCellString 5, 17, "组金额"
                 .DoSetCellFont 5, 17, 10, 1, 宋体
                 .DoSetCellString 7, 17, "队金额"
                 .DoSetCellFont 7, 17, 10, 1, 宋体



        '////////////////////////////////////////////////////////////
                 .DoSetRowHeight 18, 30
'                 .DoJoinCells 2, 18, 2, 18 '合并列成为一行(开始列,