module1.bas

来自「一个关于企业工资管理的数据库应用的例子。」· BAS 代码 · 共 51 行

Attribute VB_Name = "Module1"
Option Explicit
Public DBCON As New ADODB.Connection
Public RsMoveBranch As New ADODB.Recordset
Public RstMoveTitle As New ADODB.Recordset
Public RsmodMove As New ADODB.Recordset
Public RstName As New ADODB.Recordset
Public RsAddmove As New ADODB.Recordset
Public rscode As New ADODB.Recordset
Public RstBranch As New ADODB.Recordset
Public RsMoveTitle As New ADODB.Recordset
Public RstQMove As New ADODB.Recordset
Public RstQueryMove As New ADODB.Recordset
Public RsQMove As New ADODB.Recordset
Public RsQueryMove As New ADODB.Recordset
Public RsRecord As New ADODB.Recordset
Public RsBranch As New ADODB.Recordset
Public rscode1 As New ADODB.Recordset
Public rs As New ADODB.Recordset
Public rst As New ADODB.Recordset
Public rsc As New ADODB.Recordset
Public rstc As New ADODB.Recordset
Public rsa As New ADODB.Recordset
Public rs1 As New ADODB.Recordset
Public rs2 As New ADODB.Recordset
Public rs3 As New ADODB.Recordset
Public rsqc As New ADODB.Recordset
Public rstqc As New ADODB.Recordset
Public rscode2 As New ADODB.Recordset
Public RsMoveBranch1 As New ADODB.Recordset
Public RstMoveTitle1 As New ADODB.Recordset
Public rsrecord1 As New ADODB.Recordset

Sub main()
    DBCON.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=qygzgl"
    DBCON.Open
    frmlogin.Show
End Sub
Public Function checklogin()
mainmdifrm.tjyh.Enabled = False
mainmdifrm.bmgl.Enabled = False
mainmdifrm.bmgl.Enabled = False
mainmdifrm.tjyg.Enabled = False
mainmdifrm.gxyg.Enabled = False
mainmdifrm.scyg.Enabled = False
mainmdifrm.tjdd.Enabled = False
mainmdifrm.xgdd.Enabled = False
mainmdifrm.scdd.Enabled = False
End Function