תחומים - פורום חרדי מקצועי

תודה,
עשיתי ממשק גם ITable וגם IConnection
הכל עבד מצויין חוץ ממאפיין אחד ב Connection שלא התאים ל ממשק:

'במחלקה:
Public Class Connection(Of TRecordA As IRecord, TRecordB As IRecord)
    Implements IConnection
 Public Property MainCollectionOfTableOut As ObservableCollection(Of TRecordA) _
Implements IConnection.MainCollectionOfTableOut
  
End Class

   'בממשק:
   Property MainCollectionOfTableOut As ObservableCollection(Of IRecord)

למה זה קורה? על פי סדר הממשקים זה היה אמור להתאים, ומה אפשר לעשות אם לא שוב שימוש באובג'קט?
אם אני מבין נכון אז אע''פ שאת TRecordA אפשר להסב [=קאסט] ל IRecord
אבל (Collection(Of TRecordA אי אפשר להסב ל (Collection(Of IRecord אולי שייך לעשות כאן העמסת אופרטור של הקאסט ?

פורסם במקור בפורום CODE613 ב29/12/2013 17:19 (+02:00)

תודה רבה,
את נושא הירושה והממשקים אני מכיר ואני משתמש למשל בממשק כזה:

Imports System.ComponentModel

Public Interface IRecord

    Inherits INotifyPropertyChanged
    Property ID As Integer
    Sub OnPropertyChanged(ByVal name As String)

End Interface

Public Class GenaricTable(Of TRecord As IRecord)
    ' הטבלה הגנארית
    ' יש בה כל מיני פונקציות ומאפיינים
    ' מחזיקה אוסף של רשומות מטיפוס מסויים

    Public WithEvents MainCollection As ObservableCollection(Of TRecord)

    Public WithEvents ConnectionsCollection As ObservableCollection(Of Connection)
    Public Property Sum

    '....
End Class

@דוד ל.ט.

אני מאוד לא מבין את הכיוון ואת הדרך, לא הבנתי גם למה במקום באובגקט אתה לא משתמש עם המחלקה היפה שעשית (GenaricTable).
כלומר המחלקה קונקשיין לפי איך שהתחלת אמורה להיראות ככה:

רציתי באמת לעשות כמו שאתה מציע אבל אז נתקעתי עם השורה הבאה בתוך GenaricTable, שורה זו שכחתי להביא בהודעה הראשונה:

Public WithEvents ConnectionsCollection As ObservableCollection(Of Connection)

כלומר חייב להיות בכל טבלה אוסף של קשרי גומלין כאשר כל קשר גומלין מכיל טבלה אחת מסוג שונה מאשר הטבלה שמכילה את אוסף הקשרי גומלין. בין כל קשרי הגומלין של טבלה מסויימת יכולים להיום כמה וכמה טיפוסים שונים לגמרי.
מה הארכיטקסטרה הנכונה בכל המבנה הזה?

פורסם במקור בפורום CODE613 ב29/12/2013 12:58 (+02:00)

התוכנית שאני בונה בנוייה באופן הבא:

Imports System.Collections.ObjectModel

Public Class GenaricTable(Of TRecord)
    ' הטבלה הגנארית
    ' יש בה כל מיני פונקציות ומאפיינים
    ' מחזיקה אוסף של רשומות מטיפוס מסויים

    Public WithEvents MainCollection As ObservableCollection(Of TRecord)
    Public Property Sum

    '....
End Class

Public Class Connection
    ' יצירת קשרי גומלין בין שני טבלאות גנאריות
    Public Sub New(GenaricTableOut As Object, GenaricTableIn As Object)
        ' כאן אני צריך להפעיל כל מיני פונקציות של הטבלאות הגנאריות
        ' למשל 
        Dim X = GenaricTableUot.Sum
        Dim Y = GenaricTableUot.MainCollection
        ' זה עובד, אבל דבר כזה יכול להביא לשגיאה
        '...
    End Sub
End Class

Public Class Person
    ' מחלקה בשביל רשומה בטבלה
    '...
End Class

Public Class Order
    ' מחלקה בשביל רשומה בטבלה
    '...
End Class

Class MainWindow
    Private GTPerson As New GenaricTable(Of Person)
    Private GTOrder As New GenaricTable(Of Order)

    Public Sub New()
        Dim C As New Connection(GTPerson, GTOrder)
    End Sub
End Class

הבעיה שלי עם המחלקה Connection שאני צריך להעביר אליה שני טיפוסים של שני הטבלאות ואיך עושים זאת? כי כמו שזה כתוב כעת אם אובג'קט יכול להביא לשגיאות כי אנו עלולים לטעות ולהכניס למשתנה משתנה מטיפוס שלא התכוונו אליו והקומפיילר לא יתריע על כך, אלא נקבל את השגיאה רק בזמן ריצה ב- casting הלא חוקי. וגם אם שם של הפונקציה Sum ישתנה תיוצר שגיאה כי ה Rename לא יתפוס את הפונקציה שדבוקה לאובג'קט.

תודה רבה לכולם ושבת שלום.

נ.ב
מזל טוב לרגל הנושא ה 100 בפורום שלנו !

פורסם במקור בפורום CODE613 ב26/12/2013 22:43 (+02:00)

תודה רבה זה ממש טוב!!

פורסם במקור בפורום CODE613 ב31/12/2013 22:02 (+02:00)

@דוד ל.ט.

אז האירוע שלך צריך להיות שורה חדשה/מס' שורות השתנה וכדומה.

איך נקרא ארוע כזה בדטה-גריד? מה שאני יודע על הוספת שורות זה ארוע CollectionChanged עבור ObservableCollection אבל ארוע זה קופץ מיד איך שהאוסף משתנה עוד לפני שהדטה-גריד מוסיף שורה.

פורסם במקור בפורום CODE613 ב27/12/2013 08:49 (+02:00)

@דוד ל.ט.

למה טריגר, אתה הולך עם קוד. ואם טריגר, אז עד הסוף, לא חצי קוד וחצי טריגר.

אפשר לכותב טריגר גם בתוך הקוד, שכל כל XAML אפשר לתרגם לקוד.

@דוד ל.ט.

שמתי באירוע טעינה שישנה את הכיתוב לזמן דקות+שניות.

שמת בטעינה של הלחצן? או בטעינה של ה RowDetails ?

פורסם במקור בפורום CODE613 ב26/12/2013 21:42 (+02:00)

אני חושב שכאשר אתה ממלא שורה חדשה אז השורה עם הכפתור עם הכוכבית קופץ קדימה, ואתה למעשה ממלא שורה שנוצרה באותו רגע, זה נדמה כאילו אתה מלאת את השורה האחרונה אבל למעשה השורה האחרונה קפצה לסוף ואתה מלאת שורה שנוצרה ברגע זה ממש ולכן גם הלחצן שלה יש לו '+' ולא כוכבית.

אין איזה טריגר לזה

פורסם במקור בפורום CODE613 ב26/12/2013 20:49 (+02:00)

העיקר זה לפתור את הבעיה, אבל אני גם שואל למה שם הארוע לא גורם ללחצן שבראש השורה לשנות את הטקסט שלו.
@דוד ל.ט.

אגב אני תמה למה במקומו הוא (בפרטי איש קשר) הוא השתנה אחרי שהוספת.

הארוע RowHeadBtn_Loaded מטפל בטעינה של הלחצן שבראש השורה ולא בטעינת ה RowDetails ולכן כל פעם שאני מוסיף שורה חדשה ויש צורך ביצירת לחצן חדש עבור ראש השורה החדשה הארוע הזה קופץ, אבל משום מה בגליון הראשי של ההזמנות זה לא עובד.

פורסם במקור בפורום CODE613 ב26/12/2013 19:54 (+02:00)

תודה רבה,
עשיתי כעצתך כך:

Private Sub RowHeadBtn_Loaded(sender As System.Object, e As System.Windows.RoutedEventArgs)
        Dim btn As Button = DirectCast(e.Source, Button)
        Dim DC = DirectCast(DirectCast(btn.TemplatedParent, ContentPresenter).Parent, StackPanel).DataContext
        If DC Is CollectionView.NewItemPlaceholder Then
            btn.Content = "*"
        End If
    End Sub

וזה עובד מצויין, אבל יש בעיה:
יש גליון נתונים ראשי של אנשי קשר, בראש כל שורה של איש קשר יש לחצן עם '+' אני לוחץ עליו ונפתח לי גליון משני שמציג את ההזמנות של איש קשר זה, שהרי יש קשר גומלין בין שני טבלאות אלו, במקביל אני פותח את הגליון הראשי של ההזמנות, כעת אני חוזר לגליון המשני של ההזמנות הנמצא תחת שורה מסויימת באנשי קשר, ומוסיף עבור איש קשר זה הזמנה, באותו רגע גם בגליון הראשי של ההזמנות מתווספת שורה חדשה על שם אותו איש קשר, אלא שהלחצן שבראש אותה שורה נשאר עם כוכבית במקום לההפך ל '+'.
צירפתי תמונה, חץ אדום מורה על שורת ההזמנה שבגליון המשנה, שורה זו נוספה ידנית, החץ הירוק מורה על השורה החדשה שנוספה אוטומטית בגליון הראשי של ההזמנות ורואים שהלחצן שבראש השורה עם כוכבית ולא הפך ל '+'

שאלה.png

פורסם במקור בפורום CODE613 ב26/12/2013 19:32 (+02:00)

אני מוסיף לחצן בכל ראש שורה בדטה-גריד כמתואר באשכול הזה או הזה.

השאלה שלי איך אפשר להגדיר שאם הלחצן בשורה האחרונה של הדטה-גריד שיהיה כתוב '*' במקום '+' כיון שזו שורה שמיועדת ליצירת שורה חדשה ולא שייך לפתוח שם גליון משנה.

תודה לכולם.

פורסם במקור בפורום CODE613 ב26/12/2013 17:46 (+02:00)

שכבת הפלדה של הנתונים יכולה לכלול את הדטה ביס שיכיל נתונים בלבד ועוד כמה מחלקות קוד שיטפלו בנתונים, כך שזה יחסוך לזה המון זמן לנסות לעשות כל דבר בתוך ה SQL, תעשה בקוד ונגמר הסיפור. וכך גם לא תאבד את ההפרדה בין הממשק לשכבת הנתונים.

פורסם במקור בפורום CODE613 ב27/01/2014 06:48 (+02:00)

@ארכיטקט

http://en.wikipedia.org/wiki/Log_trigger

לטובת החסומים, מה כתוב שם?
תודה.

פורסם במקור בפורום CODE613 ב26/01/2014 18:22 (+02:00)

יישר גדול ועצום!!
סוף סוף הגליונות נראים כמו 'בן אדם'

פורסם במקור בפורום CODE613 ב05/01/2014 13:45 (+02:00)

רפרנס ל PresentationFramework.Aero וניימספייס כבר הוספתי בתחילה ולכן לא היו אלא רק שני שגיאות שציינתי.

פורסם במקור בפורום CODE613 ב02/01/2014 19:44 (+02:00)

@דוד ל.ט.

Application.xaml

מדובר בפרוייקט DLL ואין שם את זה, יש איזו חלופה?

בנתיים שמתי בתוך הUSER FORM ואלו השגיאות שקיבלתי:
The resource "bool2VisibilityConverter" could not be resolved.
The resource "RowHeaderGripperStyle" could not be resolved.

פורסם במקור בפורום CODE613 ב02/01/2014 17:58 (+02:00)

תודה רבה,
אני משתמש הרבה במאקרו של VS ובתוספים לאופיס, וזה לפי הידוע לי לא קיים בגירסה החינמית של VS לכן אני נשאר עם הגירסה המלאה של 2010.

פורסם במקור בפורום CODE613 ב02/01/2014 15:31 (+02:00)

כשאני לוחץ עם הימני של העכבר ב Document Outline לא יוצא לי שום תפריט, יש לי VS 2010

פורסם במקור בפורום CODE613 ב31/12/2013 17:36 (+02:00)

אני חושב שיש לי פתרון:

1. אפשר להגדיר שהלחצן שבראש השורה יהיה בתוך גריד צמוד לחלק העליון של הגריד, אם גובה הגריד יהיה כגובה השורה הרי שהלחצן יהיה תמיד באותו מקום ולא ירד לאמצע.
2. כדי לשנות את גובה הגריד כאשר גובה השורה משתנה יש ארוע שינוי גובה שורה שאפשר ליצור כמתואר כאן.

איך עושים את זה בדרך הנכונה?
למשל הקוד הבא לא עובד, רק בחלק אחד, כלומר הגריד אכן מקבל את גובה השורה אבל כאשר הגובה משתנה הבינדינג משום מה לא מעדכן את גובה הגריד בחזרה.

<DataGrid.RowHeaderTemplate>
                <DataTemplate>
                    <Grid                 
                        Height="{Binding RelativeSource={RelativeSource FindAncestor, 
                        AncestorType=DataGridRow, AncestorLevel=1}, 
                        Path=ActualHeight}" 
                        Background="#FFD31C1C">

                        <Button Content="+" VerticalAlignment="Top" >
                        </Button>
                    </Grid>
                   
                </DataTemplate>
            </DataGrid.RowHeaderTemplate>

פורסם במקור בפורום CODE613 ב31/12/2013 13:20 (+02:00)

ראיתי פה שמישהו ניסה להביא פתרון, אבל לא הצלחתי ליישם אותו עם הקוד הנ''ל.

פורסם במקור בפורום CODE613 ב27/12/2013 10:39 (+02:00)

עשיתי קוד כזה:

<Window x:Class="MainWindow"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="MainWindow" Height="350" Width="525">
    <Grid>
        <DataGrid AutoGenerateColumns="True" Margin="10,10,12,12" 
                  Name="DataGrid1" ItemsSource="{Binding}" 
                  CanUserAddRows="True" 
                  CanUserDeleteRows="True" RowHeight="55">
            <DataGrid.RowHeaderTemplate>
                <DataTemplate>
                    <Button Content="+" VerticalAlignment="Top" 
                            VerticalContentAlignment="Top">
                    </Button>
                </DataTemplate>
            </DataGrid.RowHeaderTemplate>
        </DataGrid>
    </Grid>
</Window>


Imports System.Collections.ObjectModel

Class MainWindow
    Dim coll As New ObservableCollection(Of Person)

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        DataContext = coll
      
        For I = 0 To 10
            coll.Add(New Person With {.Name = I, .LastName = I * I})
        Next

    End Sub

End Class

Public Class Person
    Private _Name As String
    Public Property Name() As String
        Get
            Return _Name
        End Get
        Set(value As String)
            _Name = value
        End Set
    End Property

    Private _LastName As String
    Public Property LastName() As String
        Get
            Return _LastName
        End Get
        Set(value As String)
            _LastName = value
        End Set
    End Property
End Class

מה שמפריע לי זה שלחצן ששמתי בראש השורה בדטה-גריד הוא תמיד באמצע גובה השורה ולא צמוד ללמעלה,
איך אני יכול להצמיד את הלחצן למעלה שלא יזוז כלל גם כאשר המשתמש ישנה את גובה השורה?

תודה לכולם.

פורסם במקור בפורום CODE613 ב25/12/2013 15:39 (+02:00)