مذكرة تخرجي 2014----> سارق الاحزان

[الاستاذة رجاء]

السلام عليكم و رحمة الله
هذا رابط فيه مذكرة تخرجي
developpement d'une application de gestion d'un cabinet médical
memoire de fin d'etude de licence
2014
http://www.gulfup.com/?MXFTGV
و هذا رابط البرنامج
http://www.gulfup.com/?HmzMvo

ارجو الاستفادة

[إكرام ملاك]

السلام عليكم


شكرا لك رجااء


فقط ضعي عنوان مذكرتك في عنوان الموضوع حتى
يلتقطها البحت ..للافادة طبعا
وبعد إذن
رفع المذكرة على رابك أخر للفائدة


مذكرة

http://www.gulfup.com/?yHuVKG


البرنامج

http://www.gulfup.com/?DHTwDZ

[simi hope]

بارك الله فيك وشكرا جزيل الشكر على الإفادة الجمة

مذكرة تخرج ورسالة تخرج نفس المفهوم ؟
في أي سنة ليسانس ولا ماستر ؟

ممكن أتواصل معك حتى أسألك المزيد عن التخرج وتساعديني إذا أمكن ؟

[saleh24]

شكرا.................

[الاستاذة رجاء]

بارك الله فيك وشكرا جزيل الشكر على الإفادة الجمة

مذكرة تخرج ورسالة تخرج نفس المفهوم ؟
في أي سنة ليسانس ولا ماستر ؟

ممكن أتواصل معك حتى أسألك المزيد عن التخرج وتساعديني إذا أمكن ؟

شهادة تخرج ليسانس

[الاستاذة رجاء]

le theme de memoire est
developpement d'une application de gestion d'un cabinet médical
memoire de fin d'etude de licence
2014

[nasser26]

البرنامج لا يشتغل

[سارق الأحزان]

مشكورة اختي رجاء
مزالك عند وعدك ؟؟
وهل تم قبول مشروع التخرج
وجبتي العام ؟

[سارق الأحزان]

خسارة مذكرتيش اسمي في المذكرة

[bfares13]

السلام عليكم روحمة الله وبركاته
ألف مبروك عقبال الماستر ان شاء الله

[الاستاذة رجاء]

خسارة مذكرتيش اسمي في المذكرة

و الله تذكرتك و لكن لم اجد كيف اكتب اسمك ....هل اكتبه سارق الاحزان *** و لكن مع هذا فانا متأسفة
و لكنني تذكرتك ووضعت مذكرتي كما قلت لك ....
اما بالنسبة للمذكرة فلقد اخذت اكبر علامة 16 من 20 .....و البرنامج كان ممتاز كما اننا استعملنا reseau بين الطبيب و مساعده و تم كل شيء بنجاح
********************************************
تحياتي يا سارق الاحزان
و اشكرك على كل شيء

[الاستاذة رجاء]

البرنامج لا يشتغل

لا اعلم ربما هناك مشكل لما حملته ...
او اضن انه يحتاج لقاعدة بيانات
ساحاول حل المشكل

[moh140]

شكرا لك شكرا لك

[الاستاذة رجاء]

السلام عليكم روحمة الله وبركاته
ألف مبروك عقبال الماستر ان شاء الله


و عليكم السلام و رحمة الله تعالى و بركاته
الله يبارك فيك اخي و ان شاء الله الماستر
بارك الله فيك اخي مشكور جدا

[الاستاذة رجاء]

شكرا لك شكرا لك

عفوا عفوا .....
و شكرا

[سارق الأحزان]

حسنا اختي ممكن تزويديني بالكود سورس ؟

[finino]

ممكن ترفعيها على شكل doc لأن صفحة الإهداء و المقدمة أعجبتني

[يونس]

السلام عليكم و رحمة الله
هذا رابط فيه مذكرة تخرجي
developpement d'une application de gestion d'un cabinet médical
memoire de fin d'etude de licence
2014
http://www.gulfup.com/?MXFTGV
و هذا رابط البرنامج
http://www.gulfup.com/?HmzMvo

ارجو الاستفادة

السلام عليكم

