/
ivan
/
ModMas
Обзор
Документация
Войти
/
ivan
/
ModMas
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
ModuleMaster/mach/default.aspx.vb
27 строк
1 KB
i.krivokon
Initial commit
13 мар 2026, 13:49
13 мар 2026, 13:49
00d9fb6
Код
Авторство
О чём код?
Partial Class mach_Default Inherits System.Web.UI.Page <System.Web.Script.Services.ScriptMethod(), _ System.Web.Services.WebMethod()> _ Public Shared Function SearchCustomers(ByVal prefixText As String, ByVal count As Integer) As List(Of String) Dim sql As New StringBuilder sql.Append("SELECT [Name] +'/' + Title + ' (' + band + ')' + '/' + Department + '/' + [SingleId] as Title") sql.Append(" ,[GEN] + '|' + [SingleId] + '|APPROVE' as [EmpId] ") sql.Append(" FROM [hr].[dbo].[GHR_EMP_INFO] ") sql.Append(" where ") sql.Append(" (gen like '%" & prefixText & "%' or ") sql.Append(" name like '%" & prefixText & "%' or ") sql.Append(" singleid like '%" & prefixText & "%' or department like '%" & prefixText & "%')") Dim sqlf As New sharedClasses.dbFunctions.SqlFunctions Dim dt As Data.DataTable = sqlf.GetData(sql.ToString) If Not IsNothing(dt) Then Dim result As New List(Of String) For Each dr As Data.DataRow In dt.Rows result.Add(dr("title")) Next Return result End If Return Nothing End Function End Class