globlevariables.bas

本系统是给大庆油田做的一个示例程序

Attribute VB_Name = "GlobleVariables"
Option Explicit

Public Well_Type As String
Public Cyj_Type As String

Public Type MyDate_Time_S_N_Pr_Prl
    MyDate As String
    MyTime As String
    MYS As Double
    MyN As Double
    MyPr As String
    MyPrl As String
End Type

Public zhouD_T_S_N_Pr_Prl(2500) As MyDate_Time_S_N_Pr_Prl

Public Type ResultSimulator '注意：静态数据不能大于64KB字节
    WellNum As String '井号
    MyDate As String '日期
    MyTime As String '时间
    MyPumpD As Double '泵径
    MyStroke As Double '冲程
    MyStrokeN As Double '冲次
    MyHd As Double '动液面
    MyXiapumpSD As Double '下泵深度
    MyDiagnoseQ As Double '诊断产量
    MyPumpEff As Double '泵效
End Type
Public MyResultSimulatorForWord(2500) As ResultSimulator

Public Const pi = 3.14159265

Public ResultId As Integer
Public Mbackcolor  As Variant     '保存主界面的背景颜色
Public MBackpatern As String      '保存主界面的背景图案文件名
Public MBackwave As Integer       '保存主界面的背景音乐事件间隔

Public MainFormHeigh As Long, MainFormWidth As Long
Public Mimas As String, Mimasave As String
Public PutPath As String, CurPath As String
Public Sysdir As String
Public GetPath_ZHK As String, GetPath_ZYK As String
Public DSN As String, UID As String, PWD As String, DBF_SLCT As String
Public BJ_Left As String, BJ_Top As String, XK_Line As String

Public DataErr1 As Single, DataErr2 As Single, DataErr3 As Single, DataErr4 As Single, DataErr5 As Single
Public DataErr6 As Single, DataErr7 As Single, DataErr8 As Single, DataErr9 As Single
Public WellDataErrS(19) As Single

Rem 定向井

Public tpnzt
Public proc As Integer
Public file As String
Public rule As Integer
Public xh As Single
Public luru As Single
Public datf$

'1 备注参数
Public wellnum_LZF As String             '井名
Public axisX, axisY, axisZ As String '坐标
Public operator, operdata As String  '采油队及开采日期

'2 设备参数
Public rigtype As String             '抽油机型号
Public loadmax As Single             '最大提升载荷
Public torquemax As Single           '曲柄轴最大扭矩
Public powermax As Single            '电动机最大输出功率
Public metertype As String           '示功仪型号