form2.frm

example for security of meikuang

      End
      Begin VB.TextBox Text9 
         Height          =   375
         Left            =   2760
         TabIndex        =   12
         Text            =   "Text9"
         Top             =   720
         Width           =   1695
      End
      Begin VB.OptionButton Option2 
         Caption         =   "无"
         Height          =   255
         Left            =   3840
         TabIndex        =   9
         Top             =   360
         Width           =   615
      End
      Begin VB.OptionButton Option1 
         Caption         =   "有"
         Height          =   255
         Left            =   2760
         TabIndex        =   8
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label13 
         Caption         =   "Q（采2）："
         Height          =   255
         Left            =   960
         TabIndex        =   17
         Top             =   2160
         Width           =   975
      End
      Begin VB.Label Label12 
         Caption         =   "尾巷的风排瓦斯量："
         Height          =   255
         Left            =   120
         TabIndex        =   15
         Top             =   1800
         Width           =   1935
      End
      Begin VB.Label Label11 
         Caption         =   "瓦斯涌出不均衡系数："
         Height          =   375
         Index           =   0
         Left            =   120
         TabIndex        =   13
         Top             =   1320
         Width           =   2175
      End
      Begin VB.Label Label10 
         Caption         =   "回风巷风流中日平均瓦斯绝对涌出量："
         Height          =   375
         Index           =   0
         Left            =   120
         TabIndex        =   11
         Top             =   720
         Width           =   2175
      End
      Begin VB.Label Label9 
         Caption         =   "是否设有专用排放瓦斯巷："
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   360
         Width           =   2295
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "按气象条件确定需风量"
      Height          =   2655
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   4935
      Begin VB.TextBox Text7 
         Height          =   375
         Left            =   2880
         TabIndex        =   48
         Top             =   2040
         Width           =   1935
      End
      Begin VB.TextBox Text6 
         Height          =   375
         Left            =   2880
         TabIndex        =   47
         Top             =   1560
         Width           =   1935
      End
      Begin VB.TextBox Text5 
         Height          =   375
         Left            =   3720
         TabIndex        =   46
         Top             =   840
         Width           =   975
      End
      Begin VB.TextBox Text4 
         Height          =   375
         Left            =   1080
         TabIndex        =   45
         Top             =   840
         Width           =   1095
      End
      Begin VB.TextBox Text3 
         Height          =   375
         Left            =   3720
         TabIndex        =   44
         Top             =   360
         Width           =   975
      End
      Begin VB.TextBox Text2 
         Height          =   375
         Left            =   1080
         TabIndex        =   43
         Top             =   360
         Width           =   1095
      End
      Begin VB.Label Label8 
         Caption         =   "Q（采1）："
         Height          =   255
         Left            =   1440
         TabIndex        =   6
         Top             =   2160
         Width           =   1095
      End
      Begin VB.Label Label7 
         Caption         =   "输送机、支架（支柱）、梁子等所占面积(平方米)："
         Height          =   375
         Left            =   120
         TabIndex        =   5
         Top             =   1560
         Width           =   2415
      End
      Begin VB.Label Label6 
         Caption         =   "最大控顶距(m)："
         Height          =   255
         Left            =   2280
         TabIndex        =   4
         Top             =   840
         Width           =   1335
      End
      Begin VB.Label Label4 
         Caption         =   "温度(℃)："
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   840
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "倾斜长度(m)："
         Height          =   255
         Left            =   2280
         TabIndex        =   2
         Top             =   360
         Width           =   1215
      End
      Begin VB.Label Label2 
         Caption         =   "采高(m)："
         Height          =   255
         Left            =   120
         TabIndex        =   1
         Top             =   360
         Width           =   855
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim q(5) As Double
Dim max As Double
Private mycon As New ADODB.Connection
Private myrec As New ADODB.Recordset


Private Sub Command3_Click()
If Text22.Text = "" Then
MsgBox "采矿面名称不能为空！"
Else
End If
Text22.Text = max
myrec("place_name") = Text1.Text
myrec("wind_num") = Val(Text22.Text)
myrec.Update
End Sub

Private Sub Command4_Click()
myrec.AddNew
Text1.Text = ""
Text22.Text = ""
End Sub

Private Sub Command5_Click()
Form1.Show
Unload Me
End Sub

Private Sub form_load()
Set mycon = New ADODB.Connection
mycon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Data Source=C:\Documents and Settings\Administrator\桌面\vb程序\vb程序\Database1.mdb"
mycon.Open
Set myrec = New ADODB.Recordset
myrec.Open "cm_workplace", mycon, adOpenDynamic, adLockOptimistic
Text1.Text = ""
Text22.Text = ""
End Sub
Private Function fun_1()
Dim h, l, c, j, s, q1 As Double
Dim a, b, k As Double
h = Val(Text2.Text)
l = Val(Text3.Text)
c = Val(Text4.Text)
j = Val(Text5.Text)
s = Val(Text6.Text)

If h <= 2 Then                 ' 采高调整系数
a = 1
ElseIf 2 < h < 2.5 Then
a = 1.1
ElseIf h >= 2.5 Then
a = 1.5
End If

If l <= 150 Then                ' 倾斜长度调整系数
b = 1
ElseIf 150 < l < 200 Then
b = 1.3
ElseIf l >= 200 Then
b = 1.5
End If

If c <= 18 Then                 '温度于对应风速调整系数
k = 0.9
ElseIf 18 < c <= 20 Then
k = 1
ElseIf 20 < c <= 23 Then
k = 1.1
ElseIf 23 < c <= 26 Then
k = 1.25
ElseIf 26 < c <= 28 Then
k = 1.4
ElseIf 28 < c <= 30 Then
k = 1.6
End If
q(0) = 456.8
q1 = 60 * 1 * (j * h - s) * 0.7 * a * b * k
Text7.Text = q(0)

End Function
Public Function fun_2()
q(1) = 263.8
Text12.Text = q(1)
End Function
Public Function fun_3()
q(2) = 244.9
Text15.Text = q(2)
End Function
Public Function fun_4()
q(3) = 289.2
Text18.Text = q(3)
End Function
Public Function fun_5()
q(4) = 300.5
Text21.Text = q(4)
End Function


Private Sub Command1_Click()
Call fun_1
Call fun_2
Call fun_3
Call fun_4
Call fun_5
End Sub

Private Sub Command2_Click()
Dim i As Integer
max = 0
For i = 0 To 4 Step 1
If max < q(i) Then
max = q(i)
End If
Next
Text22.Text = max
End Sub