ممكن code source de programme
و بأي لغة برمجة تم تصميم المشروع ، أهي java !!
اذا كان بإمكان وشكرا لك

بإضافة كيف كانت الأسئلة حول المذكرة؟


وبارك الله فيك

[الاستاذة رجاء]

استعملت visual basic 2008 avec base de donne sql server2005
بخصوص الكود شوية صعيب حتى نسقسي اللي معايا
اسفة

[الاستاذة رجاء]

ممكن ترفعيها على شكل doc لأن صفحة الإهداء و المقدمة أعجبتني
هذا التشكر remerciement

http://www.gulfup.com/?aavyLf
و هذا الاهداء
http://www.gulfup.com/?whErnV
اما بخصوص الكود لا يمكنني وضعه و لكن يمكن ان اضع بعض الاكواد الخاصة ب les boton كما يمكنني شرح كل fonction
et procedure

[الاستاذة رجاء]

حسنا اختي ممكن تزويديني بالكود سورس ؟

اسفة سارق الاحزان
و لكن يمكنني ان اضع بعض les fonction مع الشرح

[يونس]

استعملت visual basic 2008 avec base de donne sql server2005
بخصوص الكود شوية صعيب حتى نسقسي اللي معايا
اسفة


اذا ممكن les fonction

به نستفادو شويا .. وبارك الله فيك

[الاستاذة رجاء]

حسننا ساضع بعض الاكواد مع الشرح

[الاستاذة رجاء]

هذا الكود خاص بالواجهة التالية
http://im82.gulfup.com/LRDZA4.png


Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim ObjetConnection As SqlConnection

' Déclaration Objet Commande

Dim ObjetCommand As SqlCommand

' Déclaration Objet DataAdapter

Dim ObjetDataAdapter As SqlDataAdapter

' Déclaration Objet DataSet

Dim ObjetDataSet 'Attention au New

'String contenant la 'Requête SQL'

Dim strSql As String

' Déclaration Objet DataTable

Public ObjetDataTable As DataTable

' Déclaration Objet DataRow (ligne)

Dim ObjetDataRow As DataRow

'Numéro de la ligne en cours

Public RowNumber As Integer
'Numéro de l'enregistrement courant
'Paramêtres de connexion à la DB

Dim strConn As String
Sub connection()
ObjetDataSet = New DataSet
'Initialisation de la chaîne de paramètres pour la connexion

strConn = "Data Source=192.168.1.4;Initial Catalog=cabinet;uid=sa;pwd=sa;"
' strConn_sql = "Data Source=" + My.Computer.Name + ";Initial Catalog=cabinet;uid=sa;pwd=sa;"
'Initialisation de la chaîne contenant l'instruction SQL

strSql = "SELECT * FROM c_user "


'Instanciation d'un Objet Connexion

ObjetConnection = New SqlConnection()

'Donner à la propriété ConnectionString les paramètres de connexion

ObjetConnection.ConnectionString = strConn

'Ouvrir la connexion

Try

ObjetConnection.Open()

Catch ex As SqlException

MsgBox(ex.Message)

End Try



'Instancier un objet Commande

ObjetCommand = New SqlCommand(strSql)

'Instancier un objet Adapter

ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)

'initialiser l'objet Command

ObjetCommand.Connection() = ObjetConnection

'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
'ObjetDataAdapter.Fill(ObjetDataSet2, "ts2")
ObjetDataAdapter.Fill(ObjetDataSet, "c_user")
ObjetDataTable = ObjetDataSet.Tables("c_user")
'---------------------------------------------------
'---------------------------------------------------



End Sub
Sub clear()
ObjetConnection = Nothing

ObjetCommand = Nothing

ObjetDataAdapter = Nothing

'Objet déconnectée

ObjetDataSet = Nothing

ObjetDataTable = Nothing

ObjetDataRow = Nothing

End Sub

Private Sub txtPassword_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPassword.KeyPress
If e.KeyChar = vbCr Then
Login_Click(sender, e)
End If
End Sub


Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click
Dim i As Integer
connection()
For i = 0 To ObjetDataTable.Rows.Count - 1

