تصميم برنامج لكتابات الواردة و الصادرة

ملاحظة كل ثلاثة ايام راح اشوفها و راح اضيف قدر الامكان 

برمجة البرنامج

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

تحياتى واحترامى اخى الكريم

الفورم الاول

Private Sub EmptyText()
Text2.Text = ""
Text3.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub
Private Sub Command1_Click()
'Timer1.Enabled = True
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
    InPut1.AddNew
    If Text1.Text <> "" Then InPut1.Fields(0) = Text1.Text
    If Text2.Text <> "" Then InPut1.Fields(1) = Text2.Text Else MsgBox "ÑÞã ÇáßÊÇÈ ÝÇÑÛ ": Text2.SetFocus: Exit Sub
    If Text3.Text <> "" Then InPut1.Fields(2) = Text3.Text Else MsgBox "ÊÇÑíÎ ÇÕÏÇÑ ÇáßÊÇÈ ÝÇÑÛ ": Text3.SetFocus: Exit Sub
    If Text4.Text <> "" Then InPut1.Fields(3) = Text4.Text
    If Text5.Text <> "" Then InPut1.Fields(4) = Text5.Text Else MsgBox "ÌåÉ ÇÕÏÇÑ ÇáßÊÇÈ ÝÇÑÛ ": Text5.SetFocus: Exit Sub
    If Text6.Text <> "" Then
       Dim sDest As String
       Dim sSource As String
           sSource = "d:\pdf\1.pdf"
           Text6.Text = App.Path + "\" + "picdata\inputpic\" + Text1.Text + ".pdf"
           sDest = Text6.Text '"D:\AZAD\picdata\inputpic\" + CStr(Text1.Text) + ".pdf"
           FileCopy sSource, sDest
           InPut1.Fields(5) = Text6.Text
    Else
          MsgBox "there is no picture to upload with ricord so upload the picture "
          Exit Sub
    End If
    If Text7.Text <> "" Then InPut1.Fields(6) = Text7.Text
    If Text8.Text <> "" Then InPut1.Fields(7) = Text8.Text
 InPut1.Update
 InPut1.Close
 Set Test = Azad.OpenRecordset("test", dbOpenDynaset)
   
   ' ÇáÒíÇÏÉ ÇáÊÓáÓá ÇáæÇÑÏ
   Test.Edit
   Test.Fields(0) = Val(Text1.Text)
   Test.Update
   Text1.Text = ""
   Text1.Text = Val(Test.Fields(0)) + 1
   Test.Close
   'äåÇíÉ ÇáÊÓáÓá
 Azad.Close
 'EmptyText
 
End Sub

Private Sub Command10_Click()

End Sub


Private Sub Command11_Click()
Shell "C:\Program Files\Nitro PDF\Professional\NitroPDF.exe", vbHide
Text6.Text = "d:\pdf\1.pdf"
End Sub








Private Sub Command3_Click()

Dim FFF
FFF = InputBox("ÇÏÎá ÑÞã ÇáßÊÇÈ ÇáãÑÇÏ ÇáÈÍË ÚäåÇ ãä ÝÖáß:", "ÈÍË")
If Trim(FFF) = "" Then MsgBox "ÇÏÎá ÑÞã ÇáßÊÇÈ ÇæáÇ": Exit Sub
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
Do While Not (InPut1.EOF)
If Trim(FFF) = InPut1.Fields(1) Then
  
   Text1.Text = InPut1.Fields(0)
   Text2.Text = InPut1.Fields(1)
   Text3.Text = InPut1.Fields(2)
   'Text4.Text = InPut1.Fields(3)
   Text5.Text = InPut1.Fields(4)
   Text7.Text = InPut1.Fields(6)
   Text6.Text = InPut1.Fields(5)
 Exit Sub
 
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
 
MsgBox "åÐÇ ÇáÑÞã ÛíÑ ãæÌæÏ Ýí ÓÌáÇÊß"

End Sub



Private Sub Command5_Click()
Dim Del
      Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
      Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
      Del = Trim(Text1.Text)
      InPut1.MoveFirst
      Do While Not (InPut1.EOF)
         If Trim(Del) = Trim(InPut1.Fields(0)) Then
            InPut1.Delete
           
          InPut1.Close
          Azad.Close
          Exit Sub
         
         End If
         InPut1.MoveNext
      Loop
      InPut1.Close
      Azad.Close
End Sub



Private Sub Command7_Click()
Me.Hide
Form4.Show
'WebBrowser1.Navigate App.Path & "\usermanual.pdf"
'WebBrowser1.Navigate App.Path & "\picdata\pictures\8.pdf"
'ShellExecute Me.hWnd, "open", "D:\AZAD\picdata\picures\5.pdf", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Private Sub Command9_Click()

End Sub

Private Sub Command8_Click()
End
End Sub

Private Sub Form_Load()
If Userserch = True Then Command3.Enabled = True
If Useradd = True Then Command1.Enabled = True

If Userdelete = True Then Command5.Enabled = True
Text8.Text = USERNAME
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set Test = Azad.OpenRecordset("test", dbOpenDynaset)
Text1.Text = Val(Test.Fields(0)) + 1
Test.Close
Azad.Close
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If
End Sub

Private Sub Timer1_Timer()
Text4.Text = Date + Time
End Sub

الفورم الثاني

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Command1_Click()
Shell "C:\Program Files\Nitro PDF\Professional\NitroPDF.exe", vbHide
Text6.Text = "d:\pdf\1.pdf"
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Me.Hide
Form4.Show
End Sub

Private Sub Command4_Click()

Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
    OutPut.AddNew
    If Text6.Text <> "" Then
       Dim sDest As String
       Dim sSource As String
           sSource = "d:\pdf\1.pdf"
           Text6.Text = App.Path + "\" + "picdata\outputpic\" + Text1.Text + ".pdf"
           sDest = Text6.Text '"D:\AZAD\picdata\inputpic\" + CStr(Text1.Text) + ".pdf"
           FileCopy sSource, sDest
           OutPut.Fields(6) = Text6.Text
    Else
          MsgBox "áíÓ åäÇß Çí ÕæÑÉ ááßÊÇÈ "
          Exit Sub
    End If
    If Text1.Text <> "" Then OutPut.Fields(0) = Text1.Text
    If Text2.Text <> "" Then OutPut.Fields(1) = Text2.Text Else MsgBox "ÑÞã ÇáßÊÇÈ ÝÇÑÛ ": Text2.SetFocus: Exit Sub
    If Text3.Text <> "" Then OutPut.Fields(2) = Text3.Text Else MsgBox "ÊÇÑíÎ ÇÕÏÇÑ ÇáßÊÇÈ ÝÇÑÛ ": Text3.SetFocus: Exit Sub
    If Text4.Text <> "" Then OutPut.Fields(3) = Text4.Text
    If Text5.Text <> "" Then OutPut.Fields(4) = Text5.Text Else MsgBox "ÌåÉ ÇÕÏÇÑ ÇáßÊÇÈ ÝÇÑÛ ": Text5.SetFocus: Exit Sub
    If Text9.Text <> "" Then OutPut.Fields(5) = Text9.Text Else MsgBox "ÌåÉ ÇáãÕÏÑÉ ÝÇÑÛ ": Text9.SetFocus: Exit Sub
    
    If Text7.Text <> "" Then OutPut.Fields(7) = Text7.Text
    If Text8.Text <> "" Then OutPut.Fields(8) = Text8.Text
 OutPut.Update
 OutPut.Close
 Set sadRT = Azad.OpenRecordset("sadrta", dbOpenDynaset)
   
   ' ÇáÒíÇÏÉ ÇáÊÓáÓá ÇáæÇÑÏ
   sadRT.Edit
   sadRT.Fields(0) = Val(Text1.Text)
   sadRT.Update
   Text1.Text = ""
   Text1.Text = Val(sadRT.Fields(0)) + 1
   sadRT.Close
   'äåÇíÉ ÇáÊÓáÓá
 Azad.Close
 'EmptyText
Text2.Text = ""
Text3.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text9.Text = ""


End Sub

Private Sub Command6_Click()

End Sub

Private Sub Form_Load()
If Userserch = True Then Command5.Enabled = True
If Useradd = True Then Command4.Enabled = True
Text8.Text = USERNAME
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set sadRT = Azad.OpenRecordset("sadrta", dbOpenDynaset)
Text1.Text = Val(sadRT.Fields(0)) + 1
sadRT.Close
Azad.Close

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text9.SetFocus
End If
End Sub

Private Sub Text9_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.SetFocus
End If
End Sub

Private Sub Timer1_Timer()
Text4.Text = Date + Time
End Sub

الفورم الثالث

Option Explicit
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
                    ByVal hwnd As Long, _
                    ByVal lpOperation As String, _
                    ByVal lpFile As String, _
                    ByVal lpParameters As String, _
                    ByVal lpDirectory As String, _
                    ByVal nShowCmd As Long) As Long
 
Private Const SW_HIDE As Long = 0
Private Const SW_SHOWNORMAL As Long = 1
Private Const SW_SHOWMAXIMIZED As Long = 3
Private Const SW_SHOWMINIMIZED As Long = 2


Private Sub Command1_Click()
Form4.Show
Me.Hide

End Sub

Private Sub Command2_Click()
End

End Sub





Private Sub Command3_Click()
Dim sSs
MSFlexGrid1.Rows = 0
If Trim(Text4.Text) <> "" And Trim(Text5.Text) = "" Or Trim(Text4.Text) = "" And Trim(Text5.Text) <> "" Then MsgBox "áÇ íÌæÒ  íÌÈ ÇÏÎÇá ãä ÊÇÑíÎ Çáì ÊÇÑíÎ ÍÊì íÈÍË ÈÔß ÕÍíÍ": Text5.SetFocus: Exit Sub
' bahs aaam
If Trim(Text1.Text) = "" And Trim(Text2.Text) = "" And Trim(Text3.Text) = "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
     End With
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If

'ttttttttt

'raqam al kitab
If Trim(Text1.Text) <> "" And Trim(Text2.Text) = "" And Trim(Text3.Text) = "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If

'jhat isdar
If Trim(Text1.Text) = "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) = "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If

'tarikh isdar
If Trim(Text1.Text) = "" And Trim(Text2.Text) = "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If

'min ila

If Trim(Text1.Text) = "" And Trim(Text2.Text) = "" And Trim(Text3.Text) = "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text4.Text) = OutPut.Fields(3) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If


