📄 seed crushing.frm
字号:
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5520
Locked = -1 'True
TabIndex = 13
Top = 720
Width = 1695
End
Begin VB.TextBox dcmnproduced
BackColor = &H80000000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5520
Locked = -1 'True
TabIndex = 12
Top = 1200
Width = 1695
End
Begin VB.TextBox crudeoilmnprod
BackColor = &H80000000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5520
Locked = -1 'True
TabIndex = 11
Top = 1680
Width = 1695
End
Begin VB.TextBox oilcakemnprod
BackColor = &H80000000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5520
Locked = -1 'True
TabIndex = 10
Top = 2160
Width = 1695
End
Begin VB.TextBox shortage
BackColor = &H80000000&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5520
Locked = -1 'True
TabIndex = 9
Top = 2640
Width = 1695
End
Begin VB.Label Label1
BackColor = &H00C0C0FF&
BackStyle = 0 'Transparent
Caption = "Seed used"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 26
Top = 720
Width = 1335
End
Begin VB.Label Label3
BackColor = &H00C0C0FF&
BackStyle = 0 'Transparent
Caption = "Del Cotton Produced"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 25
Top = 1200
Width = 2175
End
Begin VB.Label Label5
BackColor = &H00C0C0FF&
BackStyle = 0 'Transparent
Caption = "Crude Oil Produced"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 24
Top = 1680
Width = 2295
End
Begin VB.Label Label2
BackColor = &H00C0C0FF&
BackStyle = 0 'Transparent
Caption = "Oil Cake Produced"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 23
Top = 2160
Width = 2055
End
Begin VB.Label Label4
BackColor = &H00C0C0FF&
BackStyle = 0 'Transparent
Caption = "Shortage"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 22
Top = 2640
Width = 1335
End
Begin VB.Label Label6
BackColor = &H00C0C0FF&
BackStyle = 0 'Transparent
Caption = "Mounds (Mn)"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5520
TabIndex = 21
Top = 240
Width = 1215
End
Begin VB.Label Label7
BackColor = &H00C0C0FF&
BackStyle = 0 'Transparent
Caption = "Kilograms (Kgs)"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3000
TabIndex = 20
Top = 240
Width = 1695
End
End
Begin VB.Frame Frame3
BackColor = &H80000013&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 600
TabIndex = 16
Top = 1080
Width = 7935
Begin VB.TextBox text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 5520
Locked = -1 'True
TabIndex = 14
Top = 360
Width = 1695
End
Begin VB.TextBox crno
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1800
Locked = -1 'True
TabIndex = 15
Top = 360
Width = 1695
End
Begin VB.Label Label10
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "Crushing No"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 18
Top = 360
Width = 1575
End
Begin VB.Label Label11
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "Crushing Date"
BeginProperty Font
Name = "Times New Roman"
Size = 11.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3840
TabIndex = 17
Top = 360
Width = 1575
End
End
Begin VB.Image Image3
Height = 840
Left = 8640
Picture = "Seed Crushing.frx":0000
Top = 6030
Width = 690
End
Begin VB.Label Label8
BackColor = &H80000013&
Height = 6255
Left = 8760
TabIndex = 35
Top = 0
Width = 375
End
Begin VB.Image Image2
Height = 1020
Left = -1440
Picture = "Seed Crushing.frx":1EE2
Top = 6720
Width = 10245
End
Begin VB.Image Image1
Height = 7560
Left = 8760
Picture = "Seed Crushing.frx":24034
Top = 0
Width = 1980
End
Begin VB.Label Label9
BackColor = &H00C0C0FF&
BackStyle = 0 'Transparent
Caption = "Seed Crushing Form"
BeginProperty Font
Name = "Times New Roman"
Size = 24
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1800
TabIndex = 28
Top = 240
Width = 4455
End
End
Attribute VB_Name = "Form9"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim cnn As ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Public callingform As Object
Dim rs4 As New ADODB.Recordset
Dim rs5 As New ADODB.Recordset
Dim rs6 As New ADODB.Recordset
Private Sub ckg_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 8) Then
KeyAscii = 0
'37.324
End If
End Sub
Private Sub ckg_KeyUp(KeyCode As Integer, Shift As Integer)
c = Val(ckg.Text) / 37.324
crudeoilmnprod = CStr(Round(c, 3))
End Sub
Private Sub clear_Click()
reset
End Sub
Private Sub Command2_Click()
If skg.Text = "" Then
MsgBox "Please enter the Kg seed used"
skg.SetFocus
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -