?? module1.bas
字號:
Attribute VB_Name = "Module1"
Public fMainForm As FrmMain '定義一個全局對象
Public username As String '用于記錄當前用戶
Public password As String '記錄當前密碼
Public flagtoexcel As Integer '標志當前的導出數據對象
Public gintcMode As Integer
Public gintdMode As Integer
Public gintvMode As Integer
Public gintsMode As Integer
Public gintrMode As Integer
Public gintaMode As Integer
Public flagcEdit As Boolean
Public flagdEdit As Boolean
Public flagvEdit As Boolean
Public flagsEdit As Boolean
Public flagrEdit As Boolean
Public flagaEdit As Boolean '以下是定義5個模塊的標志,用于標志其處于添加還是修改狀態
Sub Main()
Dim fLogin As New frmlogin
Dim fblogin As New Frmblogin
fblogin.Show vbModal
fLogin.Show vbModal
If Not fLogin.OK Then
End '失敗則退出
End If
Unload fLogin
Set fMainForm = New FrmMain '登陸成功轉主界面
fMainForm.Show
flagtoexcel = 0
End Sub
'定義一個數據庫連接函數,返回一個連接字符串
Public Function ConnectString() As String
ConnectString = "FileDSN=myconnection.dsn;UID=sa;PWD=" '連接數據庫
End Function
'執行SQL,返回記錄集合函數
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error ' 出錯轉向ExecuteSQL_Error
sTokens = Split(SQL)
'' sTokens = Split(" ")
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then '比較SQL語句,與三種操作匹配則執行
'If InStr("ADDNEW,INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
cnn.Execute SQL
''cnn.Execute "delete from driver where sj_id='" & "968453714'"
'' cnn.Execute ""
MsgString = sTokens(0) & " query successful"
'cnn.Close
Else '否則執行查詢記錄集
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
'rst.MoveLast 'get RecordCount
Set ExecuteSQL = rst
MsgString = "查詢到" & rst.RecordCount & " 條記錄 "
'rst.Close
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
' cnn.Close
' rst.Close
Exit Function
ExecuteSQL_Error:
MsgString = "查詢錯誤: " & Err.Description
Resume ExecuteSQL_Exit
End Function
Public Sub EnterToTab(Keyasc As Integer) '默認回車后轉下一個文本
If Keyasc = 13 Then
SendKeys "{TAB}"
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -