- •1 Изучение работы отдельных подразделений предприятия 3
- •2 Создание проекта 4
- •3 Выполнение работ и изучение материалов, предусмотренных программой междисциплинарного экзамена 9
- •1 Изучение работы отдельных подразделений предприятия
- •1.1 Краткая характеристика предприятия
- •1.2 Характеристика аппаратного обеспечения базы практики.
- •2 Создание проекта
- •2.1 Составление математической модели
- •2.2 Создание пользовательского интерфейса
- •3 Выполнение работ и изучение материалов, предусмотренных программой междисциплинарного экзамена
- •3.1 Правила настройки сетевого интерфейса для доступа к удаленной бд
- •3.2 Правила построения математической модели задачи и алгоритм решения задачи
- •3.3 Алгоритм решения задачи линейного программирования в программе Mathcad
- •3.4 Правила создания sql запросов на выборку исходных данных
- •3.5 Правила сохранения результатов вычислений в удаленной бд с помощью sql
- •3.6 Правила оформления в формате *.Docx путем экспорта данных из созданного приложения по предложенной форме и правила вывода на удаленный принтер
- •Приложение Код программы:
Приложение Код программы:
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.