电话号查询

【文件属性】：

文件名称：电话号查询

文件大小：342KB

文件格式：RAR

更新时间：2017-10-06 07:46:12

查询

手机界面的电话号码查询,Private Sub Command1_Click() If Text1 <> "" Then Adodc1.RecordSource = "select * from call where 科室或姓名代码 like '%" & Text1 & "%' " Adodc1.Refresh End If End Sub Private Sub DataGrid1_Click() End Sub Private Sub Form_Load() a = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" a = a & App.Path a = a & "\dyyycall.mdb;Persist Security Info=False" Adodc1.ConnectionString = a Adodc1.RecordSource = "select * from CALL" Adodc1.Refresh End Sub Private Sub Picture1_Click() End End Sub Private Sub Text1_Change() Call Command1_Click End Sub

【文件预览】：
电话查询
----电话查询.exe(176KB)
----Form1.frm(8KB)
----工程1.vbp(1KB)
----电话查询.suo(9KB)
----Form1.frx(153KB)
----dyyycall.mdb(916KB)
----电话查询.sln(1KB)
----MSSCCPRJ.SCC(190B)
----工程1.vbw(46B)