![]() |
FlowFact - Entwicklungstools |
![]() |
Sub | cmd_Create_Projekt_Click() |
Public Sub cmd_Create_Projekt_Click() Dim strInput As String Dim strDsn As String Dim strBez As String Dim strNotiz As String Dim strStichwort1 As String Dim strStichwort2 As String strInput = InputBox("Bitte geben Sie ein Projekt in der Form 'Bezeichnung, Notiz, Stichwort, Stichwort2' ein.", "Projekt anlegen", "TestProjekt,Das ist ein automatisch angelegtes Projekt,Merker1,Merker2") strBez = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",") strNotiz = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",") strStichwort1 = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",") strStichwort2 = m_oFFDeveloper.oTools.StrList_DeleteFirst(strInput, ",") strDsn = m_oFFDeveloper.PROJEKTE_Create(strBez, strNotiz, strStichwort1, strStichwort2) m_oFFDeveloper.PROJEKTE_ShowDSN strDsn End Sub |