📄 form7.frm
字号:
Top = 1200
Width = 1215
End
Begin VB.TextBox Text2
Height = 270
Left = 1080
TabIndex = 3
Text = "Text2"
Top = 840
Width = 1215
End
Begin VB.TextBox Text1
Height = 270
Left = 1080
TabIndex = 1
Text = "Text1"
Top = 480
Width = 1215
End
Begin VB.Label Label7
Caption = "Label7"
Height = 255
Left = 1080
TabIndex = 20
Top = 120
Width = 1215
End
Begin VB.Label Label6
Caption = "货品数量："
Height = 255
Left = 120
TabIndex = 18
Top = 1200
Width = 975
End
Begin VB.Label Label5
Caption = "当前日期："
Height = 255
Left = 120
TabIndex = 16
Top = 120
Width = 2175
End
Begin VB.Label Label4
Caption = "卖出对象："
Height = 255
Left = 120
TabIndex = 12
Top = 1920
Width = 975
End
Begin VB.Label Label3
Caption = "货品进价："
Height = 255
Left = 120
TabIndex = 4
Top = 1560
Width = 975
End
Begin VB.Label Label2
Caption = "货品来源："
Height = 255
Left = 120
TabIndex = 2
Top = 840
Width = 975
End
Begin VB.Label Label1
Caption = "货品名称："
Height = 255
Left = 120
TabIndex = 0
Top = 480
Width = 975
End
End
Attribute VB_Name = "HCGLForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'欢迎你下载使用本代码，本份代码由程序太平洋提供下载学习之用
'声明:
'1.本站所有代码的版权归原作者所有，如果你使用了在本站下载的源代码
' 引起的一切纠纷(后果)与本站无关,请您尊重原作者的劳动成果！
'2.若本站在代码上有侵权之处请您与站长联系，站长会及时更正。
'网站：http://www.dapha.net
'论坛：http://www.5ivb.net
'Email:dapha@etang.com
'CopyRight 2001-2005 By dapha.net
'整理时间：2003-8-16 12:44:01
Private Sub ComAdd_Click()
Me.ComOK.Caption = "确定添加"
Me.ComADD.Enabled = False
Me.ComDel.Enabled = False
Me.ComFirst.Enabled = False
Me.ComLast.Enabled = False
Me.ComNext.Enabled = False
Me.ComPrevious.Enabled = False
Me.Text1.Enabled = True
Me.Text2.Enabled = True
Me.Text3.Enabled = True
Me.Text4.Enabled = True
Me.Text5.Enabled = True
Me.ComOK.Enabled = True
Me.ComEnd.Enabled = True
Me.ComXG.Enabled = False
End Sub
Private Sub ComEnd_Click()
Me.Text1.Enabled = False
Me.Text2.Enabled = False
Me.Text3.Enabled = False
Me.Text4.Enabled = False
Me.Text5.Enabled = False
Me.ComADD.Enabled = True
Me.ComDel.Enabled = True
Me.ComEnd.Enabled = False
Me.ComFirst.Enabled = True
Me.ComLast.Enabled = True
Me.ComNext.Enabled = True
Me.ComOK.Enabled = False
Me.ComPrevious.Enabled = True
Me.ComXG.Enabled = True
End Sub
Private Sub ComFirst_Click()
Me.Adodc1.Recordset.MoveFirst
Me.ComFirst.Enabled = False
Me.ComPrevious.Enabled = False
Me.ComLast.Enabled = True
Me.ComNext.Enabled = True
Me.Text1.Text = Me.Adodc1.Recordset("货品名称")
Me.Text2.Text = Me.Adodc1.Recordset("货品来源")
Me.Text3.Text = Me.Adodc1.Recordset("货品数量")
Me.Text4.Text = Me.Adodc1.Recordset("货品进价")
Me.Text5.Text = Me.Adodc1.Recordset("买出对象")
End Sub
Private Sub ComLast_Click()
Me.Adodc1.Recordset.MoveLast
Me.ComFirst.Enabled = True
Me.ComPrevious.Enabled = True
Me.ComLast.Enabled = False
Me.ComNext.Enabled = False
Me.Text1.Text = Me.Adodc1.Recordset("货品名称")
Me.Text2.Text = Me.Adodc1.Recordset("货品来源")
Me.Text3.Text = Me.Adodc1.Recordset("货品数量")
Me.Text4.Text = Me.Adodc1.Recordset("货品进价")
Me.Text5.Text = Me.Adodc1.Recordset("买出对象")
End Sub
Private Sub Command1_Click()
Dim StrConnect As String
Dim strSQL As String
If Me.Text6.Text = "" Then
MsgBox "请输入查询内容！", vbOKOnly + 32, "金恒生计算机硬件公司管理系统"
Me.Text6.SetFocus
Exit Sub
End If
StrConnect = App.Path
If Right(StrConnect, 1) <> "\" Then StrConnect = StrConnect + "\"
StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & StrConnect & "\data\kji.bgh"
Adodc2.ConnectionString = StrConnect
Adodc2.CommandType = adCmdText
strSQL = "select * from [thing] where " & Me.Combo1.Text & " = " & Chr$(34) & Me.Text6.Text & Chr$(34)
Adodc2.RecordSource = strSQL
Me.Adodc2.Refresh
Set Me.DataGrid1.DataSource = Adodc2
End Sub
Private Sub ComNext_Click()
Me.Adodc1.Recordset.MoveNext
Me.ComFirst.Enabled = True
Me.ComPrevious.Enabled = True
If Me.Adodc1.Recordset.EOF Then
Me.ComLast.Enabled = False
Me.ComNext.Enabled = False
Else
Me.Text1.Text = Me.Adodc1.Recordset("货品名称")
Me.Text2.Text = Me.Adodc1.Recordset("货品来源")
Me.Text3.Text = Me.Adodc1.Recordset("货品数量")
Me.Text4.Text = Me.Adodc1.Recordset("货品进价")
Me.Text5.Text = Me.Adodc1.Recordset("买出对象")
End If
End Sub
Private Sub ComOK_Click()
Dim n As Integer
If Me.Text1.Text = "" Then
MsgBox "请输入货品名称！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
Me.Text1.SetFocus
Exit Sub
End If
If Me.Text2.Text = "" Then
MsgBox "请输入货品来源！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
Me.Text2.SetFocus
Exit Sub
End If
If Me.Text3.Text = "" Then
MsgBox "请输入货品数量！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
Me.Text3.SetFocus
Exit Sub
End If
If Me.Text4.Text = "" Then
MsgBox "请输入进货价格！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
Me.Text4.SetFocus
Exit Sub
End If
If Me.Text5.Text = "" Then
Me.Text5.Text = "无"
End If
If Me.ComOK.Caption = "确定添加" Then
Me.Adodc1.Recordset.AddNew
End If
Me.Adodc1.Recordset("货品名称") = Me.Text1.Text
Me.Adodc1.Recordset("货品来源") = Me.Text2.Text
Me.Adodc1.Recordset("货品数量") = Me.Text3.Text
Me.Adodc1.Recordset("货品进价") = Me.Text4.Text
Me.Adodc1.Recordset("买出对象") = Me.Text5.Text
Me.Adodc1.Recordset("进货日期") = Me.Label7.Caption
Me.Adodc1.Recordset.Update
Me.Adodc1.Refresh
n = MsgBox("记录已添加或修改！", vbOKCancel + 48, "金恒生计算机硬件公司管理系统")
If n = vbYes Then
Me.Text1.Text = ""
Me.Text1.Text = ""
Me.Text3.Text = ""
Me.Text4.Text = ""
Me.Text5.Text = ""
Me.Text1.SetFocus
Else
ComEnd_Click
End If
End Sub
Private Sub ComPrevious_Click()
Me.Adodc1.Recordset.MovePrevious
Me.ComNext.Enabled = True
Me.ComLast.Enabled = True
If Me.Adodc1.Recordset.BOF Then
Me.ComFirst.Enabled = False
Me.ComPrevious.Enabled = False
Else
Me.ComLast.Enabled = True
Me.ComNext.Enabled = True
Me.Text1.Text = Me.Adodc1.Recordset("货品名称")
Me.Text2.Text = Me.Adodc1.Recordset("货品来源")
Me.Text3.Text = Me.Adodc1.Recordset("货品数量")
Me.Text4.Text = Me.Adodc1.Recordset("货品进价")
Me.Text5.Text = Me.Adodc1.Recordset("买出对象")
End If
End Sub
Private Sub ComXG_Click()
Me.ComOK.Caption = "确定修改"
Me.ComADD.Enabled = False
Me.ComDel.Enabled = False
Me.ComFirst.Enabled = False
Me.ComLast.Enabled = False
Me.ComNext.Enabled = False
Me.ComPrevious.Enabled = False
Me.Text1.Enabled = True
Me.Text2.Enabled = True
Me.Text3.Enabled = True
Me.Text4.Enabled = True
Me.Text5.Enabled = True
Me.ComOK.Enabled = True
Me.ComEnd.Enabled = True
Me.ComXG.Enabled = False
End Sub
Private Sub Form_Load()
Dim StrConnect As String '定义
Me.Top = 0
Me.Left = 0
Me.Height = 3200
Me.Width = 8550
Label7.Caption = Format(Date, "dddddd")
StrConnect = App.Path
If Right(StrConnect, 1) <> "\" Then StrConnect = StrConnect + "\"
StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & StrConnect & "\data\kji.bgh"
Adodc1.ConnectionString = StrConnect
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM [thing] "
Adodc1.Refresh
Me.Text1.Enabled = False
Me.Text2.Enabled = False
Me.Text3.Enabled = False
Me.Text4.Enabled = False
Me.Text5.Enabled = False
Me.ComOK.Enabled = False
Me.ComEnd.Enabled = False
Me.Combo1.AddItem ("货品名称")
Me.Combo1.AddItem ("货品来源")
Me.Combo1.AddItem ("买出对象")
Me.Text1.Text = Me.Adodc1.Recordset("货品名称")
Me.Text2.Text = Me.Adodc1.Recordset("货品来源")
Me.Text3.Text = Me.Adodc1.Recordset("货品数量")
Me.Text4.Text = Me.Adodc1.Recordset("货品进价")
Me.Text5.Text = Me.Adodc1.Recordset("买出对象")
End Sub
'统计结果：
' 注释共：1行
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -