class1.cls

路面结构设计系统的界面和部分功能,包括结构图的预览,路面结构模型的数据库管理

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ASPHALTPAV"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public AP_PROID As Integer   '路面工程的ID
Public AP_PRORO As String    '道路性质(公路或城市)
Public AP_PRONAME As String   '工程名称
Public AP_PAVPRO As String    '路面验算性质
Public AP_PAVGRA As Integer    '路面等级
Public AP_STRUNUM As Long  '路面结构层数
Public AP_DESIGF As Double          '设计弯沉
Public AP_CTROLY As Integer          '设计控制层位
Public AP_NATRUECONDITION As String  '自然区划
Public AP_LOADNUM1 As Double          '验算沥青面层用标轴次数
Public AP_LOADNUM2 As Double          '验算半刚性基层用标轴次数
Public AP_LYSBH As String             '各层材料填充类型（绘图用）

Public AP_LYS15MO As String           '各层15度弹模
Public AP_LYS20MO As String           '各层20度弹模
Public AP_LYSTH As String          '各层厚度
Public AP_LYSSTR As String         '各层强度
Public AP_LYSNAME As String        '各层材料名称
Public AP_LYSCHA As String         '各层材料特性

Public i As Integer
Public AP_AFTH As Single             '抗冻深度
Public AP_DSCRIB As String                        '备注




Public Sub Init()
AP_PROID = 101   '路面工程的ID
AP_PRORO = "公路工程"
AP_PRONAME = "XXXX"  '工程名称
AP_PAVPRO = "弯沉和应力"   '路面验算性质
AP_PAVGRA = 1   '路面等级
AP_STRUNUM = 3   '路面结构层数
AP_DESIGF = 20         '设计弯沉
AP_CTROLY = 1            '设计控制层位
AP_NATRUECONDITION = "1"   '自然区划
AP_LOADNUM1 = 20          '验算沥青面层用标轴次数
AP_LOADNUM2 = 20         '验算半刚性基层用标轴次数
AP_LYSBH = "1 2 3"            '各层材料填充类型（绘图用）
AP_LYS15MO = "1500 1200 80"          '各层15度弹模
AP_LYS20MO = "1400 1100 80"          '各层20度弹模
AP_LYSTH = "20 20"         '各层厚度
AP_LYSSTR = "0.5 0.6"        '各层强度
AP_LYSNAME = "中粒径沥青砼 粗粒式沥青砼 土础"       '各层材料名称
AP_LYSCHA = "1 2"        '各层材料特性
AP_AFTH = 60              '抗冻深度

AP_DSCRIB = ""
End Sub

'删除数据
Public Sub Delete(ByVal TmpProId As Long)
  SqlStmt = "Delete FROM ASPHALT_PAV WHERE AP_PROID=" + Trim(Str(TmpProId))
  SQLExt (SqlStmt)
End Sub

Public Function GetName(ByVal TmpStudentId As Long) As String

End Function

