module1.bas

设备管理系统,对设备的入库,出库,借出与归还的管理

Attribute VB_Name = "Module1"
Option Explicit
Public tb As String, tb1 As String, sql As String, sql1 As String, riqi As String
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset
Public count12 As Integer '''以下四个变量防止用户删除以前的记录
Public count13 As Integer '''而带来的数据不一致
Public count14 As Integer '''
Public count15 As Integer '''
Public i As Integer '''以下两个变量为区分统计窗口中是哪个选项
Public j As Integer
Public Sub main()
adoCon.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=test;Data Source=(local)"
End Sub
'
'Form1 登录窗口
'Form2主窗口
'Form3用户注册
'Form4密码更改
'Form5删除用户
'Form6权限设置


'Form10库存信息查询 未完

'Form7单位信息
'Form8供应商信息
'Form9设备类别
'Form11审核人信息

'form12入库
'form13出库
'form14借出
'form15归还