По стажировке (квалификационной практике)

ФГОУ СПО

Хакасский политехнический колледж

Специальность 230105 «Программное обеспечение вычислительной техники и автоматизированных систем»

ОТЧЕТ

По стажировке (квалификационной практике)

Студентки __4_ курса

Группы ПРО-42

 

Туниеков Алексей Юрьевич

(Фамилия, Имя, Отчество)

ГУЗ “Хакасская республиканская больница им. Г. Я. Ремишевской” ___________________________________________________________________________________ (Место прохождения практики)

__________________________с 16.04.12 по 02.06.12 г.________________________

(Сроки прохождения практики)

 

 

_______________ ______________

М.П.

 

 

(Итоговая оценка руководителя практики от колледжа)

 

г. Абакан, 2012 г.

Оглавление:

1 Изучение работы отдельных подразделений предприятия. 3

1.1 Краткая характеристика предприятия…………………………………………………………………………………….....3

1.2 Работа отделов предприятия……………………………………………………………………………………………………….3

2 Создание проекта. 4

2.1 Составление математической модели. 4

2.2 Создание пользовательского интерфейса. 9

3 Выполнение работ и изучение материалов, предусмотренных программой междисциплинарного экзамена. 12

3.1 Правила настройки сетевого интерфейса для доступа к удаленной БД.. 12

3.2 Правила построения математической модели задачи и алгоритм решения задачи. 12

3.3 Алгоритм решения задачи линейного программирования в программе Mathcad. 15

3.4 Правила создания SQL запросов на выборку исходных данных. 16

3.5 Правила сохранения результатов вычислений в удаленной БД с помощью SQL. 18

3.6 Правила оформления в формате *.docx путем экспорта данных из созданного приложения по предложенной форме и правила вывода на удаленный принтер. 19

Приложение. 22

 

Изучение работы отдельных подразделений предприятия

Краткая характеристика предприятия

ГУЗ “Хакасская республиканская больница им. Г. Я. Ремишевской”

655012, Республика Хакасия, г. Абакан, пр. Ленина, 23

Тел / факс: (3902) 22-42-06

УФК по Республике Хакассия

(ГУЗ “Хакасская республиканская больница

Им. Г. Я. Ремишевской л / с 04806010010)

ИНН 1901005310 КПП 1901010001

Р / с 40603810295141000001

БИК 049514001

ГРЦК НБ РХ Банка России г. Абакан

Характеристика аппаратного обеспечения базы практики.

Количество компьютеров	Характеристики
	Процессор: AMD Celeron(tm)64 X2 Dual Core Processor 4200+ 2.19 GHz Память (RAM): 1023 МБ Тип системы: 32-разрядная операционная система Монитор Hanns G TFT 17" V173DOb black Экран. Тип ЖК-матрицы - TFT TN; Экран. Диагональ, дюйм - 17; Время отклика, мс - 5; Интерфейсы входа - VGA (D- Sub);-Sub); Видео карта встроенная Дисковод – SONY DVD-CD multi.
Периферийные устройства
Принтер/сканер/копир овальный аппарат. Количество 120 (Xerox, Xp Canon)	Печать лазерная черно-белая, 18 стр./мин ч/б, 600x600 dpi; Подача: 250 лист., вывод: 50 лист.; USB, ЖК-панель:

Создание проекта

Правила настройки сетевого интерфейса для доступа к удаленной БД

Сетевой интерфейс доступа к базам данных – технология стандартизации доступа к базе данных, предоставляющая собой унифицированные средства взаимодействия прикладной программы, называемой клиентом (или приложением-клиентом), с сервером - базой данных.

Существует несколько основных наиболее распространенных сетевых интерфейсов:

1) DAO (англ. Data Access Objects - объекты доступа к данным) – сетевой интерфейс, который базируется на технологии баз данных Microsoft Jet. Первоначально компонент DAO был создан как COM-интерфейс для обеспечения доступа к базам данных JET (Access) и любыми, для которых имелись драйверы ODBC.

2) COM (англ. Component Object Model - объектная модель компонентов) – сетевая технология, которая появилась одновременно и в виде спецификации (то есть правил создания серверов и клиентов, описания соответствующего API, диалекта IDL и др.), и в виде реализации (функции Windows API, утилиты в составе различных SDK).

3) И т.д.

 

Приложение

Код программы:

unit Unit1;

 

interface

 

uses

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

Dialogs, StdCtrls, ComCtrls, Grids, DBGrids, XPMan, DBCtrls, DB, ADODB,

Mask, ExtCtrls, ZAbstractTable,

ZDataset, ZConnection, ZAbstractRODataset, ZAbstractDataset;

 

type

TForm1 = class(TForm)

Label8: TLabel;

Label9: TLabel;

ScrollBox1: TScrollBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

StaticText1: TStaticText;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Familia: TDBEdit;

Imia: TDBEdit;

Otchestvo: TDBEdit;

Grazhdanstvo: TDBEdit;

Nacional: TDBEdit;

DataSource1: TDataSource;

Pol: TDBComboBox;

SocPol: TDBComboBox;

Index: TDBEdit;

Kray: TDBEdit;

Oblast: TDBEdit;

NaselPunkt: TDBEdit;

Ulica: TDBEdit;

Dom: TDBEdit;

Kvartira: TDBEdit;

Telephon: TDBEdit;

KontTelephon: TDBEdit;

FormObuch: TDBComboBox;

Lgot: TDBEdit;

DocLgot: TDBEdit;

Label25: TLabel;

Armia: TDBComboBox;

Label26: TLabel;

VoenBilet: TDBEdit;

Label27: TLabel;

Data: TDBEdit;

DBGrid1: TDBGrid;

Okonchil: TDBEdit;

StaticText16: TStaticText;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label33: TLabel;

Seria: TDBEdit;

Label34: TLabel;

Nomer: TDBEdit;

Label35: TLabel;

SredBall: TDBEdit;

Label37: TLabel;

TrudStazh: TDBEdit;

Label40: TLabel;

Label42: TLabel;

StaticText17: TStaticText;

StaticText18: TStaticText;

Label43: TLabel;

Label45: TLabel;

Label49: TLabel;

DolzhnostOtca: TDBEdit;

FamiliaOtca: TDBEdit;

Label50: TLabel;

Label52: TLabel;

Obrazovanie: TDBComboBox;

Forma: TDBComboBox;

Iazk: TDBComboBox;

StaticText19: TStaticText;

Obshezhitie: TDBComboBox;

Label41: TLabel;

Label58: TLabel;

ImiaOtca: TDBEdit;

Label59: TLabel;

OtchestvoOtca: TDBEdit;

Label61: TLabel;

MestoOtca: TDBEdit;

Label44: TLabel;

TelephonOtca: TDBEdit;

Label46: TLabel;

Label47: TLabel;

FamiliaMam: TDBEdit;

ImiaMam: TDBEdit;

Label48: TLabel;

Label62: TLabel;

OtchestoMam: TDBEdit;

TelephonMam: TDBEdit;

Label65: TLabel;

Label64: TLabel;

DolzhnostMam: TDBEdit;

MestoMam: TDBEdit;

Label63: TLabel;

Mnogodetnaia: TDBComboBox;

SemeinoePolozhenie: TDBComboBox;

StaticText20: TStaticText;

PervoeVsshee: TDBComboBox;

StaticText21: TStaticText;

StaticText22: TStaticText;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

StaticText23: TStaticText;

CheckBox3: TCheckBox;

StaticText24: TStaticText;

StaticText25: TStaticText;

Label24: TLabel;

DBGrid10: TDBGrid;

DataSource10: TDataSource;

DBGrid11: TDBGrid;

DataSource11: TDataSource;

NomerStrahovogo: TDBEdit;

Label32: TLabel;

Pasport: TDBEdit;

Button2: TButton;

DataSource2: TDataSource;

DataSource3: TDataSource;

Button1: TButton;

Timer1: TTimer;

ZConnection1: TZConnection;

zZaiavlenie: TZTable;

zOtec: TZTable;

zMat: TZTable;

procedure FormObuchChange(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure PolChange(Sender: TObject);

procedure ArmiaChange(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

i: integer;

puti: string;

host: string = 'localhost';

 

implementation

 

uses Unit2,Unit3;

 

{$R *.dfm}

 

procedure TForm1.FormObuchChange(Sender: TObject);

begin

If FormObuch.ItemIndex=6 then //доступ к полям связанным с вне конкурсной формой обучения

begin

Label21.Visible:=true;

Label22.Visible:=true;

Lgot.Visible:=true;

DocLgot.Visible:=true;

end

else

begin

Label21.Visible:=false;

Label22.Visible:=false;

Lgot.Visible:=false;

DocLgot.Visible:=false;

end;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

DBGrid1.DataSource.DataSet.Post;

DBGrid10.DataSource.DataSet.Post;

DBGrid11.DataSource.DataSet.Post;

form1.Visible:=false;

form2.Visible:=true;

end;

 

procedure TForm1.PolChange(Sender: TObject);

begin

Case Pol.ItemIndex of

0: begin

SemeinoePolozhenie.Items.Strings[0]:='Холост';

SemeinoePolozhenie.Items.Strings[1]:='Женат';

end;

1: begin

SemeinoePolozhenie.Items.Strings[0]:='Не замужем';

SemeinoePolozhenie.Items.Strings[1]:='Замужем';

end;

end;

end;

 

procedure TForm1.ArmiaChange(Sender: TObject);

begin

If (Armia.ItemIndex=0) or (Armia.ItemIndex=3) then

begin

Label26.Visible:=true;

VoenBilet.Visible:=true;

end

else

begin

Label26.Visible:=false;

VoenBilet.Visible:=false;

end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

if length(paramstr(1))>0 then host:=paramstr(1);

 

timer1.Enabled:=true;

GetDir(0,Puti);

 

form1.ZConnection1.disconnect;

form1.ZConnection1.hostname:=host;

form1.ZConnection1.connect;

 

zZaiavlenie.Active:=true;

zMat.Active:=true;

zOtec.Active:=true;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Timer1.Enabled:=false;

form1.Visible:=false;

form2.Show;

end;

 

end.

ФГОУ СПО

Хакасский политехнический колледж

Специальность 230105 «Программное обеспечение вычислительной техники и автоматизированных систем»

ОТЧЕТ

по стажировке (квалификационной практике)

Студентки __4_ курса

Группы ПРО-42

 

Туниеков Алексей Юрьевич

(Фамилия, Имя, Отчество)

ГУЗ “Хакасская республиканская больница им. Г. Я. Ремишевской” ___________________________________________________________________________________ (Место прохождения практики)

__________________________с 16.04.12 по 02.06.12 г.________________________

(Сроки прохождения практики)

 

 

_______________ ______________

М.П.

 

 

(Итоговая оценка руководителя практики от колледжа)

 

г. Абакан, 2012 г.

Оглавление:

1 Изучение работы отдельных подразделений предприятия. 3

1.1 Краткая характеристика предприятия…………………………………………………………………………………….....3

1.2 Работа отделов предприятия……………………………………………………………………………………………………….3

2 Создание проекта. 4

2.1 Составление математической модели. 4

2.2 Создание пользовательского интерфейса. 9

3 Выполнение работ и изучение материалов, предусмотренных программой междисциплинарного экзамена. 12

3.1 Правила настройки сетевого интерфейса для доступа к удаленной БД.. 12

3.2 Правила построения математической модели задачи и алгоритм решения задачи. 12

3.3 Алгоритм решения задачи линейного программирования в программе Mathcad. 15

3.4 Правила создания SQL запросов на выборку исходных данных. 16

3.5 Правила сохранения результатов вычислений в удаленной БД с помощью SQL. 18

3.6 Правила оформления в формате *.docx путем экспорта данных из созданного приложения по предложенной форме и правила вывода на удаленный принтер. 19

Приложение. 22