Public Function GetInfo(ByVal TmpProId As Long) As Boolean
  If TmpProId <= 0 Then
    Init
    GetInfo = False
    Exit Function
  End If
  
  AP_PROID = TmpProId
  Dim rs As New ADODB.Recordset
 '打开到数据库的连接
  SqlStmt = "SELECT * FROM ASPHALT_PAV WHERE PROID=" + Trim(Str(TmpProId))
  MsgBox SqlStmt
  Set rs = QueryExt(SqlStmt)
  If rs.EOF Then
    GetInfo = False
    Exit Function
  Else
   
       
       If IsNull(rs.Fields(0)) Then
          AP_PROID = 100
       Else
          AP_PROID = rs.Fields(0)
       End If
       
       
       If IsNull(rs.Fields(1)) Then
          AP_PRORO = ""
       Else
          AP_PRORO = Trim(rs.Fields(1))
       End If
    
        If IsNull(rs.Fields(2)) Then
          AP_PRONAME = ""
       Else
          AP_PRONAME = Trim(rs.Fields(2))
       End If
       
        If IsNull(rs.Fields(3)) Then
          AP_PAVPRO = ""
       Else
          AP_PAVPRO = Trim(rs.Fields(3))
       End If
    
        If IsNull(rs.Fields(4)) Then
          AP_PAVGRA = 1
       Else
          AP_PAVGRA = rs.Fields(4)
       End If
   
       
        If IsNull(rs.Fields(5)) Then
          AP_STRUNUM = 0
       Else
          AP_STRUNUM = rs.Fields(5)
       End If
       
       
        If IsNull(rs.Fields(6)) Then
          AP_DESIGF = 0
       Else
          AP_DESIGFA = rs.Fields(6)
       End If
       
       
       If IsNull(rs.Fields(7)) Then
          AP_CTROLY = 1
       Else
          AP_CTROLY = rs.Fields(7)
       End If
       
       If IsNull(rs.Fields(8)) Then
          AP_NATRUECONDITION = ""
       Else
          AP_NATRUECONDITION = Trim(rs.Fields(8))
       End If
       
       
       If IsNull(rs.Fields(9)) Then
          AP_LOADNUM1 = 20
       Else
          AP_LOADNUM1 = rs.Fields(9)
       End If
       
       
       If IsNull(rs.Fields(10)) Then
          AP_LOADNUM2 = 20
       Else
         AP_LOADNUM2 = rs.Fields(10)
       End If
       
       
       If IsNull(rs.Fields(11)) Then
          AP_LYSBH = ""
       Else
          AP_LYSBH = Trim(rs.Fields(11))
       End If
       
       
       If IsNull(rs.Fields(12)) Then
          AP_LYS15MO = ""
       Else
          AP_LYS15MO = Trim(rs.Fields(12))
       End If
       
       
       If IsNull(rs.Fields(13)) Then
          AP_LYS20MO = ""
       Else
          AP_LYS20MO = Trim(rs.Fields(13))
       End If
       
       
       If IsNull(rs.Fields(14)) Then
          AP_LYSTH = ""
       Else
          AP_LYSTH = Trim(rs.Fields(14))
       End If
       
         
       
       If IsNull(rs.Fields(15)) Then
          AP_LYSSTR = ""
       Else
          AP_LYSSTR = Trim(rs.Fields(15))
       End If
       
       
       If IsNull(rs.Fields(16)) Then
          AP_LYSNAME = ""
       Else
         AP_LYSNAME = Trim(rs.Fields(16))
       End If
       
       
       If IsNull(rs.Fields(17)) Then
          AP_LYSCHA = ""
       Else
          AP_LYSCHA = Trim(rs.Fields(17))
       End If
       
        If IsNull(rs.Fields(19)) Then
          AP_DSCRIB = ""
       Else
          AP_DSCRIB = Trim(rs.Fields(19))
       End If
       
        If IsNull(rs.Fields(18)) Then
          AP_AFTH = 60
       Else
          AP_AFTH = rs.Fields(18)
       End If
End If
rs.Close
End Function

Public Sub Insert()
' SqlStmt = "INSERT INTO ASPHALT_PAV (PROID, PRORO, PRONAME, PAVPRO, PAVGRA, " _
   '  + " STRUNUM, DESIGF, CTROLY, NATRUECONDITION, LOADNUM1, LOADNUM2, LYSBH, LYS15MO, LYS20MO, LYSTH,LYSSTR,LYSNAME,LYSCHA,DSCRIB)" _
   ' + " Values ('" + Str(AP_PROID) + "','" + Trim(AP_PRORO) + "','" + Trim(AP_PRONAME) _
   '  + "','" + Trim(AP_PAVPRO) + "','" + Str(AP_PAVGRA) + "','" + Str(AP_STRUNUM) + "','" + Str(AP_DESIGF) + "','" _
  '  + Str(AP_CTROLY) + "','" + Str(AP_NATRUECONDITION) + "','" + Str(AP_LOADNUM1) + "','" _
  '   + Str(AP_LOADNUM2) + "','" + Trim(AP_LYSBH) + "','" + Trim(AP_LYS15MO) + "','" + Trim(AP_LYS20MO) _
  '  + "','" + Trim(AP_LYSTH) + "','" + Trim(AP_LYSSTR) + "','" + Trim(AP_LYSNAME) + "','" + Trim(AP_LYSCHAR) + "','" + Trim(AP_DSCRIB) + "')"
  
  SqlStmt = "INSERT INTO ASPHALT_PAV (PROID,PRORO, PRONAME, PAVPRO,PAVGRA,STRUNUM,DESIGF, CTROLY, NATRUECONDITION, LOADNUM1, LOADNUM2, LYSBH, LYS15MO, LYS20MO, LYSTH,LYSSTR,LYSNAME,LYSCHA,AFTH,DSCRIB)" + "values(" + Str(AP_PROID) + ",'" + Trim(AP_PRORO) + "','" + Trim(AP_PRONAME) _
   + "','" + Trim(AP_PAVPRO) + "'," + Str(AP_PAVGRA) + "," + Str(AP_STRUNUM) + "," + Str(AP_DESIGF) + "," + Str(AP_CTROLY) + ",'" + Trim(AP_NATRUECONDITION) + "'," + Str(AP_LOADNUM1) + "," _
     + Str(AP_LOADNUM2) + ",'" + Trim(AP_LYSBH) + "','" + Trim(AP_LYS15MO) + "','" + Trim(AP_LYS20MO) _
    + "','" + Trim(AP_LYSTH) + "','" + Trim(AP_LYSSTR) + "','" + Trim(AP_LYSNAME) + "','" + Trim(AP_LYSCHA) + "'," + Str(AP_AFTH) + ",'" + Trim(AP_DSCRIB) + "')"
  'MsgBox (SqlStmt)
  SQLExt (SqlStmt)
