Автоматизована система "Облік паспортних даних"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
-оперативна память - 128 Mбайт;
-обсяг дискової памяті - 20 Гбайт.
4. ВИМОГИ ДО ПРОГРАМНОЇ ДОКУМЕНТАЦІЇ
Програмна документація повинна включати наступні документи:
-Інструкція по інсталяції (встановленню) програми, складається з опису інсталяційного пакету, переліку етапів інсталяції та їх послідовності, шляху інсталяції, розміру інсталяційного пакету та програмних файлі після інсталяції;
-Керівництво користувача, складається з опису послідовності завантаження програми, основних режимів роботи, основних екранних форм та їх структури, переліку виняткових ситуацій та реакції користувача на них, контрольні приклади;
-Керівництво адміністратора баз даних, складається з опису складу таблиць бази даних та доступів до них (список користувачів, їх права і паролі), опису та послідовності робіт по обслуговуванню бази даних (архівування, резервне ковпіювання, з вказівкою періодичності виконання та засобів, що для цього використовуються).
5. ТЕХНІКО - ЕКОНОМІЧНІ ПОКАЗНИКИ
Техніко - економічні показники визначаються замовником без участі виконавця.
6. СТАДІЇ ТА ЕТАПИ РОЗРОБКИ
Стадії та етапи розробки програми, та терміни їх виконання повинні відповідати затвердженому графіку курсового проектування.
7. ПОРЯДОК КОНТРОЛЮ І ПРИЙМАННЯ
Основними формами контролю виконання проекту є - поточний, проміжковий і підсумковий.
Поточний контроль здійснюється виконавцем, щляхом систематичної перевірки відповідності стану виконуваних робіт графіку виконання проекту і поточних характеристик проекту вимогам технічного завдання.
Проміжковий контроль здійснюється замовником із залученням виконавця, у відповідності до графіку проведення контролю, шляхом первірки поточного стану проекта графіку розробки і відвічності основних етапів та характеристик проекту технічному завданню. Недоліки, виявлені у результаті проміжкового контролю повинні бути усунені до наступної перевірки.
Підсумковий контроль проводиться комісією, яка складається із представників замовника, у присутності виконавця в термін визначений графіком виконання проекту. Підсумковий контроль передбачає комплексне тестування всього проекту і окремих модулів на відповідність функціональним і якісним характеристикам, перевірку складу та якості програмної документації, комплектність проекту у відповідності до предявленого опису і технічного завдання.
На основі результатів підсумкового контролю комісія робить висновок про приймання або неприймання проекту, з оформленням відповідного акту (рецензії) на виконану роботу.
Додаток 2
7.2 Коди програмних модулів
unit p_st;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
Image1: TImage;
Label3: TLabel;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
procedure N4Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses pasp_st, vyl, Unit4, Unit5, Unit6, Unit7, Unit12, Unit2;
{$R *.dfm}
procedure TForm1.N4Click(Sender: TObject);
begin
form2.show;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
form3.show;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
form4.Show;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
form5.show;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
form6.show;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form7.show;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
form12.show;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
winhelp(Form1.Handle,pasp_help.hlp,HELP_CONTEXT,1); end;
procedure TForm1.N14Click(Sender: TObject);
begin
aboutbox.showmodal;
end;
end.
unit pasp_st;
interface
uses jpeg, DB, DBTables, ExtDlgs, Dialogs, StdCtrls, Buttons, DBCtrls,
Controls, ExtCtrls, Mask, Grids, DBGrids, Classes,
Windows, Messages, SysUtils, Variants, Graphics, Forms, QuickRpt;
type
TForm2 = class(TForm)
DBGrid1: TDBGrid;
DBEdit1: TDBEdit;
DBNavigator1: TDBNavigator;
DBLookupComboBox1: TDBLookupComboBox;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Shape1: TShape;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit9: TDBEdit;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBComboBox3: TDBComboBox;
Label17: TLabel;
DBEdit6: TDBEdit;
OpenPictureDialog1: TOpenPictureDialog;
SavePictureDialog1: TSavePictureDialog;
Table2: TTable;
DataSource2: TDataSource;
Table1: TTable;
DataSource1: TDataSource;
Table1ID: TAutoIncField;
Table1Prizvuge: TStringField;
Table1Imia: TStringField;
Table1Po_batkovi: TStringField;
Table1Rik_nar: TDateField;
Table1Vik: TFloatField;
Table1Stat: TStringField;
Table1Adress: TStringField;
Table1Vylucia: TStringField;
Table1Nom_byd: TFloatField;
Table1Nom_kva: TFloatField;
Table1Ser_pasp: TStringField;
Table1Nom_pasp: TFloatField;
Table1Data_vud_pasp: TDateField;
Table1Kum_vud_pasp: TStringField;
Table1Viiskovo_zobov: TStringField;
Table1Photo: TGraphicField;
Table1Pensioner: TStringField;
Label18: TLabel;
DBComboBox4: TDBComboBox;
Edit1: TEdit;
DBImage1: TDBImage;
Label19: TLabel;
BitBtn1: TBitBtn;
BitBtn3: TBitBtn;
BitBtn2: TBitBtn;
procedure DBEdit4Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure FormActivate(