Liberty BASIC Community Forum
« First GUI for my rapid database is ready ! »

Welcome Guest. Please Login or Register.
Nov 24th, 2017, 10:52am


Rules|Home|Help|Search|Recent Posts|Notification


« Previous Topic | Next Topic »
Pages: 1  Notify Send Topic Print
 thread  Author  Topic: First GUI for my rapid database is ready !  (Read 184 times)
Zabo
Full Member
ImageImageImage


member is offline

Avatar

Yes. It work's. ha


PM

Gender: Male
Posts: 125
xx First GUI for my rapid database is ready !
« Thread started on: May 27th, 2017, 3:36pm »

Hi ,
i have the first GUI Input Window for my rapid database ready. The user can decide the field names and category name.
The complete program takes a while.

Yes , it works on small screens.

Hope you like it.

ZABO

_____________________________________________


Code:
 
100 Rem database_prototype     HS Soft  Freakman Hans Schueren Germany
200 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.

300 WindowWidth = (DisplayWidth/100) *75
400 WindowHeight = (DisplayHeight/100) *50
500 UpperLeftX = (DisplayWidth/100) *12.5  :  X = WindowWidth/75
600 UpperLeftY = (WindowHeight/100)*12.5 :  Y = WindowHeight/75

700  textbox #first.1, X, Y, 300, 30
710  textbox #first.2, X, Y+30, 300, 30
720  textbox #first.3, X, Y+60, 300, 30
730  textbox #first.4, X, Y+90, 300, 30
740  textbox #first.5, X, Y+120, 300, 30
750  textbox #first.6, X, Y+150, 300, 30
760  textbox #first.7, X, Y+180, 300, 30
770  textbox #first.8, X, Y+210, 300, 30
780  textbox #first.9, X, Y+240, 300, 30
790  textbox #first.10, X, Y+270, 300,30

800  textbox #first.11, X+300, Y, 600, 30
810  textbox #first.12, X+300, Y+30, 600, 30
820  textbox #first.13, X+300, Y+60, 600, 30
830  textbox #first.14, X+300, Y+90, 600, 30
840  textbox #first.15, X+300, Y+120, 600, 30
850  textbox #first.16, X+300, Y+150, 600, 30
860  textbox #first.17, X+300, Y+180, 600, 30
870  textbox #first.18, X+300, Y+210, 600, 30
880  textbox #first.19, X+300, Y+240, 600, 30
890  textbox #first.20, X+300, Y+270, 600,30



895 statictext #first.30, "NEW CATEGORY SETUP !", X*3+230, Y+360, 400, 50

900  button #first.35, "CANCEL AND BACK", [label1], UL, X*2, Y+360, 200, 50
910  button #first.36, "SAVE AND OUT",        [label2], UL, X*3+650,Y+360, 200, 50


998  BackgroundColor$="black"
999   ForegroundColor$ = "red"
1000 open "GUI-Window_75%-of-machinescreensize" for window as #first

1100 print #first.1 , "!font Times_New_Roman 11 , bold"
1110 print #first.2 , "!font Times_New_Roman 11 , bold"
1120 print #first.3 , "!font Times_New_Roman 11 , bold"
1130 print #first.4 , "!font Times_New_Roman 11 , bold"
1140 print #first.5 , "!font Times_New_Roman 11 , bold"
1150 print #first.6 , "!font Times_New_Roman 11 , bold"
1160 print #first.7 , "!font Times_New_Roman 11 , bold"
1170 print #first.8 , "!font Times_New_Roman 11 , bold"
1180 print #first.9 , "!font Times_New_Roman 11 , bold"
1190 print #first.10 ,"!font Times_New_Roman 11 , bold"

1300 print #first.11 , "!font Times_New_Roman 11 , bold" : print #first.11 , "Insert the name for the first field of your new created data category in the left box"
1310 print #first.12 , "!font Times_New_Roman 11 , bold" : print #first.12 , "Insert the name for the second field of your new created data category in the left box"
1320 print #first.13 , "!font Times_New_Roman 11 , bold" : print #first.13 , "Insert the name for the third field of your new created data category in the left box"
1330 print #first.14 , "!font Times_New_Roman 11 , bold" : print #first.14 , "Insert the name for the fourth field of your new created data category in the left box"
1340 print #first.15 , "!font Times_New_Roman 11 , bold" : print #first.15 , "Insert the name for the fifth field of your new created data category in the left box"
1350 print #first.16 , "!font Times_New_Roman 11 , bold" : print #first.16 , "Insert the name for the sixth field of your new created data category in the left box"
1360 print #first.17 , "!font Times_New_Roman 11 , bold" : print #first.17 , "Insert the name for the seventh field of your new created data category in the left box"
1370 print #first.18 , "!font Times_New_Roman 11 , bold" : print #first.18 , "Insert the name for the eigths field of your new created data category in the left box"
1380 print #first.19 , "!font Times_New_Roman 11 , bold" : print #first.19 , "Insert the name for the nineth field of your new created data category in the left box"
1390 print #first.20 , "!font Times_New_Roman 11 , bold"  : print #first.20 , "Insert the name for the tenth field of your new created data category in the left box"

1400 print #first.30, "!font Times_New_Roman 24 , bold"
1500 print #first.35, "!font Times_New_Roman 12 bold"
1600 print #first.36, "!font Times_New_Roman 12 bold"


2000 print #first, "trapclose [quit]"
3000 wait

[quit]
       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
    



« Last Edit: May 27th, 2017, 3:37pm by Zabo » User IP Logged

Pages: 1  Notify Send Topic Print
« Previous Topic | Next Topic »

Rules|Home|Help|Search|Recent Posts|Notification

Donate $6.99 for 50,000 Ad-Free Pageviews!

| |

This forum powered for FREE by Conforums ©
Sign up for your own Free Message Board today!
Terms of Service | Privacy Policy | Conforums Support | Parental Controls