End Sub

Public Sub Totemp()
 SqlStmt = "Update ASTEMP Set PROID=" + "1" _
          + ",PRORO='" + Str(AP_PROID) + "',PRONAME='" + Trim(AP_PRONAME) _
         + "',PAVPRO='" + Trim(AP_PAVPRO) + "', PAVGRA=" + Str(AP_PAVGRA) _
          + ",STRUNUM=" + Str(AP_STRUNUM) _
          + ",DESIGF=" + Str(AP_DESIGF) + ",CTROLY=" + Str(AP_CTROLY) _
          + ",NATRUECONDITION='" + Trim(AP_NATRUECONDITION) + "',LOADNUM1=" + Str(AP_LOADNUM1) _
          + ",LOADNUM2=" + Str(AP_LOADNUM2) + ",LYSBH='" + Trim(AP_LYSBH) _
          + "',LYS15MO='" + Trim(AP_LYS15MO) + "',LYS20MO='" + Trim(AP_LYS20MO) + "', LYSTH='" _
          + Trim(AP_LYSTH) + "',LYSSTR='" + Trim(AP_LYSSTR) + "', LYSNAME='" _
          + Trim(AP_LYSNAME) + "',LYSCHA='" + Trim(AP_LYSCHAR) + ",CTROLY=" + Str(AP_CTROLY) + ", DSCRIB='" _
          + Trim(AP_DSCRIB) + "' WHERE PROID=1"
' MsgBox (SqlStmt)
 SQLExt (SqlStmt)
End Sub

Public Sub Update()
 SqlStmt = "Update ASPHALT_PAV Set PROID=" + "1" _
          + ",PRORO='" + Str(AP_PROID) + "',PRONAME='" + Trim(AP_PRONAME) _
         + "',PAVPRO='" + Trim(AP_PAVPRO) + "', PAVGRA=" + Str(AP_PAVGRA) _
          + ",STRUNUM=" + Str(AP_STRUNUM) _
          + ",DESIGF=" + Str(AP_DESIGF) + ",CTROLY=" + Str(AP_CTROLY) _
          + ",NATRUECONDITION='" + Trim(AP_NATRUECONDITION) + "',LOADNUM1=" + Str(AP_LOADNUM1) _
          + ",LOADNUM2=" + Str(AP_LOADNUM2) + ",LYSBH='" + Trim(AP_LYSBH) _
          + "',LYS15MO='" + Trim(AP_LYS15MO) + "',LYS20MO='" + Trim(AP_LYS20MO) + "', LYSTH='" _
          + Trim(AP_LYSTH) + "',LYSSTR='" + Trim(AP_LYSSTR) + "', LYSNAME='" _
          + Trim(AP_LYSNAME) + "',LYSCHA='" + Trim(AP_LYSCHAR) + ",CTROLY=" + Str(AP_CTROLY) + "', DSCRIB='" _
          + Trim(AP_DSCRIB) + "' WHERE PROID=" + Str(AP_PROID)
' MsgBox (SqlStmt)
 SQLExt (SqlStmt)
End Sub