05-10-13, 02:46 AM
عند الدخول الى الواجهة تظهر الرساله التاليه
وعند ادخال البيانات والضغط على زر الحفظ تظهر الرساله نفسها وكمان رساله اخرى
الواجهة
كود زر الحفظ
وهذا كودزر الحذف اذا وجد فيه اي خطاء
يرجاء المساعده باسرع وقت ممكن وشكرا
وعند ادخال البيانات والضغط على زر الحفظ تظهر الرساله نفسها وكمان رساله اخرى
الواجهة
كود زر الحفظ
PHP كود :
If Trim(Text1) = "" Then
MsgBox "...أدخل رقم التلفون", vbExclamation, "رسالة تنبيه"
Me.Text1.SetFocus
Exit Sub
End If
Dim Rs As New ADODB.Recordset
Dim Rs1 As New ADODB.Recordset
Dim Rs2 As New ADODB.Recordset
Dim SQLs As String
Dim S As Integer
If ck = True Then
Exit Sub
End If
SQLs = "Select * From AddSek where NameAdd='" & Trim(Text1.Text) & "'"
If Rs.State = adStateOpen Then Rs.Close
If Rs1.State = adStateOpen Then Rs1.Close
If Rs2.State = adStateOpen Then Rs2.Close
Rs.Open SQLs, CN, adOpenKeyset, adLockPessimistic
Rs1.Open SQLs, CN, adOpenKeyset, adLockPessimistic
Rs2.Open SQLs, CN, adOpenKeyset, adLockPessimistic
If Rs.RecordCount < 1 And Rs1.RecordCount < 1 And Rs2.RecordCount < 1 Then
Rs.AddNew
Rs1.AddNew
Rs2.AddNew
Rs.Fields(0) = Text1.Text
Rs1.Fields(1) = Text3.Text
Rs2.Fields(2) = Text4.Text
Rs.Update
Rs.Requery
Rs1.Update
Rs1.Requery
Rs2.Update
Rs2.Requery
MsgBox "تمت عملية الحفظ بنجاح ", vbInformation, "حفظ"
FillCombo Lab.Combo1, "select NameAdd from AddSek"
FillCombo AddName.Combo1, "select NameAdd from AddSek"
Else
MsgBox "يوجد خطأ اثناء الحفظ --- رقم التلفون مسجل من قبل", vbCritical, "خطأ"
End If
ClearAll Me, Text2
ck = False
وهذا كودزر الحذف اذا وجد فيه اي خطاء
PHP كود :
If Trim(Text1) = "" Then
MsgBox "áÇÊæÌÏ ÈíÇäÇÊ ãÚÑæÖÉ áÍÐÝåÇ", vbExclamation, "ÑÓÇáÉ ÊäÈíå"
Exit Sub
End If
Dim b As Integer
b = MsgBox("åá ÇäÊ ãÊÃßÏ ãä ÚãáíÉ ÇáÍÐÝ", vbExclamation + vbYesNo, "ÇäÊÈå-- ÍÐÝ ÇÓã ãÑíÖ")
If b = vbYes Then
CN.Execute "delete from AddSek where NameAdd = '" & Trim(Text1.Text) & "'"
Text1.SetFocus
ClearAll Me, Text1
MsgBox "ÊãÊ ÚãáíÉ ÍÐÝ ÇáãÑíÖ ÈäÌÇÍ", vbInformation, "ÍÐÝ "
End If
FillCombo Lab.Combo1, "select NameAdd from AddSek"
FillCombo AddName.Combo1, "select NameAdd from AddSek"
ClearAll Me, Text2
يرجاء المساعده باسرع وقت ممكن وشكرا