Приложение а

Текст программы

{код программы}

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form_sagruska},

Unit2 in 'Unit2.pas' {Frame2: TFrame},

Unit3 in 'Unit3.pas' {Form3},

Unit4 in 'Unit4.pas' {Frame4: TFrame},

Unit5 in 'Unit5.pas' {Form_otchet},

Unit6 in 'Unit6.pas' {Form_prepodovatel},

Unit7 in 'Unit7.pas' {Form_roditel},

Unit8 in 'Unit8.pas' {Form_otchet_po_gruppam},

Unit9 in 'Unit9.pas' {Form9},

Unit10 in 'Unit10.pas' {Form_otchet_roditeli},

Unit11 in 'Unit11.pas' {Form_otchet_prepodovateli},

Unit12 in 'Unit12.pas' {Form_otchet_ychaschiesa},

Unit13 in 'Unit13.pas' {Form_ob_avtore};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm_sagruska, Form_sagruska);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TForm_otchet, Form_otchet);

Application.CreateForm(TForm_prepodovatel, Form_prepodovatel);

Application.CreateForm(TForm_roditel, Form_roditel);

Application.CreateForm(TForm_otchet_po_gruppam, Form_otchet_po_gruppam);

Application.CreateForm(TForm9, Form9);

Application.CreateForm(TForm_otchet_roditeli, Form_otchet_roditeli);

Application.CreateForm(TForm_otchet_prepodovateli, Form_otchet_prepodovateli);

Application.CreateForm(TForm_otchet_ychaschiesa, Form_otchet_ychaschiesa);

Application.CreateForm(TForm_ob_avtore, Form_ob_avtore);

Application.Run;

end.

{код модуля Unit1}

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, XPMan, DBCtrls, DB, ADODB, StdCtrls, Buttons,

MPlayer, Menus;

type

TForm_sagruska = class(TForm)

Image1: TImage;

XPManifest1: TXPManifest;

ADOConnection1: TADOConnection;

DataSource_porol: TDataSource;

ADOQuery_porol: TADOQuery;

ed_password: TEdit;

ed_login: TEdit;

Image2: TImage;

MediaPlayer1: TMediaPlayer;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

