form8.frm
来自「我用VB开发的饲料经营进销存管理程序,包含购入、售出管理」· FRM 代码 · 共 314 行
FRM
314 行
VERSION 5.00
Begin VB.Form Form8
BorderStyle = 1 'Fixed Single
Caption = "Form8"
ClientHeight = 4680
ClientLeft = 45
ClientTop = 435
ClientWidth = 5850
LinkTopic = "Form8"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4680
ScaleWidth = 5850
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 2640
TabIndex = 4
Top = 2520
Width = 1615
End
Begin VB.CommandButton Command1
Caption = "保存数据"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 540
Left = 2040
TabIndex = 6
Top = 3840
Width = 1815
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2640
TabIndex = 1
Text = "电费"
Top = 780
Width = 1620
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 2640
TabIndex = 5
Text = "Text4"
Top = 3120
Width = 1615
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 2640
TabIndex = 3
Text = "Text3"
Top = 1920
Width = 1615
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 2640
TabIndex = 2
Text = "Text2"
Top = 1320
Width = 1615
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "日 期："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1440
TabIndex = 11
Top = 2640
Width = 1200
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "金 额："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1440
TabIndex = 10
Top = 3240
Width = 1200
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "月 份："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1440
TabIndex = 9
Top = 2040
Width = 1200
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "年 份："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1440
TabIndex = 8
Top = 1440
Width = 1200
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "费用名称："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 1440
TabIndex = 7
Top = 840
Width = 1200
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "费用输入画面"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1920
TabIndex = 0
Top = 240
Width = 1890
End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim f_max_number
Private Sub Command1_Click()
If Text4.Text = 0 Then
MsgBox ("金额不能为零")
Text4.SetFocus
GoSub m_command1_click
End If
Dim cnn1 As ADODB.Connection
Dim cmd1 As ADODB.Command
Set cnn1 = New ADODB.Connection
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Documents and Settings\jujumao\My Documents\粤丰饲料\粤丰饲料经营情况.mdb;"
Set cmd1 = New ADODB.Command
SQL = "SELECT count(*),MAX(编号) from 费用明细表"
With cmd1
.ActiveConnection = cnn1
.CommandText = SQL
.CommandType = adCmdText
End With
Set rs1 = cmd1.Execute
rs1.MoveFirst
If rs1.Fields(0) = 0 Then
f_max_number = 0
Else
f_max_number = rs1.Fields(1) + 1
End If
SQL = "INSERT INTO 费用明细表(编号,费用名称, 年份,月份,日期," & _
"支出金额) VALUES ( " & f_max_number & "," & "'" & Combo1.Text & "'" & "," & Text2.Text & "," & _
Text3.Text & "," & Text1.Text & "," & Text4.Text & ")"
With cmd1
.ActiveConnection = cnn1
.CommandText = SQL
.CommandType = adCmdText
.Execute
End With
cnn1.Close
Set cnn1 = Nothing
Text4.Text = 0
MsgBox ("数据保存成功")
Text1.Text = ""
Text4.Text = ""
Combo1.SetFocus
m_command1_click:
End Sub
Private Sub Command2_Click()
Unload Form8
Form2.Show
End Sub
Private Sub Form_Load()
Text2.Text = g_year
Text3.Text = g_month
Text4.Text = 0
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\jujumao\My Documents\粤丰饲料\粤丰饲料经营情况.mdb;Persist Security Info=False"
conn.Open connstr
rs.Open "费用项目表", conn, adOpenKeyset, adLockPessimistic
rs.MoveFirst
i = 0
While Not rs.EOF
Combo1.AddItem rs.Fields(0), i
rs.MoveNext
i = i + 1
Wend
conn.Close
Set conn = Nothing
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form2.Show
End Sub
Private Sub Text2_GotFocus()
Text1.SetFocus
End Sub
Private Sub Text3_GotFocus()
Text1.SetFocus
End Sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?