#安卓开发# B4A 连接mssql 数据库

Sub Process_Globals

  Public ms_sql As MSSQL
  
End Sub


Public Sub cn_sql As Boolean
  Try
    gbyg
    ms_sql.setDatabase("数据库地址","数据库名","数据库用户名","数据库用户密码")
    Return True
  Catch
    Return False
  End Try

End Sub

Public Sub res_sql(sql As String) As Object
  Try
    Dim tb As List
    tb.Initialize
    tb=ms_sql.Query(sql)
    Return tb
  Catch
    Return Null
  End Try

  
End Sub

Public Sub cmd(sql As String) As Boolean
  Try
    ms_sql.ExecuteNonQuery(sql,True)
    Return True
  Catch
    Return False
  End Try

  
End Sub

Sub gbyg
  Dim jo As JavaObject
  jo.InitializeStatic("android.os.Build.VERSION")
  If jo.GetField("SDK_INT") > 9 Then
    Dim policy As JavaObject
    policy = policy.InitializeNewInstance("android.os.StrictMode.ThreadPolicy.Builder", Null)
    policy = policy.RunMethodJO("permitAll", Null).RunMethodJO("build", Null)
    Dim sm As JavaObject
    sm.InitializeStatic("android.os.StrictMode").RunMethod("setThreadPolicy", Array(policy))
  End If
End Sub

#Region  Project Attributes 
  #ApplicationLabel: B4A Example
  #VersionCode: 1
  #VersionName: 
  'SupportedOrientations possible values: unspecified, landscape or portrait.
  #SupportedOrientations: unspecified
  #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
  #FullScreen: False
  #IncludeTitle: True
#End Region

Sub Process_Globals
  
 
End Sub

Sub Globals

  Private Button1 As Button
  Private Button2 As Button
  Private EditText1 As EditText
  Private EditText2 As EditText

End Sub

Sub Activity_Create(FirstTime As Boolean)
  Activity.LoadLayout("main")
  If FirstTime Then
    If code_sql.cn_sql Then
      ToastMessageShow("数据库连接成功!",False)
    Else
      ToastMessageShow("数据库连接失败!",True)
    End If
  End If
  
End Sub

Sub Activity_Resume
  
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
  StartActivity(Login)
End Sub

Sub Button2_Click
  If EditText1.Text="" Or EditText2.Text="" Then
    ToastMessageShow("请输入用户名或密码!",False)
  Else
    If tf_user Then
      code_sql.name=EditText1.Text
      StartActivity(welcome)
    Else
      ToastMessageShow("用户名或密码错误!",False)
    End If
  End If

End Sub


Sub tf_user As Boolean
  Try
    Dim ls As List,rs As String
    ls.Initialize
    ls.AddAll(code_sql.res_sql($"select pswd from yz where name='${EditText1.Text}'"$))
    If ls.IsInitialized Then
      If ls.Size>1 Then
        ls = ls.get(1)
        rs=  ls.get(0)
        If rs=EditText2.Text Then
          Return True
        Else
          Return False
        End If
      Else
        Return False
      End If
    Else
      Return False
    End If
  Catch
    Return False
  End Try
End Sub

#Region  Activity Attributes 
  #FullScreen: False
  #IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals


  Private EditText1 As EditText
  Private EditText2 As EditText
  Private Label1 As Label
  Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)

  Activity.LoadLayout("login")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
  If EditText1.Text="" Or EditText2.Text="" Then
    ToastMessageShow("请输入用户名或密码!",False)
  Else
    If  code_sql.cmd($"insert into yz(name,pswd) values ('${EditText1.Text}','${EditText2.Text}')"$) Then
      Msgbox("注册成功!","")
    Else
      ProgressDialogHide
      Msgbox("注册失败!","")
    End If
  End If
End Sub

https://www.lanzous.com/i9y1rgh