Ledenadministratie programma inleiding

Start hier uw open source projecten

Ledenadministratie programma inleiding

Berichtdoor Testgast » ma mei 23, 2005 10:50 pm

Hallo Allemaal,

Ook een ledenadministratie programma geeft goed en eenvoudig inzicht in de mogelijkheden van Liberty Basic.

Hier volgt een voorbeeld van een wijzigingen scherm
Afbeelding

GR
Avatar gebruiker
Testgast
 
Berichten: 11
Geregistreerd: ma mei 23, 2005 4:44 pm

Berichtdoor Gordon » zo mei 29, 2005 12:35 pm

Beste mensen,

Ik heb met het Form-builder programma van Alyce de volgende listing in elkaar gezet.
Anderen zweren bij Jalbe van Dennis ,terwijl weer anderen zich gelukkig voelen met FreeForm.

Code: Selecteer alles
'** Created by Liberty BASIC Workshop - 30-5-2005 12:12:38
'** Ledenadministratie (sportvereniging)

    True = 1 : False = 0

[InitColors1]
    'Please use default colors when possible.
    'ForegroundColor$ = "Black"
    'BackgroundColor$ = "Buttonface"
    'TexteditorColor$ = "White"
    'TextboxColor$    = "White"
    'ComboboxColor$   = "White"
    'ListboxColor$    = "White"

[WindowSetup1]
    NOMAINWIN
    WindowWidth = 600 : WindowHeight = 550
    UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
    UpperLeftY = INT((DisplayHeight-WindowHeight)/2)

[ControlSetup1]
Menu        #main1, "Bestand", "Openen", [openen1], "Nieuw", [nieuw1], "Exit", [quit]
Menu        #main1, "Actie", "Record wijzigen", [wijzigen1], "Record sorteren", [sorteren1]
Menu        #main1, "Extra", "Adressen", [adressen1], "Mailing", [mailing1]
Menu        #main1, "Help", "Help onderwerpen", [help1], "Versie", [versie]
statictext  #main1.static1, "Hier moeten nog aankondigingen komen", 131, 80, 248, 23
statictext  #main1.static2, "TEKST grootte SPORTVERENIGING", 131, 147, 237, 28

Open "Ledenadministratie (sportvereniging)" for Window as #main1
    #main1 "trapclose [quit1]"
    #main1 "font ms_sans_serif 10"

[loop1]
    Wait

[quit1]
    close #main1 : END

[openen1]
    'place code here
    'filedialog hier
    Wait

[nieuw1]
    'place code here
    Wait

[wijzigen1]
    'place code here
    'testen welk bestand open is en dan
    goto [WindowSetup2]
    Wait

[sorteren1]
    'place code here
    Wait

[adressen1]
    'place code here
    Wait

[mailing1]
    'place code here
    Wait

[help1]
    'place code here
    Wait

[versie1]
    'place code here
    Wait


'** Created by Liberty BASIC Workshop - 30-5-2005 13:00:13
'** Onderhoud Leden records (Wijzigen/ Verwijderen)

    True = 1 : False = 0

[InitColors2]
    'Please use default colors when possible.
    'ForegroundColor$ = "Black"
    'BackgroundColor$ = "Lightgray"
    'TexteditorColor$ = "White"
    'TextboxColor$    = "White"
    'ComboboxColor$   = "White"
    'ListboxColor$    = "White"

[WindowSetup2]
    NOMAINWIN
    WindowWidth = 600 : WindowHeight = 550
    UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
    UpperLeftY = INT((DisplayHeight-WindowHeight)/2)

[ControlSetup2]
Menu        #main2, "Bewaren", "bewaren", [bewaren2]
Menu        #main2, "Zoeken", "Voornaam", [voornaam2], "Achternaam", [achternaam2], "Adres", [adres2], "Woonplaats", [woonplaats2], "reg Nummer", [regNummer2]
statictext  #main2.static1, " REG. NUMMER", 5, 5, 115, 25
statictext  #main2.static2, "ACHTERNAAM", 5, 35, 110, 25
statictext  #main2.static3, "ALFA A NAAM", 5, 65, 110, 25
statictext  #main2.static4, "ROEPNAAM", 5, 95, 110, 25
statictext  #main2.static5, " VOORNAAM", 5, 125, 120, 25
statictext  #main2.static6, " VOORLETTER", 5, 155, 115, 25
statictext  #main2.static7, " ADRES", 5, 185, 115, 25
statictext  #main2.static8, " POSTCODE", 5, 215, 115, 25
statictext  #main2.static9, " WOONPLAATS", 5, 245, 125, 25
statictext  #main2.static10, " GEB. DATUM", 5, 275, 120, 25
statictext  #main2.static11, " GESLACHT", 5, 305, 115, 25
statictext  #main2.static12, " TELEFOON", 5, 335, 115, 25
statictext  #main2.static13, " E-MAIL", 5, 365, 115, 25
statictext  #main2.static14, " SOORT LID", 5, 395, 110, 25
statictext  #main2.static15, " BANK NUMMER", 5, 425, 115, 25
statictext  #main2.static16, "INGANGS DATUM", 5, 455, 120, 25
stylebits   #main2.button1, _BS_MULTILINE, 0, 0, 0
button      #main2.button1, "E-mail", [button1.click], UL, 480, 365, 70, 20
textbox     #main2.textbox1, 140, 0, 120, 25
textbox     #main2.textbox2, 140, 30, 275, 25
textbox     #main2.textbox3, 140, 60, 120, 25
textbox     #main2.textbox4, 140, 90, 175, 25
textbox     #main2.textbox5, 140, 120, 275, 25
textbox     #main2.textbox6, 140, 150, 70, 25
textbox     #main2.textbox7, 140, 180, 335, 25
textbox     #main2.textbox8, 140, 210, 70, 25
textbox     #main2.textbox9, 140, 240, 355, 25
textbox     #main2.textbox10, 140, 270, 90, 25
textbox     #main2.textbox11, 140, 300, 40, 25
textbox     #main2.textbox12, 140, 330, 355, 25
textbox     #main2.textbox13, 140, 360, 310, 25
textbox     #main2.textbox14, 140, 390, 170, 25
textbox     #main2.textbox15, 140, 420, 250, 25
textbox     #main2.textbox16, 140, 450, 175, 25

Open "Onderhoud Leden records (Wijzigen/ Verwijderen)" for Window as #main2
    #main2 "trapclose [quit2]"
    #main2 "font ms_sans_serif 10"

[loop2]
    Wait

[quit2]
    close #main2 ': END
    wait

[bewaren2]
    'place code here
    Wait

[voornaam2]
    'place code here
    Wait

[achternaam2]
    'place code here
    Wait

[adres2]
    'place code here
    Wait

[woonplaats2]
    'place code here
    Wait

[regNummer2]
    'place code here
    Wait

[button1.click]
    'place code here
    wait




Gordon.
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am


Keer terug naar OPEN SOURCE PROJECTEN

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron