Сущность проектируемой автоматизированной системы

2.7.2 Характеристика  программы 

       Разработанная автоматизированная информационная система по работе архивом НПК имеет более удобный интерфейс, высокую скорость работы и гибкую структуру хранения файлов на диске, по сравнению с аналогичными информационными системами, созданными при помощи Visual FoxPro и Microsoft Access.

       Приложения баз данных могут получать доступ к источникам данных при помощи разнообразных технологий доступа, многие из которых используются и в приложениях Delphi. Тем не менее, любое приложение баз данных в Delphi имеет стандартное ядро, структура которого определена архитектурой приложения баз данных.

       Набор базовых компонентов и способов разработки является единой основой, на которой базируются технологии доступа к данным. Это позволило унифицировать процесс разработки приложений баз данных.

       В основе процесса разработки лежит триада компонентов:  

             - невизуальные компоненты набора данных;  

             - невизуальные компоненты TDataSource;  

             - визуальные компоненты отображения данных. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

ЗАКЛЮЧЕНИЕ

       В курсовой работе была создана автоматизированная информационная система архив НПК

       Эксплуатация  АИС обеспечит:

- быстрый  поиск требуемой информации;

- обеспечит  пользователя более точной и достаточно полной информацией;

- сокращение  персонала, а значит экономию  денежных ресурсов, которые можно  будет направить на благоустройство  кабинетов и лабораторий колледжа;

       - более комфортные условия для  работы персонала. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

СПИСОК  ЛИТЕРАТУРЫ 

