Сырттай оқу бөлімінің жұмысын автоматизациялау курстық жұмыс
ЖОСПАР
КІРІСПЕ 3
1 ПӘНДІК АЙМАҚТЫ СИПАТТАУ 5
1.1 Сырттай білім берудің оқу-әдістемелік бөлімін талдау 5
1.2 Ұйымдастырушылық құрылымы 6
2 БАҒДАРЛАМАЛЫҚ ҚҰЖАТТАМА 8
2.1 Тапсырма қойылымы 8
2.2 Мәліметтер қорына жалпы түсінік 9
2.3 Бағдарламалау тілін сипаттау 13
3. ЭКСПЛУАТАЦИЯЛЫҚ ҚҰЖАТТАМА 16
3.1 Бағдарлама бекітілуі мен орындалу шарттары 16
Қорытынды 21
Қолданылған әдебиет тізімі. 22
Жұмыс түрі: Курстық жұмыс
Жұмыс көлемі: 36 бет
Пәні: Соңғы қосылған курстық жұмыстар
-----------------------------------------------------------------------------------
КУРСТЫҚ ЖҰМЫСТЫҢ ҚЫСҚАРТЫЛҒАН МӘТІНІ
ЖОСПАР
КІРІСПЕ 3
1 ПӘНДІК АЙМАҚТЫ СИПАТТАУ 5
1.1 Сырттай білім берудің оқу-әдістемелік бөлімін талдау 5
1.2 Ұйымдастырушылық құрылымы 6
2 БАҒДАРЛАМАЛЫҚ ҚҰЖАТТАМА 8
2.1 Тапсырма қойылымы 8
2.2 Мәліметтер қорына жалпы түсінік 9
2.3 Бағдарламалау тілін сипаттау 13
3. ЭКСПЛУАТАЦИЯЛЫҚ ҚҰЖАТТАМА 16
3.1 Бағдарлама бекітілуі мен орындалу шарттары 16
Қорытынды 21
Қолданылған әдебиет тізімі. 22
КІРІСПЕ
Сырттай оқу бөлімінің жұмысын автоматизациялау бұл жағдайдың актуализациясына
Қоғамымыздың ғылыми техникалық прогресінің негізгі бағыты болып -
Айтылған проблемалардың барлығы көптеген білім, техника, өндірістік және
Автоматтандырылған басқару жүйесінің негізгі құрылу принциптері мен функциялары
Сырттай оқу бөлім меңгерушісін автоматизациялау процесстерінің сәтсіздікке ұшырауы
Сырттай оқу бөлімінің жұмысын автоматизациялау әртүрлі техникалық құралдармен
Менің курстық жұмысымда технологиялық процесстерді сырттай оқу бөлім
Курстық жұмыстың мақсаты – жоғарыда айтылған мәліметтерді енгізетін,
Курстық жұмыста жасалынған программа сырттай оқу бөлімінің меңгерушісінің
Курстық жұмыстың алғашқы бөлімінде мәліметтер қорын өңдеу программасы
Екінші тарауда сырттай оқу бөлімінің іс қағаздарымен және
Қазіргі кезеңде мәліметтер қорын өңдеу жұмыстары серверде атқарылатын,
1 ПӘНДІК АЙМАҚТЫ СИПАТТАУ
1.1 Сырттай білім берудің оқу-әдістемелік бөлімін талдау
Сырттай бөлім өндірістен үздіксіз мамандарды дайындауда іске асырады.
Көпшілік мақұлдаған күндізгі бөлімнен сырттай оқу бөлімінің айырмашылығы
Өздік жұмысын ұйымдастыру үшін сырттай бөлімінде оқитын білім
Өздік жұмыстың негізгі түрі сырттай бөлімде оқитын білім
Қорытындылар негізінде оқу жылының соңында сынақ-емтихан сессиясының қорытындылары
Сыртқы бөлiмде оқу мерзiмi 5 жыл. Биылғы оқу
Сонымен қатар екiншi бiлiм алу үшiн оқитындар да
Сыртқы оқу бөлiмiнiң студенттерi өндiрiстiк, педагогикалық iс-тәжiрибиеден өтедi.
1.2 Ұйымдастырушылық құрылымы
Негізгі міндеттері:.
- сырттай оқу бойынша оқу үдерісін жоспарлау мен
- сырттай оқу бойынша емтихан сессиялары мен мемлекеттік
- жұмыстық оқу сабақтарының, оқу сабақтары мен емтихан
- сырттай оқу бойынша лектер, топтар мен топшалар
- кафедралардың оқу-әдістемелік жұмыстарын талдау және ректоратта, университеттің
- сырттай оқу бойынша студенттер контингентінің қозғалысын есепке
- сырттай оқу бөлімінде кафедра оқытушыларының оқу жүктемелерін
- сырттай оқу бойынша оқу үдерісін қамтамасыз ету
- сырттай оқу бойынша университет кафедраларындағы оқу құжаттамаларының
Қызметтері:
- мемлекеттік жалпыға міндетті білім стандарттарын жетілдіру жөнінде
- оқу үдерісіне заманауи оқу-әдістемелік және дидактикалық материалдарды
- сырттай оқу мамандықтары бойынша жұмыстық оқу бағдарламаларын
- сырттай оқу бойынша университет кафедраларындағы сағаттар санын
- сырттай оқу бойынша оқу үдерісі кестесін жасау;
- сырттай оқитын студенттер үшін пәндердің жұмыстық оқу
- сырттай оқу бойынша оқу топтарын қалыптастыру;
- озық педагогикалық тәжірибені жинақтау және тарату мен
- сырттай оқу мамандықтары бойынша студенттердің оқу сабақтарының
- сырттай оқу бойынша мамандықтардың жұмыстық оқу жоспарларын
- сырттай оқу түрі бойынша оқитын студенттердің жеке
Сырттай оқу бөлімінің ерекшелігі, оқу үрдісінің негізі болып
Сырттай оқушы-студент өздік жұмысын ұйымдастыру, сырттай оқу бөлімінің
2 БАҒДАРЛАМАЛЫҚ ҚҰЖАТТАМА
2.1 Тапсырма қойылымы
Біріншісі - негізгі талап – ең көп таралаған
Екіншісі – қолдану қарапайымдылығы. Программа интерфейсі кез келген
Үшіншісі – мәліметтер қорының операциялық жүйеге сәйкес болатын
Айтылған талаптарды ескере отырып, қойылған есепті шешудің келесі
- инструменталдық жүйе ретінде Borland Delphi таңдалынды, себебі
- бағдарлама форматы ретінде Acсess таңдалынды. Себебі бұл
Сонымен, қойылған есепті шешу үшін бізге келесі программалық
Borland Delphi инструменталдық жүйесі. Қазіргі кезде программистерге
2.2 Мәліметтер қорына жалпы түсінік
Ақпараттар жүйесінің негізі, оның зерттеу обьектісі – мәліметтер
Мәліметтер қоры дегеніміз не? мәліметтер қоры – жалпы
Қордағы мәліметтерді тез және сапалы іздеу үшін, бұл
Алгоритмдік программалау тілдері арқылы (pascal, c++, basic). Бұл
Қолданбалы орта көмегімен, мысалы visual basic. Бұл әдіс
Арнайы программалық орта көмегімен. Ол мәліметтер қорын басқару
Қазіргі кезде МҚБЖ – ның көптеген түрлері жарық
Мәлiметтер қорын басқару жүйесi (МҚБЖ) мәлiметтер құрылымы типтерiнiң
МҚБЖ – программалық жабдық, оның көмегiмен МҚ (мәлiметтер
Кез-келген мәліметтер қоры деректердің реляционды моделіне негізделеді.
Мәліметтердің реляционды моделінің негізінде қатынастар (relation - ағылшын
Мәліметтер қорының модельдері. Мәліметтер қоры бір ғана немесе
Мәліметтер моделінің үш негізгі типін беруге болады, олар:
Реляционды модель. Реляционды моделінде (латын сөзі relatio -
Реляционды мәліметтер қоры келесі қасиеттерге ие болады:
Кестенің әрбір элементі – мәліметтің бір элементі;
Кестедегі барлық өрістер бір типті;
Әр бір өріс әмбебаб атқа ие;
Кестеде бірдей жазулар жоқ;
Кестедегі жазулар реті өзгермелі немесе берілген өлшемді болуы
Иерархиялық модель. Мәліметтер қорының иерархиялық моделі төңкерілген ағашқа
Мәліметтерді анықтау (Data definition) – сіз өзіңіздің мәліметтер
Мәліметтерді өңдеу – мәліметтерді әр түрлі тәсілдермен өңдеуге
Мәліметтерді басқаруда – сiз мәліметтермен кім танысуына болатынын
Мәлiметтер қорында қолданылатын терминдер.
Мәлiметтер қоры – ақпараттар сақталатын қойма. Мәлiметтер қорынан
Кесте – мәлiметтердi жазба (жол) және өрiс (бағана)
Мәлiметтер қорында екi өлшемдi кестенiң жолдары жазбалар деп,
Сұраныс бiр немесе бiрнеше дайын кестелердiң негiзiнде
Форма мәлiметтер енгiзу үшiн қолданылады. Әрбiр формаға
Есеп беру мәлiметтердi баспадан шығаруға арналған. Есеп
Өрiстер типтерi және қасиеттерi. Мәлiметтердiң әр түрлi типтерi
Негiзгi типтер:
Текстiк мәлiметтер (TEXT). Текстiк мәлiметтердiң мәндерi алфавиттi- цифрлi
Сандық мәлiметтер (NUMBER). Бұл типтегi атрибуттардың мәндерiмен арифметикалық
Дата немесе уақыт типi (DATE/TIME). Дата типi белгiлi
Жүйе қатты бақылау жүргiзу мүмкiндiгiн алады;
Автоматты түрде датаны әр елдiң дәстүрiне байланысты бейнелеу
Программалау барысында даталарға арифметикалық амалдарды орындау жеңiлдейдi.
Логикалық мәлiметтер (YES/NO). Бұл типтiң мәлiметтерiн булевтiк деп
OLE обьектiсiнiң алаңы. Бұл ең бiр қызықты типтердiң
Қолданушының типi. Көптеген жүйелер қолданушыларға өздерiнiң типiн жасауға
Сұрау (запрос) – белгiлi бiр ақпараттарды алуға талап
Стандартты таңдаулар;
Орындау үшін әрекеттер;
Қосу үшін сұраныс. Кестедегі іріктелген жазбаларды немесе ағымдағы
Жою үшін сұраныс;
Жаңарту үшін сұраныс. Берілген жазбаларды шартты қанағаттандыратын ыңғайлы
Жаңа кесте құру үшін сұраныс;
Параметрлік сұраныс. Көбіне пайдаланушыға құрылған сұраныс бойынша іс
Сұраныстың тоғысуы берілгендерді көрнекті, кросс - кестені компактілі
2.3 Бағдарламалау тілін сипаттау
Delphi ортасына жалпы түсінік. Delphi 6 Windows 95,
Программалардың сәйкестендірілуі үлкен роль атқарылады. Бұл аппаратпен қамтамассыздандырумен
- Мобильді компьютерлерді тарату кең ауқым алуымен байланысты.
Дыбыс, сурет, тексттік және цифрлық типтермен берілген информацияларды
Жоғарыда айтылғандай бизнеспен және өндіріспен тығыз байланысты болғандықтан
Құрудың графикалық ортасынан басқа аспектісі ол- көмекші жүйесінінің
Delphi 6-да басқа да қазіргі программалау ортасы сияқты,
Есеп беру генераторын және мәліметтер қорын қолданатын бизнес-программаларды
Delphi 6-да есеп беру үшін TQuickreport интегралданған компонеттері
Delphi 6-ның аппараттық құрылымына программа құру үшін програмистке
Delphi 6 қолданушыға өте ыңғайлы, тез программа
Алғашқы көзқарас
Delphi 6 ортасын жүктегеннен кейін экранда интегралданған программаланған
Негізгі терезе
Экранның жоғарғы бөлігінде негізгі терезе орналасады. Онда құрал-саймандар
Тақырыпша жолағы
Тақырыбында қазіргі ашулы тұрған проектінің аты тұрады. Проекті
Мәзір жолағы
Мәзір жолағы программаны басқарудағы, тестілеуге және құруға керекті
Құрал-саймандар тақтасы
Құрал-саймандар тақтасындағы кнопкілер мәзірдегі белгілі бір командіге сәйкес
Компоненттер палитрасы
Компоненттер палитрасындағы компоненттер арқылы программа құрылады. Компоненттер Delphi
Палитраның кез-келген жерінен тышқанның оң жақ пернесін басып
Component мәзіріндегі Configure Palette командасын таңдау арқылы.
Проектілеу формасы
Кез-келген Windows программасының негізгі терезесі болады.. Delphi кез-келген
Басты терезе дегеніміз ол- программаны орындауға жібергеннен кейін
Редактор коды терезесі
Редактор коды терезесі (Code Editor) Unit1.pas тақырыбымен проектілеу
Database Desktop қосымшасы. Delphi-де Database
Database Desktop программасын жүктеу үшін Delphi программасының
Бірінші рет іске қосқанда Database Desktop қосымшасының жұмыс
Ол үшін File/Working directory және File / Privite
Жаңа кесте құру үшін File менюінен New командасын
Жаңа кесте құрылып сақтау үшін Save As командасын
3. ЭКСПЛУАТАЦИЯЛЫҚ ҚҰЖАТТАМА
3.1 Бағдарлама бекітілуі мен орындалу шарттары
Бағдарламалық өнімді жасамас бұрын программалау ортасын таңдауымыз қажет.
Жоба сегіз терезеден тұрады, олардың әр қайсысының өз
Программа exe – файл арқылы қосылады.
Басты бет. Бағдарлама туралы:
Толығырақ деген батырманы басу барысында шығатын терезе:
Осы терезеде бұл студент туралы толық мәлімет келтіріледі:
Сессияны өту туралы мәліметтер
Мамандықтарды өзгерту
Группаларды өзгерту
Пәндерді өзгерту терезесі.
Бағдарлама туралы мәліметтер:
Бағдарламалық бөлім мен аппаратураға қойылатын талаптар: Seleron2,
Программалық өнімнің дистрибютивті қосымшасы жасалынған. Берілген комплекс ашық
Программаның дұрыс жұмыс істеуі үшін қойлатын талаптар:
- оперативті жады көлемі;
- сәйкес жұмыс жасайтын операциялық жүйелердің тізімі;
- қосымшалар (бағдарламалық кешендер) мысалы, Macromedia Flash,
- қатты дисідегі жүйенің кэш-файлдар үшін талап ететін
- түрлі-түсті монитор және т.б.
- бағдарламалау ортасын таңдау
Курстық жобаны құру барысында жалпыға ортақ Delphi 7.0
Қорытынды
Менің өзімнің курстық жобамды сырттай оқу бөлім меңгерушісінің
Олардың ішінде іс қағаздармен жұмыс істеу барысында компьютер
Жасалатын сырттай оқу бөлім меңгерушісінің жұмысын құру ортасы
Жұмыстың нәтежиесі ретінде қойылған мақсаттардың орындалуын айтар едім,
Сырттай оқу бөлім меңгерушінің жүйесін автоматтандыру;
Delphi бағдарламалау ортасының жүйені жасауға жарамдығын көрсету;
Курстық жұмысты орындау барысында берілген тапсырмаға сәйкес сұрақтар
Қолданылған әдебиет тізімі.
Бобровский С. В. Delphi5. Учебный курс – СПб:
Гофман И. Э., Хомоненко А. Д. Delphi5. –СПб.:
Баженова И.Ю. Delphi5. Самоучитель программиста – М.: КУДИЦ
Фаронов В.В., Шумаков П.В. Delpi5. Руководство разработчика базы
Архангельский А.Я. «Программирование в Delphi 6» издат. Бином
Симонович С.В. «Информатика, базовый курс» издат. Питер –
Кенту М. Delphi5 для профессионалов.-СПб.: Питер, 2001г.-944с.:ил.
Фаронов В.В. Delphi5. Учебный курс. – М.: «Нолидж»,2001г.
Архангельский А.Я. Язык SQL в Delphi5 – М.:
Фаронов В. «Программирование баз данных в Delphi 6»
Кенин А. «Windows 95/NT для пользователей или как
Симонович С.В., Евсеев Г.А. «Практическая информатика» издат. Инфорком
Симонович С.В., Евсеев Г.А. «Общая информатика» издат. Инфорком
Қосымша А
Қосымша Ә
Бағдарлама листингі
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, Buttons, Grids, DBGrids, OleServer, ExcelXP;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
SpeedButton1: TSpeedButton;
GroupBox2: TGroupBox;
ComboBox1: TComboBox;
MainMenu1: TMainMenu;
N1: TMenuItem;
Label2: TLabel;
Label3: TLabel;
ComboBox2: TComboBox;
CheckBox1: TCheckBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
GroupBox5: TGroupBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
BitBtn1: TBitBtn;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
CheckBox4: TCheckBox;
N11: TMenuItem;
Excell1: TMenuItem;
N12: TMenuItem;
BitBtn2: TBitBtn;
ExcelApplication1: TExcelApplication;
SpeedButton10: TSpeedButton;
Edit2: TEdit;
Label4: TLabel;
SpeedButton11: TSpeedButton;
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Excell1Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses unit2, Unit4, Unit5, Unit6, Unit3, Unit7, Unit8,
Unit10;
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Spes.bitbtn1.Enabled:=false;
Spes.showmodal;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Group.bitbtn1.Enabled:=false;
Group.showmodal;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Pred.BitBtn1.Enabled:=false;
Pred.ShowModal;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
dm.ADOConnection1.Connected:=false;
dm.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'
+'Data Source='
+ ExtractFilePath(Application.ExeName)
+'Datamd.mdb;Persist Security Info=False';
dm.ADOQStud.Active:=true;
dm.ADOQSpes.Active:=true;
dm.ADOQGroup.Active:=true;
dm.ADOQPred.Active:=true;
dm.ADOQPredmet.Active:=true;
Form1.combobox1.clear;
Dob.combobox2.clear;
dm.ADOQSpes.First;
while not dm.ADOQSpes.Eof do begin
Form1.combobox1.Items.Add(dm.ADOQSpesspes.Value);
Dob.combobox2.Items.Add(dm.ADOQSpesspes.Value);
dm.ADOQSpes.Next;
end;
Form1.combobox2.clear;
Dob.combobox3.clear;
dm.ADOQGroup.First;
while not dm.ADOQGroup.Eof do begin
Form1.combobox2.Items.Add(dm.ADOQGroupgroup.Value);
Dob.combobox3.Items.Add(dm.ADOQGroupgroup.Value);
dm.ADOQGroup.Next;
end;
Predmet.combobox1.clear;
dm.ADOQPred.First;
while not dm.ADOQPred.Eof do begin
Predmet.combobox1.Items.Add(dm.ADOQPredPred.Value);
dm.ADOQPred.Next;
end;
end;
procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
dm.ADOQStud.Insert;
Dob.ShowModal;
end;
procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
dm.ADOQStud.Edit;
Dob.ShowModal;
end;
procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
if MessageDLg('Ошірейін бе ???', mtConfirmation,[mbYes,mbNo],0)=mrYes then
dm.adoQstud.Delete;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
dm.ADOQStud.First;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
dm.ADOQStud.prior;
end;
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
dm.ADOQStud.next;
end;
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
dm.ADOQStud.last;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Combobox1.Text:='';
Combobox2.Text:='';
CheckBox2.Checked:=false;
CheckBox3.Checked:=false;
DBGrid1.DataSource.DataSet.Filtered:=false;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
dm.ADOQSpes.Locate('Spes',combobox1.Text,[]);
dm.ADOQStud.Filtered:=false;
dm.ADOQStud.Filter:='SpesId='+inttostr(dm.ADOQSpesId.value);
dm.adoqstud.Filtered:=true;
CheckBox1.Checked:=false;
Combobox2.Text:='';
end;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
dm.ADOQGroup.Locate('Group',combobox2.Text,[]);
dm.ADOQStud.Filtered:=false;
dm.ADOQStud.Filter:='GroupId='+inttostr(dm.ADOQGroupId.value);
dm.adoqstud.Filtered:=true;
CheckBox1.Checked:=false;
Combobox1.Text:='';
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if CheckBox2.Checked=true then begin
dm.ADOQStud.Filtered:=false;
dm.ADOQStud.Filter:='Sessia='+'true';
dm.adoqstud.Filtered:=true;
CheckBox1.Checked:=false;
end;
if CheckBox3.Checked=true then begin
dm.ADOQStud.Filtered:=false;
dm.ADOQStud.Filter:='Sessia='+'false';
dm.adoqstud.Filtered:=true;
CheckBox1.Checked:=false;
end;
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
CheckBox3.Checked:=false;
end;
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
CheckBox2.Checked:=false;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
CheckBox4.Checked:=false;
DM.ADOQStud.Close;
DM.ADOQStud.SQL.Clear;
DM.ADOQStud.SQL.Add('select * from Stud where Fam like "'+Edit1.Text+'%"');
DM.ADOQStud.Open;
end;
procedure TForm1.CheckBox4Click(Sender: TObject);
begin
DM.ADOQStud.Close;
DM.ADOQStud.SQL.Clear;
DM.ADOQStud.SQL.Add('select * from Stud');
DM.ADOQStud.Open;
dm.ADOQStud.Filtered:=false;
end;
procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
Podr.showmodal;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
var
excel,workbook:variant;
i:integer;
begin
excel:=createoleobject('excel.application');
excel.visible:=true;
workbook:=excel.workbooks.add('');
excel.ActiveSheet.cells[3,5].value:='Сырттай оқитын студенттер тізімі';
i:=6;
excel.ActiveSheet.cells[i,1].value:='№';
excel.ActiveSheet.cells[i,2].value:='Тегі';
excel.ActiveSheet.cells[i,3].value:='Аты';
excel.ActiveSheet.cells[i,4].value:='Әкесінің аты';
excel.ActiveSheet.cells[i,5].value:='Туған жылы';
excel.ActiveSheet.cells[i,6].value:='Жынысы';
excel.ActiveSheet.cells[i,7].value:='Курсы';
excel.ActiveSheet.cells[i,8].value:='Мамандығы';
excel.ActiveSheet.cells[i,9].value:='Группа';
excel.ActiveSheet.cells[i,10].value:='Тұрғылықты жері';
i:=i+1;
dm.ADOQStud.First;
While not dm.ADOQStud.Eof do begin
i:=i+1;
excel.ActiveSheet.cells[i,1].value:=i-7;
excel.ActiveSheet.cells[i,2].value:=dm.ADOQStudFam.AsString;
excel.ActiveSheet.cells[i,3].value:=dm.ADOQStudName.AsString;
excel.ActiveSheet.cells[i,4].value:=dm.ADOQStudOtch.AsString;
excel.ActiveSheet.cells[i,5].value:=dm.ADOQStudDatar.AsString;
excel.ActiveSheet.cells[i,6].value:=dm.ADOQStudPol.Value;
excel.ActiveSheet.cells[i,7].value:=dm.ADOQStudKurs.Value;
excel.ActiveSheet.cells[i,8].value:=dm.ADOQStudSpes.Value;
excel.ActiveSheet.cells[i,9].value:=dm.ADOQStudGroup.Value;
excel.ActiveSheet.cells[i,10].value:=dm.ADOQStudAdrMj.Value;
dm.ADOQStud.Next;
end;
end;
procedure TForm1.Excell1Click(Sender: TObject);
begin
BitBtn2.Click;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
Form9.Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'Data1.bmp');
Form9.showmodal;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Speedbutton7.Click;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
Speedbutton8.Click;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
Speedbutton9.Click;
end;
procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
form10.showmodal;
end;
procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
CheckBox4.Checked:=false;
dm.ADOQStud.Filtered:=false;
dm.ADOQStud.Filter:='Ost'+Edit2.Text;
dm.adoqstud.Filtered:=true;
CheckBox1.Checked:=false;
end;
end.
unit Unit2;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDM = class(TDataModule)
ADOConnection1: TADOConnection;
ADOQStud: TADOQuery;
ADOQSpes: TADOQuery;
ADOQGroup: TADOQuery;
DSStud: TDataSource;
DSSpes: TDataSource;
DSGroup: TDataSource;
DSPred: TDataSource;
ADOQPred: TADOQuery;
ADOQSpesId: TAutoIncField;
ADOQSpesSpes: TWideStringField;
ADOQSpesOpl: TIntegerField;
ADOQPredId: TAutoIncField;
ADOQPredPred: TWideStringField;
ADOQPredPrep: TWideStringField;
ADOQStudFoto: TBlobField;
ADOQStudFam: TWideStringField;
ADOQStudName: TWideStringField;
ADOQStudOtch: TWideStringField;
ADOQStudKurs: TWideStringField;
ADOQStudDatar: TDateTimeField;
ADOQStudPol: TWideStringField;
ADOQStudAdrPr: TMemoField;
ADOQStudAdrMj: TMemoField;
ADOQStudOst: TIntegerField;
ADOQStudGroupId: TIntegerField;
ADOQStudSpesId: TIntegerField;
ADOQGroupId: TAutoIncField;
ADOQGroupGroup: TWideStringField;
ADOQStudGroup: TStringField;
ADOQStudSpes: TStringField;
ADOQStudOpl: TFloatField;
ADOQStudSessia: TBooleanField;
ADOQPredmet: TADOQuery;
DSPRedmet: TDataSource;
ADOQPredmetId: TAutoIncField;
ADOQPredmetStudId: TIntegerField;
ADOQPredmetPredmetId: TIntegerField;
ADOQPredmetOsenka: TIntegerField;
ADOQStudId1: TAutoIncField;
ADOQPredmetPred: TStringField;
ADOQPredmetPrep: TStringField;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
implementation
{$R *.dfm}
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBCtrls, ComCtrls, Mask, Buttons, ExtDlgs;
type
TDob = class(TForm)
GroupBox1: TGroupBox;
DBImage1: TDBImage;
BitBtn1: TBitBtn;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DateTimePicker1: TDateTimePicker;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
GroupBox2: TGroupBox;
DBMemo1: TDBMemo;
DBMemo2: TDBMemo;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
OPD1: TOpenPictureDialog;
DBCheckBox1: TDBCheckBox;
procedure ComboBox2Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Dob: TDob;
implementation
uses unit2, Unit7;
{$R *.dfm}
procedure TDob.ComboBox2Change(Sender: TObject);
begin
dm.adoqspes.Locate('spes',combobox2.Text,[]);
end;
procedure TDob.BitBtn1Click(Sender: TObject);
begin
if not opd1.Execute then exit;
dbimage1.Picture.LoadFromFile(opd1.FileName);
end;
procedure TDob.ComboBox3Change(Sender: TObject);
begin
dm.adoqgroup.Locate('group',combobox3.Text,[]);
end;
procedure TDob.BitBtn2Click(Sender: TObject);
begin
dm.ADOQStudSpesId.Value:=dm.ADOQSpesId.Value;
dm.ADOQStudGroupId.Value:=dm.ADOQGroupId.Value;
dm.ADOQStudPol.Value:=combobox1.Text;
dm.ADOQStudDatar.Value:=DateTimePicker1.Date;
dm.adoqstud.post;
Dob.Close;
end;
procedure TDob.BitBtn3Click(Sender: TObject);
begin
dm.adoqstud.Cancel;
Dob.Close;
end;
procedure TDob.BitBtn4Click(Sender: TObject);
begin
predmet.bitbtn1.enabled:=false;
//dm.ADOQPredmet.insert;
predmet.showmodal;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls, Grids, DBGrids;
type
TSpes = class(TForm)
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label1: TLabel;
Label2: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Spes: TSpes;
implementation
uses Unit2, Unit1, Unit3;
{$R *.dfm}
procedure TSpes.BitBtn1Click(Sender: TObject);
begin
Spes.bitbtn1.Enabled:=false;
dm.adoqspes.post;
end;
procedure TSpes.BitBtn2Click(Sender: TObject);
begin
Spes.bitbtn1.Enabled:=true;
dm.adoqspes.insert;
end;
procedure TSpes.BitBtn3Click(Sender: TObject);
begin
dm.adoqspes.delete;
end;
procedure TSpes.BitBtn5Click(Sender: TObject);
begin
Spes.bitbtn1.Enabled:=true;
dm.adoqspes.edit;
end;
procedure TSpes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.combobox1.clear;
Dob.combobox2.clear;
dm.ADOQSpes.First;
while not dm.ADOQSpes.Eof do begin
Form1.combobox1.Items.Add(dm.ADOQSpesspes.Value);
Dob.combobox2.Items.Add(dm.ADOQSpesspes.Value);
dm.ADOQSpes.Next;
end;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls, Grids, DBGrids;
type
TGroup = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
DBGrid1: TDBGrid;
DBEdit1: TDBEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Group: TGroup;
implementation
uses Unit2, Unit1, Unit3;
{$R *.dfm}
procedure TGroup.BitBtn1Click(Sender: TObject);
begin
Group.bitbtn1.Enabled:=false;
dm.adoqgroup.post;
end;
procedure TGroup.BitBtn5Click(Sender: TObject);
begin
Group.bitbtn1.Enabled:=true;
dm.adoqgroup.edit;
end;
procedure TGroup.BitBtn2Click(Sender: TObject);
begin
Group.bitbtn1.Enabled:=true;
dm.adoqgroup.insert;
end;
procedure TGroup.BitBtn3Click(Sender: TObject);
begin
dm.adoqgroup.delete;
end;
procedure TGroup.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.combobox2.clear;
Dob.combobox3.clear;
dm.ADOQGroup.First;
while not dm.ADOQGroup.Eof do begin
Form1.combobox2.Items.Add(dm.ADOQGroupgroup.Value);
Dob.combobox3.Items.Add(dm.ADOQGroupgroup.Value);
dm.ADOQGroup.Next;
end;
end;
end.
3
Программа туралы
Басты терез
Толық мәлімет
Сессияның мәліметі
Төлемі
Программа туралы
Баспаға шығару
