当前位置：文档之家 › 日报表解释说明

日报表解释说明

  • 格式：doc
  • 大小：110.00 KB
  • 文档页数：10

1全局脚本在全局脚本里建立起与数据库的连接，通过定时整点触发脚本，把变量写到数据库。

WINCC里全局脚本触发定时器设定是每小时整点触发。

Option Explicit 变量声明Function action 功能操作Dim database 定义数据库Dim strcn,cnDim is_SQLDim riqiDim yali,wendu,liuliang,zhongliang,dianya,sudu 定义压力、温度、、、、Dim DateTime 定义日期时间riqi=NowSet yali= HMIRuntime.Tags("yali") 人机界面运行时间标签yali.ReadSet wendu= HMIRuntime.Tags("wendu")wendu.ReadSet liuliang= HMIRuntime.Tags("liuliang")liuliang.ReadSet zhongliang= HMIRuntime.Tags("zhongliang")zhongliang.ReadSet dianya= HMIRuntime.Tags("dianya")dianya.ReadSet sudu= HMIRuntime.Tags("sudu")sudu.Readstrcn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=baobiao1;Data Source=.\wincc"Set cn=CreateObject("ADODB.connection")cn.connectionString=strcncn.Openis_SQL="insert into ribao(riqi,yali,wendu,liuliang,zhongliang,dianya,sudu) Values('"& riqi &"','"&yali.Value &"','"&wendu.Value &"','"&liuliang.Value &"','"&zhongliang.Value &"','"&dianya.Value &"','"&sudu.Value &"')"cn.Execute is_SQLcn.CloseEnd Functi2查询按钮Sub OnClick(ByVal Item)Dim i, n, k, n1, a1, b1, c1, d1, e1, f1Dim MSFlexGrid1Dim Sql, oCom, conn, sql1, oCom1Dim j, b, zDim ylp, wdp, llp, ylx, wdx, llx, yld, wdd, lldDim zlp, dyp, sdp, zlx, dyx, sdx, zld, dyd, sdd【压力、温度、流量、重力、电压、速度的平均值、最小值、最大值】Dim strcn, cnDim a, shi, t, xDim oRs, oRs1Dim Text2Dim BeginDate 开始日期Dim EndDate 结束日期Dim By, Bm, Bd 定义开始年月日Dim Ny, Nm, Nd, c, e, f 定义结束年月日Dim Date1,Date2【定义函数命令：】Set Text2 = ScreenItems("Text2")Set Date1 = ScreenItems("Date1")Set Date2 = ScreenItems("Date2")Set MSFlexGrid1 = ScreenItems("MSFlexGrid1")【ScreenItems为画面对象集合，把定义的函数与画面中的控件进行映射】By = Year(Date1.Value)Bm = Month(Date1.Value)Bd = Day(Date1.Value) 【BY BM BD 为date1的年月日定义,B为begin开始时间】Ny = Year(Date2.Value)Nm = Month(Date2.Value)Nd = Day(Date2.Value) 【NY NM ND 为date2的年月日定义，N的end结束时间】BeginDate = By & "-" & Bm & "-" & Bd & " " & "00:00:00"EndDate = Ny & "-" & Nm & "-" & Nd & " " & "23:59:59"e = By & "-" & Bm & "-" & Bdf = Ny & "-" & Nm & "-" & NdIf By > Ny Or By = Ny And Bm > Nm Or By = Ny And Bm = Nm And Bd > Nd Then MsgBox "输入的时间不正确", vbOK, "错误的起始时间" 【MsgBox为弹出的对话框控件】End If'以上程序为日期查询2.1 '建立连接Sql = "SELECT CONVERT(char(19), riqi, 20) AS riqi, yali, wendu, liuliang, zhongliang, dianya, sudu FROM ribao WHERE riqi BETWEEN '" & BeginDate & "' and'" & EndDate & "'ORDER BY riqi"【CONVERT 在SQL（结构化语言）中的一个系统函数一般用法convert 函数用来转换数据类型例子：SELECT CONVERT (VARCHAR(5),12345)返回：字符串 '12345'/sql/sql_orderby.asp】sql1 = "select avg(yali)as ylp,avg(wendu)as wdp,avg(liuliang)as llp,avg(zhongliang)as zlp,avg(dianya)as dyp,avg(sudu)as sdp,min(yali)as ylx,min(wendu)as wdx,min(liuliang)As llx,min(zhongliang)As zlx,min(dianya)As dyx,min(sudu)As sdx,max(yali)As yld,max(wendu)As wdd,max(liuliang)As lld,max(zhongliang)As zld,max(dianya)As dyd,max(sudu)As sdd from ribao where riqi between '" & BeginDate & "' and'" & EndDate & "'"【/sql/sql_func_avg.asp】strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=baobiao1;Data Source=.\wincc"Set conn = CreateObject("ADODB.Connection")conn.ConnectionString = strcnconn.CursorLocation = 3conn.Open'使用命令文本查询Set oRs = CreateObject("ADODB.Recordset")Set oCom = CreateObject("mand")mandType = 1Set oCom.ActiveConnection = connmandText = SqlSet oRs = oCom.Executen = oRs.RecordCount 【RecordCount指示Recordset对象中记录的当前数目】Text2.Text = n 【Text2 为日报表中静态文本的查询到的记录数的文本内容为n】 Set oCom1 = CreateObject("mand")mandType = 1Set oCom1.ActiveConnection = connmandText = sql1Set oRs1 = oCom1.Executen1 = oRs1.RecordCountylp = oRs1("ylp"): wdp = oRs1("wdp"): llp = oRs1("llp"): ylx = oRs1("ylx"): wdx = oRs1("wdx"): llx = oRs1("llx"): yld = oRs1("yld"): wdd = oRs1("wdd"): lld = oRs1("lld")zlp = oRs1("zlp"): dyp = oRs1("dyp"): sdp = oRs1("sdp"): zlx = oRs1("zlx"): dyx = oRs1("dyx"): sdx = oRs1("sdx"): zld = oRs1("zld"): dyd = oRs1("dyd"): sdd = oRs1("sdd")If n = 0 Then 【查询的结果数为0时显示内容】MsgBox "对不起,没有找到符合条件的数据", vbOK, "没有相关数据"End IfoRs.RequeryMSFlexGrid1.Clear【使用FlexGrid ActiveX控件可以在Microsoft Visual Basic的窗体中创建一个电子数据表格，也可称之为网格，/link?url=gdGZm1tyQhFpO4MlKlEiFPvRS990aO0n5y9PFHPR1a edWB4XLJL05K68bL84l6aa】MSFlexGrid1.Rows = oRs.RecordCount + 6MSFlexGrid1.ColWidth(0) = 800MSFlexGrid1.ColWidth(1) = 2100MSFlexGrid1.ColWidth(2) = 1000MSFlexGrid1.ColWidth(3) = 1000MSFlexGrid1.ColWidth(4) = 1000MSFlexGrid1.ColWidth(5) = 1000MSFlexGrid1.ColWidth(6) = 1000MSFlexGrid1.ColWidth(7) = 1000'合并单元格，并把单元格的内容写为R980履带式布料机日报表MSFlexGrid1.Row = 0For z = 0 To 7MSFlexGrid1.Col = zMSFlexGrid1.Text = "R980履带式布料机日报表"NextMSFlexGrid1.MergeCells = 4 【Merge合并】MSFlexGrid1.MergeRow(0) = True'合并单元格MSFlexGrid1.TextMatrix(1, 0) = "编号" 【Matrix矩阵，（行，列）】MSFlexGrid1.TextMatrix(1, 1) = "日期"MSFlexGrid1.TextMatrix(1, 2) = "压力"MSFlexGrid1.TextMatrix(1, 3) = "温度"MSFlexGrid1.TextMatrix(1, 4) = "流量"MSFlexGrid1.TextMatrix(1, 5) = "重量"MSFlexGrid1.TextMatrix(1, 6) = "电压"MSFlexGrid1.TextMatrix(1, 7) = "速度"'MSFlexGrid1.TextMatrix(oRs.RecordCount+2, 0) = "总和"MSFlexGrid1.TextMatrix(oRs.RecordCount + 3, 0) = "最大值"MSFlexGrid1.TextMatrix(oRs.RecordCount + 4, 0) = "最小值"MSFlexGrid1.TextMatrix(oRs.RecordCount + 5, 0) = "平均值" MSFlexGrid1.ColAlignment(0) = 4MSFlexGrid1.ColAlignment(1) = 4MSFlexGrid1.ColAlignment(2) = 4MSFlexGrid1.ColAlignment(3) = 4MSFlexGrid1.ColAlignment(4) = 4MSFlexGrid1.ColAlignment(5) = 4MSFlexGrid1.ColAlignment(6) = 4MSFlexGrid1.ColAlignment(7) = 4 【对其方式】For i = 1 To oRs.RecordCountMSFlexGrid1.TextMatrix(i + 1, 0) = iNextIf (n > 0) ThenoRs.MoveFirsti = 0End If 【显示编号下方的信息为从第2行、第0列为1，第3行第0列为2，i的取值为从1到查询到的数目oRs.RecordCount】Do While Not oRs.EOFn = n + 1ylp = Int(ylp * 10 ^ 3 + 0.5) / (10 ^ 3)wdp = Int(wdp * 10 ^ 3 + 0.5) / (10 ^ 3)llp = Int(llp * 10 ^ 3 + 0.5) / (10 ^ 3)zlp = Int(zlp * 10 ^ 3 + 0.5) / (10 ^ 3)dyp = Int(dyp * 10 ^ 3 + 0.5) / (10 ^ 3)sdp = Int(sdp * 10 ^ 3 + 0.5) / (10 ^ 3)i = i + 1'MSFlexGrid1.AddItem i,i+1t = CStr(oRs.Fields(0).Value)If e = f ThenMSFlexGrid1.TextMatrix(i + 1, 1) = Mid(t, 11, 16) End IfIf e <> f ThenMSFlexGrid1.TextMatrix(i + 1, 1) = tEnd Ifa1 = CStr(oRs.Fields(1).Value)b1 = CStr(oRs.Fields(2).Value)c1 = CStr(oRs.Fields(3).Value)d1 = CStr(oRs.Fields(4).Value)e1 = CStr(oRs.Fields(5).Value)f1 = CStr(oRs.Fields(6).Value)a1 = Int(a1 * 10 ^ 3 + 0.5) / (10 ^ 3)b1 = Int(b1 * 10 ^ 3 + 0.5) / (10 ^ 3)c1 = Int(c1 * 10 ^ 3 + 0.5) / (10 ^ 3)d1 = Int(d1 * 10 ^ 3 + 0.5) / (10 ^ 3)e1 = Int(e1 * 10 ^ 3 + 0.5) / (10 ^ 3)f1 = Int(f1 * 10 ^ 3 + 0.5) / (10 ^ 3)MSFlexGrid1.TextMatrix(i + 1, 2) = a1MSFlexGrid1.TextMatrix(i + 1, 3) = b1MSFlexGrid1.TextMatrix(i + 1, 4) = c1MSFlexGrid1.TextMatrix(i + 1, 5) = d1MSFlexGrid1.TextMatrix(i + 1, 6) = e1MSFlexGrid1.TextMatrix(i + 1, 7) = f1MSFlexGrid1.TextMatrix(oRs.RecordCount + 3, 2) = yld MSFlexGrid1.TextMatrix(oRs.RecordCount + 4, 2) = ylx MSFlexGrid1.TextMatrix(oRs.RecordCount + 5, 2) = ylp MSFlexGrid1.TextMatrix(oRs.RecordCount + 3, 3) = wdd MSFlexGrid1.TextMatrix(oRs.RecordCount + 4, 3) = wdx MSFlexGrid1.TextMatrix(oRs.RecordCount + 5, 3) = wdp MSFlexGrid1.TextMatrix(oRs.RecordCount + 3, 4) = lld MSFlexGrid1.TextMatrix(oRs.RecordCount + 4, 4) = llx MSFlexGrid1.TextMatrix(oRs.RecordCount + 5, 4) = llp'************************************************* MSFlexGrid1.TextMatrix(oRs.RecordCount + 3, 5) = zld MSFlexGrid1.TextMatrix(oRs.RecordCount + 4, 5) = zlx MSFlexGrid1.TextMatrix(oRs.RecordCount + 5, 5) = zlp MSFlexGrid1.TextMatrix(oRs.RecordCount + 3, 6) = dyd MSFlexGrid1.TextMatrix(oRs.RecordCount + 4, 6) = dyx MSFlexGrid1.TextMatrix(oRs.RecordCount + 5, 6) = dyp MSFlexGrid1.TextMatrix(oRs.RecordCount + 3, 7) = sdd MSFlexGrid1.TextMatrix(oRs.RecordCount + 4, 7) = sdx MSFlexGrid1.TextMatrix(oRs.RecordCount + 5, 7) = sdp '*****************************************************oRs.MoveNextLoopEnd Sub3打印按钮Sub OnClick(ByVal Item)Dim ExcelAppDim ExcelBookDim ExcelSheetDim MSFlexGrid1Dim i,irow,ICOLDim z,kSet MSFlexGrid1 = ScreenItems("MSFlexGrid1")Set ExcelApp = CreateObject("Excel.Application")Set ExcelBook = ExcelApp.Workbooks.AddSet ExcelSheet = ExcelBook.Worksheets(1)ExcelApp.Visible = TrueExcelSheet.Range("A1:H1").MergeFor irow = 0 To MSFlexGrid1.Rows - 1For ICOL = 0 To MSFlexGrid1.Cols - 1z=MSFlexGrid1.RowsExcelSheet.Cells(irow + 1,icol+1)=Trim(MSFlexGrid1.TextMatrix(irow, icol)) NextNextExcelSheet.Range( "A1:H"&z&"").Borders(1).Weight =2ExcelSheet.Range( "A1:H"&z&"").Borders(2).Weight =2ExcelSheet.Range( "A1:H"&z&"").Borders(3).Weight =2ExcelSheet.Range( "A1:H"&z&"").Borders(4).Weight =2ExcelSheet.Rows(1).RowHeight = 0.75/0.035ExcelSheet.Cells.EntireColumn.AutoFitExcelSheet.Rows(1) = "宋体"ExcelSheet.Rows(1).Font.Bold = TrueExcelSheet.Rows(1).Font.Size = 16ExcelSheet.Cells.HorizontalAlignment =3'ExcelSheet.PageSetup.TopMargin = 2/0.035'ExcelSheet.PageSetup.BottomMargin = 2/0.035'ExcelSheet.PageSetup.LeftMargin = 2/0.035'ExcelSheet.PageSetup.RightMargin = 2/0.035ExcelSheet.PageSetup.CenterHorizontally = 2/0.035ExcelSheet.printpreview'打印阅览'ExcelSheet.PrintOut'打印时用此句ExcelBook.CloseExcelApp.QuitSet ExcelApp = NothingEnd Sub4画面函数打开画面Sub OnOpen()Dim Text1,Text2Set Text1 = ScreenItems("Text1")Set Text2 = ScreenItems("Text2")Text1.Text=NowText2.Text=0End Sub。