If ComboBox1.Text = ObjetDataTable.Rows(i).Item("pseudo").ToString And txtPassword.Text = ObjetDataTable.Rows(i).Item("password").ToString Then
If ComboBox1.Text <> "medecin" Then
Form2.GestionDesToolStripMenuItem.Enabled = False

End If
Timer1.Start()
Exit Sub
End If

Next
If i > ObjetDataTable.Rows.Count - 1 Then
MsgBox("le mot de passe ou le nom d'utilisateur incorrect", MsgBoxStyle.Information)
End If
clear()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(20)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
Form2.Show()
Me.Hide()
clear()
End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("Do you want to exit?", MessageBoxButtons.YesNo)
Me.Hide()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
connection()
For i = 0 To ObjetDataTable.Rows.Count - 1
ComboBox1.Items.Add(ObjetDataTable.Rows(i).Item("pseudo").ToString)
Next
clear()
End Sub

Private Sub txtPassword_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPassword.TextChanged

End Sub
End Class
************************************************** ************************************************** ****
الشرح
هذا الكود خاص بالتعريف بالقيم المستعملة اي declaration des variables
هاهو الكود
************************************************** **************
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim ObjetConnection As SqlConnection

' Déclaration Objet Commande

Dim ObjetCommand As SqlCommand

' Déclaration Objet DataAdapter

Dim ObjetDataAdapter As SqlDataAdapter

' Déclaration Objet DataSet

Dim ObjetDataSet 'Attention au New

'String contenant la 'Requête SQL'

Dim strSql As String

' Déclaration Objet DataTable

Public ObjetDataTable As DataTable

' Déclaration Objet DataRow (ligne)

Dim ObjetDataRow As DataRow

'Numéro de la ligne en cours

Public RowNumber As Integer
'Numéro de l'enregistrement courant
'Paramêtres de connexion à la DB

Dim strConn As String
///////////////////////////////////////////
اما الكود التالي فهو خاص بالتعريف ب fonction de conexion
و هو الكونيكسيو بين قاعدة البيانات و ال vb
و هذه الفونكسيو لازم نديروها و هي الاساس
هاهو الكود :
************************
Sub connection()
ObjetDataSet = New DataSet
'Initialisation de la chaîne de paramètres pour la connexion

strConn = "Data Source=192.168.1.4;Initial Catalog=cabinet;uid=sa;pwd=sa;"
' strConn_sql = "Data Source=" + My.Computer.Name + ";Initial Catalog=cabinet;uid=sa;pwd=sa;"
'Initialisation de la chaîne contenant l'instruction SQL

strSql = "SELECT * FROM c_user "


'Instanciation d'un Objet Connexion

ObjetConnection = New SqlConnection()

'Donner à la propriété ConnectionString les paramètres de connexion

ObjetConnection.ConnectionString = strConn

'Ouvrir la connexion

Try

ObjetConnection.Open()

Catch ex As SqlException

MsgBox(ex.Message)

End Try
'Instancier un objet Commande

ObjetCommand = New SqlCommand(strSql)

'Instancier un objet Adapter

ObjetDataAdapter = New SqlDataAdapter(ObjetCommand)

'initialiser l'objet Command

ObjetCommand.Connection() = ObjetConnection

'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
'ObjetDataAdapter.Fill(ObjetDataSet2, "ts2")
ObjetDataAdapter.Fill(ObjetDataSet, "c_user")
ObjetDataTable = ObjetDataSet.Tables("c_user")
'---------------------------------------------------
'---------------------------------------------------



End Sub
///////////////////////////
و هذا الكود التالي هو تعريف لفونكسيو clear
و اللي نحتاجوها تاني و المهمة تاعها هي التجديد
******
Sub clear()
ObjetConnection = Nothing

ObjetCommand = Nothing

ObjetDataAdapter = Nothing

'Objet déconnectée

ObjetDataSet = Nothing

ObjetDataTable = Nothing

ObjetDataRow = Nothing

End Sub
***//////////////
هذا الكود التالي هو كي تكليكي على entrer
ما تبقاش الباجة تاع الدخول ...كيما تحب تحب تحطها تحب لالا
********
Private Sub txtPassword_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPassword.KeyPress
If e.KeyChar = vbCr Then
Login_Click(sender, e)
End If
End Sub
*************
اما بقية الشرح ساقوم به في المرة القادمة
اي مساعدة انا هنا
ملاحظة
ان العمل ب vb جيد و كذلك غير متعب من حيث الرسم فقط الكود لازم تكون عندك معلومات و تكون فاهمتو ....
اللي يعجبني فيه هو عدم التقيد بالماجيسكيل او وضع الفاصلة كما في الجافا ....كما انه كلما كتبت حرف تجيك قائمة فيها اقتراحات بلاما تزيد تكتب الكلمة او الجملة كامل
ممتع جدا اذا تمرنت عليه
بالمناسبة انا تعلمته في 10 ايام طبعا دراسة دون توقف

[يونس]

هذا الكود خاص بالواجهة التالية
http://im82.gulfup.com/lrdza4.png

اما بقية الشرح ساقوم به في المرة القادمة
اي مساعدة انا هنا
ملاحظة
ان العمل ب vb جيد و كذلك غير متعب من حيث الرسم فقط الكود لازم تكون عندك معلومات و تكون فاهمتو ....
اللي يعجبني فيه هو عدم التقيد بالماجيسكيل او وضع الفاصلة كما في الجافا ....كما انه كلما كتبت حرف تجيك قائمة فيها اقتراحات بلاما تزيد تكتب الكلمة او الجملة كامل
ممتع جدا اذا تمرنت عليه
بالمناسبة انا تعلمته في 10 ايام طبعا دراسة دون توقف

بارك الله فيك أختي و أسأل الله لك التوفيق

لي عودة ان شاء للإطلاع ملياً على هذه الأكواد

فأنا الآن في فترة امتحنات ... و أنا محتاج دعواتكم لي بالنجاح :)

أما بالمناسبة نحن الآن ندرس بالجافا .. و ان شاء الله سأستفيد من فكرة المشروعك كثيرا ..

شكرالك أختي ، لي عودة ان شاء الله

[simi hope]

الله يوفقك أخيتي لكل خير ، 3 في مكرة التخرج بتطبيق واحد يعني عدد الأعضاء في المذكرة كم يكون أقصاه ؟
ماهي شعبيتك ؟ ri if sitw !

[l_adel]

ما هو التخصصك و ماهية الجامعة التي تدرسين فيها

[ساجدة لربي]

kolchi mabrok khti l39ouba lel master w doctorat nchlh
"ana tani l3am hada soutnint w théme ta3i howa "les réseaux véhiculaires
!!!!! khti nti win ta9ray

[الاستاذة رجاء]

السللام عليكم
اسفة علئ تأخري في وضع الكود لسبب انقظاع الانترنت
ادرس بالمركز الجامعي لميلة
informatique general
العدد الاقصى للاعضاء في الميموار هو 3
الاسئلة كاتن حول الكود و البرنامج و مدى تطابقه مع مضمون المذكرة
و شكرا

[osmbnlkhl]

بارك الله فيك

[الاستاذة رجاء]

http://im81.gulfup.com/CKb0sS.png
سأضع الكود الخاص بهذه الواجهة و هو كود الخاص بالازرار ajouter modifier .supprimer et annuler

[الاستاذة رجاء]

Imports System.Data
Imports System.Data.SqlClient
Public Class Form8
Dim ObjetConnection_sql As SqlConnection
' Déclaration Objet Commande
Dim ObjetCommand_sql As SqlCommand
' Déclaration Objet DataAdapter
Dim ObjetDataAdapter_sql As SqlDataAdapter
' Déclaration Objet DataSet
Dim ObjetDataSet_sql As New DataSet 'Attention au New
'String contenant la 'Requête SQL'
Dim strSql_sql As String
' Déclaration Objet DataTable
Dim ObjetDataTable_sql As DataTable
' Déclaration Objet DataRow (ligne)
Dim strConn_sql As String

Sub connection_sql()
'strConn = "Data Source=" + My.Computer.Name + "\SQLExpress;;Initial Catalog=test;uid=sa;pwd=sa;"
strConn_sql = "Data Source=192.168.1.4;Initial Catalog=cabinet;uid=sa;pwd=sa;"
'Instanciation d'un Objet Connexion
ObjetConnection_sql = New SqlConnection()
'Donner à la propriété ConnectionString les paramètres de connexion
ObjetConnection_sql.ConnectionString = strConn_sql
'Ouvrir la connexion
Try

ObjetConnection_sql.Open()

Catch ex As SqlException

MsgBox(ex.Message)

End Try



'Instancier un objet Commande

ObjetCommand_sql = New SqlCommand(strSql_sql)

'Instancier un objet Adapter

ObjetDataAdapter_sql = New SqlDataAdapter(ObjetCommand_sql)

'initialiser l'objet Command

ObjetCommand_sql.Connection() = ObjetConnection_sql

'Avec l'aide de la propriété Fill du DataAdapter charger le DataSetF
'ObjetDataAdapter.Fill(ObjetDataSet2, "ts2")
ObjetDataAdapter_sql.Fill(ObjetDataSet_sql, "comp")
ObjetDataTable_sql = ObjetDataSet_sql.Tables("comp")
End Sub

Sub clear_sql()
ObjetConnection_sql = Nothing

ObjetCommand_sql = Nothing

ObjetDataAdapter_sql = Nothing

'Objet déconnectée

ObjetDataSet_sql = Nothing

ObjetDataTable_sql = Nothing
ObjetDataSet_sql = New DataSet
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String = ""
If TextBox2.Text = "" Or TextBox3.Text = "" Or ComboBox3.Text = "" Or ComboBox1.Text = "" Or TextBox1.Text = "" Then
MsgBox("Il ya des champs vides,voulez vous les remplit???", MsgBoxStyle.Exclamation)
Else


If CheckedListBox1.CheckedItems.Count > 0 Then
For i As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
s += CheckedListBox1.CheckedItems(i)
Next
End If

ObjetCommand_sql.CommandText = "INSERT INTO comp (nom_p,pren_p,mod_pay,mont_suiv,comt,dat_pay,num_f ) Values('" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox3.Text & "','" & ComboBox1.Text & "','" & s & "','" & CDate(DateTimePicker1.Text).ToString("MM/dd/yyyy HH:mm:ss") & "','" & TextBox1.Text & "')"
ObjetCommand_sql.ExecuteNonQuery()
MsgBox("L'insertion ce fait avec succee", MsgBoxStyle.Information)

clear_sql()
connection_sql()
DataGridView1.DataSource = ObjetDataTable_sql
End If
End Sub

Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
strSql_sql = "select * from comp"
connection_sql()
DataGridView1.DataSource = ObjetDataTable_sql
End Sub


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim s As String = ""
If CheckedListBox1.CheckedItems.Count > 0 Then
For i As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
s += CheckedListBox1.CheckedItems(i)
Next
End If
ObjetCommand_sql.CommandText = "UPDATE comp SET nom_p ='" & TextBox2.Text & "',pren_p = '" & TextBox3.Text & "',mod_pay = '" & ComboBox3.Text & "',mont_suiv = '" & ComboBox1.Text & "',comt = '" & s & "',dat_pay = '" & CDate(DateTimePicker1.Text).ToString("MM/dd/yyyy HH:mm:ss") & "' WHERE num_f = '" & TextBox1.Text & "'"
ObjetCommand_sql.ExecuteNonQuery()
MsgBox("voulez vous vraiment modifier?", MsgBoxStyle.YesNo)

clear_sql()
connection_sql()
DataGridView1.DataSource = ObjetDataTable_sql
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ObjetCommand_sql.CommandText = " delete from comp where num_f = '" & TextBox1.Text & "'"
ObjetCommand_sql.ExecuteNonQuery()
MsgBox("voulez vous vraiment le suprimer?", MsgBoxStyle.YesNo)

clear_sql()
connection_sql()
DataGridView1.DataSource = ObjetDataTable_sql
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Do you want to exit?", MessageBoxButtons.YesNo)
Me.Hide()

End Sub

Private Sub CheckedListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckedListBox1.SelectedIndexChanged

End Sub
End Class

[l_adel]

tu ai travaillé en monome ?

[الاستاذة رجاء]

tu ai travaillé en monome ?

لا لا خدمنا في 3