📄 form7.frm

📁 vb源码
💻 FRM
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
Else
Set DataGrid1.DataSource = Adodc2

i = Adodc2.Recordset.Fields("数量")
k = Adodc2.Recordset.Fields("库存数")
 s = k - i
Text1.Text = s
Text2.Text = Adodc2.Recordset.Fields("库存数")


'Adodc1.Recordset.Update
DataCombo1.Text = ""
DataCombo2.Text = ""
Exit Sub
End If
End Sub

Private Sub Command10_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
    Adodc1.Recordset.MoveLast
   
End If
If Form2.qx = "普通用户" Then
Text4.Text = Adodc1.Recordset.Fields("用户名")
Text6.Text = Adodc1.Recordset.Fields("权限")
Text5.Text = "**************"
Else
Text4.Text = Adodc1.Recordset.Fields("用户名")
Text5.Text = Adodc1.Recordset.Fields("用户密码")
Text6.Text = Adodc1.Recordset.Fields("权限")
Exit Sub
End If

End Sub

Private Sub Command11_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
    Adodc1.Recordset.MoveFirst
    
End If
If Form2.qx = "普通用户" Then
Text4.Text = Adodc1.Recordset.Fields("用户名")
Text6.Text = Adodc1.Recordset.Fields("权限")
Text5.Text = "**************"
Else
Text4.Text = Adodc1.Recordset.Fields("用户名")
Text5.Text = Adodc1.Recordset.Fields("用户密码")
Text6.Text = Adodc1.Recordset.Fields("权限")
Exit Sub
End If
End Sub

Private Sub Command12_Click()
Text22.Text = ""
Text20.Text = ""
Text45.Text = ""
Text21.Text = ""
Text18.Text = ""
Text19.Text = ""
Text27.Text = ""
Text23.Text = ""
Text17.Text = ""
Text25.Text = ""
Text47.Text = ""
DataCombo4.Text = ""
Frame8.Visible = True
Frame7.Visible = False
End Sub

Private Sub Command13_Click()
Text22.Text = ""
Text20.Text = ""
Text45.Text = ""
Text21.Text = ""
Text18.Text = ""
Text19.Text = ""
Text27.Text = ""
Text23.Text = ""
Text17.Text = ""
Text25.Text = ""
Text47.Text = ""
DataCombo4.Text = ""
Frame7.Visible = True
Frame8.Visible = False
End Sub

Private Sub Command14_Click()
Adodc1.RecordSource = "SELECT * FROM 职员表 where 姓名='" + Trim(Text7.Text) + "'or 地址='" + Trim(Text7.Text) + "'or 联系方式='" + Trim(Text7.Text) + "'or 联系电话='" + Trim(Text7.Text) + "'or E_mail='" + Trim(Text7.Text) + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "没有找到该客户！！"
Command15.Visible = False
Command16.Visible = False
Text22.Text = ""
Text20.Text = ""
Text45.Text = ""
Text21.Text = ""
Text18.Text = ""
Text19.Text = ""
Text27.Text = ""
Text23.Text = ""
Text17.Text = ""
Text25.Text = ""
Text47.Text = ""
Text7.Text = ""
Exit Sub
Else
Set DataGrid2.DataSource = Adodc1
If Adodc1.Recordset.RecordCount = 1 Then
Command15.Visible = False
Command16.Visible = False
Text22.Text = Adodc1.Recordset.Fields("姓名")
Text20.Text = Adodc1.Recordset.Fields("地址")
Text45.Text = Adodc1.Recordset.Fields("性别")
Text21.Text = Adodc1.Recordset.Fields("年龄")
Text18.Text = Adodc1.Recordset.Fields("联系电话")
Text19.Text = Adodc1.Recordset.Fields("联系方式")
Text27.Text = Adodc1.Recordset.Fields("E_mail")
Text23.Text = Adodc1.Recordset.Fields("健康状况")
Text17.Text = Adodc1.Recordset.Fields("特长")
Text25.Text = Adodc1.Recordset.Fields("个人简介")
Text47.Text = Adodc1.Recordset.Fields("聘用时间")
Else
Command15.Visible = True
Command16.Visible = True
Adodc1.Recordset.MoveFirst
Text22.Text = Adodc1.Recordset.Fields("姓名")
Text20.Text = Adodc1.Recordset.Fields("地址")
Text45.Text = Adodc1.Recordset.Fields("性别")
Text21.Text = Adodc1.Recordset.Fields("年龄")
Text18.Text = Adodc1.Recordset.Fields("联系电话")
Text19.Text = Adodc1.Recordset.Fields("联系方式")
Text27.Text = Adodc1.Recordset.Fields("E_mail")
Text23.Text = Adodc1.Recordset.Fields("健康状况")
Text17.Text = Adodc1.Recordset.Fields("特长")
Text25.Text = Adodc1.Recordset.Fields("个人简介")
Text47.Text = Adodc1.Recordset.Fields("聘用时间")
End If
End If
End Sub


