Отчет по квалификационной практике в ГОУ СПО «Кемеровский Государственный Профессионально-Педагогический Колледж»

Каждая операция с числами  или датами анализировалась, проверялась  на правильность результата при различных условиях и значениях. Таким образом, были расставлены информирующие сообщения (Рисунок 3.2).

Корректность отображения  выходной информации проводилась на тестирующих примерах, в которых выявлялись ошибки и неточности при отображении на экране (Рисунок 3.3). 

 

Рисунок 3.2 – Сообщение

 

 

Рисунок 3.3 – Корректное отображение данных 

4 Анализ решения задачи

 

На стадии разработки было установлено, что для надежной работы программы необходимо следующее:

- контроль поступающих в программу данных;

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

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

На стадии проектирования в соответствии с требованиями разработки, были проведены действия:

- для контроля входных  данных, для каждого поля были  установлены длины, для того, чтобы  не происходило сбоя, и не было  утеряно ни одной цифры.

- для контроля заполнения полей для них были установлены соответствующие типы данных;

- были изучены возможности  языка системы Borland Delphi 7 для легкости доступа к базам данных.

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

ЗАКЛЮЧЕНИЕ

 

В процессе работы над индивидуальным заданием в период практики была написана рабочая программа, отвечающая своей функциональностью поставленным задачам.

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

Таким образом, цели, поставленные в период прохождения практики, были достигнуты, за исключением этапа ввода программы в эксплуатацию.

 

ЛИТЕРАТУРА

 

Основная литература

 

1. Бондарев В.М., Рублинецкий В.И. Основы программирования. – Харьков: Фолио, Ростов-на-Дону: Феникс, 1997.

2. В.А. Благодатских, В.А. Волнин, К.Ф. Поскакалов «Стандартизация разработки программных средств». – М.: «Финансы и статистика», 2003.

3. Ваи-Тассел Д. Стиль, разработка, эффективность, отладка и испытание программ. – М.: Мир, 1981.

4. Вендров А.М. Практикум по проектированию программного обеспечения экономических информационных систем. – М.: Финансы и статистика, 2002.

5. Вирт Н. Алгоритмы и структуры данных / Пер. с англ. — М.: Мир, 1989. – 360 с., ил.

6. Голицына О.Л., Максимов Н.В., Попов И.И. Базы Данных – М.: Форум Инфра-М, 2004.

7. Орлов В.В. Технологии разработки программных продуктов. – СПб.: Питер, 2003.

8. Партыка Т.Л., Попов Ц.И. Информационная безопасность. – М.: Форум Инфра-М, 2002.

9. Справочники и учебники по системам программирования.

 

Нормативная литература

 

1. ГОСТ 19.201-78– ЕСПД (Единая система программной документации).

2. ГОСТ 19.301-79– ЕСПД (Единая  система программной документации).

 

ПРИЛОЖЕНИЕ А

 

Входная информация

 

Рисунок А.1 – Учебный  график занятий

 

Окончание приложения А

Рисунок А.2 – Состав педагогического  коллектива

Рисунок А.3 – Наличие учебных  аудиторий 

ПРИЛОЖЕНИЕ Б

 

Выходная информация

Рисунок Б.1 – Отчет «Основное расписание» 

Окончание приложения Б

Рисунок Б.2 – Отчет «Изменения на день» 

ПРИЛОЖЕНИЕ В

 

Блок-схема программы

Рисунок В.1 – Блок-схема  программы

 

Продолжение приложения В

Рисунок В.2 – Блок-схема «Основное расписание» 

Окончание приложения В

Рисунок В.3 – Блок-схема «Изменения к расписанию» 

ПРИЛОЖЕНИЕ Г

 

Текст программы

 

unit MAIN;

 

interface

 

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus, DateUtils,

  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns, ComObj,

  ActnList, ToolWin, ImgList, Grids, DB, DBTables, DBCtrls, Math, Variants,

  Spin, IBServices, RpBase, RpSystem, RpDefine, RpRave, XPMan, About;

 

type

  TMainForm = class(TForm)

    Table1: TTable;

    Table2: TTable;

    Table3: TTable;

    Table4: TTable;

    Table5: TTable;

    Table6: TTable;

    Table7: TTable;

    Table8: TTable;

    Table9: TTable;

    Table0: TTable;

    Query1: TQuery;

    DataSource1: TDataSource;

    DataSource2: TDataSource;

    DataSource3: TDataSource;

    DataSource4: TDataSource;

Продолжение приложения Г

 

    MainMenu: TMainMenu;

    MainFile: TMenuItem;

    FileNewItem: TMenuItem;

    FileOpenItem: TMenuItem;

    FileCloseItem: TMenuItem;

    FileExitItem: TMenuItem;

    OpenDialog: TOpenDialog;

    FileSaveItem: TMenuItem;

    FileSaveAsItem: TMenuItem;

    Edit: TMenuItem;

    CutItem: TMenuItem;

    CopyItem: TMenuItem;

    PasteItem: TMenuItem;

    StatusBar: TStatusBar;

    ActionList1: TActionList;

    EditCut1: TEditCut;

    EditCopy1: TEditCopy;

    EditPaste1: TEditPaste;

    FileNew1: TAction;

    FileSave1: TAction;

    FileExit1: TAction;

    FileOpen1: TAction;

    FileSaveAs1: TAction;

    WindowCascade1: TWindowCascade;

    WindowTileHorizontal1: TWindowTileHorizontal;

    WindowArrangeAll1: TWindowArrange;

    WindowMinimizeAll1: TWindowMinimizeAll;

    HelpAbout1: TAction;

Продолжение приложения Г

 

    FileClose1: TWindowClose;

    WindowTileVertical1: TWindowTileVertical;

    ImageList: TImageList;

    N1: TMenuItem;

    Delete: TMenuItem;

    ToolBar: TToolBar;

    ToolButton: TToolButton;

    ToolButton1: TToolButton;

    ToolButton2: TToolButton;

    ToolButton3: TToolButton;

    ToolButton4: TToolButton;

    ToolButton5: TToolButton;

    ToolButton6: TToolButton;

    RvSystem: TRvSystem;

    RvProject1: TRvProject;

    RvProject2: TRvProject;

    PopupMenu: TPopupMenu;

    XPManifest1: TXPManifest;

    Help: TMenuItem;

    SOS: TMenuItem;

    About: TMenuItem;

    N2: TMenuItem;

    TabControl1: TTabControl;

    Bevel1: TBevel;

    RadioGroup1: TRadioGroup;

    StaticText4: TStaticText;

    StringGrid1: TStringGrid;

    StaticText6: TStaticText;

Продолжение приложения Г

 

    StaticText5: TStaticText;

    StaticText3: TStaticText;

    StaticText2: TStaticText;

    StaticText1: TStaticText;

    RadioGroup2: TRadioGroup;

    GroupBox1: TGroupBox;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    ComboBox3: TComboBox;

    DBComboBox1: TDBComboBox;

    DBComboBox2: TDBComboBox;

    DBComboBox3: TDBComboBox;

    Button2: TButton;

    Button1: TButton;

    Button6: TButton;

    TabControl2: TTabControl;

    Label7: TLabel;

    Data: TDateTimePicker;

    GroupBox2: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    DBComboBox4: TDBComboBox;

    ComboBox4: TComboBox;

    DBComboBox5: TDBComboBox;

Продолжение приложения Г

 

    DBComboBox6: TDBComboBox;

    Button3: TButton;

    ComboBox5: TComboBox;

    DBComboBox7: TDBComboBox;

    Button4: TButton;

    Button5: TButton;

    GroupBox3: TGroupBox;

    ListBox1: TListBox;

    CheckBox2: TCheckBox;

    GroupBox4: TGroupBox;

    StringGrid2: TStringGrid;

    StringGrid: TStringGrid;

    TabControl3: TTabControl;

    Bevel2: TBevel;

    Bevel3: TBevel;

    Bevel4: TBevel;

    Bevel5: TBevel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    StringGrid6: TStringGrid;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