'raqam + jhat isdar
If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) = "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(InPut1.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If

'raqam + tarikh isdar
If Trim(Text1.Text) <> "" And Trim(Text2.Text) = "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(InPut1.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If
' raqm + min
If Trim(Text1.Text) <> "" And Trim(Text2.Text) = "" And Trim(Text3.Text) = "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text4.Text))) = Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If

'raqam +  min ila
If Trim(Text1.Text) <> "" And Trim(Text2.Text) = "" And Trim(Text3.Text) = "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If
'raqam+jhat isdar+ tarikh isdar
If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(InPut1.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) And Trim(Mid$(InPut1.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If
'raqam + jhat isdar + min ila
If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) = "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(InPut1.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If
' raqam + tarikh isdar + min ila
If Trim(Text1.Text) <> "" And Trim(Text2.Text) = "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(InPut1.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If
'raqam + jhat isdar + tarikh isdar + min ila
If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(InPut1.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) And Trim(Mid$(InPut1.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If
'jhat isdar + tarikh isdar
If Trim(Text1.Text) = "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) And Trim(Mid$(InPut1.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If
'jhat isdar + min ila
If Trim(Text1.Text) = "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) = "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If
' jhat isdar + tarikh isdar + min ila
If Trim(Text1.Text) = "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) And Trim(Mid$(InPut1.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If
' tarikh isdar + min ila
If Trim(Text1.Text) = "" And Trim(Text2.Text) = "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (InPut1.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(InPut1.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) And Trim(Mid$(InPut1.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(InPut1.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = InPut1.Fields(0)
       If Trim(InPut1.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = InPut1.Fields(1)
       If Trim(InPut1.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = InPut1.Fields(2)
       If Trim(InPut1.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = InPut1.Fields(3)
       If Trim(InPut1.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = InPut1.Fields(4)
       If Trim(InPut1.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = InPut1.Fields(5)
       If Trim(InPut1.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = InPut1.Fields(6)
       If Trim(InPut1.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = InPut1.Fields(7)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
InPut1.MoveNext
Loop
InPut1.Close
Azad.Close
Exit Sub
End If


End Sub


Private Sub Form_Load()
Text6.Text = USERNAME
 If Userserch = True Then Command3.Enabled = True


'ShellExecute Me.hwnd, "open", App.Path & "\your.pdf", vbNullString, vbNullString, SW_SHOWNORMAL
'ShellExecute Me.hwnd, "open", "D:\AZAD\picdata\picures\4.pdf", vbNullString, vbNullString, SW_SHOWNORMAL
 
 
End Sub

Private Sub Form_Resize()
     On Error Resume Next

    With MSFlexGrid1
        .Cols = 8
        .ColAlignment(0) = 3
        .ColAlignment(1) = 3
        .ColAlignment(2) = 3
        .ColAlignment(3) = 3
        .ColAlignment(4) = 3
        .ColAlignment(5) = 3
        .ColAlignment(6) = 3
        .ColAlignment(7) = 3

       
        
        .ColWidth(0) = 1500
        .ColWidth(1) = 1500
        .ColWidth(2) = 1500
        .ColWidth(3) = 2000
        .ColWidth(4) = 1500
        .ColWidth(5) = 3000
        .ColWidth(6) = 5500
        .ColWidth(7) = 2000
        
    End With
End Sub

Private Sub MSFlexGrid1_DblClick()
If MSFlexGrid1.Rows = 0 Then MsgBox " there is no data ": Exit Sub
Form7.Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 0)
Form7.Text2.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 1)
Form7.Text3.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 2)
Form7.Text4.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 3)
Form7.Text5.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 4)
Form7.Text6.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 5)
Form7.WebBrowser1.Navigate MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 5)
Form7.Text7.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 6)

Form7.Show
End Sub

الفورم الرابع

Private Sub Command1_Click()
Form1.Show
Me.Hide

End Sub

Private Sub Command2_Click()
Form2.Show
Me.Hide

End Sub

Private Sub Command3_Click()
Form3.Show
Me.Hide

End Sub

Private Sub Command4_Click()
Form6.Show
Me.Hide

End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Command6_Click()
Form8.Show
Me.Hide
End Sub

Private Sub Form_Load()
If UseruSERS = True Then Command4.Enabled = True
If Userserch = True Then Command3.Enabled = True: Command6.Enabled = True
If Useruot = True Then Command2.Enabled = True
If Userin = True Then Command1.Enabled = True
End Sub

الفورم الخامس

Private Sub Command1_Click()
If Trim(Text1.Text) = "" Then
   MsgBox "ÇÏÎá ÇÓã ÇáãÓÊÎÏã"
   Text1.SetFocus
   Text1.Text = ""
   Exit Sub
Else
   If Trim(Text2.Text) = "" Then
      MsgBox "ÇÏÎá ßáãÉ ÇáãÑæÑ"
      Text2.SetFocus
      Text2.Text = ""
      Exit Sub
   Else
      Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
      Set UsersS = Azad.OpenRecordset("USERS", dbOpenDynaset)
      UsersS.MoveFirst
      Do While Not (UsersS.EOF)
         If Trim(Text1.Text) = UsersS.Fields(2) And Trim(Text2.Text) = UsersS.Fields(3) Then
            USERNAME = UsersS.Fields(1)
            UseruSERS = UsersS.Fields(4).Value
            Useradd = UsersS.Fields(5).Value
            Userserch = UsersS.Fields(6).Value
            Useredit = UsersS.Fields(7).Value
            Userdelete = UsersS.Fields(8).Value
            Useruot = UsersS.Fields(9).Value
            Userin = UsersS.Fields(10).Value
            'H = UsersS.Fields(11).Value
            
            Me.Hide
            Form4.Show
      UsersS.Close
      Azad.Close
      Exit Sub
         
         End If
         UsersS.MoveNext
      Loop
      UsersS.Close
      Azad.Close
   End If
End If
 


MsgBox "ÇÓã ÇáãÓÊÎÏã Çæ ßáãÉ ÇáãÑæÑ ÎÇØÆ ÍÇæá ãÑÉ ÇÎÑì"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub Label3_Click()
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE https://www.facebook.com/abochra1"
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label3.MousePointer = 12
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1.SetFocus
End Sub

الفورم السادس

Dim PPP

Private Sub Command1_Click()
      Dim Del
      Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
      Set UsersS = Azad.OpenRecordset("USERS", dbOpenDynaset)
      Del = Trim(Text5.Text)
      UsersS.MoveFirst
      Do While Not (UsersS.EOF)
         If Trim(Del) = Trim(UsersS.Fields(0)) Then
            UsersS.Delete
            Emtext
          UsersS.Close
          Azad.Close
          Exit Sub
         
         End If
         UsersS.MoveNext
      Loop
      UsersS.Close
      Azad.Close
End Sub

Private Sub Command2_Click()
GfG = 1
Command5.Enabled = False
     Dim NoB
      Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
      Set UsersS = Azad.OpenRecordset("USERS", dbOpenDynaset)
      NoB = InputBox("Enter the users Number :", "Find")
      UsersS.MoveFirst
      Do While Not (UsersS.EOF)
         If Trim(NoB) = Trim(UsersS.Fields(0)) Then
            Text5.Enabled = False
            Text5.Text = UsersS.Fields(0)
            Text1.Text = UsersS.Fields(1)
            Text2.Text = UsersS.Fields(2)
            Text3.Text = UsersS.Fields(3)
            Text4.Text = UsersS.Fields(3)
            If UsersS.Fields(4).Value = True Then Check1.Value = 1
            If UsersS.Fields(5).Value = True Then Check2.Value = 1
            If UsersS.Fields(6).Value = True Then Check3.Value = 1
            If UsersS.Fields(7).Value = True Then Check4.Value = 1
            If UsersS.Fields(8).Value = True Then Check5.Value = 1
            If UsersS.Fields(9).Value = True Then Check6.Value = 1
            If UsersS.Fields(10).Value = True Then Check7.Value = 1
      UsersS.Close
      Azad.Close
      Exit Sub
         
         End If
         UsersS.MoveNext
      Loop
      UsersS.Close
      Azad.Close
End Sub

Private Sub Command3_Click()
Form6.Hide
Form4.Show

End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Command5_Click()
 GfG = 0
 If Trim(Text5.Text) = "" Then
    MsgBox "id number is empty"
    Text5.SetFocus
    Exit Sub
 Else
    If Trim(Text1.Text) = "" Then
       MsgBox ""
       Text1.SetFocus
       Exit Sub
    Else
       If Trim(Text2.Text) = "" Then
          MsgBox ""
          Text2.SetFocus
          Exit Sub
       Else
          If Trim(Text3.Text) = "" Then
             MsgBox ""
             Text3.SetFocus
             Exit Sub
          Else
             If Trim(Text4.Text) = "" Then
                MsgBox ""
                Text4.SetFocus
                Exit Sub
             Else
                If Trim(Text3.Text) = Trim(Text4.Text) Then
                   Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
                   Set UsersS = Azad.OpenRecordset("USERS", dbOpenDynaset)
                       UsersS.AddNew
                       UsersS.Fields(0) = Trim(Text5.Text)
                       UsersS.Fields(1) = Trim(Text1.Text)
                       UsersS.Fields(2) = Trim(Text2.Text)
                       UsersS.Fields(3) = Trim(Text3.Text)
                       'UsersS.Fields(4) = Trim(Text4.Text)
                       If Check1.Value = 1 Then UsersS.Fields(4) = True
                       If Check2.Value = 1 Then UsersS.Fields(5) = True
                       If Check3.Value = 1 Then UsersS.Fields(6) = True
                       If Check4.Value = 1 Then UsersS.Fields(7) = True
                       If Check5.Value = 1 Then UsersS.Fields(8) = True
                       If Check6.Value = 1 Then UsersS.Fields(9) = True
                       If Check7.Value = 1 Then UsersS.Fields(10) = True
                       UsersS.Update
                       Emtext
                       Exit Sub
                   UsersS.Close
                   Azad.Close
                   
                Else
                   MsgBox "The password is not equal"
                   Text3.Text = ""
                   Text3.SetFocus
                   Text4.Text = ""
                End If
             End If
          End If
       End If
    End If
 End If
 
End Sub

Private Sub Command6_Click()
GfG = 0
Command5.Enabled = True
 If Trim(Text5.Text) = "" Then
    MsgBox "id number is empty"
    Text5.SetFocus
    Exit Sub
 Else
    If Trim(Text1.Text) = "" Then
       MsgBox ""
       Text1.SetFocus
       Exit Sub
    Else
       If Trim(Text2.Text) = "" Then
          MsgBox ""
          Text2.SetFocus
          Exit Sub
       Else
          If Trim(Text3.Text) = "" Then
             MsgBox ""
             Text3.SetFocus
             Exit Sub
          Else
             If Trim(Text4.Text) = "" Then
                MsgBox ""
                Text4.SetFocus
                Exit Sub
             Else
                If Trim(Text3.Text) = Trim(Text4.Text) Then
                   'hhhhhhhhhhhhhh
                    Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
                    Set UsersS = Azad.OpenRecordset("USERS", dbOpenDynaset)
                    UsersS.MoveFirst
                    Do While Not (UsersS.EOF)
                       If Trim(Text5.Text) = Trim(UsersS.Fields(0)) Then
                       
                       'Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
                       'Set UsersS = Azad.OpenRecordset("USERS", dbOpenDynaset)
                           UsersS.Edit
                           UsersS.Fields(0) = Trim(Text5.Text)
                           UsersS.Fields(1) = Trim(Text1.Text)
                           UsersS.Fields(2) = Trim(Text2.Text)
                           UsersS.Fields(3) = Trim(Text3.Text)
                           If Check1.Value = 1 Then UsersS.Fields(4) = True Else UsersS.Fields(4) = False
                           If Check2.Value = 1 Then UsersS.Fields(5) = True Else UsersS.Fields(5) = False
                           If Check3.Value = 1 Then UsersS.Fields(6) = True Else UsersS.Fields(6) = False
                           If Check4.Value = 1 Then UsersS.Fields(7) = True Else UsersS.Fields(7) = False
                           If Check5.Value = 1 Then UsersS.Fields(8) = True Else UsersS.Fields(8) = False
                           If Check6.Value = 1 Then UsersS.Fields(9) = True Else UsersS.Fields(9) = False
                           If Check7.Value = 1 Then UsersS.Fields(10) = True Else UsersS.Fields(10) = False
                           UsersS.Update
                           Emtext
                           Exit Sub
                   UsersS.Close
                   Azad.Close
                
         
                        End If
                        UsersS.MoveNext
                   Loop
                   UsersS.Close
                   Azad.Close
                  'hhhhhhhhhhhhh
                   
                   
                Else
                   MsgBox "The password is not equal"
                   Text3.Text = ""
                   Text3.SetFocus
                   Text4.Text = ""
                End If
             End If
          End If
       End If
    End If
 End If

End Sub
Private Sub Emtext()
Text5.Text = "": Text5.Enabled = True
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Check1.Value = 0
Check2.Value = 0
Check3.Value = 0
Check4.Value = 0
Check5.Value = 0
Check6.Value = 0
Check7.Value = 0
Text5.SetFocus
End Sub

Private Sub Form_Load()
If Useradd = True Then Command5.Enabled = True
If Userserch = True Then Command2.Enabled = True
If Useredit = True Then Command6.Enabled = True
If Userdelete = True Then Command1.Enabled = True
'If Userin = True Then Command6.Enabled = True
Dim GfG
GfG = 0
End Sub

الفورم السابع

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Me.Hide
Form3.Show
End Sub

Private Sub Command3_Click()
If Command3.Caption = "ÊÚÏíá ÇáßÊÇÈ" Then
WebBrowser1.Visible = False
Command3.Caption = "ÍÝÙ ÇáßÊÇÈ"
       Dim sDest2 As String
       Dim sSource2 As String
           sSource2 = App.Path + "\" + "picdata\inputpic\" + Text1.Text + ".pdf"
           sDest2 = "d:\pdf\1.pdf"
           FileCopy sSource2, sDest2
           Shell "C:\Program Files\Nitro PDF\Professional\NitroPDF.exe d:\pdf\1.pdf"
Exit Sub
Else
  If Command3.Caption = "ÍÝÙ ÇáßÊÇÈ" Then
     
       Dim sDest1
       Dim sSource1
           sSource1 = "d:\pdf\1.pdf"
           sDest1 = App.Path + "\" + "picdata\inputpic\" + Text1.Text + ".pdf"
           FileCopy sSource1, sDest1
          WebBrowser1.Visible = True
          WebBrowser1.Navigate Text6.Text
     Command3.Caption = "ÊÚÏíá ÇáßÊÇÈ"
     Exit Sub
  Else
  End If
End If
End Sub

Private Sub Command4_Click()
Dim Del

      Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
      Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
      Del = Trim(Text1.Text)
      InPut1.MoveFirst
      Do While Not (InPut1.EOF)
         If Trim(Del) = Trim(InPut1.Fields(0)) Then
            'edit
            InPut1.Edit
            If Trim(Text1.Text) <> "" Then InPut1.Fields(0) = Trim(Text1.Text)
            If Trim(Text2.Text) <> "" Then InPut1.Fields(1) = Trim(Text2.Text)
            If Trim(Text3.Text) <> "" Then InPut1.Fields(2) = Trim(Text3.Text)
            If Trim(Text4.Text) <> "" Then InPut1.Fields(3) = Trim(Text4.Text)
            If Trim(Text5.Text) <> "" Then InPut1.Fields(4) = Trim(Text5.Text)
            If Trim(Text6.Text) <> "" Then InPut1.Fields(5) = Trim(Text6.Text)
            If Trim(Text7.Text) <> "" Then InPut1.Fields(6) = Trim(Text7.Text)
            If Trim(Text8.Text) <> "" Then InPut1.Fields(7) = "ÇÎÑ ÊÚÏíá /" + Trim(Text8.Text)
            
            InPut1.Update
          
          InPut1.Close
          Azad.Close
          Text1.Text = ""
          Text2.Text = ""
          Text3.Text = ""
          Text4.Text = ""
          Text5.Text = ""
          Text6.Text = ""
          Text7.Text = ""
          WebBrowser1.Navigate ""
          Exit Sub
         
         End If
         InPut1.MoveNext
      Loop
      InPut1.Close
      Azad.Close
End Sub

Private Sub Command5_Click()
Dim Del

      Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
      Set InPut1 = Azad.OpenRecordset("InPut", dbOpenDynaset)
      Del = Trim(Text1.Text)
      InPut1.MoveFirst
      Do While Not (InPut1.EOF)
         If Trim(Del) = Trim(InPut1.Fields(0)) Then
            'edit
            InPut1.Delete
            Kill App.Path + "\" + "picdata\inputpic\" + Text1.Text + ".pdf"
            
            
           'edit
          InPut1.Close
          Azad.Close
          Text1.Text = ""
          Text2.Text = ""
          Text3.Text = ""
          Text4.Text = ""
          Text5.Text = ""
          Text6.Text = ""
          Text7.Text = ""
          WebBrowser1.Navigate ""
          Exit Sub
         
         End If
         InPut1.MoveNext
      Loop
      InPut1.Close
      Azad.Close
End Sub


Private Sub Form_Load()

If Useredit = True Then Command4.Enabled = True
If Userdelete = True Then Command5.Enabled = True

Text8.Text = USERNAME
End Sub

الفورم الثامن

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Dim sSs
MSFlexGrid1.Rows = 0
If Trim(Text4.Text) <> "" And Trim(Text5.Text) = "" Or Trim(Text4.Text) = "" And Trim(Text5.Text) <> "" Then MsgBox "áÇ íÌæÒ  íÌÈ ÇÏÎÇá ãä ÊÇÑíÎ Çáì ÊÇÑíÎ ÍÊì íÈÍË ÈÔß ÕÍíÍ": Text5.SetFocus: Exit Sub
' bahs aaam
If Trim(Text1.Text) = "" And Trim(Text2.Text) = "" And Trim(Text3.Text) = "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
'If Trim(Mid$(InPut1.Fields(4), 1, Len(Text8.Text))) = Trim(Mid$(Text8.Text, 1, Len(Text8.Text))) And Trim(Mid$(InPut1.Fields(1), 1, Len(Text7.Text))) = Trim(Mid$(Text7.Text, 1, Len(Text7.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
'End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If

'raqam al kitab
If Trim(Text1.Text) <> "" And Trim(Text2.Text) = "" And Trim(Text3.Text) = "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If

'jhat isdar
If Trim(Text1.Text) = "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) = "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If

'tarikh isdar
If Trim(Text1.Text) = "" And Trim(Text2.Text) = "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If

'min ila


If Trim(Text1.Text) = "" And Trim(Text2.Text) = "" And Trim(Text3.Text) = "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text4.Text) = OutPut.Fields(3) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If


'raqam + jhat isdar
If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) = "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(OutPut.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If
'raqam + tarikh isdar
If Trim(Text1.Text) <> "" And Trim(Text2.Text) = "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(OutPut.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If

'raqam +  min ila
If Trim(Text1.Text) <> "" And Trim(Text2.Text) = "" And Trim(Text3.Text) = "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If
'raqam+jhat isdar+ tarikh isdar
If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(OutPut.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) And Trim(Mid$(OutPut.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If
'raqam + jhat isdar + min ila
If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) = "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(OutPut.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If
' raqam + tarikh isdar + min ila
If Trim(Text1.Text) <> "" And Trim(Text2.Text) = "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(OutPut.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If
'raqam + jhat isdar + tarikh isdar + min ila
If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(1), 1, Len(Text1.Text))) = Trim(Mid$(Text1.Text, 1, Len(Text1.Text))) And Trim(Mid$(OutPut.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) And Trim(Mid$(OutPut.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If
'jhat isdar + tarikh isdar
If Trim(Text1.Text) = "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) = "" And Trim(Text5.Text) = "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) And Trim(Mid$(OutPut.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If
'jhat isdar + min ila
If Trim(Text1.Text) = "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) = "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If
' jhat isdar + tarikh isdar + min ila
If Trim(Text1.Text) = "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(4), 1, Len(Text2.Text))) = Trim(Mid$(Text2.Text, 1, Len(Text2.Text))) And Trim(Mid$(OutPut.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If
' tarikh isdar + min ila
If Trim(Text1.Text) = "" And Trim(Text2.Text) = "" And Trim(Text3.Text) <> "" And Trim(Text4.Text) <> "" And Trim(Text5.Text) <> "" Then
Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
Set OutPut = Azad.OpenRecordset("OUTPUT", dbOpenDynaset)
MSFlexGrid1.Rows = 0
Do While Not (OutPut.EOF)
'If Trim(Text7.Text) = InPut1.Fields(1) Then
'If Trim(Mid$(Text7.Text, 1, Len(InPut1.Fields(1)))) = Trim(Mid$(InPut1.Fields(1), 1, Len(InPut1.Fields(1)))) Then
If Trim(Mid$(OutPut.Fields(2), 1, Len(Text3.Text))) = Trim(Mid$(Text3.Text, 1, Len(Text3.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text4.Text))) >= Trim(Mid$(Text4.Text, 1, Len(Text4.Text))) And Trim(Mid$(OutPut.Fields(3), 1, Len(Text5.Text))) <= Trim(Mid$(Text5.Text, 1, Len(Text5.Text))) Then
MSFlexGrid1.AddItem ""
sSs = MSFlexGrid1.Rows - 1
    With MSFlexGrid1
     'MSFlexGrid1.CellWidth = 12
       If Trim(OutPut.Fields(0)) <> "" Then .TextMatrix(sSs, 0) = OutPut.Fields(0)
       If Trim(OutPut.Fields(1)) <> "" Then .TextMatrix(sSs, 1) = OutPut.Fields(1)
       If Trim(OutPut.Fields(2)) <> "" Then .TextMatrix(sSs, 2) = OutPut.Fields(2)
       If Trim(OutPut.Fields(3)) <> "" Then .TextMatrix(sSs, 3) = OutPut.Fields(3)
       If Trim(OutPut.Fields(4)) <> "" Then .TextMatrix(sSs, 4) = OutPut.Fields(4)
       If Trim(OutPut.Fields(5)) <> "" Then .TextMatrix(sSs, 5) = OutPut.Fields(5)
       If Trim(OutPut.Fields(6)) <> "" Then .TextMatrix(sSs, 6) = OutPut.Fields(6)
       If Trim(OutPut.Fields(7)) <> "" Then .TextMatrix(sSs, 7) = OutPut.Fields(7)
       If Trim(OutPut.Fields(8)) <> "" Then .TextMatrix(sSs, 8) = OutPut.Fields(8)
       ' .TextMatrix(sSs, 2) = InPut1.Fields(2)
    End With
End If
OutPut.MoveNext
Loop
OutPut.Close
Azad.Close
Exit Sub
End If
End Sub

Private Sub Command3_Click()
Me.Hide
Form4.Show

End Sub

Private Sub Form_Resize()
If Userserch = True Then Command2.Enabled = True

Text6.Text = USERNAME
     
     On Error Resume Next

    With MSFlexGrid1
        .Cols = 9
        .ColAlignment(0) = 3
        .ColAlignment(1) = 3
        .ColAlignment(2) = 3
        .ColAlignment(3) = 3
        .ColAlignment(4) = 3
        .ColAlignment(5) = 3
        .ColAlignment(6) = 3
        .ColAlignment(7) = 3
        .ColAlignment(8) = 3

       
        
        .ColWidth(0) = 1500
        .ColWidth(1) = 1500
        .ColWidth(2) = 1500
        .ColWidth(3) = 2000
        .ColWidth(4) = 2000
        .ColWidth(5) = 2000
        .ColWidth(6) = 2000
        .ColWidth(7) = 4000
        .ColWidth(8) = 2000
        
    End With
End Sub

Private Sub MSFlexGrid1_DblClick()
If MSFlexGrid1.Rows = 0 Then MsgBox " there is no data ": Exit Sub
Form9.Text1.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 0)
Form9.Text2.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 1)
Form9.Text3.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 2)
Form9.Text4.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 3)
Form9.Text5.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 4)
Form9.Text6.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 5)
Form9.Text7.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 6)
Form9.WebBrowser1.Navigate MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 6)
Form9.Text8.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 7)
'Form9.Text9.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 8)
Form9.Show
End Sub

الفورم التاسع

Private Sub Command1_Click()
If Command1.Caption = "ÊÚÏíá ÇáßÊÇÈ" Then
WebBrowser1.Visible = False
Command1.Caption = "ÍÝÙ ÇáßÊÇÈ"
       Dim sDest As String
       Dim sSource As String
           sSource = App.Path + "\" + "picdata\outputpic\" + Text1.Text + ".pdf"
           sDest = "d:\pdf\1.pdf"
           FileCopy sSource, sDest
          Shell "C:\Program Files\Nitro PDF\Professional\NitroPDF.exe d:\pdf\1.pdf"
Exit Sub
Else
  If Command1.Caption = "ÍÝÙ ÇáßÊÇÈ" Then
     
       Dim sDest1
       Dim sSource1
           sSource1 = "d:\pdf\1.pdf"
           sDest1 = App.Path + "\" + "picdata\outputpic\" + Text1.Text + ".pdf"
           FileCopy sSource1, sDest1
          WebBrowser1.Visible = True
          WebBrowser1.Navigate Text6.Text
     Command1.Caption = "ÊÚÏíá ÇáßÊÇÈ"
     Exit Sub
  Else
  End If
End If
End Sub

Private Sub Command2_Click()
Dim Del

      Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
      Set OutPut = Azad.OpenRecordset("OutPut", dbOpenDynaset)
      Del = Trim(Text1.Text)
      OutPut.MoveFirst
      Do While Not (OutPut.EOF)
         If Trim(Del) = Trim(OutPut.Fields(0)) Then
            'edit
            OutPut.Edit
            If Trim(Text1.Text) <> "" Then OutPut.Fields(0) = Trim(Text1.Text)
            If Trim(Text2.Text) <> "" Then OutPut.Fields(1) = Trim(Text2.Text)
            If Trim(Text3.Text) <> "" Then OutPut.Fields(2) = Trim(Text3.Text)
            If Trim(Text4.Text) <> "" Then OutPut.Fields(3) = Trim(Text4.Text)
            If Trim(Text5.Text) <> "" Then OutPut.Fields(4) = Trim(Text5.Text)
            If Trim(Text6.Text) <> "" Then OutPut.Fields(5) = Trim(Text6.Text)
            If Trim(Text7.Text) <> "" Then OutPut.Fields(6) = Trim(Text7.Text)
            If Trim(Text8.Text) <> "" Then OutPut.Fields(7) = Trim(Text8.Text)
            If Trim(Text9.Text) <> "" Then OutPut.Fields(8) = "ÇÎÑ ÊÚÏíá /" + Trim(Text8.Text)
            
            OutPut.Update
          
          OutPut.Close
          Azad.Close
          Text1.Text = ""
          Text2.Text = ""
          Text3.Text = ""
          Text4.Text = ""
          Text5.Text = ""
          Text6.Text = ""
          Text7.Text = ""
          Text8.Text = ""
          WebBrowser1.Navigate ""
          Exit Sub
         
         End If
         OutPut.MoveNext
      Loop
      OutPut.Close
      Azad.Close
End Sub

Private Sub Command3_Click()
Me.Hide
Form8.Show

End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Command5_Click()
Dim Del

      Set Azad = DBEngine.OpenDatabase(App.Path + "\" + "picdata\database\DBIDARE.mdb")
      Set OutPut = Azad.OpenRecordset("OutPut", dbOpenDynaset)
      Del = Trim(Text1.Text)
      OutPut.MoveFirst
      Do While Not (OutPut.EOF)
         If Trim(Del) = Trim(OutPut.Fields(0)) Then
            'edit
            OutPut.Delete
            Kill App.Path + "\" + "picdata\outputpic\" + Text1.Text + ".pdf"
            
            
           'edit
          OutPut.Close
          Azad.Close
          Text1.Text = ""
          Text2.Text = ""
          Text3.Text = ""
          Text4.Text = ""
          Text5.Text = ""
          Text6.Text = ""
          Text7.Text = ""
          WebBrowser1.Navigate ""
          Exit Sub
         
         End If
         OutPut.MoveNext
      Loop
      OutPut.Close
      Azad.Close
End Sub

Private Sub Form_Load()

If Useredit = True Then Command2.Enabled = True
If Userdelete = True Then Command5.Enabled = True
Text9.Text = USERNAME
End Sub

موديول 1

Global Azad As Database
Global InPut1, OutPut, Test, qsmD, sadRT, UsersS As Recordset
Global USERNAME, USERNAKE, USERPASSWORD
Global UseruSERS, Useradd, Userserch, Useredit, Userdelete, Useruot, Userin
Dim dDd

يجب ان يكون واجهة البرنامج .... او البرنامج يتكون من هذه الفورمات و الادوات حتى يعمل بشكل صحيح

لا تشكرني  و لا تعجب بمواضيع

ولكن ادعوا لي بان يرزقني الله تعالى بولد  صالح و سالم  و عاقل و كامل

يا ودود يا ودود يا ذي العرش المجيد , يا فعلا لما يريد , يا مبدئ يا معيد , اسألك بقدرتك اللتي قدرت بها على جميع خلقك , واسألك بنور وجهك الذي ملئ اركان عرشك , واسالك برحمتك التي وسعت كل شي , لا اله الا انت , ان ترزقي ب ذكرا(ولدا) صالحا تام الخلقه .

المؤمن مبتلى وجزاء الصبر الجنة  ... الله يرزقك إن شاء الله بالذرية الصالحه والأبن البار .

ومشكور على البرنامج .. جهد تشكر عليه

ولكن لدية سؤال  من يستطيع مساعدتي في عمل تقريرين

اولهما عن الوارد حسب تاريخ الادخال ( بين تاريخين )

و الثاني عن الصادر حسب تاريخ الادخال ( بين تاريخين )

السلام عليكم 

يمكن عمل تقارير تظهر الوارد او الصادر بين تاريخين فقط ولكن بشرط يكون لديك حقل تاريخ الورود او الصدور بنوعه أنه تاريخ ولكن هل هجري ام ميلادي

ما المطلوب فعلا

هل تريد تقرير بالهجري ام بالميلادي 

وهل جدول الصادر او الوارد به حقل التاريخ

مجهود كبير تشكر عليه والله الموفق

وجعله الله في ميزان حسناتك

واللهم ارزق كل من له طلبه بالذرية الصالحة والهداية اللهم امين

مشكوررررررر ياغالي بس لو كنت اضفت المشروع بعد انتهاء الشرح كان افضل طبق الشرح طلع بعض الاخطاء ممكن تضيف المشروع جاهز