合集下载

生产日报表 (2)

生产日报表 (2)

生产日报表1. 概述生产日报表是记录每日生产活动情况的重要文档。

通过日报表的填写和分析，可以了解每日的生产进展、问题和成果，为企业提供决策参考和优化生产流程提供依据。

2. 日报表内容生产日报表的内容包括以下几个方面：2.1 日期和班次在日报表中首先记录日期和生产班次。

日期标明了当天的生产时间，班次表示生产活动的时间段。

2.2 计划产量和完成情况填写计划产量和实际完成情况的数据。

计划产量是指预期在当天完成的产品数量，完成情况表示实际完成的产品数量。

2.3 生产效率和稳定性记录生产效率和稳定性的指标，如生产速度、设备利用率和生产中断次数等。

这些指标反映了生产流程的效率和稳定性，可以评估生产活动的优化空间。

2.4 生产质量填写产品质量相关的指标，如良品率、返工率和废品率等。

这些指标反映了产品的质量水平和生产过程中的问题。

2.5 人员和设备情况记录生产人员和设备的情况，包括人员数量、岗位分配和设备的运行情况。

这些数据有助于评估生产资源的利用和人员配备的合理性。

2.6 问题和改进建议列出当天生产过程中出现的问题和需要改进的方面，并提出相应的改进建议。

这些问题和建议可以为企业管理者提供改进生产流程和解决问题的思路。

3. 日报表填写要点为了保证生产日报表的准确性和完整性，以下是一些填写日报表的要点：•按照实际生产情况填写，准确记录数据。

•及时填写，避免遗漏或遗忘。

•描述问题具体和清晰明了，提供详细的改进建议。

4. 日报表分析与应用对填写的生产日报表进行分析和应用，可以从以下几个方面得到有价值的信息：•比较计划产量和实际完成情况，评估生产计划的合理性和执行情况。

•分析生产效率和稳定性的指标，找出瓶颈和改进空间。

•关注生产质量的指标，发现质量问题并进行改进。

•根据问题和改进建议，制定相应的行动计划和改进措施。

5. 总结生产日报表是生产管理中非常重要的工具，通过填写和分析日报表，可以全面了解生产情况，优化生产流程，提高生产效率和质量。

1.“耗差日报表”使用说明

1.“耗差日报表”使用说明

“耗差日报表”使用说明前言“耗差日报表”是反映全厂和#6、7机组生产经济指标的重要基础报表，部分技术指标具有一定的分析功能，因而能较为全面地满足和适应各部门对有关指标的统计和分析需求，以进一步满足精细化管理，促进节能降耗，减少成本的要求。

