СПИСОК ИСПОЛЬЗОВАННЫ ИСТОЧНИКОВ

'Абитуриенты, Сдача экзаменов и Школы), формирование отчетности (Конкурс поступления, Списки поступивших)'+

'Статистические данные о сдаче экзаменов, Данные о самой успешной школе города по итогам экзаменов '+

'Список всех поступивших. Конкурс поступления рассчитывается как 2 отношения: '+

'Отношение количества подавших на специальность заявлений к плану набора и '+

'Отношение количества поступивших на специальность к плану набора (ср. балл выше 80)'+

' Также в программе предусмотрено разграничение прав доступа (3 уровня - '+

'Администратор, Менеджер и Гость), смена пользователя и пароля, многопользовательский доступ, резервное копирование.',mtInformation, [mbOk],0);

end;

F:=TiniFile.create(extractFilePath(Application.ExeName)

+'Options.ini'); DBPath1:=F.ReadString('Selection_DBPath','Path',''); F.free;

CopyFile(pchar(DBPath1+'bd.mdb'),pchar(DBPath1+'Copy_bd.m db'),false);

MessageDlg('Создана резервная копия БД',mtInformation, [mbOk],0);

end;

procedure TForm1.Timer1Timer(Sender: TObject); begin

Label1.Caption:=TimeToStr(now);

end;

procedure TForm1.N21Click(Sender: TObject); // Связь с БД var F:TiniFile;

DBPath:widestring; begin

F:=TiniFile.Create(ExtractFilePath(Application.ExeName)

+'Options.ini');

if OpenDialog1.Execute then begin

DBPath:=ExtractFilePath(OpenDialog1.FileName); F.WriteString('Section_DBPath','Path',DBPath); Form1.ADOConnection1.Close; Form1.ADOConnection1.ConnectionString:='Provider=Microsoft. Jet.OLEDB.4.0;Data Source='+DBPath+'bd.mdb;Persist Security Info=False';

Form1.ADOConnection1.Open;

end;

F.Free;

end;

procedure TForm1.FormCreate(Sender: TObject); begin

ADOConnection1.Connected:=False;

if FileExists(GetCurrentDir+'\bd.mdb') then begin

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.O LEDB.4.0;User ID=Admin;Data Source='

+GetCurrentDir+'\bd.mdb'+

';Mode=Share Deny None;Extended Properties="";Persist Security Info=False;'+

Napravlenie

unit Napravlenie;

interface

uses

'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'+

'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'+

'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+

'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+

'Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;'+

'Jet OLEDB:SFP=False'; Application.Title:='Результат операции'; ShowMessage('База данных найдена'); ADOConnection1.Connected:=True;

end else begin

Application.Title:='Результат операции'; ShowMessage('База данных не найдена'); If OpenDialog1.Execute then

begin ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.

OLEDB.4.0;User ID=Admin;Data Source='+ OpenDialog1.FileName+

';Mode=Share Deny None;Extended Properties="";Persist Security Info=False;'+

'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'+

'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'+

'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+

'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+

'Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;'+

'Jet OLEDB:SFP=False'; ADOConnection1.Connected:=True;

end;

end;

end;

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms,

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

DBCtrls, Mask,

jpeg;

type

TForm2 = class(TForm) Panel1: TPanel; Image1: TImage; Label4: TLabel; DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator; GroupBox1: TGroupBox; Label1: TLabel;

Label2: TLabel;

Label3: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit0: TDBEdit; GroupBox2: TGroupBox;

ComboBox1: TComboBox; Edit1: TEdit;

RadioGroup1: TRadioGroup;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton; Button1: TButton;

Button2: TButton; ADOQuery1: TADOQuery; DataSource1: TDataSource; ADOQuery2: TADOQuery; Timer1: TTimer; ADOQuery3: TADOQuery;

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

procedure Edit1Change(Sender: TObject); procedure FormCreate(Sender: TObject); procedure DBGrid1TitleClick(Column: TColumn);

procedure DBGrid1KeyPress(Sender: TObject; var Key: Char); procedure DBEdit1KeyPress(Sender: TObject; var Key: Char); procedure DBEdit2KeyPress(Sender: TObject; var Key: Char); procedure DBEdit3KeyPress(Sender: TObject; var Key: Char); procedure ADOQuery1BeforePost(DataSet: TDataSet); procedure DBEdit1Enter(Sender: TObject);

procedure DBEdit1Exit(Sender: TObject); procedure DBEdit2Enter(Sender: TObject); procedure DBEdit2Exit(Sender: TObject); procedure DBEdit3Enter(Sender: TObject); procedure DBEdit3Exit(Sender: TObject); procedure Timer1Timer(Sender: TObject);

procedure DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);

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

procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private

{ Private declarations }

procedure isEdit; procedure notEdit;

function checkEdit:boolean;

public

{ Public declarations } end;

var

Form2: TForm2; s:string;

ins:boolean;// признак редактирования

implementation

uses Menu;

{$R *.dfm}

procedure TForm2.isEdit; begin

if DBEdit0.Text<>'' then begin

ADOQuery2.SQL.Text:='UPDATE Napravlenie SET Napravlenie.EDIT = True WHERE Napravlenie.n_id='+DBEdit0.Text+';';

ADOQuery2.ExecSQL;

ADOQuery2.SQL.Text:='select * from Napravlenie WHERE Napravlenie.n_id='+DBEdit0.Text+';';

ADOQuery2.Open;

end;

end;

procedure TForm2.notEdit; begin

if DBEdit0.Text<>'' then begin