Private Sub Command15_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
    Adodc1.Recordset.MoveLast
    Command15.Enabled = False
    Command16.Enabled = True
End If
Text22.Text = Adodc1.Recordset.Fields("姓名")
Text20.Text = Adodc1.Recordset.Fields("地址")
Text45.Text = Adodc1.Recordset.Fields("性别")
Text21.Text = Adodc1.Recordset.Fields("年龄")
Text18.Text = Adodc1.Recordset.Fields("联系电话")
Text19.Text = Adodc1.Recordset.Fields("联系方式")
Text27.Text = Adodc1.Recordset.Fields("E_mail")
Text23.Text = Adodc1.Recordset.Fields("健康状况")
Text17.Text = Adodc1.Recordset.Fields("特长")
Text25.Text = Adodc1.Recordset.Fields("个人简介")
Text47.Text = Adodc1.Recordset.Fields("聘用时间")
End Sub

Private Sub Command16_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
    Adodc1.Recordset.MoveFirst
    Command16.Enabled = False
    Command15.Enabled = True
End If
Text22.Text = Adodc1.Recordset.Fields("姓名")
Text20.Text = Adodc1.Recordset.Fields("地址")
Text45.Text = Adodc1.Recordset.Fields("性别")
Text21.Text = Adodc1.Recordset.Fields("年龄")
Text18.Text = Adodc1.Recordset.Fields("联系电话")
Text19.Text = Adodc1.Recordset.Fields("联系方式")
Text27.Text = Adodc1.Recordset.Fields("E_mail")
Text23.Text = Adodc1.Recordset.Fields("健康状况")
Text17.Text = Adodc1.Recordset.Fields("特长")
Text25.Text = Adodc1.Recordset.Fields("个人简介")
Text47.Text = Adodc1.Recordset.Fields("聘用时间")
End Sub

Private Sub Command17_Click()
Adodc1.RecordSource = "SELECT * FROM 职员表 where 姓名='" + DataCombo4.Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "没有找到该客户！！"
Command18.Visible = False
Command19.Visible = False
Text22.Text = ""
Text20.Text = ""
Text45.Text = ""
Text21.Text = ""
Text18.Text = ""
Text19.Text = ""
Text27.Text = ""
Text23.Text = ""
Text17.Text = ""
Text25.Text = ""
Text47.Text = ""
DataCombo4.Text = ""
Exit Sub
Else
Set DataGrid2.DataSource = Adodc1
If Adodc1.Recordset.RecordCount = 1 Then
Command18.Visible = False
Command19.Visible = False
Text22.Text = Adodc1.Recordset.Fields("姓名")
Text20.Text = Adodc1.Recordset.Fields("地址")
Text45.Text = Adodc1.Recordset.Fields("性别")
Text21.Text = Adodc1.Recordset.Fields("年龄")
Text18.Text = Adodc1.Recordset.Fields("联系电话")
Text19.Text = Adodc1.Recordset.Fields("联系方式")
Text27.Text = Adodc1.Recordset.Fields("E_mail")
Text23.Text = Adodc1.Recordset.Fields("健康状况")
Text17.Text = Adodc1.Recordset.Fields("特长")
Text25.Text = Adodc1.Recordset.Fields("个人简介")
Text47.Text = Adodc1.Recordset.Fields("聘用时间")
Else
Command18.Visible = True
Command19.Visible = True
Adodc1.Recordset.MoveFirst
Text22.Text = Adodc1.Recordset.Fields("姓名")
Text20.Text = Adodc1.Recordset.Fields("地址")
Text45.Text = Adodc1.Recordset.Fields("性别")
Text21.Text = Adodc1.Recordset.Fields("年龄")
Text18.Text = Adodc1.Recordset.Fields("联系电话")
Text19.Text = Adodc1.Recordset.Fields("联系方式")
Text27.Text = Adodc1.Recordset.Fields("E_mail")
Text23.Text = Adodc1.Recordset.Fields("健康状况")
Text17.Text = Adodc1.Recordset.Fields("特长")
Text25.Text = Adodc1.Recordset.Fields("个人简介")
Text47.Text = Adodc1.Recordset.Fields("聘用时间")
End If
End If
End Sub

Private Sub Command18_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
    Adodc1.Recordset.MoveLast
    Command18.Enabled = False
    Command19.Enabled = True
End If
Text22.Text = Adodc1.Recordset.Fields("姓名")
Text20.Text = Adodc1.Recordset.Fields("地址")
Text45.Text = Adodc1.Recordset.Fields("性别")
Text21.Text = Adodc1.Recordset.Fields("年龄")
Text18.Text = Adodc1.Recordset.Fields("联系电话")
Text19.Text = Adodc1.Recordset.Fields("联系方式")
Text27.Text = Adodc1.Recordset.Fields("E_mail")
Text23.Text = Adodc1.Recordset.Fields("健康状况")
Text17.Text = Adodc1.Recordset.Fields("特长")
Text25.Text = Adodc1.Recordset.Fields("个人简介")
Text47.Text = Adodc1.Recordset.Fields("聘用时间")
End Sub