“耗差日报表”经过2008年2天的的开发、编制（在其他项目需要8个月的工作量），现已投入试运行（仍需完善）。

为了使新报表能更好地为生产、管理服务，下面对主要内容作简单的介绍和说明。

一．上网电量、综合厂用电率。

（第3栏）全厂上网电量为220kV上网线路进出关口电量的代数总和；全厂厂用电率=（Σ厂高变+Σ高备变）/全厂发电量；全厂综合厂用电率=（全厂发电量-全厂上网电量）/全厂发电量。

全厂综合厂用电率>全厂厂用电率。

其差值等于主变损失、线路损失及表计±误差。

我厂2007年8月电平衡试验得：全厂厂用电率为 %；全厂综合厂用电率为 %；二者绝对差值为 %，其中：主变损失为0.372%；升压站线路等设备损失为0.023%；表计不平衡误差为-0.175%。

目前，我厂与电网公司结帐就是用“上网电量”；这意味着主变和线路损失都由电厂自行承担。

我厂电表校验由河南电力试研所负责，一季度一次，电表正负误差对供电收入有很大影响；压损对经济效益较大。

二.#6-#7机单机厂用电率（第3栏）厂用电是一个各机组各具公用和互为备用的系统，因此要计算单机厂用电率相当烦琐、复杂。

