Post by zabo on Feb 16, 2019 15:59:54 GMT -5
Hi there ,
Here a working GUI example.
A prototype for the user to INPUT Category names for LB Database.
Check it out.
Here a working GUI example.
A prototype for the user to INPUT Category names for LB Database.
Check it out.
Rem database_prototype HS Soft ZABO Hans Schueren Germany
nomainwin 'this is the prototype for the INPUT GUI for a new Category by the user
'before he make a new record in that category.
A1 = DisplayWidth ' get screen size to variable
B1 = DisplayHeight
A2 = A1/2 ' middle of screen
B2 = B1/2
WindowWidth = 750 ' set widget size
WindowHeight = 450
UpperLeftX = A2 - (WindowWidth/2) ' set beginning of widget x and y
UpperLeftY = B2 - (WindowHeight/2) ' force the GUI in middle of screen
textbox #first.1, 1, 1, 250, 30
textbox #first.2, 1, 30, 250, 30
textbox #first.3, 1, 60, 250, 30
textbox #first.4, 1, 90, 250, 30
textbox #first.5, 1, 120, 250, 30
textbox #first.6, 1, 150, 250, 30
textbox #first.7, 1, 180, 250, 30
textbox #first.8, 1, 210, 250, 30
textbox #first.9, 1, 240, 250, 30
textbox #first.10,1, 270, 250, 30
textbox #first.11, 300, 1, 400, 30
textbox #first.12, 300, 30, 400, 30
textbox #first.13, 300, 60, 400, 30
textbox #first.14, 300, 90, 400, 30
textbox #first.15, 300, 120, 400, 30
textbox #first.16, 300, 150, 400, 30
textbox #first.17, 300, 180, 400, 30
textbox #first.18, 300, 210, 400, 30
textbox #first.19, 300, 240, 400, 30
textbox #first.20, 300, 270, 400, 30
statictext #first.30, "NEW CATEGORY SETUP !", 200, 330, 400, 50
statictext #first.31, newcategory$ ,230, 370, 400, 50
button #first.35, "CANCEL / BACK", [label1], UL, 5, 330, 150, 40
button #first.36, "SAVE / OUT", [label2], UL, 575, 330, 150, 40
BackgroundColor$="black"
ForegroundColor$ = "red"
open "GUI-Window" for window as #first
print #first.1 , "!font Times_New_Roman 12 , bold"
print #first.2 , "!font Times_New_Roman 12 , bold"
print #first.3 , "!font Times_New_Roman 12 , bold"
print #first.4 , "!font Times_New_Roman 12 , bold"
print #first.5 , "!font Times_New_Roman 12 , bold"
print #first.6 , "!font Times_New_Roman 12 , bold"
print #first.7 , "!font Times_New_Roman 12 , bold"
print #first.8 , "!font Times_New_Roman 12 , bold"
print #first.9 , "!font Times_New_Roman 12 , bold"
print #first.10 ,"!font Times_New_Roman 12 , bold"
print #first.11 , "!font Times_New_Roman 12 , bold" : print #first.11 , "Insert the name for the first category in the left box"
print #first.12 , "!font Times_New_Roman 12 , bold" : print #first.12 , "Insert the name for the second category in the left box"
print #first.13 , "!font Times_New_Roman 12 , bold" : print #first.13 , "Insert the name for the third category in the left box"
print #first.14 , "!font Times_New_Roman 12 , bold" : print #first.14 , "Insert the name for the fourth category in the left box"
print #first.15 , "!font Times_New_Roman 12 , bold" : print #first.15 , "Insert the name for the fifth category in the left box"
print #first.16 , "!font Times_New_Roman 12 , bold" : print #first.16 , "Insert the name for the sixth category in the left box"
print #first.17 , "!font Times_New_Roman 12 , bold" : print #first.17 , "Insert the name for the seventh category in the left box"
print #first.18 , "!font Times_New_Roman 12 , bold" : print #first.18 , "Insert the name for the eigths category in the left box"
print #first.19 , "!font Times_New_Roman 12 , bold" : print #first.19 , "Insert the name for the nineth category in the left box"
print #first.20 , "!font Times_New_Roman 12 , bold" : print #first.20 , "Insert the name for the tenth category in the left box"
print #first.30, "!font Times_New_Roman 20 , bold"
print #first.31, "!font Times_New_Roman 20 , bold"
print #first.35, "!font Times_New_Roman 12 bold"
print #first.36, "!font Times_New_Roman 12 bold"
print #first.1, "!setfocus";
print #first, "trapclose [quit1]"
wait
[quit1]
close #first
end
[label1] 'label will follow and get back to main GUI
close #first
end
[label2] 'label will follow and will save the data from every field to a string variable and written to a file for recall on every new record which is
'written in this new category.
'The USER decide what the field names in every category are. 10 altogether for one record.
'AND the link to the file Folder for that record ! Unlimited files of every kind can take place in the records folder.
'100 categories are possible. individual setted. every category can hold 1000 records. Means : 100000 records. ha
'Sledge Hamme : Trust me. I know what i am doing !"
close #first
end
