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