Список использованной литературы

1. Ешпанова М.Д, Ибрашева А.Т. Объектно-ориентированное программирование. Часть 1.Методические указания к выполнению лабораторных работ для студентов специальности 5В070200-«Автоматизация и управление»-Алматы:АУЭС,2010-55с.

2. Культин Н.Б.Delphi в задачах и примерах.-СПб.:БХВ-Петербург,2004.-288 с.:ил.

3. Фленов М.Библия для программиста в среде Delphi.-СПб:БХВ-Петербург,2008.

4. http://www.delphiplus.org/programirovanie-baz-dannih-v-delphi/prostoi-otchet.html

5. http://www.delphiplus.org/programirovanie-baz-dannih-v-delphi/ustanovka-quick-report.html

Приложение а

unit Unit1;

interface

uses

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

Dialogs, DB, StdCtrls, Grids, DBGrids, ADODB, ExtCtrls, DBCtrls, ComCtrls,

Menus;

type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

ADOTable1: TADOTable;

DataSource3: TDataSource;

ADOTable3: TADOTable;

DataSource4: TDataSource;

ADOTable4: TADOTable;

DataSource5: TDataSource;

ADOTable5: TADOTable;

StatusBar1: TStatusBar;

MainMenu1: TMainMenu;

PopupMenu1: TPopupMenu;

N1: TMenuItem;

N2: TMenuItem;

N5: TMenuItem;

N4: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N9: TMenuItem;

N3: TMenuItem;

N8: TMenuItem;

N10: TMenuItem;

Timer1: TTimer;

Button7: TButton;

Edit1: TEdit;

DataSource2: TDataSource;

ADOTable2: TADOTable;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button7Click(Sender: TObject);

procedure Button8Click(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

form3.show;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form5.show;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

If MessageDlg('Вы действительно хотите выйти?',mtConfirmation,[mbYes,mbNo],0)= mrYes then Form1.Close;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Form6.show;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Form7.show;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

Form7.show;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

statusbar1.Panels[0].Text:=datetostr(now);

statusbar1.Panels[1].Text:=timetostr(now);

Statusbar1.panels[2].text:='Шарипов Есет Бау 11-6'

end;

procedure TForm1.N5Click(Sender: TObject);

begin

button3click(button3);

end;

procedure TForm1.N4Click(Sender: TObject);

begin

button1click(button1);

end;

procedure TForm1.N6Click(Sender: TObject);

begin

button4click(button4);

end;

procedure TForm1.N7Click(Sender: TObject);

begin

button6click(button6);

end;

procedure TForm1.N9Click(Sender: TObject);

begin

button2click(button2);

end;

procedure TForm1.N10Click(Sender: TObject);

begin

If MessageDlg('Вы действительно хотите выйти?',mtConfirmation,[mbYes,mbNo],0)= mrYes then Form1.Close;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

n4.Visible:=false;n5.Visible:=false;n6.Visible:=false;

n7.Visible:=false;n9.Visible:=false;

button1.Hide;button2.Hide;button3.Hide;

button4.Hide;button6.Hide;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

if edit1.Text='240594'then

begin

n4.Visible:=true;n5.Visible:=true;n6.Visible:=true;

n7.Visible:=true;n9.Visible:=true;

Button1.Show;Button2.Show;Button3.Show;

Button7.Hide;Edit1.Hide;

Button4.Show;Button6.Show;ShowMessage('Добро Пожаловать!');

Button7.Hide;Edit1.Hide;

end

else ShowMessage('Непревильный Пароль!');

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

form8.show;form1.Hide;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

If key=#13 then

Begin

button7.SetFocus;

End;

end;

end.