1 / 12

בניית טפסים ומאגרי מידע

בניית טפסים ומאגרי מידע. ד"ר אבי רוזנפלד. השלבים. בניית הטופס הוספת נתונים מתוך הטופס (ה EVENT ) בניית שאלתות (חיפוש). Public Class Form1 Structure courses Public name, city, miktzoa As String Public tnumber, telephone As Integer Public status As Boolean

Download Presentation

בניית טפסים ומאגרי מידע

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript


  1. בניית טפסים ומאגרי מידע ד"ר אבי רוזנפלד

  2. השלבים • בניית הטופס • הוספת נתונים מתוך הטופס (הEVENT) • בניית שאלתות (חיפוש)

  3. Public Class Form1 Structure courses Public name, city, miktzoa As String Public tnumber, telephone As Integer Public status As Boolean End Structure Dim ItemList As New ArrayList() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim record As courses record.name = TextBox5.Text() record.tnumber = Val(TextBox3.Text()) record.city = TextBox1.Text() record.telephone = Val(TextBox6.Text()) record.miktzoa = TextBox2.Text() If (CheckBox1.Checked = True) Then record.status = True Else record.status = False End If 'also just say: record.status = record.status ItemList.Add(record) MsgBox("Record " & ItemList.Count() & " has been added") TextBox1.Clear() 'etc End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim search As String = InputBox("Enter search for teudat zeyhut") For i = 0 To ItemList.Count - 1 If (ItemList(i).tnumber = search) Then MsgBox("Found in Position " & i) End If Next End Sub End Class

  4. איך בונים כמה טפסים • מגדירים מתנים GLOBAL בMODULE • מיצרים את הטפסים • מכניסים את המידע

  5. איך בונים את הMODULE?

  6. בתוך הMODULE Module Module1 Public avi As Integer Structure course Public name, city, miktzoa As String Public tnumber, telephone As Integer Public status As Boolean End Structure Public ItemList As New ArrayList() Public my_course As course End Module

  7. איך בונים כמה טפסים?

  8. פקודות חדשות / ישנותSHOW / HIDE Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() End Sub

  9. בתוך 2FORM Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click avi = TextBox1.Text Me.Hide() End Sub

  10. תרגיל לפני הפרויקט • בתוך הטופס הראשון תבנה 2 כפתורים שכל כפתור פותח עוד טופס (סה"כ 3 טפסים) • תבנה את שני הטפסים הנוספים. כל טופס מקבל מספר (מTEXTBOX) מהמשתמש • הטופס המקורי יראה את הסכום של 2 המספרים

  11. מה עושים עכשיו בפרויקט! • בניית טופס ראשי • בניית טופס להוסיף / להוריד רשומות מהטבלה (ARRAYLIST) של תלמידים • בניית טופס להוסיף / להוריד רשומות מהטבלה (ARRAYLIST) של קורסים • בניית טופס לשאלתות (3 החלקים האחרונים של תרגיל 8 הקודם)

  12. סוף השקפים של הקורס!

More Related