1. Гайдамакин  Н.А. Автоматизированные информационные системы, базы и банки данных. Вводный  курс: Учебное пособие.– М.: Гелиос АРВ, 2002.– 368с.
2. Вендров А.М. CASE – технологии. Современные методы и средства проектирования информационных систем. – М.: Финансы и статистика, 1998.
3. Криницкий Н.А., Миронов Г.А., Фролов Г.Д. Автоматизированные информационные системы.– М.: Наука, 1982.– 384с.
4. Ульман Дж. Базы данных на Паскале.– 1990.
5. Горев А., Ахаян Р., Макашарипов С. Эффективная работа с СУБД.– СПб, Питер, 1997.– 704с.

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

     ПРИЛОЖЕНИЯ 

     1 Листинг программы

       Программный код формы 1:

       unit Unit1; 

       interface 

       uses

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

         Dialogs, Menus, StdCtrls, jpeg, ExtCtrls; 

       type

         TForm1 = class(TForm)

           Edit1: TEdit;

           Button1: TButton;

           Label3: TLabel;

           Image1: TImage; 

           procedure Button1Click(Sender: TObject); 

         private

           { Private declarations }

         public

           { Public declarations }

         end; 

       var

         Form1: TForm1;

         a:string;

       implementation 

       uses Unit3, Unit4, Unit2, Unit5, Unit6, Unit7, Unit8; 

       {$R *.dfm} 
 
 
 
 
 

       procedure TForm1.Button1Click(Sender: TObject);

       begin

       a:=edit1.Text;

       if a='270788' then

       begin

       form8.show;

       end

       else

       MessageDlg ('Пароль не верен!',mtConfirmation,  mbyesNoCancel,1);

       end;

       end. 

       Программный код формы 2:

       unit Unit2; 

       interface 

       uses

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

         Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables, StdCtrls, jpeg, ComObj; 

       type

         TForm2 = class(TForm)

           Query1: TQuery;

           RadioGroup1: TRadioGroup;

           Edit1: TEdit;

           Button2: TButton;

           Table1: TTable;

           DataSource1: TDataSource;

           DBGrid1: TDBGrid;

           DBNavigator1: TDBNavigator;

           Button3: TButton;

           Button1: TButton;

           Image1: TImage;

           procedure Button1Click(Sender: TObject);

           procedure Button2Click(Sender: TObject);

           procedure Button3Click(Sender: TObject);

         private

           { Private declarations }

         public

           { Public declarations }

         end; 

       var

         Form2: TForm2;

         w,tab: variant;

       implementation 

       {$R *.dfm} 

       procedure TForm2.Button1Click(Sender: TObject);

       var

       i:integer;

       begin

       w:=CreateOleObject('Word.Application');

       w.Visible:=true;

       w.Documents.Add;

       tab:=w.ActiveDocument.Tables.Add(Range:=w.ActiveDocument.range, NumRows:=2, NumColumns:=9);

       tab.Autoformat (Format:=31); 

       tab.columns.item(1).width:=20;

       tab.columns.item(2).width:=80;

       tab.columns.item(3).width:=10;

       tab.columns.item(4).width:=90;

       tab.columns.item(5).width:=40;

       tab.columns.item(6).width:=100;

       tab.columns.item(7).width:=100;

       tab.columns.item(8).width:=100;

       tab.columns.item(9).width:=100;

       tab.cell(1,1).range.text:='kod'; 

       for i:=2 to 8 do

         tab.cell(1,i).range.text:=dbGrid1.Columns[i-1].Title.caption;

        i:=2;

        query1.First; 

         while not(query1.Eof) do

          begin

         tab.rows.add; 

        tab.cell(i,1).range.text:=Form2.Table1.fieldbyName('kod').AsString;

        tab.cell(i,2).range.text:=Form2.Table1.fieldbyName('fio').AsString;

        tab.cell(i,3).range.text:=Form2.Table1.fieldbyName('kurs').AsString;

        tab.cell(i,4).range.text:=Form2.Table1.fieldbyName('grupa').AsString;

        tab.cell(i,5).range.text:=Form2.Table1.fieldbyName('spez').AsString;

        tab.cell(i,6).range.text:=Form2.Table1.fieldbyName('diszipl').AsString;

        tab.cell(i,7).range.text:=Form2.Table1.fieldbyName('otchet').AsString;

        tab.cell(i,8).range.text:=Form2.Table1.fieldbyName('kursov').AsString;

        tab.cell(i,9).range.text:=Form2.Table1.fieldbyName('diplom').AsString; 

        form2.query1.Next;

       i:=i+1;

       end; 

       tab.rows.item(i).delete;

       end; 
 
 
 
 

       procedure TForm2.Button2Click(Sender: TObject);

       begin

       DataSource1.DataSet:=Query1;

       case RadioGroup1.ItemIndex of 

         0:begin

             Query1.Active:=False;

             Query1.SQL.Clear;

             Query1.SQL.Add('SELECT * FROM prepod WHERE diszipl='+#39+Edit1.Text+#39);

             Query1.Active:=True;

           end;

         1:begin

             Query1.Active:=False;

             Query1.SQL.Clear;

             Query1.SQL.Add('SELECT * FROM prepod WHERE kursov='+#39+Edit1.Text+#39);

             Query1.Active:=True;

           end;

         2:begin

             Query1.Active:=False;

             Query1.SQL.Clear;

             Query1.SQL.Add('SELECT * FROM prepod WHERE diplom='+#39+Edit1.Text+#39);

             Query1.Active:=True;

           end;

         3:begin

             Query1.Active:=False;

             Query1.SQL.Clear;

             Query1.SQL.Add('SELECT * FROM prepod WHERE otchet='+#39+Edit1.Text+#39);

             Query1.Active:=True;

           end;

         

           end;

       end; 

       procedure TForm2.Button3Click(Sender: TObject);

       begin

        DataSource1.DataSet:=Query1;

         Query1.Active:=False;

             Query1.SQL.Clear;

             Query1.SQL.Add('SELECT * FROM Prepod ');

             Query1.Active:=True;

       end; 

       end.

       Программный код формы 3:

       unit Unit3; 

       interface 

       uses

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

         Dialogs, DB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, jpeg, ComObj; 

       type

         TForm3 = class(TForm)

           Query1: TQuery;

           RadioGroup1: TRadioGroup;

           Edit1: TEdit;

           Button2: TButton;

           Table1: TTable;

           DataSource1: TDataSource;

           DBGrid1: TDBGrid;