Dialog Data Finder

To search for data, such as searching customers, suppliers and others, you do not need to create a form again, you only need to use this dialogue, of course saves you time and code:

Using DC As New SEMICO_Dialog.DialogCariData() With {.TITLE = "Pencarian OTA", .Field1 = "OTAID", _
   .Field2 = "NmOTA", .StringConection = konstr, _
   .Table = "otamas", .DisplayField1 = "ID", .DisplayField2 = "name"}
DC.ShowDialog()
If DC.HasValue Then
   result = DC.value
Else
  Result = ""
End If
End Using

Screenshot :

Dialog Login Usibility

Usefulness of this dialogue is to provide a login dialog that can be used repeatedly in every project with a short code without copy and paste with a flexible and stable function

Dim lgn As New SEMICO_Dialog.DialogLogin(fnc.GetConectionString, "Passwrd", "nama", "password")
lgn.ShowDialog()
If lgn.HASVALUE = False Then
   End
End If