cindyhun

Nur so zum Beispiel.

zuerst das:

------------------

m_dataModel = new MyTableModel(m_RowCount , m_ColCount);

m_table=new JTable(m_dataModel);

dann:

------------------

package Cindypkg;

import java.util.Vector;

import javax.swing.table.AbstractTableModel;

import java.util.ArrayList;

import java.lang.Throwable;

import javax.swing.event.TableModelEvent;

import javax.swing.JCheckBox;

public class MyTableModel extends AbstractTableModel

{

public MyTableModel(final int rowCount, final int columnCount)

{

m_rowCount =rowCount;

m_columnCount=columnCount;

/**

* Zellen initialisieren

*/

mv_cells=new Vector(rowCount);

for(int row=0;row<m_rowCount ;row++)

{

Vector tmpV=new Vector(columnCount);

Boolean b =new Boolean(false);

tmpV.add(0,;

for(int col=1;col<m_columnCount;col++)

{

tmpV.add(col,"");

}

mv_cells.add(row,tmpV);

}

m_columnName=new String[m_columnCount];

}

public void addRow()

{

Vector tmpRow=new Vector();

Boolean b =new Boolean(false);

tmpRow.add(0,;

for(int i=1;i<m_columnCount;i++)

{

tmpRow.add(i,"");

}

m_rowCount++;

mv_cells.setSize(m_rowCount );

mv_cells.add(m_rowCount-1 ,tmpRow);

/*this.fireTableChanged(new TableModelEvent(this ,m_rowCount-1 ,

m_rowCount , ALL_COLUMNS, INSERT));

*/

}

public int getColumnCount()

{

return m_columnCount;

}

public int getRowCount()

{

return m_rowCount ;

}

public Object getValueAt(int row, int col)

{

if(row<0 || row>mv_cells.size() ||

col<0 || col>((Vector)mv_cells.get(row)).size())

{

//error

return "";

}

else

{

return ((Vector)mv_cells.get(row)).elementAt(col);

}

}

public String getColumnName(int columnIndex)

{

return m_columnName[columnIndex];

}

public boolean isCellEditable(int rowIndex,

int columnIndex)

{

return true;

}

public void setValueAt(Object aValue, int rowIndex,

int columnIndex)

{

if(rowIndex <0 || columnIndex <0)

{

//error

}

else

{

/**

* setting value

*/

((Vector)mv_cells.get(rowIndex)).setElementAt(aValue ,columnIndex );

}

}

public void setColumnName(String name,int columnIndex)

{

m_columnName[columnIndex]=name;

}

public Class getColumnClass(int columnIndex)

{

if(columnIndex == 0)

{

return Boolean.class;

}

return String.class;

}

public void conclude()

{

if (true)

{

//closeConnection();

}

m_concluded = true;

}

/**

* Members

*/

private String[] m_columnName;

private Vector mv_cells;

private int m_columnCount;

private int m_rowCount;

private boolean m_concluded = false;

private String m_tableName = null;

private String[] m_columnTitles ;

private String m_url = null;

private String m_driverName = null;

private String m_user = null;

private String m_passwd = null;

private boolean m_doDbUpdateImmediately = true;

private boolean m_forceGivenTable = false;

private boolean m_readOnly = false;

private boolean m_tableChanged = false;

private XMLCls m_XMLObj;

private String m_pfad;

}

Sehr einfach!

OOA: Objekorientiere Analyse

OOD: Objektorientiertes Design

OOP: Objektorientierte Programmierung. Wie JAVA oder C++ zum Beispiel.

VBA: Visual Basic for Applications. Wenn du unter Access oder Word (= die sind Applikationen) ein VB Macro schreibst, ist es VBA.

Yo.

Ich hätte auch gern gewusst, wie die Schriftliche bei uns Anwendungsentwicklern ausgefallen ist.

Ich fand allerdings, dass die GH1 Aufgaben ok waren. Als AE muss man solche Aufgaben lösen können! Nur nicht in den knappen Zeit!

Allerdings kann ich mich nicht beklagen.

Yupeeee!!!!!

Schriftliche bestanden! Wie ich zu so viele Punkten komme, weiss ich auch nicht. Hab mit viel weniger gerechnet...

mein Fach: Anwendungsentwicklung

GH1: 83 %

GH2: 89 %

WiSo:96 %

------------

88%

Ich will damit nicht angeben... Es ist aber ein verdammt gutes Gefühl!

Grati an alle, die bestanden haben!

Yes!!!!!!!!!

Brief gekriegt, bestanden, Yuhuuuu!!!!!!!

Du hast ein Formular namens FrmHaupt, mit einen Button, das Exportiert (das Modul HauptExpXLS aufruft)

Projekt - Verweise:

1.Microsoft ActiveX Data Objects 2.5 Library

2.Microsoft Excel 9.0 Object Library

3.Microsoft Scripting Runtime

Projekt - Komponente:

1.Microsoft Common Dialog Control 6.0 (SP3)

2.Microsoft Windows Common Controls 6.0

Das Formular FrmHaupt enthält ein Common Dial. Ctrl namens 'CmnDialogCtrl'

Modul HauptExpXLS:

Option Explicit

Private mXLSRouteStr As String

Private mFSOObj As Scripting.FileSystemObj

Private mXLSAppObj As Excel.Application

Public Sub CreateXLS()

Dim tmpWrk As Excel.Workbook

Dim i As Integer

Dim tmpFilenameStr As String

Dim VollstNameStr As String

Dim FilePathStr As String

Dim variable1, variable2, variable3, variable4

On Error GoTo ErrCatch

Screen.MousePointer = vbHourglass

Set mXLSAppObj = New Application

Set gFSOObj = New FileSystemObject

' File path

mXLSRouteStr = App.Path

' File name

tmpFilenameStr = "ExportDaten.xls"

'********************************************************************

'Common Dialog Element von den Formular

'kannst evtl. weglassen. Das Dialog fragt, wo du den xls speichern

'möchtest. Kannst auch direkt angeben.

With FrmHaupt.CmnDialogCtrl

'"resume next" ist wegen Abbrechen wichtig!!!

On Error Resume Next

.FileName = tmpFilenameStr

.InitDir = mXLSRouteStr

.DialogTitle = "Exceltabelle Speichern"

'activate Cancel

.CancelError = True

.Flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist + cdlOFNNoReadOnlyReturn

.Filter = "(*.xls)|*.xls"

.ShowSave

'Error 32755 ist das Abbrechen Button

If Err.Number = 32755 Then

GoTo ExitProcedure

End If

FilePathStr = .FileName

End With

Screen.MousePointer = vbHourglass

'********************************************************************

On Error GoTo ErrCatch

Screen.MousePointer = vbHourglass

'Template / Vorlage für die Exceltabelle

Set tmpWrk = mXLSAppObj.Workbooks.Add("e:\ExpTemplate.xls")

'z.B. : Datum in Zelle B1

tmpWrk.Worksheets(1).Range("B1").Value = FormatDateTime(Date, vbShortDate)

'z.B. : Name in Zelle C1

tmpWrk.Worksheets(1).Range("C1").Value = "Cindy the Great"

'woher kommen deine Daten? Aus einer Datei?

Open "e:\ProjDaten.txt" For Input As #1

i = 2

Do While Not EOF(1)

Input #1, variable1, variable2, variable3, variable4

'Füllt eine Zeile

tmpWrk.Worksheets(1).Range("A" & i).Value = variable1

tmpWrk.Worksheets(1).Range("B" & i).Value = variable2

tmpWrk.Worksheets(1).Range("C" & i).Value = variable3

tmpWrk.Worksheets(1).Range("D" & i).Value = variable4

i = i + 1

Loop

Close #1

'wenn unter diesen Namen eine Datei schon existiert, _

dann löschen, damit keine Meldungen von Excel kommen

If mFSOObj.FileExists(FilePathStr) Then

mFSOObj.DeleteFile (FilePathStr)

End If

tmpWrk.SaveAs FilePathStr

ExitProcedure:

On Error Resume Next

Screen.MousePointer = vbDefault

tmpWrk.Close

mXLSAppObj.Quit

Set mFSOObj = Nothing

Set mXLSAppObj = Nothing

Exit Sub

ErrCatch:

Call MsgBox(CStr(Err.Number) & ":" & vbCrLf & Err.Description, vbOKOnly + vbCritical, "Error")

Resume ExitProcedure

Resume Next ' For debugging

End Sub

Zuerst Microsoft Excel 9.0 Library unter den Menüpunkt Projekt ... Verweise einbinden, dann als Modul :siehe unten (Ausgabe ist in den Direktfenster, Strg + G )

Grüßen,

Cindy

Option Explicit

Private Sub Main()

Dim XLSObj As Excel.Application

Dim tmpWrk As Excel.Workbook

Set XLSObj = New Excel.Application

Set tmpWrk = XLSObj.Workbooks.Open("e:\test.xls", , vbReadOnly)

Dim zelle As Excel.Range

Dim zeile As Excel.Range

Dim i As Integer

Dim j As Integer

i = 1

'Schleife, die alle Zeilen durchläuft bis leere Zeile

For Each zeile In tmpWrk.Worksheets(1).Rows

'Abbruchbedingung: Zeile leer

If tmpWrk.Worksheets(1).Range("A" & i).Value = "" Then Exit For

For Each zelle In zeile.Cells

'Abbruchbedingung

If zelle.Value = "" Then Exit For

Debug.Print zelle.Value

Next

i = i + 1

Next

Debug.Print i

tmpWrk.Close

XLSObj.Workbooks.Close

Set XLSObj = Nothing

Set tmpWrk = Nothing

End Sub

unser Fachleiter meinte, mann soll zur Präsentation, auch wenn nicht bestanden - dann haste mindestens das mündliche Teil hinter dir... Wiederholen musst du dann nur die schriftliche Prüfung.

cindy

Nur die Einladung. Ich bin enttäuscht...