FlowFact - Entwicklungstools

zurück

Sub - cmd_Create_Projekt_Click
Projekt anlegen

Projekt in Datenbank anlegen und anschließend in Flowfact anzeigen
  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