📄 form4.frm
字号:
Width = 615
End
Begin VB.Label LabKeyboard
Caption = "键鼠："
Height = 255
Left = 4200
TabIndex = 25
Top = 960
Width = 615
End
Begin VB.Label LaVoice
Caption = "声卡："
Height = 255
Left = 2040
TabIndex = 23
Top = 960
Width = 735
End
Begin VB.Label LaFDisk
Caption = "软驱："
Height = 255
Left = 120
TabIndex = 21
Top = 960
Width = 615
End
Begin VB.Label LabCD
Caption = "光驱："
Height = 255
Left = 4200
TabIndex = 19
Top = 600
Width = 615
End
Begin VB.Label LabShow
Caption = "显卡："
Height = 255
Left = 2040
TabIndex = 17
Top = 600
Width = 735
End
Begin VB.Label LabHDisk
Caption = "硬盘："
Height = 255
Left = 120
TabIndex = 15
Top = 600
Width = 615
End
Begin VB.Label LabMemory
Caption = "内存："
Height = 255
Left = 4200
TabIndex = 13
Top = 240
Width = 735
End
Begin VB.Label LabMainB
Caption = "主板："
Height = 255
Left = 2040
TabIndex = 11
Top = 240
Width = 615
End
Begin VB.Label LabCPU
Caption = "CPU："
Height = 255
Left = 120
TabIndex = 9
Top = 240
Width = 855
End
End
Begin VB.TextBox TxtAddress
Height = 270
Left = 1080
MaxLength = 49
TabIndex = 5
Top = 840
Width = 3975
End
Begin VB.TextBox TxtPhone
Height = 270
Left = 3720
MaxLength = 11
TabIndex = 3
Top = 480
Width = 1335
End
Begin VB.TextBox TxtName
Height = 270
Left = 1080
MaxLength = 6
TabIndex = 1
Top = 480
Width = 1215
End
Begin VB.Label Label3
Caption = "(*)"
Height = 255
Left = 5040
TabIndex = 46
Top = 840
Width = 255
End
Begin VB.Label Label2
Caption = "(*)"
Height = 255
Left = 5040
TabIndex = 45
Top = 480
Width = 375
End
Begin VB.Label Label1
Caption = "(*)"
Height = 255
Left = 2280
TabIndex = 44
Top = 480
Width = 375
End
Begin VB.Label LabDATA
Height = 255
Left = 1200
TabIndex = 7
Top = 120
Width = 1215
End
Begin VB.Label LabDate
Caption = "购机日期："
Height = 255
Left = 120
TabIndex = 6
Top = 120
Width = 975
End
Begin VB.Label LabAddress
Caption = "联系地址："
Height = 255
Left = 120
TabIndex = 4
Top = 840
Width = 1095
End
Begin VB.Label LabPhone
Caption = "联系电话："
Height = 255
Left = 2760
TabIndex = 2
Top = 480
Width = 1215
End
Begin VB.Label LabName
Caption = "客户姓名："
Height = 255
Left = 120
TabIndex = 0
Top = 480
Width = 975
End
End
Attribute VB_Name = "AllCForm"
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 CmdEnd_Click()
Me.Adodc1.Recordset.MoveFirst
Me.TxtAddress.Text = Me.Adodc1.Recordset("联系地址")
Me.TxtCD.Text = Me.Adodc1.Recordset("光驱")
Me.TxtCPU.Text = Me.Adodc1.Recordset("cpu")
Me.TxtDisplay.Text = Me.Adodc1.Recordset("显示器")
Me.TxtFDisk.Text = Me.Adodc1.Recordset("软驱")
Me.TxtHDisk.Text = Me.Adodc1.Recordset("硬盘")
Me.TxtKeyboard.Text = Me.Adodc1.Recordset("键鼠")
Me.TxtMainB.Text = Me.Adodc1.Recordset("主板")
Me.TxtMBox.Text = Me.Adodc1.Recordset("机箱")
Me.TxtMemory.Text = Me.Adodc1.Recordset("内存")
Me.TxtMoney.Text = Me.Adodc1.Recordset("总计")
Me.TxtName.Text = Me.Adodc1.Recordset("客户姓名")
Me.TxtOther.Text = Me.Adodc1.Recordset("其它")
Me.TxtPhone.Text = Me.Adodc1.Recordset("联系电话")
Me.TxtPrint.Text = Me.Adodc1.Recordset("打印机")
Me.TxtScanner.Text = Me.Adodc1.Recordset("扫描仪")
Me.TxtShow.Text = Me.Adodc1.Recordset("显卡")
Me.TxtSoundB.Text = Me.Adodc1.Recordset("音箱")
Me.TxtVoice.Text = Me.Adodc1.Recordset("声卡")
Me.TxtAddress.Enabled = False
Me.TxtCD.Enabled = False
Me.TxtCPU.Enabled = False
Me.TxtDisplay.Enabled = False
Me.TxtFDisk.Enabled = False
Me.TxtHDisk.Enabled = False
Me.TxtKeyboard.Enabled = False
Me.TxtMainB.Enabled = False
Me.TxtMBox.Enabled = False
Me.TxtMemory.Enabled = False
Me.TxtMoney.Enabled = False
Me.TxtName.Enabled = False
Me.TxtOther.Enabled = False
Me.TxtPhone.Enabled = False
Me.TxtPrint.Enabled = False
Me.TxtScanner.Enabled = False
Me.TxtShow.Enabled = False
Me.TxtSoundB.Enabled = False
Me.TxtVoice.Enabled = False
Me.CmdEnd.Enabled = False
Me.CmdOk.Enabled = False
Me.ComADD.Enabled = True
Me.ComAmend.Enabled = True
Me.ComDel.Enabled = True
Me.ComFrist.Enabled = True
Me.ComLast.Enabled = True
Me.ComNext.Enabled = True
Me.ComPrevious.Enabled = True
End Sub
Private Sub cmdOK_Click()
On Error GoTo dda
Dim intAnswer As Integer
If Me.TxtCPU.Text = "" Then
MsgBox "请输入CPU相关信息！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
Me.TxtCPU.SetFocus
Exit Sub
End If
If Me.TxtName.Text = "" Then
MsgBox "请输入客户姓名！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
Me.TxtName.SetFocus
Exit Sub
End If
If Me.TxtPhone.Text = "" Then
MsgBox "请输入客户联系电话！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
Me.TxtPhone.SetFocus
Exit Sub
End If
If Me.TxtAddress.Text = "" Then
MsgBox "请输入客户联系地址！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
Me.TxtAddress.SetFocus
Exit Sub
End If
If Me.TxtMainB.Text = "" Then
MsgBox "请输入主板相关信息！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
Me.TxtMainB.SetFocus
Exit Sub
End If
If Me.TxtMemory.Text = "" Then
MsgBox "请输入内存相关信息！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
Me.TxtMoney.SetFocus
Exit Sub
End If
If Me.TxtMoney.Text = "" Then
MsgBox "请输入总金额！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
Me.TxtMoney.SetFocus
Exit Sub
End If
If Me.TxtCD.Text = "" Then
Me.TxtCD.Text = "无"
End If
If Me.TxtFDisk.Text = "" Then
Me.TxtFDisk.Text = "无"
End If
If Me.CmdOk.Caption = "确认添加" Then
Me.Adodc1.Recordset.AddNew
End If
Me.Adodc1.Recordset("购机日期") = Me.LabDATA.Caption
Me.Adodc1.Recordset("客户姓名") = Me.TxtName.Text
Me.Adodc1.Recordset("联系电话") = Me.TxtPhone.Text
Me.Adodc1.Recordset("联系地址") = Me.TxtAddress.Text
Me.Adodc1.Recordset("cpu") = Me.TxtCPU.Text
Me.Adodc1.Recordset("主板") = Me.TxtMainB.Text
Me.Adodc1.Recordset("内存") = Me.TxtMemory.Text
Me.Adodc1.Recordset("硬盘") = Me.TxtHDisk.Text
Me.Adodc1.Recordset("显卡") = Me.TxtShow.Text
Me.Adodc1.Recordset("声卡") = Me.TxtVoice.Text
Me.Adodc1.Recordset("光驱") = Me.TxtCD.Text
Me.Adodc1.Recordset("软驱") = Me.TxtFDisk.Text
Me.Adodc1.Recordset("键鼠") = Me.TxtKeyboard.Text
'Me.Adodc1.Recordset("鼠标") = Me.TxtMouse.Text
Me.Adodc1.Recordset("机箱") = Me.TxtMBox.Text
'Me.Adodc1.Recordset("电源") = Me.TxtPower.Text
Me.Adodc1.Recordset("音箱") = Me.TxtSoundB.Text
Me.Adodc1.Recordset("其它") = Me.TxtOther.Text
Me.Adodc1.Recordset("打印机") = Me.TxtPrint.Text
Me.Adodc1.Recordset("扫描仪") = Me.TxtScanner.Text
Me.Adodc1.Recordset("显示器") = Me.TxtDisplay.Text
Me.Adodc1.Recordset("总计") = Me.TxtMoney.Text
Me.Adodc1.Recordset.Update
intAnswer = MsgBox("记录已添加或修改！", vbOKOnly + 32, "金恒生计算机硬件公司管理系统")
If intAnswer = vbYes Then
Me.TxtAddress.Text = ""
Me.TxtCD.Text = ""
Me.TxtCPU.Text = ""
Me.TxtDisplay.Text = ""
Me.TxtFDisk.Text = ""
Me.TxtHDisk.Text = ""
Me.TxtKeyboard.Text = ""
Me.TxtMainB.Text = ""
Me.TxtMBox.Text = ""
Me.TxtMemory.Text = ""
Me.TxtMoney.Text = ""
Me.TxtName.Text = ""
Me.TxtOther.Text = ""
Me.TxtPhone.Text = ""
Me.TxtPrint.Text = ""
Me.TxtScanner.Text = ""
Me.TxtShow.Text = ""
Me.TxtSoundB.Text = ""
Me.TxtVoice.Text = ""
Me.TxtName.SetFocus
Else
Me.TxtAddress.Enabled = False
Me.TxtCD.Enabled = False
Me.TxtCPU.Enabled = False
Me.TxtDisplay.Enabled = False
Me.TxtFDisk.Enabled = False
Me.TxtHDisk.Enabled = False
Me.TxtKeyboard.Enabled = False
Me.TxtMainB.Enabled = False
Me.TxtMBox.Enabled = False
Me.TxtMemory.Enabled = False
Me.TxtMoney.Enabled = False
Me.TxtName.Enabled = False
Me.TxtOther.Enabled = False
Me.TxtPhone.Enabled = False
Me.TxtPrint.Enabled = False
Me.TxtScanner.Enabled = False
Me.TxtShow.Enabled = False
Me.TxtSoundB.Enabled = False
Me.TxtVoice.Enabled = False
Me.CmdEnd.Enabled = False
Me.CmdOk.Enabled = False
Me.ComADD.Enabled = True
Me.ComAmend.Enabled = True
Me.ComDel.Enabled = True
Me.ComFrist.Enabled = True
Me.ComLast.Enabled = True
Me.ComNext.Enabled = True
Me.ComPrevious.Enabled = True
End If
Exit Sub
dda:
MsgBox "请确认输入信息无误！", vbOKOnly + 32, "金恒生计算机硬件公司管理系统"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -