Автор работы: Пользователь скрыл имя, 09 Января 2015 в 17:53, дипломная работа
Бұдан шығатыны, ХХІ ғасырдың алғашқы жылдарының негізгі проблемаларының бірі – «Білім-бүкіл өміріңе» қағидасынан «Білім бүкіл өмір бойына» қағидасына қте алатын білім жүйесінің ұйымдық құрылымдарын іздеу болып табылады.
Информатика пәнін оқытудың тиімділігін арттырудың жолдары өте көп. Соның бір жолы ретінде оқытудың жаңа технологиясын енгізуді атап өтуге болады.
Дипломдық жұмыстың мақсаты – жоғарғы оқу орнының қабылдау комиссиясының жұмыс орнын автоматтандыру.
Кіріспе 3
1 Автоматтандырылған жұмыс орны 5
1.1 Дербес ЭЕМ негізінде АЖО-ның ќалпы жєне даму перспективалары 5
1.2 Жұмыс орнын автоматтандыру принциптері мен оған қойылатын талаптар 14
1.3 Ақпараттық жүйелер және мәліметтер қоры 20
2 Инструментальды ортаның жұмысын сипаттау 24
2.1 Ақпараттық жүйлер 24
2.2 Ақпараттық жүйелерді жобалау құралдары 31
2.3 Өнімнің негізгі сипаттамалары. 55
2.4 Ұйымдастырушының ортасын икемдеу 60
2.5 Delphi және объектілі–бағытталған программалау 62
3 «Қабылдау комиссиясы» бағдарламасының жұмысын сипаттау 67
3.1 Қабылдау коммиссиясы 67
3.2 Мамандықтарды өңдеу 68
3.3 Студент қабылдау 71
Қорытынды 76
Әдебиеттер тізімі 79
Қосымша 81
writeln(f,'</tr>');
Query1.Next;
end;
writeln(f,'</table></body></
closefile(f);
ShellExecute(0, 'open',PChar(path+'\current.
end;
procedure TForm1.ToolButton14Click(
begin
Form6.ShowModal;
end;
procedure TForm1.ToolButton15Click(
begin
Form7.ShowModal;
end;
procedure TForm1.RadioButton1Click(
begin
StatusBar1.Panels[2].Text:='
end;
procedure TForm1.RadioButton2Click(
begin
StatusBar1.Panels[2].Text:='
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
if Application.MessageBox('
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var s:string;
begin
s:=edit1.Text;
if RadioButton1.Checked then
begin
Query1.SQL[3]:='(upper(nm) like "%'+Ansiuppercase(edit1.Text)+
end;
if RadioButton2.Checked then
begin
if Edit1.Text='' then begin
MessageDlg('Алдымен сөзді енгізіңіз.', mtInformation,[mbOk], 0);
exit;
end;
if (s[1]='>') or (s[1]='<') or (s[1]='=') then
Query1.SQL[3]:='(ps'+edit1.
else Query1.SQL[3]:='(ps='+edit1.
if pos('-',edit1.Text)>0 then
Query1.SQL[3]:='(ps>'+copy(
end;
Query1.Open;
MessageDlg('Сіздің сұрауыңыз
StatusBar1.Panels[1].Text:='
end;
procedure TForm1.DBGrid1TitleClick(
var i:0..3;
begin
for i:=0 to 3 do a[i]:=not a[i];
case Column.Index of
0: if a[0] then query1.SQL[4]:='order by nm desc' else query1.SQL[4]:='order by nm asc';
1: if a[1] then query1.SQL[4]:='order by tys desc' else query1.SQL[4]:='order by ены asc';
2: if a[2] then query1.SQL[4]:='order by ps desc' else query1.SQL[4]:='order by ps asc';
3: if a[2] then query1.SQL[4]:='order by vozr desc' else query1.SQL[4]:='order by vozr asc';
end;
query1.Open;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
//Query2.DatabaseName:=Query1.
with query1.SQL do
begin
clear;
add('select * from goods');
end;
query1.Open;
for i:=1 to Query1.RecordCount do
begin
// with query2.SQL do
begin
// clear;
// add('update goods set ');
//
add('code="A00'+IntToStr(i)+'"
//
add('Ey="Шт." Where (nm="'+Query1.fieldbyname('nm'
end;
// query2.ExecSQL;
Query1.Next;
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Query1.SQL[4]:='order by '+Query1.Fields.Fields[
if RadioButton4.Checked then Query1.SQL[4]:=Query1.SQL[4]+' desc';
Query1.Open;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate();
end;
end.
Информация о работе Инструментальды ортаның жұмысын сипаттау