Private Sub Command19_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
    Adodc1.Recordset.MoveFirst
    Command19.Enabled = False
    Command18.Enabled = True
End If
Text22.Text = Adodc1.Recordset.Fields("姓名")
Text20.Text = Adodc1.Recordset.Fields("地址")
Text45.Text = Adodc1.Recordset.Fields("性别")
Text21.Text = Adodc1.Recordset.Fields("年龄")
Text18.Text = Adodc1.Recordset.Fields("联系电话")
Text19.Text = Adodc1.Recordset.Fields("联系方式")
Text27.Text = Adodc1.Recordset.Fields("E_mail")
Text23.Text = Adodc1.Recordset.Fields("健康状况")
Text17.Text = Adodc1.Recordset.Fields("特长")
Text25.Text = Adodc1.Recordset.Fields("个人简介")
Text47.Text = Adodc1.Recordset.Fields("聘用时间")
End Sub

Private Sub Command2_Click()
Adodc1.RecordSource = "SELECT * FROM 客户表 where 姓名='" + DataCombo3.Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "没有找到该客户！！"
Command3.Visible = False
Command4.Visible = False
Text33.Text = ""
Text123(0).Text = ""
Text31(0).Text = ""
Text30.Text = ""
Text29(0).Text = ""
Text28.Text = ""
DataCombo3.Text = "请选择您要找的客户"
Exit Sub
Else
Set DataGrid2.DataSource = Adodc1
If Adodc1.Recordset.RecordCount = 1 Then
Command3.Visible = False
Command4.Visible = False
Text33.Text = Adodc1.Recordset.Fields("姓名")
Text123(0).Text = Adodc1.Recordset.Fields("年龄")
Text31(0).Text = Adodc1.Recordset.Fields("地址")
Text30.Text = Adodc1.Recordset.Fields("联系方式")
Text29(0).Text = Adodc1.Recordset.Fields("联系电话")
Text28.Text = Adodc1.Recordset.Fields("E_mail")
Else
Command3.Visible = True
Command4.Visible = True
Adodc1.Recordset.MoveFirst
Text33.Text = Adodc1.Recordset.Fields("姓名")
Text123(0).Text = Adodc1.Recordset.Fields("年龄")
Text31(0).Text = Adodc1.Recordset.Fields("地址")
Text30.Text = Adodc1.Recordset.Fields("联系方式")
Text29(0).Text = Adodc1.Recordset.Fields("联系电话")
Text28.Text = Adodc1.Recordset.Fields("E_mail")
End If
End If
End Sub

Private Sub Command3_Click()

Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
    Adodc1.Recordset.MoveLast
    Command3.Enabled = False
    Command4.Enabled = True
End If
Text33.Text = Adodc1.Recordset.Fields("姓名")
Text123(0).Text = Adodc1.Recordset.Fields("年龄")
Text31(0).Text = Adodc1.Recordset.Fields("地址")
Text30.Text = Adodc1.Recordset.Fields("联系方式")
Text29(0).Text = Adodc1.Recordset.Fields("联系电话")
Text28.Text = Adodc1.Recordset.Fields("E_mail")

End Sub

Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
    Adodc1.Recordset.MoveFirst
    Command4.Enabled = False
    Command3.Enabled = True
End If
Text33.Text = Adodc1.Recordset.Fields("姓名")
Text123(0).Text = Adodc1.Recordset.Fields("年龄")
Text31(0).Text = Adodc1.Recordset.Fields("地址")
Text30.Text = Adodc1.Recordset.Fields("联系方式")
Text29(0).Text = Adodc1.Recordset.Fields("联系电话")
Text28.Text = Adodc1.Recordset.Fields("E_mail")

End Sub

Private Sub Command5_Click()
Text33.Text = ""
Text123(0).Text = ""
Text31(0).Text = ""
Text30.Text = ""
Text29(0).Text = ""
Text28.Text = ""
DataCombo3.Text = "请选择您要找的客户"
Frame4.Visible = False
Frame3.Visible = True
End Sub

Private Sub Command6_Click()
Text33.Text = ""
Text123(0).Text = ""
Text31(0).Text = ""
Text30.Text = ""
Text29(0).Text = ""
Text28.Text = ""
DataCombo3.Text = "请选择您要找的客户"
Frame4.Visible = True
Frame3.Visible = False
End Sub

Private Sub Command7_Click()
Adodc1.RecordSource = "SELECT * FROM 客户表 where 姓名='" + Trim(Text3.Text) + "'or 地址='" + Trim(Text3.Tex
上一页 1 2 3 45
💿 文件大小 1882 K
👤 上传用户 stone825
📂 所属分类其他行业
🏷️ 相关标签

#源码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -