Как многим известно в любой организации, тем более в высшем учебном заведении (особенно носящим технический характер, как УГАТУ) имеется рад отделов (подразделений), которые занимаясь своими обязанностями, использую вычислительную технику (например компьютеры, принтеры, сканеры и так далее). И, соответственно, должны быть отделы, которые всё это хозяйство обслуживают. Так и в ишимбайском филиале УГАТУ. Отдел, занимающийся всем, что связано с техникой - УКЦ (учебно-компьютерный центр). Техники приходиться обслуживать немало, и всю номенклатуру в голове держать проблематично (например: сколько раз заправляли тонером принтер? не пора ли уже менять картридж? и так далее). И так в один момент назрело решение о создании собственной базы данных (без лишних наворотов). Вопрос о лицензировании был решён сразу в пользу IDE Lazarus, программу назвали "ВТ" (вычислительная техника). "ВТ" - это простейшая база данных с минимальным набором необходимых функций. Так как от неё только и требовалось, что хранить некоторую информацию с возможностью простейшего редактирования (что называется для пользования внутри отдела).

Но данная программа показывает, что можно создавать неплохое программное обеспечение используя бесплатные среды разработки. Хотелось бы что бы такие факты влияли на развитие СПО не только в стенах ИФ УГАТУ и других высших учебных заведениях, но так же и в школах, училищах, в кругах независимых разработчиков ПО и крупных компаниях. А что для этого нужно? Нужно заставлять в первую очередь преподавателей переходить на СПО, что бы они могли его корректно предавать учащимся. Компания TexnoRAT занимается разработкой программного обеспечения с использованием СПО.

Программа "ВТ" разработана в среде IDE Lazarus (на языке программирования Oject Pascal). Для убедительности приведём кусочек исходного текста программы:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if SdfDataSet1.Active= true then
  SdfDataSet1.Active:= false;
  SdfDataSet1.FileName:= ComboBox1.Text + '.ssy';
  SdfDataSet1.Active:= true;
end;
procedure TForm1.ComboBox1DropDown(Sender: TObject);
var
 f: TextFile;
 InputDatStr: string;
begin
 ComboBox1.Clear;
 AssignFile(f, 'type.dat');
 Reset(f);
  while not EOF(f) do
   begin
    Readln(f,InputDatStr);
    ComboBox1.Items.Add(InputDatStr);
   end;
 CloseFile(f);
end;

Предложение: приобрести программу можно обратившись к администрации сайта в раздел - "обратная связь".

Студентам:

1.Программа распространяется бесплатно (исходные тексты платны).

2.Курсовая работа по информатике на основе данной программы - платно (цена договорная).

Организациям:

1.Программа - платная (цена договорная)

2.Рассматриваются вопросы по модификации программы исходя из потребностей заказчика. (цена договорная)

3.Исходные тексты программы - платные.

Вернуться на главную