vb(仓库管理系统源代码).pdfVIP

. 1. 请购作业程序 Private Sub ComCX_Click() ’查询 在 编号 文本框中输入编号，连接数据库，查询编号，并将 编号 , 品名 , 规格 , 单位 , 单价 的数据分别导入到相应文本框。 Set CN = New ADODB.Connection Set Rs = New ADODB.Recordset CN.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= F:\VB 设计专用 仓库数 据资料 仓库数据资料 .mdb;Persist Security Info=False 打开数据库 Rs.CursorType = adOpenStatic 制定一个静态游标 Rs.LockType = adLockOptimistic 设置锁定模式为开放式 Rs.Open select * from JLBH where