алізації АС буде використовуватися середу
програмування Delphi і однойменний мову програмування. p align="justify"> Джерела розробки:
Даний документ розроблявся на підставі ГОСТ 34.698-90 на написання ТЗ на автоматизовані системи управління від 01.01.1992 р.
Додаток В
- Початковий код програми.
unit Unit1;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, Menus, ExtCtrls, XPMan;
TForm1 = class (TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Bevel1: TBevel;
XPManifest1: TXPManifest;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
ListBox1: TListBox;
Label1: TLabel;
Label2: TLabel;
procedure N3Click (Sender: TObject);
procedure N5Click (Sender: TObject);
procedure N6Click (Sender: TObject);
procedure N10Click (Sender: TObject);
procedure N9Click (Sender: TObject);
procedure N11Click (Sender: TObject);
procedure FormShow (Sender: TObject);
procedure ListBox1Click (Sender: TObject);
end; Form1: TForm1; Unit2, Unit3, DB, Unit4, Unit5, Unit6, Unit7;
{$ R *. dfm} TForm1.N3Click (Sender: TObject);
if Form3.ShowModal = mrOK then begin
DBGrid1.DataSource.DataSet.Filtered: = false;
DBGrid1.DataSource.DataSet.Filtered: = true;
end;; TForm1.N5Click (Sender: TObject);
Form4.ShowModal;; TForm1.N6Click (Sender: TObject);
Form5.ShowModal;; TForm1.N10Click (Sender: TObject);
Application.MessageBox ('Програмний модуль "Облік успішності' + 'студентів". Розроблено студентом групи АЛ-ДЛП-901 Алейниковим' + 'Д.В.', 'Про програму', MB_ICONINFORMATION) ;
end; TForm1.N9Click (Sender: TObject);
Form6.ShowModal;; TForm1.N11Click (Sender: TObject);
Form7.ShowModal;; TForm1.FormShow (Sender: TObject)...
