RS=NewRecordset
adoPrimaryRS.Open"select档案柜号,备注fromdag",db,adOpenStatic,adLockOptimistic
SetDataGrid1.DataSource=adoPrimaryRS
EndSub
文件资料的窗体的源代码:
PrivateSubCommand1_Click()
Form5.Text3.Text=DataGrid1.Text
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
Left=(Screen.Width-Width)\2
Top=(Screen.Height-Height)\2
DimdbAsConnection
Setdb=NewConnection
db.CursorLocation=adUseClient
db.Open"PROVIDER=Microsoft.Jet.OLEDB.3.51;DataSource=dagl.mdb;"
SetadoPrimaryRS=NewRecordset
adoPrimaryRS.Open"select文件号,文件名,状态fromfilewhere状态='否'",db,adOpenStatic,adLockOptimistic
SetDataGrid1.DataSource=adoPrimaryRS
EndSub
??
??
??
??
计算机毕业设计:文卷档案管理系统
第1页共63页
上一篇:
VB文档管理信息系统(论文和程序)
下一篇:
扛起年轻化大旗,哈弗F系玩转行业新风潮