سورس کار با دیتابیس در بیسیک فور اندروید

[shahab.es 5,429]

سلام و خسته نباشید به همه دوستان

با وجود اموزش های زیادی که توی انجمن موجود هست ، خیلی از دوستان هنوز مشکل دارن با دیتابیس

این سورس زیر، از طریق کتابخونه sql با دیتابیس کار میکنه و 4 عمل سلکت، اپدیت، اینسرت و دیلت رو باهاش انجام میدیم...

سعی کردم خیلی خیلی ساده و روون کد بزنم که دوستانی که مشکل دارن راحت متوجه بشن...

غیر از دیتابیس دو سه تا چیز دیگه هم تو سورس هست:

دیزاینر اسکریپت کاملا انجام شده.

مسیج باس 2 رو استفاده کردیم و قبل از هر کاری از کاربر میپرسیم مطمئن هست یا نه

و چک میکنیم که فیلد ها خالی هستن یا نه که در صورت خالی بودن، چیزی ثبت نمیشه و کاربر اخطار دریافت میکنه

موفق تر باشید

دانلود سورس و دیتابیس....

www.answercenter.ir

 

تصاویر محیط نرم افزار

main activity

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
Dim sql As SQL
Dim cur As Cursor
Dim meghdar As String
End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private Button1 As Button
	Private EditText1 As EditText
	Private EditText2 As EditText
	Private ListView1 As ListView
	
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("main")
	'avval bayad database ro copy konim va bad initialize sh konim'
	If File.Exists(File.DirInternal,"db.db") = False Then
		File.Copy(File.DirAssets,"db.db",File.DirInternal,"db.db")
	End If
	
	If sql.IsInitialized = False Then
		sql.Initialize(File.DirInternal,"db.db",True)
	End If
	
	'bayad ettelaate data base ro bekhoonam o berizam tooye list view'
	cur = sql.ExecQuery("SELECT * FROM mytbl")
	For i = 0 To cur.RowCount - 1 
		cur.Position = i
		ListView1.AddSingleLine2(cur.GetString("title"),cur.GetInt("id"))
	Next
	
	'ye shart mizaram ke age chizi too list view nabood masalan be karbar begiim '
	'ke ettelaate jadid ra vared konid o in harfa...'
	If ListView1.Size = 0 Then
		Msgbox("ettelaati mojood nist"&CRLF&"az paiin safhe vared konid","answercenter.ir-->shahab.es")
	End If
	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub ListView1_ItemClick (Position As Int, Value As Object)'''''''''''''in ghesmat , id ro mifreste be 1 activity dg'''''''
	meghdar = Value
	StartActivity(content)
End Sub



