📄 form5.frm
字号:
VERSION 5.00
Begin VB.Form Form5
BorderStyle = 1 'Fixed Single
Caption = "Form5"
ClientHeight = 5580
ClientLeft = 45
ClientTop = 435
ClientWidth = 6600
LinkTopic = "Form5"
MaxButton = 0 'False
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 5580
ScaleWidth = 6600
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command3
Caption = "购入帐单核对"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 4200
TabIndex = 11
Top = 4440
Width = 1600
End
Begin VB.CommandButton Command2
Caption = "售出帐单核对"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 2520
TabIndex = 10
Top = 4440
Width = 1600
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 2760
TabIndex = 4
Text = "Text1"
Top = 1320
Width = 2415
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 2760
TabIndex = 3
Text = "Text2"
Top = 2040
Width = 2415
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 2760
TabIndex = 2
Text = "玉米"
Top = 2760
Width = 2415
End
Begin VB.ComboBox Combo2
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "Form5.frx":0000
Left = 2760
List = "Form5.frx":0028
TabIndex = 1
Text = "购入明细"
Top = 3480
Width = 2415
End
Begin VB.CommandButton Command1
Caption = "查询确认"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 840
TabIndex = 0
Top = 4440
Width = 1600
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "查询类型选择画面"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 2040
TabIndex = 9
Top = 480
Width = 2400
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "年 份："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1320
TabIndex = 8
Top = 1320
Width = 1455
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "月 份："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1320
TabIndex = 7
Top = 2040
Width = 1455
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "品 种："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1320
TabIndex = 6
Top = 2760
Width = 1455
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "查询类型："
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1320
TabIndex = 5
Top = 3480
Width = 1425
End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
g_year = Text1.Text
g_month = Text2.Text
g_breed = Combo1.Text
Form5.Hide
Select Case Combo2.Text
Case "购入明细"
Form6.Show
Case "售出明细"
Form12.Show
Case "费用明细"
Form13.Show
Case "还款情况"
Form32.Show
Case "查帐本号"
Form30.Show
Case "寄售明细"
Form23.Show
Case "费用名称"
Form24.Show
Case "品种名称"
Form25.Show
Case "售出帐单查询"
Form27.Show
Case "资产项目"
Form36.Show
Case "应付款查询"
Form38.Show
Case "购入帐单查询"
Form44.Show
End Select
End Sub
Private Sub Command2_Click()
g_year = Text1.Text
g_month = Text2.Text
g_query_method = 4
g_form = "form5"
Form5.Hide
Form28.Show
End Sub
Private Sub Command3_Click()
g_year = Text1.Text
g_month = Text2.Text
g_query_method = 3
g_form = "form5"
Form5.Hide
Form43.Show
End Sub
Private Sub Form_Load()
Text1.Text = Year(Date)
Text2.Text = Month(Date)
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)
Form1.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -