文件名称:采购管理信息系统VB
文件大小:349KB
文件格式:RAR
更新时间:2014-06-09 06:22:11
vb 采购
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Not IsNumeric(Text1.Text) Then MsgBox "输入不符合条件,采购员编号必须为数字" Else Adodc1.RecordSource = "select * from T_cgyzl where 采购员编号='" + Text1.Text + "'" Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then XPButton2.Enabled = True XPButton3.Enabled = True XPButton4.Enabled = True Text1.Locked = True Text1.Text = Adodc1.Recordset.Fields("采购员编号") Text2.Text = Adodc1.Recordset.Fields("姓名") Text3.Text = Adodc1.Recordset.Fields("年龄") Text4.Text = Adodc1.Recordset.Fields("籍贯") Text5.Text = Adodc1.Recordset.Fields("电话") Text6.Text = Adodc1.Recordset.Fields("现住址") Text7.Text = Adodc1.Recordset.Fields("工龄") Text8.Text = Adodc1.Recordset.Fields("底薪") Text9.Text = Adodc1.Recordset.Fields("业绩") xcombox1.Text = Adodc1.Recordset.Fields("学历") xcombox2.Text = Adodc1.Recordset.Fields("民族") xcombox3.Text = Adodc1.Recordset.Fields("性别") Else MsgBox "没有该采购员的信息!!", 64, "采购管理系统" End If End If Else