Sub ListView1_ItemLongClick (Position As Int, Value As Object)'''''''in ghesmat baray hazfe ettelaat az data base hastesh''''
	'dar in ghesmat hazf ettelaato anjam midim'
	Dim a As Int
	a = Msgbox2("motmaennid???","answercenter.ir-->shahab.es","bale","","na",Null)
	If a = DialogResponse.POSITIVE Then
		'injaa vaarede data base mikonim'
		
		sql.ExecNonQuery("DELETE FROM mytbl WHERE id = '"& Value &"'")
		ToastMessageShow("hazf shod",False)
		
		'dobare list view ro load mikonam ta taghirat maloom beshe'
		ListView1.Clear
		cur = sql.ExecQuery("SELECT * FROM mytbl")
		For i = 0 To cur.RowCount - 1 
			cur.Position = i
			ListView1.AddSingleLine2(cur.GetString("title"),cur.GetInt("id"))
		Next
		
	End If
End Sub



Sub Button1_Click'''''''insert dar database'''''''
	'dar inja ettelaate jadid ro vaarede database mikonimmm'
	'avval check mikonam ke edittext haa khali nabashan'
	'bad az karbar miporsam ke motmaeennnid???'
	
	
	If EditText1.Text = "" Or EditText2.Text = "" Then
		ToastMessageShow("matni vaared nashode ast",False)
	Else
		
		Dim a As Int
		a = Msgbox2("motmaennid???","answercenter.ir-->shahab.es","bale","","na",Null)
		If a = DialogResponse.POSITIVE Then
			'injaa vaarede data base mikonim'
			
			sql.ExecNonQuery("INSERT INTO mytbl (id,title,content) VALUES (null,'"& EditText1.Text &"','"& EditText2.text &"')")
			ToastMessageShow("sabt shod",False)
			
			'dobare list view ro load mikonam ta taghirat maloom beshe'
			ListView1.Clear
			cur = sql.ExecQuery("SELECT * FROM mytbl")
			For i = 0 To cur.RowCount - 1 
				cur.Position = i
				ListView1.AddSingleLine2(cur.GetString("title"),cur.GetInt("id"))
			Next
			
		End If
	End If
End Sub

content activity

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private Button1 As Button
	Private EditText1 As EditText
	Dim id As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("content")
	id = Main.meghdar
	
	'meghdar be edit text baraye viraayeh'
	Main.cur = Main.sql.ExecQuery("SELECT * FROM mytbl WHERE id = " & id)
	Main.cur.Position = 0
	EditText1.Text = Main.cur.GetString("content")
	
	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click''''emaal taghirat va viraayesh''''
	Dim a As Int
		a = Msgbox2("motmaennid???","answercenter.ir-->shahab.es","bale","","na",Null)
		If a = DialogResponse.POSITIVE Then
			'injaa vaarede data base mikonim'
			
			Main.sql.ExecNonQuery("UPDATE mytbl SET content = '"& EditText1.Text &"' WHERE id = '"& id &"'")
			ToastMessageShow("sabt shod",False)
			
			'dobare edittetx ro load mikonam ta taghirat maloom beshe'
			EditText1.Text = ""
				Main.cur = Main.sql.ExecQuery("SELECT * FROM mytbl WHERE id = " & id)
				Main.cur.Position = 0
			EditText1.Text = Main.cur.GetString("content")	
		End If
	
End Sub

[amirmahdi3744 5]

سلام.ببخشید من یک سوال داشتم.سوالم هم خیلی ضروری لطفا به جیمیلم پاسخ بدید.

اینکه من هر جا اموزش لود کردن دیتا بیس دیدم همشون باید یک اکتیویتی فصل داشته باشند و بعد وارد متن بشوند.من دنبال اینم که وقتی دیتابیس رو ساختیم و لود کردیم یک راست بره داخل متن دیگه فصل نداشته باشد.

خواهش می کنم کمکم کنید

[shahab.es 5,429]

سلام دلاور

شما خوب فقط از اکتیوتی دوم استفاده کن....

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.

	Private Button1 As Button
	Private EditText1 As EditText
	Dim id As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("content")
	
	
	'meghdar be edit text baraye viraayeh'
	cur = sql.ExecQuery("SELECT * FROM mytbl WHERE id = 2")
	cur.Position = 0
	EditText1.Text = cur.GetString("content")
	
	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click''''emaal taghirat va viraayesh''''
	Dim a As Int
		a = Msgbox2("motmaennid???","answercenter.ir-->shahab.es","bale","","na",Null)
		If a = DialogResponse.POSITIVE Then
			'injaa vaarede data base mikonim'
			
			sql.ExecNonQuery("UPDATE mytbl SET content = '"& EditText1.Text &"' WHERE id = '"& "2" &"'")
			ToastMessageShow("sabt shod",False)
			
			'dobare edittetx ro load mikonam ta taghirat maloom beshe'
			EditText1.Text = ""
				cur = sql.ExecQuery("SELECT * FROM mytbl WHERE id = 2")
				cur.Position = 0
			EditText1.Text = cur.GetString("content")	
		End If
	
End Sub

[davood1382 302]

سلام اقا شهاب یعنی خدایی گل کاشتی 

ولی برا من کار نمیکنه(داخل نمایش متن)

این کدهام

activity main

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("list")
If File.Exists(File.DirInternal,"db.db") = False Then
File.Copy(File.DirAssets,"db.db",File.DirInternal,"db.db")
End If


If sql.IsInitialized = False Then
sql.Initialize(File.DirInternal,"db.db",True)
End If


cur = sql.ExecQuery("SELECT * FROM mytbl")
For i = 0 To cur.RowCount - 1 
cur.Position = i
ListView1.AddSingleLine(cur.GetString("title"))
Next




If ListView1.Size = 0 Then
Msgbox("اطلاعاتی برای نمایش وجود ندارد.","سلام.توجه!!!")
End If




End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub Button1_Click
If EditText1.Text = "" Or EditText2.Text = "" Then
ToastMessageShow("متنی وارد نشده است",False)
Else


Dim a As Int
a = Msgbox2("از اضافه کردن اطلاعات مطمئن هستید؟؟؟???","توجه!!","بله","","خیر",Null)
If a = DialogResponse.POSITIVE Then


sql.ExecNonQuery("INSERT INTO mytbl (id,title,content) VALUES (null,'"& EditText1.Text &"','"& EditText2.text &"')")
ToastMessageShow("ثبت شد",False)




ListView1.Clear
cur = sql.ExecQuery("SELECT * FROM mytbl")
For i = 0 To cur.RowCount - 1 
cur.Position = i
ListView1.AddSingleLine(cur.GetString("title"))
Next


End If
End If
End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)
meghdar = Value
StartActivity(content)
End Sub


Sub ListView1_ItemLongClick (Position As Int, Value As Object)
Dim a As Int
a = Msgbox2("از حذف اطلاعات مطمئن هستید؟؟؟؟","توجه","بله","","خیر",Null)
If a = DialogResponse.POSITIVE Then



sql.ExecNonQuery("DELETE FROM mytbl WHERE id = '"& Value &"'")
ToastMessageShow("حذف شد.",False)

ListView1.Clear
cur = sql.ExecQuery("SELECT * FROM mytbl")
For i = 0 To cur.RowCount - 1 
cur.Position = i
ListView1.AddSingleLine(cur.GetString("title"))
Next


End If
End Sub

activity content

'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim id As Int
Private Label1 As Label
Private EditText1 As EditText
End Sub


Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("label")
id = Main.meghdar




Main.cur = Main.sql.ExecQuery("SELECT * FROM mytbl WHERE id = " & id)
Main.cur.Position = 0
EditText1.Text = Main.cur.GetString("content")


End Sub

[مجید آرتا 5,874]

شما دارید از Cursor  که توی اکتیویتی Main  هستش استفاده می کنید و بعد از Select  کردن هم Cursor.Close  صدا زده نشده و این امکانو میشه داد که مرسور اطلاعاتی رو نمایش نمیده

شما توی اکتیویتی content  یک Cursor  دیگه تعریف کنید

 

این کدو بنویسید »

Dim cr As Cursor
cr = Main.sql.ExecQuery("SELECT * FROM mytbl WHERE id = " & id)
Main.cur.Position = 0
EditText1.Text = cr.GetString("content")

[davood1382 302]

اقا مجید خیلییییی ممنون 

خداییش همین الان میخواستم بگم که مشکلم حل شد 

راه حل = توی لیست ویو من از اد سینگل لاین استفاده کردم اما باید از اد سینگل لاین 2 استفاده کنم و در متغیر دومی ستون id رو بدم (برای باز خوانی پس از حذف ویرایش و .... ) به هر حال خیلی اقایی 

جواب رو هم گذاشتم کسی دیگه مشکل داشت شاید با این روش حل شد.

خیلی ممنون 

من هر چی دارم توی برنامه نویسی از این انجمن و کاربرانی مثل اقای ارتا وایزدی و الیاس عرفانی و .... هستش که خیلی به من کمک کردن.

همچنین اقا شهاب گل.

[arfan2x 15]

سلام خدمت شما و تشکر واسه این آموزش.

آقا ببخشید لطفاً یه کد برای جستجو تو دیتابیس چندجدولی بنویسید.

تو دیتابیس تک جدولی به خوبی میتونم سرچ و علاقمندی واسه کتاب درست کنم اما یه جدول دیگه اضافه بشه دیگه نمی تونم و کارم لنگ می مونه.

بنده مبتدی هستم اما اگه لطف کنید توضیح بدید یاد می گیرم

[shahab.es 5,429]

سلام

اینو ببینید

احتمال داره مشکلتون حل بشه

البته سرچ رو نداره فک کنم اما ایده کارو میده بهتون

https://answercenter.ir/topic/3622-سورس-کد-کتاب-های-چند-جدولیعلاقه-مندی-و-فراخونی-تیترها-و/

 

[samyar0443 0]

سلام،ممنون بخاطر آموزش خوبتون

من یک مشکلی دارم لطفا راهنماییم کنید.

میخوام یک برنامه برای یک فروشگاه بزرگ با چند تا شعبه بنویسم که فقط حضور و غیاب انجام بشه و برنامه به شکل زیر هست:

1-یک نسخه ادمین داره که میاد و شعبه ها رو تعریف میکنه مثلا شعبه1،شعبه2 و...

2-الان کارمند ها باید به صورت اتوماتیک با توجه به نام کاربریشون به شعبه خودشون برن،مثلا علی کارمند شعبه1 هست و باید بعد از وارد کردن نام کاربری و رمز عبور فقط به شعبه 1 دسترسی داشته باشه

3-لیست حضور و غیاب به صورت ماهانه نمایش داده بشه.

لطفا راهنماییم کنید

باتشکر