module1.bas

公寓信息管理系统： 公寓的住宿、 退房等 水电费管理

Attribute VB_Name = "Mdl_code"
Public strcnn As String
Public strfind As String
Public strxsgl As String
Public Sub ShowData(sql As String, ctr As Control)
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim i As Integer, j As Integer, k As Integer
cnn.Open strcnn
rst.Open sql, cnn, adOpenStatic, adLockReadOnly
With ctr
.Rows = rst.RecordCount + 1
.Cols = rst.Fields.Count
For i = 0 To .Cols - 1
 .TextMatrix(0, i) = rst.Fields(i).Name
Next i
For j = 1 To .Rows - 1
  For k = 0 To .Cols - 1
    .TextMatrix(j, k) = rst.Fields(k).Value & ""
  Next k
  rst.MoveNext
Next j
rst.Close
cnn.Close
End With
End Sub
Public Function Update(sql As String) As Long
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
On Error GoTo lab
cnn.Open strcnn
cnn.BeginTrans
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdText
cmd.CommandText = sql
cmd.Execute
cnn.CommitTrans
cnn.Close
Update = Err '=Err.Number成功值为1,失败为1
Exit Function
lab:
If cnn.State = 1 Then
  cnn.RollbackTrans
  cnn.Close
End If
MsgBox Err.Description '/ 专业的具体错误描述
Update = Err '/Err.Description在错误时给出相映提示
End Function
Public Sub MoveFirst(ctr As Control)
With ctr
    .Row = 1
    .Col = 0
    .RowSel = .Row
    .ColSel = .Cols - 1
End With
End Sub

Public Sub MovePre(ctr As Control)
With ctr
    If .Row > 1 Then
    .Row = .Row - 1
    .Col = 0
    .RowSel = .Row
    .ColSel = .Cols - 1
    End If
End With
End Sub
Public Sub MoveNext(ctr As Control)
With ctr
    If .Row < .Rows - 1 Then
    .Row = .Row + 1
    .Col = 0
    .RowSel = .Row
    .ColSel = .Cols - 1
    End If
End With
End Sub
Public Sub MoveLast(ctr As Control)
With ctr
    .Row = .Rows - 1
    .Col = 0
    .RowSel = .Row
    .ColSel = .Cols - 1
End With
End Sub
Public Sub main()
strcnn = "provider=sqloledb.1;integrated security=sspi;database=Teacher"
''Frm_xscx.Show 1 '加上一个1表示是有模式的窗体,在其没关闭前其他操作无法进行
''Frm_xscz.Show 1
''Frm_xsgx.Show 1
Frm_sdf.Show 1
End Sub