ADOQuery2.SQL.Text:='UPDATE Napravlenie SET Napravlenie.EDIT = True WHERE Napravlenie.n_id='+DBEdit0.Text+';';

ADOQuery2.ExecSQL;

ADOQuery2.SQL.Text:='select * from Napravlenie WHERE Napravlenie.n_id='+DBEdit0.Text+';';

ADOQuery2.Open;

end;

end;

function TForm2.checkEdit:boolean; var bool:boolean;

begin checkEdit:=false;

if DBEdit0.Text<>'' then ADOQuery2.SQL.Text:='SELECT * FROM Napravlenie WHERE n_id='+DBEdit0.Text+';';

ADOQuery2.Open;

if DBEdit4.Text<>'' then begin

bool:=not strtobool(DBEdit4.Text); DBEdit1.Enabled:=bool; DBEdit2.Enabled:=bool; DBEdit3.Enabled:=bool; Button1.Enabled:=bool; Label4.Visible:= not bool; checkEdit:=not bool;

end;

end;

procedure TForm2.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin key:=#0; end;

procedure TForm2.Edit1Change(Sender: TObject); //поиск begin

if ComboBox1.ItemIndex=-1 then ComboBox1.ItemIndex:=0;

s:=DBGrid1.Columns.Items[ComboBox1.itemindex].FieldName;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from Napravlenie WHERE '+s+' LIKE "'+Edit1.Text+'%"');

ADOQuery1.Close;

ADOQuery1.Open;

end;

procedure TForm2.FormCreate(Sender: TObject); var i:integer;

begin ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from Napravlenie'); ADOQuery1.Open;

for i:=0 to DBGrid1.Columns.Count-1 do ComboBox1.Items.Add(DBGrid1.Columns.Items[i].Title.Captio

n);

Button1.Tag:=1;

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

end;

procedure TForm2.DBGrid1TitleClick(Column: TColumn); //сортировка

var i:integer;

clr:TColor; begin

s:=' DESC'; clr:=clHighlight;

if RadioButton2.Checked then begin

s:=' ASC'; clr:=clAqua; end;

for i:=0 to DBGrid1.Columns.Count-1 do DBGrid1.Columns.Items[i].Title.Color:=clBtnFace; DBGrid1.Columns.Items[Column.Index].Title.Color:=clr; ADOQuery1.Sort:=DBGrid1.Columns.Items[Column.index].Fiel dName+s;

end;

procedure TForm2.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin key:=#0; end;

procedure TForm2.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['а'..'я', 'А'..'Я',' ','.',#8]) then Key:=#0;

end;

procedure TForm2.DBEdit2KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['0'..'9',#8]) then Key:=#0;

end;

procedure TForm2.DBEdit3KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['0'..'9',#8]) then Key:=#0;

end;

procedure TForm2.ADOQuery1BeforePost(DataSet: TDataSet); begin

if (DBEdit1.Text = '') or (DBEdit2.Text = '') or (DBEdit3.Text = '') then

begin

MessageDlg('Не все данные заполнены!',mtWarning, [mbOK],0);

DBEdit1.SetFocus;

abort;

end;

end;

procedure TForm2.DBEdit1Enter(Sender: TObject); begin

Timer1.Enabled:=false;

if (DBEdit0.Text<>'')and(not ins) then if not checkEdit then isEdit;

end;

procedure TForm2.DBEdit1Exit(Sender: TObject); begin

Timer1.Enabled:=true;

notEdit;

end;

procedure TForm2.DBEdit2Enter(Sender: TObject); begin

Timer1.Enabled:=false;

if (DBEdit0.Text<>'')and(not ins) then if not checkEdit then isEdit;

end;

procedure TForm2.DBEdit2Exit(Sender: TObject); begin

Timer1.Enabled:=true;

notEdit;

end;

procedure TForm2.DBEdit3Enter(Sender: TObject); begin

Timer1.Enabled:=false;

if (DBEdit0.Text<>'')and(not ins) then if not checkEdit then isEdit;

end;

procedure TForm2.DBEdit3Exit(Sender: TObject); begin

Timer1.Enabled:=true;

notEdit;

end;

procedure TForm2.Timer1Timer(Sender: TObject); begin

if DBNavigator1.Controls[6].Enabled then begin

DBNavigator1.BtnClick(nbEdit);

DBNavigator1.BtnClick(nbRefresh);

end;

end;

procedure TForm2.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);

begin ins:=false;

if button=nbInsert then begin

ins:=true;

if DBEdit1.Enabled then DBEdit1.SetFocus; end;

if button=nbRefresh then begin

checkEdit;

end;

end;

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

begin notEdit;

ADOQuery2.Active:=false;

ADOQuery2.Active:=true;

Timer1.Enabled:=false;

end;

procedure TForm2.Button1Click(Sender: TObject); var i:Integer;

begin ADOQuery1.Active:=True; ADOQuery1.Active:=True; Refresh;

i:=ADOQuery1.FieldValues['n_id']; ADOQuery1.Locate('n_id',i,[]); ADOQuery1.Delete; ADOQuery1.Active:=False; ADOQuery1.Active:=True; ADOQuery1.Active:=False; ADOQuery1.Active:=True; Refresh;

end;

procedure TForm2.Button2Click(Sender: TObject); begin

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

DBGrid1.Refresh;

Refresh;

end;

end.

'FROM Shkola INNER JOIN Abiturient ON Shkola.sh_id = Abiturient.a_shkola '+

' WHERE Abiturient.a_id='+DBEdit0.Text+';'; ADOQuery2.Open;

if DBEdit3.Text<>'' then begin

bool:=not strtobool(DBEdit3.Text); DateTimePicker1.Enabled:=bool; DBLookupComboBox1.Enabled:=bool; Button1.Enabled:=bool; Label5.Visible:= not bool; checkEdit:=not bool;

end;

end;

procedure TForm3.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin key:=#0; end;

procedure TForm3.Edit1Change(Sender: TObject); //поиск begin

if ComboBox1.ItemIndex=-1 then ComboBox1.ItemIndex:=0;

s:=DBGrid1.Columns.Items[ComboBox1.itemindex].FieldName;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(SQL+

' WHERE '+s+' LIKE "'+Edit1.Text+'%"'); ADOQuery1.Close;

ADOQuery1.Open;

end;

procedure TForm3.FormCreate(Sender: TObject); var i:integer;

begin ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(SQL); ADOQuery1.Open;

for i:=0 to DBGrid1.Columns.Count-1 do ComboBox1.Items.Add(DBGrid1.Columns.Items[i].Title.Captio

n);

{ button1.tag:=1; } end;

procedure TForm3.DBGrid1TitleClick(Column: TColumn); var

i:integer;

clr:TColor; begin

s:=' DESC'; clr:=clHighlight;

if RadioButton2.Checked then begin

s:=' ASC'; clr:=clAqua; end;

for i:=0 to DBGrid1.Columns.Count-1 do DBGrid1.Columns.Items[i].Title.Color:=clBtnFace; DBGrid1.Columns.Items[Column.Index].Title.Color:=clr; ADOQuery1.Sort:=DBGrid1.Columns.Items[Column.index].Fiel dName+s;

end;

procedure TForm3.DateTimePicker1CloseUp(Sender: TObject); begin

DBNavigator1.BtnClick(nbEdit);

DBEdit5.EditText:=DateToStr(DateTimePicker1.Date);

end;

procedure TForm3.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin key:=#0; end;

procedure TForm3.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['а'..'я', 'А'..'Я',' ','.',#8]) then Key:=#0;

end;

procedure TForm3.DateTimePicker1KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['0'..'9','.',#8]) then Key:=#0;

end;

procedure TForm3.DBEdit2KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['0'..'9',#8]) then Key:=#0;

end;

procedure TForm3.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

begin

if button=nbPost then //принять begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(SQL);

ADOQuery1.Open;

DBGrid1.Refresh;

end;

end;

procedure TForm3.DBEdit5Change(Sender: TObject); begin

if DBEdit5.Text<>'' then DateTimePicker1.Date:=StrToDate(DBEdit5.Text); end;

procedure TForm3.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);

begin ins:=false;

if button=nbInsert then begin

ins:=true;

end;

if button=nbRefresh then begin

checkEdit;

end;

end;

procedure TForm3.DateTimePicker1Enter(Sender: TObject); begin

Timer1.Enabled:=false;

if (DBEdit0.Text<>'')and(not ins) then

// Если запись не редактируется то выставляем признак редактирования

if not checkEdit then isEdit; end;

procedure TForm3.DateTimePicker1Exit(Sender: TObject); begin

Timer1.Enabled:=true;

notEdit;

end;

{

procedure TForm3.Timer1Timer(Sender: TObject); begin

//как-бы нажимаем на кнопку обновить по наступлении события от таймера

//если запись не редактируется

if DBNavigator1.Controls[6].Enabled then begin

DBNavigator1.BtnClick(nbEdit);

DBNavigator1.BtnClick(nbRefresh);

end; end; }

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

if DBEdit5.Text<>'' then begin

bool:=not strtobool(DBEdit5.Text); DBEdit1.Enabled:=bool; DBEdit2.Enabled:=bool; Button1.Enabled:=bool; Label5.Visible:= not bool; checkEdit:=not bool;

end;

end;

procedure TForm11.Edit1Change(Sender: TObject); //поиск begin

if ComboBox1.ItemIndex=-1 then ComboBox1.ItemIndex:=0;

s:=DBGrid1.Columns.Items[ComboBox1.itemindex].FieldName;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from Shkola WHERE '+s+' LIKE "'+Edit1.Text+'%"');

ADOQuery1.Close;

ADOQuery1.Open;

end;

procedure TForm11.FormCreate(Sender: TObject); var i:integer;

begin ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from Shkola'); ADOQuery1.Open;

for i:=0 to DBGrid1.Columns.Count-1 do ComboBox1.Items.Add(DBGrid1.Columns.Items[i].Title.Captio

n);

end;

procedure TForm11.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin key:=#0; end;

procedure TForm11.DBGrid1TitleClick(Column: TColumn); //сортировка

var i:integer; clr:TColor; begin

s:=' DESC'; clr:=clHighlight;

if RadioButton2.Checked then begin

s:=' ASC'; clr:=clAqua; end;

for i:=0 to DBGrid1.Columns.Count-1 do DBGrid1.Columns.Items[i].Title.Color:=clBtnFace; DBGrid1.Columns.Items[Column.Index].Title.Color:=clr; ADOQuery1.Sort:=DBGrid1.Columns.Items[Column.index].Fiel dName+s;

end;

procedure TForm11.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin key:=#0; end;

procedure TForm11.DBEdit1KeyPress(Sender: TObject; var Key: Char);

begin

If not (Key in ['а'..'я', 'А'..'Я',' ','.',#8]) then Key:=#0;

end;

procedure TForm11.ADOQuery1BeforePost(DataSet: TDataSet); begin

if (DBEdit1.Text = '') or (DBEdit2.Text = '') then begin

MessageDlg('Не все данные заполнены!',mtWarning, [mbOK],0);

DBEdit1.SetFocus;

abort;

end;

end;

procedure TForm11.DBEdit1Enter(Sender: TObject); begin

Timer1.Enabled:=false;

if (DBEdit0.Text<>'')and(not ins) then

// Если запись не редактируется то выставляем признак редактирования

if not checkEdit then isEdit; end;

procedure TForm11.DBEdit1Exit(Sender: TObject); begin

Timer1.Enabled:=true;

notEdit;

end;

procedure TForm11.DBEdit2Enter(Sender: TObject); begin

Timer1.Enabled:=false;

if (DBEdit0.Text<>'')and(not ins) then

// Если запись не редактируется то выставляем признак редактирования

if not checkEdit then isEdit; end;

procedure TForm11.DBEdit2Exit(Sender: TObject); begin

Timer1.Enabled:=true;

notEdit;

end;

procedure TForm11.Timer1Timer(Sender: TObject); begin

//как-бы нажимаем на кнопку обновить по наступлении события от таймера

//если запись не редактируется

if DBNavigator1.Controls[6].Enabled then begin

DBNavigator1.BtnClick(nbEdit);

DBNavigator1.BtnClick(nbRefresh);

end;

end;

procedure TForm11.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn);

begin ins:=false;

if button=nbInsert then begin

ins:=true;

if DBEdit1.Enabled then DBEdit1.SetFocus; end;

if button=nbRefresh then begin

checkEdit;

end;

end;

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

begin notEdit;

ADOQuery2.Active:=false;

ADOQuery2.Active:=true;

Timer1.Enabled:=false;

end;

procedure TForm11.Button1Click(Sender: TObject); var i:Integer;

begin ADOQuery1.Active:=True; ADOQuery1.Active:=True; Refresh;

i:=ADOQuery1.FieldValues['sh_id']; ADOQuery1.Locate('sh_id',i,[]); ADOQuery1.Delete; ADOQuery1.Active:=False; ADOQuery1.Active:=True; ADOQuery1.Active:=False; ADOQuery1.Active:=True;

// Form9.ADOQuery1.Active:=false; //Form9.ADOQuery1.Active:=true; //Form10.ADOQuery1.Active:=false; //Form10.ADOQuery1.Active:=true; Refresh;

Postupivshie

unit Postupivshie;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB, WordXP, OleServer, ComCtrls, COMObj,

ActiveX, jpeg;

type

TForm10 = class(TForm) Panel2: TPanel; Image1: TImage; DBGrid1: TDBGrid; Panel1: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit; Button1: TButton; Button2: TButton;

ADOQuery1: TADOQuery;

DataSource1: TDataSource; WordDocument1: TWordDocument; WordApplication1: TWordApplication; WordFont1: TWordFont; WordLetterContent1: TWordLetterContent;

WordParagraphFormat1: TWordParagraphFormat; SaveDialog1: TSaveDialog;

procedure Button1Click(Sender: TObject);

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

private

{Private declarations } public

{Public declarations } end;

var

Form10: TForm10; s:string;

implementation

uses Menu, Abiturient, Shkola, Napravlenie;

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject); begin

s:=' DESC';

if Edit1.Text = '' then begin

end;

procedure TForm11.Button2Click(Sender: TObject); begin

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

DBGrid1.Refresh;

Refresh;

end;

end.

MessageDlg('Заполните поле «Населенный пункт!» Edit1.SetFocus;

end

else if Edit2.Text = '' then begin

MessageDlg('Заполните поле «Школа»!',mtWarning, [mbOK],0);

Edit2.SetFocus; end

else begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT Shkola.sh_gorod, Shkola.sh_nomer, Abiturient.a_fio, Napravlenie.n_name, '+

' Round(([Sdacha]![sd_matem]+[Sdacha]![sd_russkij]+ [Sdacha]![sd_fisika])/3,2) AS Res '+

' FROM Napravlenie INNER JOIN (Shkola INNER JOIN (Abiturient INNER JOIN Sdacha ON Abiturient.a_id = Sdacha.sd_abitur)'+

'ON Shkola.sh_id = Abiturient.a_shkola) ON Napravlenie.n_id

=Abiturient.a_napravlenie'+

'WHERE (((Shkola.sh_gorod) Like "'+Edit1.Text+'") AND ((Shkola.sh_nomer) Like "'+Edit2.Text+'")) '+

'OR (((Shkola.sh_gorod) Like "'+Edit1.Text+'") AND ((Shkola.sh_nomer) Like "'+Edit2.Text+'")) '+

'GROUP BY Shkola.sh_id, Shkola.sh_gorod, Shkola.sh_nomer, Abiturient.a_id, Abiturient.a_fio, '+

'Abiturient.a_napravlenie, Napravlenie.n_id,

Napravlenie.n_name, '+

' Round(([Sdacha]![sd_matem]+[Sdacha]![sd_russkij]+ [Sdacha]![sd_fisika])/3,2)'+

' HAVING (((Round(([Sdacha]![sd_matem]+[Sdacha]! [sd_russkij]+[Sdacha]![sd_fisika])/3,2))>80));');

ADOQuery1.Close;

ADOQuery1.Open;

if ADOQuery1.IsEmpty then

MessageDlg(‘По Вашему запросу ничего не найдено!!',mtWarning,[mbOK],0);

end;

end;

procedure TForm10.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin key:=#0; end;

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

begin

If not (Key in ['à'..'ÿ', 'À'..'ß',' ','.',#8]) then Key:=#0;

end;

procedure TForm10.Button2Click(Sender: TObject); const

wdAlignParagraphCenter = 1;

wdAlignParagraphLeft = 0; wdAlignParagraphRight = 2;

wdLineStyleSingle = 1; var

wdApp, wdDoc, wdRng, wdTable : Variant; i, j, Res : Integer;

D : TDateTime; Bm : TBookMark; Sd : TSaveDialog; begin

if ADOQuery1.IsEmpty then

MessageDlg('Таблица пуста, формировать отчет бессмысленно !',mtWarning,[mbOK],0)

Else begin

Sd := SaveDialog1;

if Sd.InitialDir = '' then Sd.InitialDir := ExtractFilePath( ParamStr(0) );

if not Sd.Execute then Exit;

if FileExists(Sd.FileName) then begin

Res := MessageBox(0, ‘Файл с заданным именем существует. Перезаписать?'

,'Внимание!', MB_YESNO + MB_ICONQUESTION + MB_APPLMODAL);

if Res <> IDYES then Exit; end;

try

wdApp := CreateOleObject('Word.Application'); except

MessageBox(0, 'Не удалось найти MS Word. Действие отменено.'

,'Внимание!', MB_OK + MB_ICONERROR + MB_APPLMODAL);

Exit;

end;

.

wdApp.Visible := True;.

wdDoc := wdApp.Documents.Add; wdApp.ScreenUpdating := False; try

wdRng := wdDoc.Content;

wdRng.InsertAfter('Все поступившие в ВУЗ абитуриенты из заданной школы заданного города'#13#10);

wdRng.ParagraphFormat.Alignment := wdAlignParagraphCenter;

wdRng.Font.Name := 'Times New Roman'; wdRng.Font.Bold := True; wdRng.Font.Size := 14;

wdRng.Start := wdRng.End; wdRng.InsertAfter(#13#10); D := Now;

wdRng.InsertAfter('Дата: ' + FormatDateTime('dd.mm.yyyy', D) + #13#10);

wdRng.InsertAfter('Время: ' + FormatDateTime('hh:nn:ss', D) + #13#10);

wdRng.InsertAfter('Населенный пункт: ' + Edit1.Text + #13#10);

wdRng.InsertAfter('Школа: ' + Edit2.Text + #13#10); wdRng.ParagraphFormat.Reset;

wdRng.ParagraphFormat.Alignment := wdAlignParagraphLeft;

wdRng.Font.Reset; wdRng.Font.Size := 12; wdRng.Font.Bold := True;

wdRng.Start := wdRng.End; wdRng.InsertAfter(#13#10);

wdRng.InsertAfter('Таблица 1. Все абитуриенты, поступившие в ВУЗ из заданной школы заданного города.'#13#10);

wdRng.ParagraphFormat.Reset;

wdRng.Font.Reset; wdRng.Font.Size := 12; wdRng.Font.Bold := False;

if not ADOQuery1.Active then ADOQuery1.Open;

wdRng.Start := wdRng.End;

wdTable := wdDoc.Tables.Add(wdRng.Characters.Last, 2, ADOQuery1.Fields.Count);

wdTable.Borders.InsideLineStyle := wdLineStyleSingle; wdTable.Borders.OutsideLineStyle := wdLineStyleSingle; wdRng.ParagraphFormat.Reset;

wdRng.ParagraphFormat.Alignment := wdAlignParagraphCenter;

wdRng := wdTable.Rows.Item(1).Range; wdRng.ParagraphFormat.Alignment :=

wdAlignParagraphCenter; wdRng.Font.Size := 10; wdRng.Font.Bold := True;

wdRng := wdTable.Rows.Item(2).Range; wdRng.ParagraphFormat.Alignment :=

wdAlignParagraphCenter; wdRng.Font.Size := 10; wdRng.Font.Bold := False;

wdTable.Cell(1,1).Range.Text := 'Населенный пункт'; wdTable.Cell(1,2).Range.Text := 'Школа'; wdTable.Cell(1,3).Range.Text := 'ФИО абитуриента'; wdTable.Cell(1,4).Range.Text := 'Направление'; wdTable.Cell(1,5).Range.Text := 'Средний балл'; ADOQuery1.DisableControls;

Bm := ADOQuery1.GetBookMark; ADOQuery1.First;

i := 1;

while not ADOQuery1.Eof do begin Inc(i);

if i > 2 then wdTable.Rows.Add;

for j := 0 to ADOQuery1.Fields.Count - 1 do

wdTable.Cell(i, j + 1).Range.Text := ADOQuery1.Fields[j].AsString;

ADOQuery1.Next;

end;

ADOQuery1.GotoBookMark(Bm);

ADOQuery1.EnableControls;

finally

wdApp.Visible := True. wdApp.ScreenUpdating := True; end;

wdApp.DisplayAlerts := False; try wdDoc.SaveAs(FileName:=Sd.FileName); finally wdApp.DisplayAlerts := True; end;

end;

end;

end.

Konkurs

unit Konkurs;

interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, jpeg, StdCtrls;

type

TForm6 = class(TForm) DataSource1: TDataSource; ADOQuery1: TADOQuery; Panel1: TPanel;

DBGrid1: TDBGrid; Panel2: TPanel; Image1: TImage;

ADOQuery2: TADOQuery; DataSource2: TDataSource; Label1: TLabel;

Label2: TLabel;

Panel3: TPanel;

Label3: TLabel;

Label4: TLabel; DBGrid2: TDBGrid;

procedure DBGrid1KeyPress(Sender: TObject; var Key: Char); private

{Private declarations } public

{Public declarations } end;

var

Form6: TForm6;

implementation

uses Menu, Napravlenie, Postupivshie, Sdacha, Statistika;

{$R *.dfm}

procedure TForm6.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin key:=#0; end;

end.

Spiski

unit Spiski;

interface

uses

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

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

ExcelXP, OleServer, COMObj, ActiveX, WordXP, jpeg;

type

TForm7 = class(TForm) ADOQuery1: TADOQuery; DataSource1: TDataSource;

ExcelApplication1: TExcelApplication;

ExcelWorkbook1: TExcelWorkbook;

ExcelOLEObject1: TExcelOLEObject;

ExcelWorksheet1: TExcelWorksheet; SaveDialog1: TSaveDialog;

Timer1: TTimer;

Panel1: TPanel; DBGrid1: TDBGrid;

DateTimePicker1: TDateTimePicker; Label1: TLabel;

Button1: TButton;

Image1: TImage;

Image2: TImage;

procedure DBGrid1KeyPress(Sender: TObject; var Key: Char); procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private

{Private declarations } public

{Public declarations } end;

var

Form7: TForm7; implementation

uses Menu, Abiturient, Napravlenie; {$R *.dfm}

procedure TForm7.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin key:=#0; end;

procedure TForm7.Button1Click(Sender: TObject); var i,j,index: Integer;

ExcelApp,sheet, exRng: Variant; ClassID: TCLSID;

Rez : HRESULT; begin

Rez := CLSIDFromProgID(PWideChar(WideString('Excel.Application')), ClassID);

if Rez <> S_OK then begin

MessageDlg('Excel не установлен!',mtERROR,[mbok],0); Exit;

end;

ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.Visible := true; ExcelApp.WorkBooks.Add(-4167);

ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Поступившие'; sheet:=ExcelApp.WorkBooks[1].WorkSheets['Поступившие'];

Sheet.Cells[1,1]:='Список всех поступивших на: '; Sheet.Cells[1,2]:=DateTimePicker1.DateTime; Sheet.Cells[3,1]:='Абитуриент'; Sheet.Cells[3,2]:='Направление'; Sheet.Cells[3,3]:='Средний балл';

index:=4;

DBGrid1.DataSource.DataSet.First;

for i:=3 to DBGrid1.DataSource.DataSet.RecordCount+2 do begin

for j:=1 to DBGrid1.FieldCount do sheet.cells[index,j]:=DBGrid1.fields[j-1].asstring; inc(index);

ExcelApp.Columns.AutoFit;

// exSheet := ExBook.WorkSheets[1];

exRng := sheet.Range[sheet.Cells[3,1], sheet.Cells[DBGrid1.DataSource.DataSet.RecordCount+3, DBGrid1.FieldCount]];

exRng.Borders[xlEdgeTop].LineStyle := xlContinuous; exRng.Borders[xlEdgeTop].Weight := xlMedium; exRng.Borders[xlEdgeBottom].LineStyle := xlContinuous; exRng.Borders[xlEdgeBottom].Weight := xlMedium; exRng.Borders[xlEdgeLeft].LineStyle := xlContinuous; exRng.Borders[xlEdgeLeft].Weight := xlMedium; exRng.Borders[xlEdgeRight].LineStyle := xlContinuous; exRng.Borders[xlEdgeRight].Weight := xlMedium; //Обрамление ячеек внутри диапазона. exRng.Borders[xlInsideHorizontal].LineStyle := xlContinuous; exRng.Borders[xlInsideHorizontal].Weight := xlThin; exRng.Borders[xlInsideVertical].LineStyle := xlContinuous; exRng.Borders[xlInsideVertical].Weight := xlThin;

sheet.Cells[3, 1].Font.Bold:=true; sheet.Cells[3, 2].Font.Bold:=true; sheet.Cells[3, 3].Font.Bold:=true;

sheet.Cells[3, 1].Borders[xlEdgeBottom].LineStyle := xlContinuous;

sheet.Cells[3, 1].Borders[xlEdgeBottom].Weight := xlMedium; sheet.Cells[3, 2].Borders[xlEdgeBottom].LineStyle :=

xlContinuous;

sheet.Cells[3, 2].Borders[xlEdgeBottom].Weight := xlMedium; sheet.Cells[3, 3].Borders[xlEdgeBottom].LineStyle :=

xlContinuous;

sheet.Cells[3, 3].Borders[xlEdgeBottom].Weight := xlMedium;

sheet.Cells[3, 1].Borders[xlEdgeLeft].LineStyle := xlContinuous; sheet.Cells[3, 1].Borders[xlEdgeLeft].Weight := xlMedium; sheet.Cells[3, 2].Borders[xlEdgeLeft].LineStyle := xlContinuous; sheet.Cells[3, 2].Borders[xlEdgeLeft].Weight := xlMedium; sheet.Cells[3, 3].Borders[xlEdgeLeft].LineStyle := xlContinuous; sheet.Cells[3, 3].Borders[xlEdgeLeft].Weight := xlMedium;

// exRng.Columns.AutoFit; DBGrid1.DataSource.DataSet.Next;

end;

end;

procedure TForm7.Timer1Timer(Sender: TObject); begin

DateTimePicker1.DateTime:=now;

end;

procedure TForm7.FormCreate(Sender: TObject); var i:integer;

begin DateTimePicker1.Date:=now; ADOQuery1.Active:=false; ADOQuery1.Active:=true; ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT Abiturient.a_fio, Napravlenie.n_name,'+

' Round(([Sdacha]![sd_matem]+[Sdacha]![sd_russkij]+[Sdacha]! [sd_fisika])/3,2) AS Res '+

' FROM (Napravlenie INNER JOIN Abiturient ON Napravlenie.n_id = Abiturient.a_napravlenie)'+

'INNER JOIN Sdacha ON Abiturient.a_id = Sdacha.sd_abitur '+

'WHERE (((Round(([Sdacha]![sd_matem]+[Sdacha]![sd_russkij] +[Sdacha]![sd_fisika])/3,2))>80));');

ADOQuery1.Open;

end;

end.

Statistika

unit Statistika;

interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, ExtCtrls, jpeg;

type

TForm8 = class(TForm) Panel1: TPanel; Image1: TImage; DBGrid1: TDBGrid;

GroupBox2: TGroupBox;

ComboBox1: TComboBox; Edit1: TEdit;

RadioGroup1: TRadioGroup;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

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

procedure Edit1Change(Sender: TObject); procedure FormCreate(Sender: TObject); procedure DBGrid1TitleClick(Column: TColumn);

procedure DBGrid1KeyPress(Sender: TObject; var Key: Char); private

{Private declarations } public

{Public declarations } end;

var

Form8: TForm8; s:string;

implementation

uses Menu;

{$R *.dfm}

procedure TForm8.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin

key:=#0;

end;

procedure TForm8.Edit1Change(Sender: TObject); //поиск begin

if ComboBox1.ItemIndex=-1 then ComboBox1.ItemIndex:=0;

s:=DBGrid1.Columns.Items[ComboBox1.itemindex].FieldName;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT Abiturient.a_fio, Napravlenie.n_name, Sdacha.sd_matem, '+

' Sdacha.sd_russkij, Sdacha.sd_fisika, Round(([Sdacha]! [sd_matem]+[Sdacha]![sd_russkij]+[Sdacha]![sd_fisika])/3,2) AS Res'+

' FROM Napravlenie INNER JOIN (Abiturient INNER JOIN Sdacha ON Abiturient.a_id = Sdacha.sd_abitur) '+

'ON Napravlenie.n_id = Abiturient.a_napravlenie'+

'WHERE '+s+' LIKE "'+Edit1.Text+'%"'); ADOQuery1.Close;

ADOQuery1.Open;

end;

procedure TForm8.FormCreate(Sender: TObject); var i:integer;

begin ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT Abiturient.a_fio, Napravlenie.n_name, Sdacha.sd_matem, '+

' Sdacha.sd_russkij, Sdacha.sd_fisika, Round(([Sdacha]! [sd_matem]+[Sdacha]![sd_russkij]+[Sdacha]![sd_fisika])/3,2) AS Res'+

' FROM Napravlenie INNER JOIN (Abiturient INNER JOIN Sdacha ON Abiturient.a_id = Sdacha.sd_abitur) '+

' ON Napravlenie.n_id = Abiturient.a_napravlenie'); ADOQuery1.Open;

for i:=0 to DBGrid1.Columns.Count-2 do ComboBox1.Items.Add(DBGrid1.Columns.Items[i].Title.Captio

n);

end;

procedure TForm8.DBGrid1TitleClick(Column: TColumn); //сортировка

var i:integer; clr:TColor; begin

s:=' DESC'; clr:=clHighlight;

if RadioButton2.Checked then begin

s:=' ASC'; clr:=clAqua; end;

for i:=0 to DBGrid1.Columns.Count-1 do DBGrid1.Columns.Items[i].Title.Color:=clBtnFace; DBGrid1.Columns.Items[Column.Index].Title.Color:=clr; ADOQuery1.Sort:=DBGrid1.Columns.Items[Column.index].Fiel dName+s;

end;

procedure TForm8.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin key:=#0; end;

end.

Uspeh

unit Uspeh;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls, DB, ADODB, Grids, DBGrids, jpeg;

type

TForm9 = class(TForm) DataSource1: TDataSource; ADOQuery1: TADOQuery; Panel2: TPanel;

DBGrid1: TDBGrid; Panel1: TPanel; Label1: TLabel; Label2: TLabel; Edit1: TEdit; Button1: TButton; Image1: TImage;

procedure Button1Click(Sender: TObject);

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

{Private declarations } public

{Public declarations } end;

var

Form9: TForm9; s:string;

implementation

uses Menu, Shkola, Abiturient;

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject); begin

s:=' DESC';

if Edit1.Text = '' then begin

MessageDlg('Заполните поле!',mtWarning,[mbOK],0); Edit1.SetFocus;

end else begin

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('SELECT Shkola.sh_id, Shkola.sh_gorod, Shkola.sh_nomer, Abiturient.a_fio,' +

' Round(([Sdacha]![sd_matem]+[Sdacha]![sd_russkij]+ [Sdacha]![sd_fisika])/3,2) AS Res'+

' FROM Shkola INNER JOIN (Abiturient INNER JOIN Sdacha ON Abiturient.a_id = Sdacha.sd_abitur) '+

'ON Shkola.sh_id = Abiturient.a_shkola'+

'WHERE Shkola.sh_gorod LIKE "'+Edit1.Text+'"'+

'GROUP BY Shkola.sh_id, Shkola.sh_gorod,

Shkola.sh_nomer, Abiturient.a_fio, '+

' Round(([Sdacha]![sd_matem]+[Sdacha]![sd_russkij]+ [Sdacha]![sd_fisika])/3,2)'+

' HAVING (((Round(([Sdacha]![sd_matem]+[Sdacha]! [sd_russkij]+[Sdacha]![sd_fisika])/3,2))>80))');

ADOQuery1.Close;

ADOQuery1.Open;

if ADOQuery1.IsEmpty then

MessageDlg('По Вашему запросу ничего не найдено!',mtWarning,[mbOK],0);

end;

end;

procedure TForm9.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin key:=#0; end;

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

begin

If not (Key in ['а'..'я', 'А'..'Я',' ','.',#8]) then Key:=#0;

end;

end.

Polzovatel

unit Polzovatel;

interface

uses

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

Dialogs, ADODB, DB, Mask, DBCtrls, StdCtrls, Buttons, ExtCtrls;

type

TForm12 = class(TForm) Panel1: TPanel; Panel2: TPanel; Label1: TLabel;

DBLookupComboBox1: TDBLookupComboBox; Panel3: TPanel;

Label2: TLabel; Edit1: TEdit; Panel4: TPanel; BitBtn1: TBitBtn; BitBtn2: TBitBtn;

OpenDialog1: TOpenDialog;

DataSource1: TDataSource;

DataSource2: TDataSource; DBEdit1: TDBEdit; DBEdit2: TDBEdit;

ADODataSet1: TADODataSet; ADOQuery1: TADOQuery; Panel5: TPanel;

Label3: TLabel;

Label4: TLabel;

DBLookupComboBox2: TDBLookupComboBox; Edit2: TEdit;

Panel6: TPanel;

Button1: TButton;

Button2: TButton;

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

procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormShow(Sender: TObject);

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

private

{Private declarations } public

{Public declarations } end;

var

Form12: TForm12; pass:boolean; pwd:string; flag:boolean; posetitel:string;

implementation

uses Menu, Napravlenie, Abiturient, Sdacha, Disciplina, Konkurs, Spiski, Statistika, Uspeh, Postupivshie, Shkola;

{$R *.dfm}

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

begin

if not pass then form1.Close; end;

procedure TForm12.FormCreate(Sender: TObject); begin

pass:=false;

end;

procedure TForm12.Button1Click(Sender: TObject); var i:integer;

begin form12.ADODataSet1.Active:=false; form12.ADODataSet1.Active:=true; ADODataSet1.First;

for i:=1 to ADODataSet1.RecordCount do begin

if (DBLookupComboBox2.text=DBEdit1.Text) and (Edit2.text=DBEdit2.text) then

begin

if DBEdit1.Text='АДМИНИСТРАТОР' then begin

Form1.N17.Enabled:=true;

Form1.N18.Enabled:=true;

Form1.N3.Enabled:=true;

form10.Button2.Enabled:=true;

form7.Button1.Enabled:=true;

Form1.N12.Enabled:=true;

end;

if DBEdit1.Text='МЕНЕДЖЕР' then begin

Form1.N17.Enabled:=false;

Form1.N18.Enabled:=false;

Form1.N3.Enabled:=true;

form10.Button2.Enabled:=true;

form7.Button1.Enabled:=true;

Form1.N12.Enabled:=true;

end;

if DBEdit1.Text='ГОСТЬ' then begin Form1.N3.Enabled:=false; form10.Button2.Enabled:=false; form7.Button1.Enabled:=false; Form1.N12.Enabled:=false; Form1.N17.Enabled:=false; Form1.N18.Enabled:=false; end;

pass:=true;

form12.Close;

end;

ADODataSet1.Next;

end;

if not pass then MessageDlg('Логин/пароль не верен',mtWarning,[mbOk],0);

form1.Label2.Caption:=DBLookupComboBox2.text;

form1.Label2.Visible:=True;

form12.ADODataSet1.Active:=false;

form12.ADODataSet1.Active:=true;

end;

procedure TForm12.Button2Click(Sender: TObject); begin

Form12.Close;

Form1.Close;

end;

procedure TForm12.FormShow(Sender: TObject); begin

ADODataSet1.Refresh; ADODataSet1.CommandText:='select * from Polzovatel'; ADODataSet1.Open;

end;

procedure TForm12.DBLookupComboBox2KeyPress(Sender: TObject;

var Key: Char); begin

Key:=#0;

end;

end.

Smena

unit Smena;

interface

uses

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

Dialogs, DBCtrls, StdCtrls, ExtCtrls, DB, ADODB, Buttons;

type

TForm13 = class(TForm) Panel1: TPanel; Label1: TLabel;

DBLookupComboBox1: TDBLookupComboBox; Panel2: TPanel;

Label2: TLabel; Edit1: TEdit; Panel3: TPanel; Label3: TLabel; Label4: TLabel; Edit2: TEdit; Edit3: TEdit; Panel4: TPanel; BitBtn1: TBitBtn; BitBtn2: TBitBtn;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

procedure BitBtn1Click(Sender: TObject);

procedure DBLookupComboBox1CloseUp(Sender: TObject); procedure BitBtn2Click(Sender: TObject);

procedure FormShow(Sender: TObject);

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

private

{Private declarations } public

{Public declarations } end;

var

Form13: TForm13; posetitel,pwd:string;

implementation

uses Menu, Postupivshie, Spiski;

{$R *.dfm}

procedure TForm13.BitBtn1Click(Sender: TObject); // Кнопка изменить

begin

if posetitel<>'' then

if pwd<>Trim(Edit1.Text) then MessageDlg('Неверный пароль',mtError,[mbOk],0) else

begin

if Edit2.text=Edit3.Text then begin ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('Update Polzovatel set p_parol="'+Edit3.Text+'" where p_id='+IntToStr(DBLookupComboBox1.KeyValue)+';');

ADOQuery1.ExecSQL;

Form1:=TForm1.Create(self);

Form1.Show;

if posetitel='ГОСТЬ' then begin

Form1.N3.Enabled:=false; // справочники form10.Button2.Enabled:=false; //сформировать отчет в

Word