PU1统计

原创 2004年09月19日 12:28:00

'--------------查询------------
Sub PU1TJ_write()
  Dim myCn As New ADODB.Connection
  Dim myrs As New ADODB.Recordset
  Dim strcon As String
 
  '-------------ADO数据库连接串-------------
  strcon = "PROVIDER=SQLOLEDB;SERVER=172.16.2.2;UID=sa;PWD=tpcims;DATABASE=Man" 'DL580-1
  On Error GoTo Error:
  myCn.ConnectionString = strcon
  myCn.CommandTimeout = 0
  myCn.Open
  myrs.ActiveConnection = myCn
 
 '---------------插入所查询的数据-------------
 m = 4
 n = 2
'----------------打开存储过程-------------
 mystr = "execute  PU1_TJ_ZHANGZS  '" + Trim(Txt_Date0.Text) + "','" + Trim(Txt_Date.Text) + "'"
 myrs.Open mystr
 
 Do While Not myrs.EOF
  Worksheets("TJ").Cells(m, n - 1) = m - 3
  If CStr(Trim(myrs!炉号)) <> "099999" Then
      Worksheets("TJ").Cells(m, n) = Trim(myrs!炉号)
  Else
      Worksheets("TJ").Cells(m, n) = ""
      Worksheets("TJ").Cells(m, n - 1) = ""
      'Worksheets("TJ").Cells(23, 3).Interior.PatternColorIndex = xlAutomatic
  End If
  Worksheets("TJ").Cells(m, n + 1) = CStr(Trim(myrs!入库日期)) + "  " + CStr(Trim(myrs!入库时间))
  Worksheets("TJ").Cells(m, n + 2) = Trim(myrs!钢种)
  Worksheets("TJ").Cells(m, n + 3) = Trim(myrs!定尺长度)
  Worksheets("TJ").Cells(m, n + 4) = Trim(myrs!铸坯外径)
  Worksheets("TJ").Cells(m, n + 5) = Trim(myrs!支数)
  Worksheets("TJ").Cells(m, n + 6) = Trim(myrs!重量)
  Worksheets("TJ").Cells(m, n + 7) = Trim(myrs!库位)
 
  If Left(CStr(Trim(myrs!炉号)), 1) = "0" Then
  Worksheets("TJ").Cells(m, n + 8) = Trim(myrs!电炉时间)
  Worksheets("TJ").Cells(m, n + 9) = Trim(myrs!重废)
  Worksheets("TJ").Cells(m, n + 10) = Trim(myrs!统废)
  Worksheets("TJ").Cells(m, n + 11) = Trim(myrs!铁水)
  Worksheets("TJ").Cells(m, n + 12) = Trim(myrs!生铁)
  Worksheets("TJ").Cells(m, n + 13) = Trim(myrs!海绵铁)
  Worksheets("TJ").Cells(m, n + 14) = Trim(myrs!进口废钢)
  Else
  Worksheets("TJ").Cells(m, n + 8) = ""
  Worksheets("TJ").Cells(m, n + 9) = ""
  Worksheets("TJ").Cells(m, n + 10) = ""
  Worksheets("TJ").Cells(m, n + 11) = ""
  Worksheets("TJ").Cells(m, n + 12) = ""
  Worksheets("TJ").Cells(m, n + 13) = ""
  Worksheets("TJ").Cells(m, n + 14) = ""
  End If
 myrs.MoveNext
 m = m + 1
 Loop
 myrs.Close
 myCn.Close
 
Exit Sub
 
 '----------出现错误执行以下代码--------------
Error:
  MsgBox Err.Description, vbOKOnly, "Error Message"
End Sub
'-------------清空记录的函数--------------
Sub Clear()
For i = 4 To 104
  For j = 1 To 16
   Worksheets("TJ").Cells(i, j) = ""
  Next j
Next i
End Sub

'-----统计计算-----------暂时没有用到!
Sub js()
  For i = 4 To 43
  Worksheets("TJ").Cells(44, 5) = Worksheets("TJ").Cells(44, 5) + Worksheets("TJ").Cells(i, 5)
  Next i
End Sub

'--------------查询记录-----------------
Private Sub Check_Click()
 Call Clear
 Call PU1TJ_write
 Columns("B:Q").AutoFit
End Sub
'-------------清空记录--------------
Private Sub Clear_Row_Click()
 Call Clear
 Columns("B:Q").AutoFit
End Sub

Node.js + jQuery实现网站访客数统计

Node是一个很底层的玩意儿,http服务器这样的东西也需要我们来搭建,但恰恰是因为这样,我们就可以很灵活地实现一些前后端交互的工作。   下面就来看看这次我们做的这个访客统计。 Node后端搭...
  • unixzii
  • unixzii
  • 2014年04月13日 17:07
  • 1877

图像的统计特征

图像的一些基本统计特征。
  • xholes
  • xholes
  • 2016年11月22日 21:59
  • 2408

【nodejs】数据统计平台碰到的坑

记录使用nodejs实现数据统计平台碰到的一些坑:String + Array在调试的时候需要打印一些log进行分析,打印long的源码为:控制台输出的结果为:以为是字符串的原因,将searchArg...
  • lluozh2015
  • lluozh2015
  • 2016年08月11日 20:58
  • 893

李航 统计学习方法 第一章 课后 习题 答案

1.1统计学习方法的三要素是模型、策略、算法。伯努利模型是定义在取值为0与1的随机变量上的概率分布。统计学分为两派:经典统计学派和贝叶斯统计学派。两者的不同主要是,经典统计学派认为模型已定,参数未知,...
  • familyshizhouna
  • familyshizhouna
  • 2017年04月14日 14:48
  • 6241

统计字符串中的汉字个数

//问题描述:统计字符串中的汉字个数。 //解题思路是:从汉字机内码的特点考虑:一个汉字是有两个ASCII字符构成,且这两个字符的ASCII码值小于0。 #include #inclu...
  • u014053368
  • u014053368
  • 2014年03月26日 21:08
  • 1059

一句shell命令搞定代码行数统计

最粗略版 Shell代码   find . -name "*.java"|xargs wc -l|grep "total"|awk '{print $1}'   fi...
  • waysoflife
  • waysoflife
  • 2015年11月12日 13:29
  • 7403

统计学习方法——模型与问题分类

0. 写在前面在这一讲中,我们主要介绍一下模型的类别以及问题的类别,并对课后习题进行相应的分析。1. 模型的类型我们知道,统计学习主要包括监督学习、非监督学习、半监督学习和强化学习。那么在统计学习方法...
  • qq_35082030
  • qq_35082030
  • 2017年03月04日 16:31
  • 798

git统计代码量相关命令

统计某人的代码提交量,包括增加,删除: [plain] view plain copy git log --author="$(git config --get user.name)"...
  • tongtong0704
  • tongtong0704
  • 2016年12月16日 15:17
  • 848

SQL-统计JIRA敏捷看板中的工作量

-- **************************************************** -- -- 该脚本用来查询一个迭代中子任务的估算时间、已工作时间和剩余时间 -- -- ...
  • yangyong688
  • yangyong688
  • 2017年02月20日 16:35
  • 2075

使用MyBatis对项目中的统计功能进行处理的查询语句优化

(比较重点的我都会以红字标出)前两天刚入职,比较忙所以没有写文章。这篇文章我将会写这两天在一个人才服务业务管理系统项目中碰到的一个关于对MySQL数据库中数据进行统计的小问题。 首先,我这边有两张表,...
  • qq_39549434
  • qq_39549434
  • 2017年11月29日 17:16
  • 107
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:PU1统计
举报原因:
原因补充:

(最多只允许输入30个字)