这无疑不能正确反映单机的厂用电率。

如果以厂高变为单位，由于各机组6kV各段及高备变互为公用和备用，因此也难以拆分各机应负担的电量。

如下表所示（2002年8月电平衡试验数据），其计算结果与各机实际的厂用电率会有一定出入。

因此给供电煤耗计算会带来一定误差，也不利于技术、经济分析。

本次“日报表”对#6-#7机组的单机的厂用电率采用（“分机自用电量”+“单机公摊电量”）/单机发电量的方法，计算出各机组的厂用电率。

为各机组经济指标的劳动竞赛提供了相对准确的依据。

《案场日报表》使用说明书

《案场日报表》使用说明书

《案场日报表》使用说明书
一、《案场日报表》的作用：
1、体现当日案场来访、来电、认筹、定退房、签约等销售动态；
2、体现阶段内销售动态的整体情况；
3、体现案场销售动作的规范；
4、为周报、月报统计提供依据。

二、《案场日报表》使用说明及规范：
1、表格的第一行空格部分：按照原始轮序填写置业顾问的姓名；
2、本周累计栏：上周五至本周四各情况数据累计；
3、定退房栏：案场小订单在案场日报表中不再体现，小转大直接按大定体现；
4、成交情况栏：
成交金额指合同金额+地下室合同额(车库、阁楼），应回款金额指签约日应付房款金额+地下室合同额(车库、阁楼），已回款金额指签约日实付房款金额+地下室合同额(车库、阁楼）。

5、其他情况栏：
（1）销售率：体现项目截止当天整体推售情况及销售率（包括每期的推售情况及销售率）；
（2）定单及合同变更情况：体现项目截止当天的换户、更名、付款方式、退定变化情况；
（3）补交房款及合同款变化：体现项目截止当天已成交客户补交房款情
况，因换户、付款方式变更、额外优惠等情况导致的合同签约金额变化的具体情况；
6、《案场日报表》由案场主管负责填写。

三、其他使用说明：
1、表格内容变更：项目负责人根据项目实际情况或开发商提出的要求，首先分析变更的必要性，如确实需要变更，将调整的款项及必要性做充分说明后通过OA报销售管理部批准后方可执行。

2、存档及查阅：本《案场日报表》由案场内勤专员负责打印及归档；按月度（每月5号之前）整理并存档至销售部办公室档案柜专用文件夹；如需查阅，须经过案场内勤专员或销售部经理同意。

工 作 日 报 表 使用说明

工 作 日 报 表 使用说明

工作日报表工作日报表思想1.工作日报表是精细化管理思想中OEC管理法，又称为“日清管理法”的工具之一。

2.OEC管理的含义：OEC管理法----英文Overall Every Control and Clear 的缩写。

“OEC”内容：O----Overall 全方位E----Everyone 每人，Everyday 每天，Everything 每件事C----Control 控制，Clear 清理3.其含义是全方位对每人、每天所做的每件事进行控制和清理，并要求每天都要有所提高，做到“日事日毕、日清日高”。

具体地讲：就是企业每天所有的事情都要有人管，做到管理不漏项；所有的人均有管理、控制内容，并依据工作标准对各自控制的事项，按规定的计划执行，每日把实施结果与计划指标对照、总结、纠偏，达到对事物发展过程日控、事事控制的目的，确保事物向预定目标发展。

可以概括为：总帐不漏项；事事有人管，人人都管事；管事凭效果，管人凭考核。

4.OEC管理的三个构成体系目标体系日清体系激励机制首先确立目标；日清是完成目标的基础；日清的结果必须与正负激励挂钩才有效。

工作日报表的使用1.日报表不是孤立的而是绩效管理的基础手段之一。

2.日报表需要每天上班前第一时间填写完成当天工作计划，对于临时更改的计划和新增任务填写的内容，应及时记入日报表。

3.每天下班前自我评估计划完成情况和任务实施效果，并参照评分表自我评分，10分为中值，表示计划已全面完成和任务有效的实施。

4.直属领导根据督导和检查情况对员工当天的工作进行总体评判，同样10分为中值。

5.绩效管理周期结束，直属领导根据考核指标和KPI体系，结合日常评分，对直属员工的工作进行总结。

6.同员工进行绩效面谈，沟通工作总结，分析不足，找出对策，作为下一个绩效管理改进点，并进行例推，确定员工的发展点，使组织和个人共同发展。

7.根据绩效总结和绩效面谈结果，确定对员工的正负激励，激励可以是物质的但更应该注重精神激励，实现全面薪酬体系，增强教职工的对学校的认同感，加强学校的凝聚力，从而保证学校各同学的正常高效运转2013年08.07。