Verwaltungsprogramm "RoNaDeo" in Delphi :: Mein erstes Projekt

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Verwaltungsprogramm "RoNaDeo" in Delphi :: Mein erstes Projekt

    Halli Hallo.

    Das ist mein erster Beitrag im Forum und ich fange gleich damit an, euch mein Projekt vorzustellen.

    Ich habe vor 2 Tagen begonnen, ein Verwaltungsprogramm für alle möglichen Bereiche zu programmieren. Natürlich in Delphi :D:D


    Wenn ihr mögt, könnt ihr es euch gerne anschauen. Dazu habe ich eine eigene Homepage gemacht, auf der ich das Programm publik machen möchte.

    Genaue Infos zum Programm und dieses selbst gibt es auf meine Homepage: Klick mich!
    Ihr braucht keine Angst zu haben, dass ich irgendwelche Schadsoftware verbreiten möchte, der aktuelle Scan ist auch auf der Seite vorhanden. Habt Ihr Zweifel, könnt ihr gerne noch einen machen!^^


    Ein paar Feedbacks wären nett!

    MfG Ron ;D

  • In der Tata werde ich mit Sicherheit ohne Quellcode gar nichts ausführen, schließlich schlagen auf selbstprogrammierte Viren keine Signaturen an und Heuristiken taugen nicht viel. Deine Scans sind also, abgesehen davon, dass sie leicht zu faken sind, auch sonst nicht viel wert...


    P.S. Wieso hast du über das Ergebnis von Kaspersky einen grauen Balken gelegt?
    ~ mfg SeBa

    Ich beantworte keine PMs zu Computer-/Programmierproblemen. Bitte wendet euch an das entsprechende Forum.

    [Blockierte Grafik: http://i.creativecommons.org/l/by-sa/3.0/80x15.png]

  • mad schrieb:


    Das ist sein Footer, der per CSS wohl da unter klebt. Bei mir auf'm kleinen Bildschirm ist er über der Liste.

    Du hast recht, ich hatte gar nicht drauf geachtet. Aber auf meinem Screen ist beim Laden unten genau Kaspersky und der Balken liegt drüber und scrollt mit. Ist zwar Offtopic aber

    Quellcode

    1. #footer {
    2. background-image: url("footer.jpg");
    3. bottom: 0;
    4. height: 17px;
    5. position: fixed;
    6. width: 100%;
    7. }
    sollte helfen :)
    ~ mfg SeBa

    Ich beantworte keine PMs zu Computer-/Programmierproblemen. Bitte wendet euch an das entsprechende Forum.

    [Blockierte Grafik: http://i.creativecommons.org/l/by-sa/3.0/80x15.png]

  • Wollt ihr jetzt den ganzen Quelltext haben oder wie?? Falls ja, könnt ihr haben :

    Der Delphi-Quellcode von Unit1:

    Quellcode

    1. unit Unit1;
    3. interface
    5. uses
    6. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    7. StdCtrls, ExtCtrls, jpeg;
    9. type
    10. TForm1 = class(TForm)
    11. Label1: TLabel;
    12. Label2: TLabel;
    13. RadioButton1: TRadioButton;
    14. RadioButton2: TRadioButton;
    15. RadioButton3: TRadioButton;
    16. RadioButton4: TRadioButton;
    17. RadioButton5: TRadioButton;
    18. RadioButton6: TRadioButton;
    19. RadioButton7: TRadioButton;
    20. RadioButton8: TRadioButton;
    21. RadioButton9: TRadioButton;
    22. RadioButton10: TRadioButton;
    23. Button1: TButton;
    24. Image1: TImage;
    25. Label3: TLabel;
    26. Label4: TLabel;
    27. Label5: TLabel;
    28. Label6: TLabel;
    29. procedure RadioButton1Click(Sender: TObject);
    30. procedure RadioButton2Click(Sender: TObject);
    31. procedure Button1Click(Sender: TObject);
    32. private
    33. { Private-Deklarationen }
    34. public
    35. { Public-Deklarationen }
    36. end;
    38. var
    39. Form1: TForm1;
    41. implementation
    42. uses Unit2;
    43. {$R *.DFM}
    45. procedure TForm1.RadioButton1Click(Sender: TObject);
    46. begin
    47. Radiobutton5.visible:=true;
    48. Radiobutton6.visible:=true;
    49. Radiobutton7.visible:=true;
    50. end;
    52. procedure TForm1.RadioButton2Click(Sender: TObject);
    53. begin
    54. Radiobutton8.visible:=true;
    55. Radiobutton9.visible:=true;
    56. Radiobutton10.visible:=true;
    57. end;
    60. procedure TForm1.Button1Click(Sender: TObject);
    61. begin
    62. if radiobutton5.checked=true then
    63. begin
    64. form1.Hide;
    65. form2.visible:=true;
    66. end;
    67. end;
    69. end.
    Alles anzeigen



    Unit 2:

    Quellcode

    1. unit Unit2;
    3. interface
    5. uses
    6. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    7. StdCtrls, Grids, Unit1;
    9. type
    10. TForm2 = class(TForm)
    11. Label1: TLabel;
    12. StringGrid1: TStringGrid;
    13. Button1: TButton;
    14. Button2: TButton;
    15. Button3: TButton;
    16. Button4: TButton;
    17. procedure FormCreate(Sender: TObject);
    18. procedure Button1Click(Sender: TObject);
    19. procedure Button2Click(Sender: TObject);
    20. procedure FormClose(Sender: TObject; var Action: TCloseAction);
    21. procedure Button3Click(Sender: TObject);
    22. procedure Button4Click(Sender: TObject);
    27. private
    28. { Private-Deklarationen }
    29. public
    30. { Public-Deklarationen }
    31. end;
    33. var
    34. Form2: TForm2;
    36. implementation
    38. {$R *.DFM}
    40. procedure TForm2.FormCreate(Sender: TObject);
    41. begin
    42. stringgrid1.cells[0,0]:='Name';
    43. stringgrid1.cells[1,0]:='Straße/Hausnummer';
    44. stringgrid1.cells[2,0]:='PLZ/Ort';
    45. stringgrid1.cells[3,0]:='Telefon';
    46. end;
    48. procedure TForm2.Button1Click(Sender: TObject);
    49. begin
    50. stringgrid1.rowcount:=stringgrid1.rowcount+1;
    51. end;
    53. procedure TForm2.Button2Click(Sender: TObject);
    54. begin
    55. stringgrid1.rowcount:=stringgrid1.rowcount-1;
    56. end;
    58. procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
    59. begin
    60. form1.close;
    61. end;
    64. //..Stringgrid Prozedur
    65. procedure saveGrdToFile(grd: TStringGrid; Pfad : String);
    66. var
    67. i,j,row,col,len : Word;
    68. buff: string;
    69. fStream: TFileStream;
    70. begin
    71. fStream := TFileStream.Create(pfad, fmCreate);
    72. fStream.Free;
    73. fStream := TFileStream.Create(pfad, fmOpenWrite);
    74. col := grd.ColCount -1;
    75. row := grd.RowCount -1;
    76. fStream.WriteBuffer(row, SizeOf(Word));
    77. fStream.writeBuffer(col, SizeOf(Word));
    78. for i := 0 to row do
    79. for j := 0 to col do
    80. begin
    81. buff := grd.Cells[j,i];
    82. len := Length(buff);
    83. fStream.WriteBuffer(len, SizeOf(Word));
    84. fStream.WriteBuffer(buff[1], len)
    85. end;
    86. fStream.Free;
    87. end;
    88. //..Prozedur Ende
    90. //..Speichern über Button 'Speichern'
    91. procedure TForm2.Button3Click(Sender: TObject);
    92. begin
    93. savegrdtofile(StringGrid1, 'Adressbuch.dat');
    94. end;
    97. //..Prozedur zum Laden des Grids
    98. procedure loadGrdFromFile(grd: TStringGrid; Pfad : String);
    99. var i,j,row,col,len : Word;
    100. buff: string;
    101. fStream: TFileStream;
    102. begin
    103. fStream := TFileStream.Create(pfad, fmOpenRead);
    104. fStream.ReadBuffer(row, SizeOf(Word));
    105. fStream.ReadBuffer(col, SizeOf(Word));
    106. grd.ColCount := col + 1;
    107. grd.RowCount := row + 1;
    108. for i := 0 to row do
    109. for j := 0 to col do
    110. begin
    111. fStream.ReadBuffer(len, SizeOf(Word));
    112. SetLength(buff, len);
    113. fStream.ReadBuffer(buff[1], len);
    114. grd.Cells[j,i] := buff
    115. end;
    116. fStream.Free
    117. end;
    118. //..Prozedur Ende
    120. //..Laden über Button 'Laden'
    128. procedure TForm2.Button4Click(Sender: TObject);
    129. begin
    130. loadgrdfromfile(Stringgrid1, 'Adressbuch.dat');
    131. end;
    133. end.
    Alles anzeigen

  • SeBa schrieb:

    In der Tata werde ich mit Sicherheit ohne Quellcode gar nichts ausführen, schließlich schlagen auf selbstprogrammierte Viren keine Signaturen an und Heuristiken taugen nicht viel. Deine Scans sind also, abgesehen davon, dass sie leicht zu faken sind, auch sonst nicht viel wert...

    Den Quelltext habt ihr jetz unten zu stehen.

    SeBa schrieb:


    P.S. Wieso hast du über das Ergebnis von Kaspersky einen grauen Balken gelegt?

    Eigentlich ja schon beantwortet, habe ich den Balken nicht drüber gelegt. Hatte mich auch selbst schon gewundert, wieso der da ist^^

  • Da der Quellcode nicht besonders lang ist, wird das Programm nicht viel können. Wie es aussieht liest es Daten in ein Stringgrid ein und schreibt sie wieder weg. Wenn du da mal ein wenig weiter bist, kann man bestimmt mehr dazu sagen. Einen Tip kann ich dir aber geben: Bennene deine Controls anständig. Mit den Default-Namen verliest du schnell den Überblick!
    ~ mfg SeBa

    Ich beantworte keine PMs zu Computer-/Programmierproblemen. Bitte wendet euch an das entsprechende Forum.

    [Blockierte Grafik: http://i.creativecommons.org/l/by-sa/3.0/80x15.png]