1. Pascal / Говнокод #1258

    +146

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    unit Unit2;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, Grids, DBGrids;
    
    type
      TForm_magnituda = class(TForm)
        DataSource2: TDataSource;
        Table1: TTable;
        Label1: TLabel;
        Label2: TLabel;
        Button1: TButton;
        Button2: TButton;
        DBGrid1: TDBGrid;
        Table1Id: TStringField;
        Table1Data: TStringField;
        Table1Shirota: TStringField;
        Table1Dolgota: TStringField;
        Table1Magnituda: TStringField;
        Table1Glubina: TStringField;
        Table1Bal: TStringField;
        Table1Local: TStringField;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form_magnituda: TForm_magnituda;
    
    implementation
    uses unit1;
    {$R *.dfm}
    
    procedure TForm_magnituda.Button1Click(Sender: TObject);
    begin
    form1.show;
    form_magnituda.Hide;
    end;
    
    procedure TForm_magnituda.Button2Click(Sender: TObject);
    begin
    form_magnituda.Table1.Append;
    end;
    
    end.

    Запостил: guest, 25 Июня 2009

    Комментарии (0) RSS

    Добавить комментарий

    Ошибка компиляции комментария:
    1. Гости могут высказаться только в понедельник, среду, четверг или воскресение
    ava Помни, guest, за тобой могут следить!
    А не использовать ли нам bbcode?
    • [b]жирный[/b] — жирный
    • [i]курсив[/i] — курсив
    • [u]подчеркнутый[/u] — подчеркнутый
    • [s]перечеркнутый[/s] — перечеркнутый
    • [blink]мигающий[/blink] — мигающий
    • [color=red]цвет[/color] — цвет (подробнее)
    • [size=20]размер[/size] — размер (подробнее)
    • [code=<language>]some code[/code] (подробнее)
    Проверочный код