ОЛДАНЫЛАН ДЕБИЕТТЕР ТІЗІМІ

 

[1] Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений/Под ред. проф. А.Д. Хомоненко. – СПб.: КОРОНА принт, 2002.

[2] Глушков В. М. Основы безбумажной информатики, М.: Наука, 1987.

[3] Глушков В. М. Человек и вычислительная техника, М.: Наука, 1971.

[4] Н.А. Гайдамакин Автоматизированные информационные системы, базы и банки данных, М.: «Гелиос», 2002.

[5] Морева, Н. А. Современная технология учебного занятия / Н. А. Морева. – М.: Просвещение, 2007. – 156 с.

[6] Праг К., Ирвин М., “Библия пользователя Access для Windows 2000”, К.:Диалектика, 2001.

[7] Балабаева Л.Ш. Мліметтер базасы, ОК Алматы, азТУ 2011 ж.

[8] Кренке Д. Теория и практика построения баз данных: [пер.с англ] / Д. Кренке. - 9 - е изд. - СПб.: Питер, 2005.

[9] Фаронов В.В. Программирование баз данных в Delphi 7: Учебный курс. – СПб.: Питер, 2004

[10] Карпова Т.С. Базы данных: модели, разработка, реализация. - СПб.: Питер, 2001.

[11] Ульман Дж., Уидом Дж. Введение в системы баз данных. - М.: Лори, 2000.

[12] Хансен Г., Хансен Д. Базы данных. Разработка и управление. – М.: Бином, 2000.

[13] Мещеряков Е.В., Хомоненко А.Д. Публикация баз данных в Интернете. – СПб.: БХВ-Петербург, 2001.

[14] www.yandex.com.

[15] www.altavista.digital.com.

[16] www.delphimaster.ru.

[17] www.google.kz.

А осымшасы

unit Unit1;

interface

uses

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

Dialogs, ExtCtrls, jpeg, StdCtrls, ComCtrls, ActnList, IWControl,

IWCompButton;

type

TForm1 = class(TForm)

Image1: TImage;

GroupBox1: TGroupBox;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Panel5: TPanel;

Panel6: TPanel;

Panel7: TPanel;

Panel8: TPanel;

Panel9: TPanel;

Panel10: TPanel;

Panel11: TPanel;

Panel12: TPanel;

Panel13: TPanel;

Panel14: TPanel;

Panel15: TPanel;

Panel16: TPanel;

Panel17: TPanel;

Panel18: TPanel;

Panel19: TPanel;

Panel20: TPanel;

Panel21: TPanel;

Panel22: TPanel;

Panel23: TPanel;

Panel24: TPanel;

Panel25: TPanel;

Panel26: TPanel;

Panel27: TPanel;

Panel28: TPanel;

Panel29: TPanel;

Panel30: TPanel;

А осымшасыны жаласы

procedure CheckBox1Click(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure CheckBox3Click(Sender: TObject);

procedure CheckBox4Click(Sender: TObject);

procedure ComboBox1Change(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Action1Execute(Sender: TObject);

procedure k(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

const

t:array[0..1,0..102]of smallint=((4,170,171,172,173,174,175,176,177,178,179,180,

181,182,183,184,185,186,100,145,146,147,148,149,150,151,152,153,154,185,186, var

Form1: TForm1;

Apoint,Bpoint:smallint;

snova:boolean=false;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked then

begin

Panel432.Color:=clPurple;

Panel1.Color:=clPurple;

Panel109.Color:=clPurple;

Panel100.Color:=clPurple;

Panel101.Color:=clPurple;

Panel102.Color:=clPurple;

Panel103.Color:=clPurple;

Panel3.Color:=clPurple;

Panel49.Color:=clPurple;

Panel73.Color:=clPurple;

Panel83.Color:=clPurple;

А осымшасыны жаласы

Panel104.Color:=clPurple;

end;

if not (CheckBox1.Checked) then

begin

Panel432.Color:=clBtnFace;

Panel1.Color:=clBtnFace;

Panel109.Color:=clBtnFace;

Panel100.Color:=clBtnFace;

Panel101.Color:=clBtnFace;

Panel102.Color:=clBtnFace;

Panel103.Color:=clBtnFace;

Panel3.Color:=clBtnFace;

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

if CheckBox2.Checked then

begin

Panel2.Color:=clFuchsia;

Panel4.Color:=clFuchsia;

Panel5.Color:=clFuchsia;

Panel6.Color:=clFuchsia;

Panel7.Color:=clFuchsia;

Panel8.Color:=clFuchsia;

end;

if not Checkbox2.Checked then

begin

Panel2.Color:=clBtnFace;

Panel4.Color:=clBtnFace;

Panel5.Color:=clBtnFace;

Panel6.Color:=clBtnFace;

end;

procedure TForm1.CheckBox3Click(Sender: TObject);

begin

if CheckBox3.Checked then

begin

Panel359.Color:=clOlive;

Panel360.Color:=clOlive;

Panel361.Color:=clOlive;

Panel362.Color:=clOlive;

Panel363.Color:=clOlive;

Panel364.Color:=clOlive;