libtypegrades.bas

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

Attribute VB_Name = "LibTypeGrades"

Option Explicit

Sub CyjTypes_Object(Ob1 As Object)
    Ob1.AddItem "抽油机"
    Ob1.AddItem "电潜泵"
    Ob1.AddItem "螺杆泵"
End Sub

Sub CyjTypeLists_Object(Ob1 As Object, CyjType1 As String)
   
    Ob1.Clear
    Ob1.Text = "5-2.5-26"
    
    Ob1.AddItem "5-1.8-18"
    Ob1.AddItem "5-2.5-26"
    Ob1.AddItem "6-2.5-26"
    Ob1.AddItem "6-2.7-26"
    
    Ob1.AddItem "8-3-26"
    Ob1.AddItem "8-3-37"
    
    Ob1.AddItem "10-3-26"
    Ob1.AddItem "10-3-37"
    Ob1.AddItem "10-3-48"
    Ob1.AddItem "10-3-53"
    Ob1.AddItem "10-3.6-53"
    Ob1.AddItem "10-4.2-53"
    Ob1.AddItem "10-4.8-53"
    Ob1.AddItem "10-4.8-73"
    Ob1.AddItem "10-5-73"
    
    Ob1.AddItem "12-3.6-53"
    Ob1.AddItem "12-4.8-73"
    Ob1.AddItem "12-5-53"
    Ob1.AddItem "12-5-73"
    
    Ob1.AddItem "14-4.8-73"
    Ob1.AddItem "14-5-73"
    Ob1.AddItem "14-5.5-73"
    Ob1.AddItem "14-5.5-89"
    
    Ob1.AddItem "14-6-73"
    Ob1.AddItem "14-6-89"
End Sub
Rem 螺杆泵规格
Sub ScrewPumpTypeLists_Object(Ob1 As Object)
   
    Ob1.Clear
    Ob1.Text = "75-27"
    
    Ob1.AddItem "75-27"
    Ob1.AddItem "120-27"
    Ob1.AddItem "45-40"
    Ob1.AddItem "75-47"
    Ob1.AddItem "90-25"
    Ob1.AddItem "100-55"
    Ob1.AddItem "120-23"
    Ob1.AddItem "120-36"
    Ob1.AddItem "165-35"
    Ob1.AddItem "195-35"
    Ob1.AddItem "200-27"
    Ob1.AddItem "420-20"
    Ob1.AddItem "600-18"
    Ob1.AddItem "800-16"
End Sub

Rem 电潜泵规格
Sub ElecPumpTypeLists_Object(Ob1 As Object)
   
    Ob1.Clear
    Ob1.Text = "119-200/1000E"
    
    Ob1.AddItem "119-100/1000E"
    Ob1.AddItem "119-150/1000E"
    Ob1.AddItem "119-200/1000E"
    Ob1.AddItem "119-250/1000E"
    Ob1.AddItem "119-300/1000E"
    Ob1.AddItem "119-400/1000E"
    Ob1.AddItem "119-500/1000E"
    Ob1.AddItem "119-600/1000E"
    Ob1.AddItem "119-800/1000E"
    Ob1.AddItem "119-1000/1000E"
End Sub