历史曲线使用说明.txt

这是一个用来查询历史数据的小程序

'************************************************************************************************
' 调用时只需修改config.ini文件
' 在config.ini配置文件中存在以下项目
' [历史流量曲线]
' 仪表数量 = 2                   ->仪表数量
' 仪表名称=仪表1,仪表2           ->仪表名称
' 画笔程序延时=400                                                              ->画笔程序打开延
' 分组数量=8                                                                    ->棒图、柄图显示
' 分组范围=0-400,401-500,501-600,601-750,751-800,801-1000,1001-1200,1201-3000   ->棒图、柄图显示

' 数据库为slqx.mdb， 其中有31个表，分别对应1-31天，每天有1440个记录,每分钟保存一个记录，以编辑方
  式更新每分记录
' 每表存在RQ，Sj，Tag，b1，b2,....bn 字段，新数据库可用CreatQxk.exe文件生成。
'************************************************************************************************

'1.>程序中加载Save_Minute_Flow.bas文件

'2.>调用以下程序更新数据库流量数据 

  for Ii=0 to 1'1-仪表数量
      Yb_Total_Flow(Ii) = CDbl(Label41(Ii))'仪表累计值
      Yb_Rate_Flow(Ii) = CDbl(Label42(Ii))'仪表瞬时流量
      Scale_MaxRate_Flow(Ii) = Scale_Max_Rate(Ii)'秤容量
  next Ii
　'1仪表数量
  ''更新一次流量数据
  Call SaveFlowData(Yb_Total_Flow, Yb_Rate_Flow, Scale_MaxRate_Flow, 1)

'3.>在程序中调用以下程序执行历史曲线查询程序

　On Error GoTo ErrFlag
  AppActivate "历史曲线"
  'SendKeys "% " + "R"
  Exit Sub
ErrFlag:
  Call Shell(App.Path & "\历史曲线.exe", vbNormalFocus)