120 likes | 127 Views
בניית טפסים ומאגרי מידע. ד"ר אבי רוזנפלד. השלבים. בניית הטופס הוספת נתונים מתוך הטופס (ה EVENT ) בניית שאלתות (חיפוש). Public Class Form1 Structure courses Public name, city, miktzoa As String Public tnumber, telephone As Integer Public status As Boolean
E N D
בניית טפסים ומאגרי מידע ד"ר אבי רוזנפלד
השלבים • בניית הטופס • הוספת נתונים מתוך הטופס (הEVENT) • בניית שאלתות (חיפוש)
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
איך בונים כמה טפסים • מגדירים מתנים GLOBAL בMODULE • מיצרים את הטפסים • מכניסים את המידע
בתוך ה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
פקודות חדשות / ישנותSHOW / HIDE Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() End Sub
בתוך 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
תרגיל לפני הפרויקט • בתוך הטופס הראשון תבנה 2 כפתורים שכל כפתור פותח עוד טופס (סה"כ 3 טפסים) • תבנה את שני הטפסים הנוספים. כל טופס מקבל מספר (מTEXTBOX) מהמשתמש • הטופס המקורי יראה את הסכום של 2 המספרים
מה עושים עכשיו בפרויקט! • בניית טופס ראשי • בניית טופס להוסיף / להוריד רשומות מהטבלה (ARRAYLIST) של תלמידים • בניית טופס להוסיף / להוריד רשומות מהטבלה (ARRAYLIST) של קורסים • בניית טופס לשאלתות (3 החלקים האחרונים של תרגיל 8 הקודם)