module1.bas

校园网络计费程序 简单的数据处理 简单的计费程序

Attribute VB_Name = "Module1"

Dim temp As String
Dim temp1 As String
Dim temp2 As String
Dim temp3 As String
Public jilu(6) As Long ' 记录用户定义收费的记录个数
Public ji_0_star() As Long
Public ji_0_end() As Long
Public ji_0_sec() As Long
Public ji_0_yuan() As Single
Public ji_1_star() As Long
Public ji_1_end() As Long
Public ji_1_sec() As Long
Public ji_1_yuan() As Single
Public wa_0_star() As Long
Public wa_0_end() As Long
Public wa_0_sec() As Long
Public wa_0_yuan() As Single
Public wa_1_star() As Long
Public wa_1_end() As Long
Public wa_1_sec() As Long
Public wa_1_yuan() As Single
Public display As String
Public display1 As String
Public ji_com_click As Boolean '基本话费节日按钮是否被单击
Public star As Long '是否启动上次使用情况窗体
Public fir_biao As Boolean '确定是启动时，单击frmsplash1，还是关闭时单击frmsplash1
Public wa_week() As Long
Public wa_holiday() As Date
Public wa_holiday_jilu As Long
Public wa_week_jilu As Long
Public ji_week() As Long
Public ji_holiday() As Date
Public ji_holiday_jilu As Long
Public ji_week_jilu As Long
Public vtab As String ' 确定要打开哪一个表
Public he_shu As Long '记录核算日
Public cday As Variant '记录当前日子
Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
Public Con As New ADODB.Connection
Public ret As New ADODB.Recordset
Private Const ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="
Sub main()
Dim sql1 As String
sql1 = App.Path
If Right(sql1, 1) <> "/" Then
  sql1 = sql1 + "/"
End If
sql1 = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & sql1 & "\chen.mdb"
Con.Open sql1
sql1 = "select * from passwordtable"
ret.Open sql1, Con, adOpenStatic, adLockOptimistic

frmLogin.Show



End Sub