Реферат Розробка прикладної інформаційної системи &Змагання з багатоборства&

Sport:TIntegerField ;: TFloatField ;: TFloatField ;: TIntegerField; ID_Sport: TIntegerField; DSDesigner: TWideStringField; DSDesigner2: TWideStringField; DSDesigner3: TFloatField; DSDesigner4: TIntegerField; _Sport: TIntegerField ;: TWideStringField;

{Private declarations}

{Public declarations} ;: TfDM; SUBD;

{$ R * .dfm} .Editor ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Mask, DBCtrls, ExtCtrls;=class (TForm): TGroupBox;:TGroupBox ;: TGroupBox ;: TGroupBox ;: TGroupBox ;: TDBEdit ;: TDBEdit ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TLabel ;: TLabel ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TButton ;: TButton ;: TDBNavigator ;: TDBNavigator ;: TLabel ;: TLabel ;: TDBNavigator ;: TDBNavigator ;: TDBNavigator ;: TLabel ;: TLabel ;: TLabel; Button1Click (Sender: TObject); Button2Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TfEditor; DM;

{$ R * .dfm} TfEditor.Button1Click (Sender: TObject); fDM.TSportsmen.Modified then.TSportsmen.Post; fDM.TSports.Modified then.TSports.Post; fDM.TSM. Modified then.TSM.Post; fDM.TParticipation.Modified then.TParticipation.Post; fDM.TCount.Modified then.TCount.Post ;;; TfEditor.Button2Click (Sender: TObject);.TSportsmen.Append;.TSports.Append;.TSM.Append;.TParticipation.Append;.TCount.Append;.SetFocus;;.SUBD1;,in SUBD.pas {Form1}, in DM.pas {fDM: TDataModule}, in Editor.pas {fEditor}, in Unit2.pas {Form2};

{$ R * .res} .Initialize;:=TForm2.Create (Application) ;. Show; .Update; Form2.Timer1.Enabled do.ProcessMessages; .CreateForm (TForm1, Form1);.CreateForm (TfDM, fDM) ;. CreateForm (TfEditor, fEditor) ;. Hide; .Free; .Run; .Unit2 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, jpeg;=class (TForm): TTimer ;: TImage; Timer1Timer (Sender: TObject);

{Private declarations}

{Public declarations} ;: TForm2;

{$ R * .dfm} TForm2.Timer1Timer (Sender: TObject) ;. Enabled:=false ;;

end.