文件名称：vb学生公寓管理系统
文件大小：212KB
文件格式：RAR
更新时间：2014-07-03 11:50:14
VB 管理信息系统
很强大的 Private Sub TreeView3_NodeClick(ByVal Node As MSComctlLib.Node) provider = "provider=Microsoft.jet.oledb.4.0" datasource = "data source=" & App.Path & "\DB.mdb" With Adodc3 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdTable .RecordSource = "class" .Refresh End With Dim a As String s = TreeView3.SelectedItem.Text e = TreeView3.SelectedItem.Parent If e = "公寓管理系统" Then a = "select * from users where 公寓='" & Trim(s) & "'" Else a = "select * from users where 公寓='" & Trim(e) & "' and 寝室='" & Trim(s) & "'" End If With Adodc1 .Mode = adModeReadWrite .ConnectionString = provider & ";" & datasource .CommandType = adCmdText .RecordSource = a .Refresh End With Set DataGrid1.datasource = Adodc1 DataGrid1.Refresh End Sub
【文件预览】：
学生公寓管理 vb 主程序
----sel.frm(7KB)
----qingjiajilu.frm(8KB)
----weishengjilu.frm(8KB)
----biaobao.frm(5KB)
----weigui.frm(8KB)
----xiugai.frm(16KB)
----qingjia.frm(8KB)
----weiguijl.frm(9KB)
----MSSCCPRJ.SCC(201B)
----Form2.frm(32KB)
----delqjjl.frm(14KB)
----学生公寓管理系统.vbp(2KB)
----delwgjl.frm(15KB)
----tjwsjc.frm(18KB)
----delws.frm(14KB)
----form3.frm(2KB)
----tianjia.frm(16KB)
----学生公寓管理系统.frx(163KB)
----Form2.frx(10KB)
----db.mdb(1.1MB)
----学生公寓管理系统.vbw(885B)
----Form2.log(370B)
----chwei.frm(21KB)
----学生公寓管理系统.frm(4KB)