procedure FormActivate(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure correctLogin();

procedure ed_passwordKeyPress(Sender: TObject; var Key: Char);

procedure ed_loginKeyPress(Sender: TObject; var Key: Char);

procedure FormCreate(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form_sagruska: TForm_sagruska;

implementation

uses Unit3, Unit5, Unit6, Unit7, Unit2, Unit4, Unit10, Unit11, Unit12,

Unit13, Unit8, Unit9;

{$R *.dfm}

procedure TForm_sagruska.correctLogin();

var check_data:String;

begin

ADOQuery_porol.Active:=false;

ADOQuery_porol.SQL.Text:='select * from vhod where id_nik like '''+

ed_login.Text+''' and porol like '''+ed_password.Text+''';';

ADOQuery_porol.Active:=true;

check_data:=ADOQuery_porol.Fields[3].AsString;

if(check_data='')then ShowMessage('Не верный пороль или логин пользователя')

else begin

if(check_data='director')then

begin

Form3.Show ;

end;

if(check_data='prepod')then Form_prepodovatel.Show;

if(check_data='rod')then

begin

Form_roditel.Show;

Form_sagruska.Hide;

end;

end;

end;

procedure TForm_sagruska.FormActivate(Sender: TObject);

begin

Image1.Picture.LoadFromFile('kniga.jpg');

end;

procedure TForm_sagruska.Image2Click(Sender: TObject);

begin

correctLogin;

end;

procedure TForm_sagruska.ed_passwordKeyPress(Sender: TObject;

var Key: Char);

begin

if(key=#13) then correctLogin();

end;

procedure TForm_sagruska.ed_loginKeyPress(Sender: TObject; var Key: Char);

begin

if(key=#13) then correctLogin();

end;

procedure TForm_sagruska.FormCreate(Sender: TObject);

begin

MediaPlayer1.Play;

end;

procedure TForm_sagruska.N1Click(Sender: TObject);

begin

Winhelp (Form_sagruska.Handle,'help.hlp', help_context,1);

end;

procedure TForm_sagruska.N2Click(Sender: TObject);

begin

Form_sagruska.Hide;

Form_ob_avtore.Show;

end;

end.

{код модуля Unit2}

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtrls, ShockwaveFlashObjects_TLB, Menus, StdCtrls, DB, ADODB,

Grids, DBGrids, jpeg, ExtCtrls, ComCtrls, AppEvnts, DBCtrls, QRCtrls,

QuickRpt, MPlayer;

type

TForm3 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

ydalit: TImage;

DBGrid_prepodovateli: TDBGrid;

ADOQuery_prepodovateli: TADOQuery;

DataSource_prepodovateli: TDataSource;

ADOQuery_prepodovateliid_prepodovatel: TAutoIncField;

ADOQuery_prepodovateliSurname_prepod: TWideStringField;

ADOQuery_prepodovatelimesto_propiski: TWideStringField;

ADOQuery_prepodovatelitelefon: TIntegerField;

Label_prepod: TLabel;

ADOQuery_ychachiesa: TADOQuery;

DataSource_ychachiesa: TDataSource;

Label_ychachiesaq: TLabel;

DBGrid_ychaschiesa: TDBGrid;

Label_roditeli: TLabel;

ADOQuery_roditeli: TADOQuery;

DataSource_roditeli: TDataSource;

DBGrid_roditeli: TDBGrid;

ADOQuery_roditeliid_roditeli: TIntegerField;

ADOQuery_roditelifio: TWideStringField;

ADOQuery_roditelitel_rod: TIntegerField;

ADOQuery_roditeliid_uchaiesa: TIntegerField;

ADOQuery_roditelisurname_uch: TWideStringField;

ADOQuery_krujki: TADOQuery;

DBGrid_krujok: TDBGrid;

DataSource_krujok: TDataSource;

Label_krujok: TLabel;

ADOQuery_gruppa: TADOQuery;

DataSource_gruppa: TDataSource;

DBGrid_gruppa: TDBGrid;

Label_gruppa: TLabel;

ADOQuery_rabota: TADOQuery;

DataSource_rabota: TDataSource;

DBGrid_rabota: TDBGrid;

Label_rabota: TLabel;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

Panel_add_prepodovateli: TPanel;

Image2: TImage;

Label1: TLabel;

Label2: TLabel;

Edit_add_fio_prepod: TEdit;

Label3: TLabel;

Edit_add_propiska: TEdit;

Edit_add_tel: TEdit;

Image3: TImage;

ADOQuery_add_prepodovateli: TADOQuery;

StatusBar1: TStatusBar;

ApplicationEvents1: TApplicationEvents;

Image4: TImage;

ADOQuery_del_prepod: TADOQuery;

ADOQuery_del_ych: TADOQuery;

ADOQuery_add_ychachiesa: TADOQuery;

Panel_add_ychachiesa: TPanel;

Image5: TImage;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

add_grup: TDBLookupComboBox;

add_krujok: TDBLookupComboBox;

add_uch: TEdit;

add_prop_uch: TEdit;

add_data_roj: TDateTimePicker;

Image6: TImage;

Image7: TImage;

ADOQuery_add_roditeli: TADOQuery;

Panel_add_rodit: TPanel;

Image8: TImage;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

add_fio_rod: TEdit;

add_tel_rod: TEdit;

add_fio_yc: TDBLookupComboBox;

Image9: TImage;

Image10: TImage;

ADOQuery_del_rod: TADOQuery;

Panel_add_gruppa: TPanel;

Image11: TImage;

Label12: TLabel;

add_nam_gruppa: TEdit;

Image12: TImage;

Image13: TImage;

ADOQuery_add_grup: TADOQuery;

ADOQuery_del_grup: TADOQuery;

ADOQuery_add_rabota: TADOQuery;

Panel_add_rabota: TPanel;

Image14: TImage;

Label13: TLabel;

Label14: TLabel;

add_prep: TDBLookupComboBox;

add_kr: TDBLookupComboBox;

Image15: TImage;

Image16: TImage;

ADOQuery_del_rabota: TADOQuery;

ADOQuery_del_krujri: TADOQuery;

Panel_upd_prepodovatel: TPanel;

Image17: TImage;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

upd_fio_pr: TEdit;

upd_prop_pr: TEdit;

upd_tel_pr: TEdit;

id_pr: TEdit;

ADOQuery_upd_prepod: TADOQuery;

Image18: TImage;

Image19: TImage;

ADOQuery_upd_ychasiesa: TADOQuery;

Panel_upd_ychachiesa: TPanel;

Image20: TImage;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

upd_fio_ych: TEdit;

upd_pr_ych: TEdit;

upd_gr: TDBLookupComboBox;

upd_kr: TDBLookupComboBox;

upd_d_roj_ych: TDateTimePicker;

Image21: TImage;

upd_id_ych: TEdit;

Image22: TImage;

ADOQuery_upd_roditeli: TADOQuery;

Panel_upd_roditeli: TPanel;

Image23: TImage;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

upd_roditel_fio: TEdit;

upd_tel_rod: TEdit;

upd_ych_fio_rod: TDBLookupComboBox;

Image24: TImage;

id_rd: TEdit;

Image25: TImage;

ADOQuery_upd_grup: TADOQuery;

Panel_upd_gruppa: TPanel;

Image26: TImage;

Label26: TLabel;

upd_gruppa: TEdit;

upd_id_gr: TEdit;

Image27: TImage;

Image28: TImage;

ADOQuery_upd_rabota: TADOQuery;

Panel_upd_rabota: TPanel;

Image29: TImage;

Label27: TLabel;

Label28: TLabel;

upd_prep_rabota: TDBLookupComboBox;

upd_nam_kr_rabota: TDBLookupComboBox;

Image30: TImage;

id_rab: TEdit;

Image31: TImage;

Panel_poisk_prepodovateli: TPanel;

Image32: TImage;

spisok_poley: TComboBox;

poisk_pole: TEdit;

Image33: TImage;

Panel_poisk_ychschiesa: TPanel;

Image34: TImage;

spisok_poley1: TComboBox;

poisk_pole1: TEdit;

Image35: TImage;

Panel_poisk_rorit: TPanel;

Image36: TImage;

spisok_poley2: TComboBox;

poisk_pole2: TEdit;

Image37: TImage;

Panel_poisk_gruppa: TPanel;

Image38: TImage;

spisok_poley3: TComboBox;

poisk_pole3: TEdit;

Image39: TImage;

Panel_poisk_rabota: TPanel;

Image40: TImage;

spisok_poley4: TComboBox;

poisk_pole4: TEdit;

Image41: TImage;

Panel_poisk_krujok: TPanel;

Image42: TImage;

spisok_poley5: TComboBox;

poisk_pole5: TEdit;

Image43: TImage;

N13: TMenuItem;

N14: TMenuItem;

MediaPlayer_dir: TMediaPlayer;

N15: TMenuItem;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

dabavit: TImage;

ismeniy: TImage;

ydal: TImage;

ADOQuery_add_krujok: TADOQuery;

image_foto2: TImage;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure ApplicationEvents1Hint(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Image6Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure Image9Click(Sender: TObject);

procedure Image10Click(Sender: TObject);

procedure Image13Click(Sender: TObject);

procedure Image12Click(Sender: TObject);

procedure Image15Click(Sender: TObject);

procedure Image16Click(Sender: TObject);

procedure Image18Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure Image19Click(Sender: TObject);

procedure Image21Click(Sender: TObject);

procedure Image22Click(Sender: TObject);

procedure Image24Click(Sender: TObject);

procedure Image27Click(Sender: TObject);

procedure Image28Click(Sender: TObject);

procedure Image30Click(Sender: TObject);

procedure Image31Click(Sender: TObject);

procedure spisok_poleyChange(Sender: TObject);

procedure poisk_poleKeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure spisok_poley1Change(Sender: TObject);

procedure poisk_pole1KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure spisok_poley2Change(Sender: TObject);

procedure poisk_pole2KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure spisok_poley3Change(Sender: TObject);

procedure poisk_pole3KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure spisok_poley4Change(Sender: TObject);

procedure poisk_pole4KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure spisok_poley5Change(Sender: TObject);

procedure poisk_pole5KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure N14Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure FormHide(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure dabavitClick(Sender: TObject);

procedure ismeniyClick(Sender: TObject);

procedure ydalClick(Sender: TObject);

procedure DBGrid_krujokCellClick(Column: TColumn);

procedure add_uchKeyPress(Sender: TObject; var Key: Char);

procedure add_prop_uchKeyPress(Sender: TObject; var Key: Char);

procedure add_fio_rodKeyPress(Sender: TObject; var Key: Char);

procedure add_tel_rodKeyPress(Sender: TObject; var Key: Char);

procedure Edit_add_fio_prepodKeyPress(Sender: TObject; var Key: Char);

procedure Edit_add_propiskaKeyPress(Sender: TObject; var Key: Char);

procedure Edit_add_telKeyPress(Sender: TObject; var Key: Char);

procedure add_nam_gruppaKeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

pole: string;

implementation

uses Unit1, Unit2, Unit5, Unit8, Unit10, Unit11, Unit4, Unit6, Unit7,

Unit9, Unit12;

{$R *.dfm}

procedure TForm3.N2Click(Sender: TObject);

begin

image_foto2.Visible:=False;

dabavit.Visible:=true;

ismeniy.Visible:=true;

ydal.Visible:=true;

DBGrid_rabota.Visible:=False;

DBGrid_gruppa.Visible:=False;

DBGrid_prepodovateli.Visible:=True;

DBGrid_ychaschiesa.Visible:=False;

DBGrid_roditeli.Visible:=False;

DBGrid_krujok.Visible:=False;

Label_prepod.Visible:=True;

Label_ychachiesaq.Visible:=False;

Label_roditeli.Visible:=False;

Label_krujok.Visible:=False;

Label_gruppa.Visible:=False;

Label_rabota.Visible:=False;

Panel_poisk_prepodovateli.Visible:=True;

Panel_poisk_ychschiesa.Visible:=False;

Panel_poisk_rorit.Visible:=False;

Panel_poisk_gruppa.Visible:=False;

Panel_poisk_rabota.Visible:=False;

Panel_poisk_krujok.Visible:=False;

end;

procedure TForm3.N3Click(Sender: TObject);

begin

image_foto2.Visible:=False;

dabavit.Visible:=true;

ismeniy.Visible:=true;

ydal.Visible:=true;

DBGrid_rabota.Visible:=False;

DBGrid_gruppa.Visible:=False;

DBGrid_prepodovateli.Visible:=False;

DBGrid_ychaschiesa.Visible:=True;

DBGrid_roditeli.Visible:=False;

DBGrid_krujok.Visible:=False;

Label_prepod.Visible:=False;

Label_ychachiesaq.Visible:=True;

Label_roditeli.Visible:=False;

Label_krujok.Visible:=False;

Label_gruppa.Visible:=False;

Label_rabota.Visible:=False;

Panel_poisk_prepodovateli.Visible:=False;

Panel_poisk_ychschiesa.Visible:=True;

Panel_poisk_rorit.Visible:=False;

Panel_poisk_gruppa.Visible:=False;

Panel_poisk_rabota.Visible:=False;

Panel_poisk_krujok.Visible:=False;

Panel_poisk_prepodovateli_prepod.Visible:=False;

end;

procedure TForm3.N4Click(Sender: TObject);

begin

image_foto2.Visible:=False;

dabavit.Visible:=true;

ismeniy.Visible:=true;

ydal.Visible:=true;

DBGrid_rabota.Visible:=False;

DBGrid_gruppa.Visible:=False;

DBGrid_prepodovateli.Visible:=False;

DBGrid_ychaschiesa.Visible:=False;

DBGrid_roditeli.Visible:=True;

DBGrid_krujok.Visible:=False;

Label_prepod.Visible:=False;

Label_ychachiesaq.Visible:=False;

Label_roditeli.Visible:=True;

Label_krujok.Visible:=False;

Label_gruppa.Visible:=False;

Label_rabota.Visible:=False;

Panel_poisk_prepodovateli.Visible:=False;

Panel_poisk_ychschiesa.Visible:=False;

Panel_poisk_rorit.Visible:=True;

Panel_poisk_gruppa.Visible:=False;

Panel_poisk_rabota.Visible:=False;

Panel_poisk_krujok.Visible:=False;

end;

procedure TForm3.N5Click(Sender: TObject);

begin

dabavit.Visible:=true;

ismeniy.Visible:=true;

ydal.Visible:=true;

DBGrid_rabota.Visible:=False;

DBGrid_gruppa.Visible:=False;

DBGrid_krujok.Visible:=True;

DBGrid_prepodovateli.Visible:=False;

DBGrid_ychaschiesa.Visible:=False;

DBGrid_roditeli.Visible:=False;

Label_prepod.Visible:=False;

Label_ychachiesaq.Visible:=False;

Label_roditeli.Visible:=False;

Label_krujok.Visible:=True;

Label_gruppa.Visible:=False;

Label_rabota.Visible:=False;

Panel_poisk_prepodovateli.Visible:=False;

Panel_poisk_ychschiesa.Visible:=False;

Panel_poisk_rorit.Visible:=False;

Panel_poisk_gruppa.Visible:=False;

Panel_poisk_rabota.Visible:=False;

Panel_poisk_krujok.Visible:=True;

end;

procedure TForm3.N6Click(Sender: TObject);

begin

image_foto2.Visible:=False;

dabavit.Visible:=true;

ismeniy.Visible:=true;

ydal.Visible:=true;

DBGrid_rabota.Visible:=False;

DBGrid_gruppa.Visible:=True;

DBGrid_krujok.Visible:=False;

DBGrid_prepodovateli.Visible:=False;

DBGrid_ychaschiesa.Visible:=False;

DBGrid_roditeli.Visible:=False;

Label_prepod.Visible:=False;

Label_ychachiesaq.Visible:=False;

Label_roditeli.Visible:=False;

Label_krujok.Visible:=False;

Label_gruppa.Visible:=True;

Label_rabota.Visible:=False;

Panel_poisk_prepodovateli.Visible:=False;

Panel_poisk_ychschiesa.Visible:=False;

Panel_poisk_rorit.Visible:=False;

Panel_poisk_gruppa.Visible:=True;

Panel_poisk_rabota.Visible:=False;

Panel_poisk_krujok.Visible:=False;

end;

procedure TForm3.N7Click(Sender: TObject);

begin

image_foto2.Visible:=False;

dabavit.Visible:=true;

ismeniy.Visible:=true;

ydal.Visible:=true;

DBGrid_gruppa.Visible:=False;

DBGrid_rabota.Visible:=True;

DBGrid_krujok.Visible:=False;

DBGrid_prepodovateli.Visible:=False;

DBGrid_ychaschiesa.Visible:=False;

DBGrid_roditeli.Visible:=False;

Label_prepod.Visible:=False;

Label_ychachiesaq.Visible:=False;

Label_roditeli.Visible:=False;

Label_krujok.Visible:=False;

Label_gruppa.Visible:=False;

Label_rabota.Visible:=True;

Panel_poisk_prepodovateli.Visible:=False;

Panel_poisk_ychschiesa.Visible:=False;

Panel_poisk_rorit.Visible:=False;

Panel_poisk_gruppa.Visible:=False;

Panel_poisk_rabota.Visible:=True;

Panel_poisk_krujok.Visible:=False;

end;