Продолжение приложения Г

 

    BitBtn5: TBitBtn;

    BitBtn6: TBitBtn;

    BitBtn7: TBitBtn;

    BitBtn8: TBitBtn;

    CheckBox1: TCheckBox;

    LabeledEdit1: TLabeledEdit;

    LabeledEdit2: TLabeledEdit;

    LabeledEdit3: TLabeledEdit;

    LabeledEdit4: TLabeledEdit;

    LabeledEdit5: TLabeledEdit;

    LabeledEdit6: TLabeledEdit;

    RadioGroup3: TRadioGroup;

    SpinEdit1: TSpinEdit;

    SpinEdit2: TSpinEdit;

    StringGrid3: TStringGrid;

    StringGrid4: TStringGrid;

    StringGrid5: TStringGrid;

    procedure FormCreate(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure FileNew1Execute(Sender: TObject);

    procedure FileOpen1Execute(Sender: TObject);

    procedure FileExit1Execute(Sender: TObject);

    procedure FileCloseItemClick(Sender: TObject);

    procedure ControlChange(Sender: TObject);

    procedure DataChange(Sender: TObject);

    procedure DeleteClick(Sender: TObject);

    procedure ListBox1Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

Продолжение приложения Г

 

    procedure ComboBox5Change(Sender: TObject);

    procedure DBComboBox6Change(Sender: TObject);

    procedure DBComboBox7Change(Sender: TObject);

    procedure DBComboBox4KeyPress(Sender: TObject; var Key: Char);

    procedure DBComboBox5KeyPress(Sender: TObject; var Key: Char);

    procedure DBComboBox6KeyPress(Sender: TObject; var Key: Char);

    procedure DBComboBox7KeyPress(Sender: TObject; var Key: Char);

    procedure ComboBox4KeyPress(Sender: TObject; var Key: Char);

    procedure ComboBox5KeyPress(Sender: TObject; var Key: Char);

    procedure StringGrid1Click(Sender: TObject);

    procedure StringGrid3Click(Sender: TObject);

    procedure StringGrid4Click(Sender: TObject);

    procedure StringGrid5Click(Sender: TObject);

    procedure StringGrid6Click(Sender: TObject);

    procedure RadioGroup2Click(Sender: TObject);

    procedure RadioGroup3Click(Sender: TObject);

    procedure StringGridClick(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure BitBtn5Click(Sender: TObject);

    procedure BitBtn6Click(Sender: TObject);

    procedure BitBtn7Click(Sender: TObject);

    procedure BitBtn8Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

Продолжение приложения Г

 

    procedure AboutClick(Sender: TObject);

    procedure SOSClick(Sender: TObject);

    procedure StringGridMouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure StringGrid1KeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);

    procedure StringGrid2MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure StringGrid2DrawCell(Sender: TObject; ACol, ARow: Integer;

      Rect: TRect; State: TGridDrawState);

    procedure Button6Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var i, j, r, c: integer;

  MainForm: TMainForm; s,d,a,q,w,e: string; f,g: boolean;

  Maincap: string = 'Основное расписание';   //заголовок главной формы

  IzmCap: string = 'Изменения  к расписанию'; //заголовок изменения

  Perv: string = ' (Первая смена)';

  Vtor: string = ' (Вторая смена)';

  Chet: string = ' - чётная неделя';

  Nech: string = ' - нечётная неделя';

 

Продолжение приложения Г

 

implementation

 

{$R *.dfm}

 

procedure TMainForm.FileNew1Execute(Sender: TObject);

begin RadioGroup2.OnClick(Sender);

TabControl3.Visible:=false;

TabControl2.Visible:=false;

TabControl1.Visible:=true end;

 

procedure TMainForm.FileOpen1Execute(Sender: TObject);

begin DataChange(Sender);

TabControl3.Visible:=false;

TabControl1.Visible:=false;

TabControl2.Visible:=true end;

 

procedure TMainForm.FileExit1Execute(Sender: TObject);

begin Close end;

 

procedure TMainForm.FormActivate(Sender: TObject);

begin with Session do if not g then begin ConfigMode:=cmSession;

try AddStandardAlias('My', ExtractFilePath(ParamStr(0))+'Tables\', 'PARADOX');

with Table1 do begin DatabaseName:='My';

TableName:='Groups';

Active:=true;

DBComboBox6.DataField:='Group';

while not Eof do begin

DBComboBox6.Items.Add(FieldByName('Group').AsString);

Продолжение приложения Г

 

Next end; First end;

with Table2 do begin DatabaseName:='My';

TableName:='Disciplins';

Active:=true;

DBComboBox1.DataField:='Disciplin';

DBComboBox4.DataField:='Disciplin';

while not Eof do begin

DBComboBox1.Items.Add(FieldByName('Disciplin').AsString);

DBComboBox4.Items.Add(FieldByName('Disciplin').AsString);

Next end; First end;

with Table3 do begin DatabaseName:='My';

TableName:='Prepods';

Active:=true;

DBComboBox2.DataField:='Prepod';

DBComboBox5.DataField:='Prepod';

while not Eof do begin

DBComboBox2.Items.Add(FieldByName('Prepod').AsString);

DBComboBox5.Items.Add(FieldByName('Prepod').AsString);

Next end; First end;

with Table4 do begin DatabaseName:='My';

TableName:='Cabinets';

Active:=true;

DBComboBox3.DataField:='Cabinet';

DBComboBox7.DataField:='Cabinet';

while not Eof do begin

DBComboBox3.Items.Add(FieldByName('Cabinet').AsString);

DBComboBox7.Items.Add(FieldByName('Cabinet').AsString);

Next end; First end;

Продолжение приложения Г

 

with Table5 do begin DatabaseName:='My';

TableName:='Raspisanie';

Active:=true end;

with Table6 do begin DatabaseName:='My';

TableName:='Groups';

Active:=true end;

with Table7 do begin DatabaseName:='My';

TableName:='Izmenenies';

Active:=true end;

with Table8 do begin DatabaseName:='My';

TableName:='Cabinets';

Active:=true end;

with Table9 do begin DatabaseName:='My';

TableName:='Disciplins';

Active:=true end;

with Table0 do begin DatabaseName:='My';

TableName:='Prepods';

Active:=true end;

finally ConfigMode:=cmAll;

Session.Databases[0].TransIsolation:=tiDirtyRead; end; g:=true end;

DBComboBox6.OnChange(Sender) end;

 

procedure TMainForm.FormCreate(Sender: TObject);

begin MainForm.WindowState:=wsMaximized;

StaticText1.Caption:=#13#13#13'П'#13'н';

StaticText2.Caption:=#13#13'В'#13'т';

StaticText3.Caption:=#13#13'С'#13'р';

StaticText4.Caption:=#13#13'Ч'#13'т';

Продолжение приложения Г

 

StaticText5.Caption:=#13#13'П'#13'т';

StaticText6.Caption:=#13#13'С'#13'б';

with StringGrid4 do begin Cells[0, 0]:=' №  каб.';

Cells[1, 0]:='     Наименование  кабинета';

Cells[2, 0]:=' Ответственный';

Cells[3, 0]:='Мест';

Cells[4, 0]:='ПК' end;

Mainform.Caption:=MainCap;

Data.Date:=Date;

with StringGrid2 do begin

Cells[1,0]:='  Пн'; Cells[0,1]:='   1';

Cells[2,0]:='  Вт'; Cells[0,2]:='   2';

Cells[3,0]:='  Ср'; Cells[0,3]:='   3';

Cells[4,0]:='  Чт'; Cells[0,4]:='   4';

Cells[5,0]:='  Пт'; Cells[0,5]:='   5';

Cells[6,0]:='  Сб'; Cells[0,6]:='   6' end;

with StringGrid1 do begin Cells[0, 0]:='№  пары';

Cells[1, 0]:='                                                                  Дисциплина';

Cells[2, 0]:='                       Преподаватель';

Cells[3, 0]:='    № каб.' end;

with StringGrid do begin Cells[0,0]:='    Группа';