version 6.50 0 Table 478 548 0 0 0 0 Sub designer addform(Table,"Adress Register","",192,192,192)@ addbutton(table,Clear,310,280,90,25,"Clear Table",255,0,0,255,255,255,True,True,9)@ addsavedialog(table,Save1,10,270,All Files|*.*)@ addopendialog(table,Open1,10,240,All Files|*.*)@ addbutton(table,Save,190,280,90,25,"Save Data",0,0,255,255,255,255,True,True,9)@ addbutton(table,Load,70,280,90,25,"Load Data",0,255,0,255,255,255,True,True,9)@ addtextbox(table,Phone1,300,180,105,22,"",255,255,255,0,0,0,True,True,False,9)@ addtextbox(table,Adress1,180,180,105,22,"",255,255,255,0,0,0,True,True,False,9)@ addbutton(table,Button1,185,225,100,23,"Submit",64,0,64,255,255,255,True,True,9)@ addtextbox(table,Name1,65,180,105,22,"",255,255,255,0,0,0,True,True,False,9)@ addtable(table,Table1,65,10,340,160,"",128,128,128,0,0,0,True,True,9)@ End Sub @EndOfDesignText@ Sub Globals 'Declare the global variables here. 'Made by Andreas M 090120 Hope you like it.. 'Made for The Xperia resolution End Sub Sub App_Start Table.Show Table1.AddCol (cString, "Name", 112) ' Adds Name, Adress & Phone Columns Table1.AddCol (cString, "Adress", 112) Table1.AddCol (cString, "Phone", 112) End Sub Sub Button1_Click If Name1.Text="" Then Return ' Prevents error if nothing is enterd in boxes If Adress1.Text="" Then Return If Phone1.Text="" Then Return Table1.AddRow (Name1.Text,Adress1.Text,Phone1.Text ) Name1.Text="" Adress1.Text="" Phone1.Text="" End Sub Sub Load_Click Open1.Filter = "CSV Files|*.csv" ' Loads Database with .csv extension If Open1.Show = cCancel Then Return Table1.LoadCSV(Open1.File, ",", False,False) 'If Table1.LoadCSV="" Then Return End Sub Sub Save_Click Save1.Filter = "CSV Files|*.csv" ' Saves Databse with .csv extension If Save1.Show = cCancel Then Return Table1.SaveCSV(Save1.File, ",", False) End Sub Sub Clear_Click ' Clears the table If Msgbox ("Are you sure","",cMsgboxYesNo,cMsgboxQuestion) = cYes Then Table1.Clear Else Return 'Security Question End Sub