采购管理信息系统VB

时间:2014-06-09 06:22:11
【文件属性】:

文件名称:采购管理信息系统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


网友评论

  • 有的窗体看不了。运行起来总说有错。不知道是不是我的软件的问题。
  • 貌似打开工程1的时候会出错
  • 额,我下载的也打不开,可能文件路径改了,但还是可以一个一个的浏览窗体,还算不错
  • 刚下载了个VB6.0,貌似打开工程1的时候会出错。。。求解