Смекни!
smekni.com
Информатика и программирование

Автоматизована система "Облік паспортних даних" (стр. 6 из 6)

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;

DBNavigator1: TDBNavigator;

Label1: TLabel;

Label4: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit4, pasp_st, p_st;

{$R *.dfm}

procedure TForm7.Button1Click(Sender: TObject);

var ZV1,ZV2,ZV3,ZV6,ZV7,ZV8,ZV11,ZV14,zv15,zv16,zv17,zv19,zv18:String;

zv4,ZV5,ZV9,ZV12,ZV13,ZV10:Double;

begin

ZV1 := form7.Table1Prizvuge.Value;

ZV2 := form7.Table1Imia.Value;

ZV3 := form7.Table1Po_batkovi.Value;

ZV4 := form7.Table1Rik_nar.Value;

ZV5 := form7.Table1Vik.Value;

ZV6 := form7.Table1Stat.Value;

ZV7 := form7.Table1Adress.Value;

ZV8 := form7.Table1Vylucia.Value;

ZV9 := form7.Table1Nom_byd.Value;

ZV10 := form7.Table1Nom_kva.Value;

ZV11 := form7.Table1Ser_pasp.Value;

ZV12 := form7.Table1Nom_pasp.Value;

ZV13 := form7.Table1Data_vud_pasp.value;

ZV14 := form7.Table1Kum_vud_pasp.Value;

zv15:=form7.Table1Viiskovo_zobov.Value;

zv16:=form7.Table1Photo.Value;

zv19:= form7.Table1Pensioner.Value;

v17:=form7.Edit2.Text;

zv18:=form7.Edit3.Text;

table2.Edit;

table2.Last;

form7.DBNavigator1.BtnClick(nbinsert);

form7.DBNavigator1.BtnClick(nbEdit);

table2.fieldByName('Prizvuge').AsString:= ZV1;

table2.fieldByName('Imia').AsString:= ZV2;

table2.fieldByName('Po_batkovi').AsString:= ZV3;

table2.fieldByName('Rik_nar').AsDateTime:= zv4;

table2.fieldByName('vik').AsString:= floattostr(ZV5);

table2.fieldByName('stat').AsString:= ZV6;

table2.fieldByName('adress').AsString:= ZV7;

table2.fieldByName('Vylucia').AsString := ZV8;

table2.fieldByName('Nom_byd').AsString:= FloatToStr(ZV9);

table2.fieldByName('Nom_kva').AsString:=floattostr(ZV10);

table2.fieldByName('Ser_pasp').AsString:= ZV11;

table2.fieldByName('Nom_pasp').AsString:= floattostr(ZV12);

table2.fieldByName('Data_vud_pasp').AsDateTime:= ZV13;

table2.fieldByName('Kum_vud_pasp').AsString:= ZV14;

table2.fieldByName('Viiskovo_zobov').AsString:= ZV15;

table2.fieldByName('Pensioner').AsString:= ZV19;

table2.fieldByName('Photo').AsString:= ZV16;

table2.fieldByName('Prucuna_vub').AsString:= ZV17;

table2.fieldByName('Data_vub').AsString:= ZV18;

form7.DBNavigator1.BtnClick(nbPost);

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add ('Delete From pasp_st');

Query1.SQL.Add ('Where prizvuge = "'+ ZV1 + '"');

Query1.ExecSQL;

Table1.Refresh;

form7.Edit2.Text:='';

end;

procedure TForm7.FormCreate(Sender: TObject);

begin

form7.Table1.Refresh;

form7.DBEdit2.Text:=DateToStr(Date)

end;

end.

unit Unit8;

interface

uses

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

Dialogs, ExtCtrls, QuickRpt, QRCtrls, DB, DBTables, StdCtrls, Buttons,

Grids, DBGrids;

type

TForm8 = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

DataSource1: TDataSource;

QRBand2: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit4, pasp_st;

{$R *.dfm}

end.

unit Unit9;

interface

uses

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

Dialogs, QuickRpt, QRCtrls, DB, ExtCtrls;

type

TForm9 = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

QRDBText1: TQRDBText;

DataSource1: TDataSource;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRDBText2: TQRDBText;

QRLabel3: TQRLabel;

QRDBText3: TQRDBText;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRShape1: TQRShape;

QRLabel7: TQRLabel;

QRLabel8: TQRLabel;

QRLabel9: TQRLabel;

QRLabel10: TQRLabel;

QRLabel11: TQRLabel;

QRLabel12: TQRLabel;

QRLabel13: TQRLabel;

QRLabel14: TQRLabel;

QRLabel15: TQRLabel;

QRLabel16: TQRLabel;

QRLabel17: TQRLabel;

QRLabel18: TQRLabel;

QRDBText7: TQRDBText;

QRDBText8: TQRDBText;

QRDBText9: TQRDBText;

QRDBText10: TQRDBText;

QRLabel19: TQRLabel;

QRDBText11: TQRDBText;

QRDBText12: TQRDBText;

QRDBText13: TQRDBText;

QRDBText14: TQRDBText;

QRDBText15: TQRDBText;

QRDBText16: TQRDBText;

QRDBImage1: TQRDBImage;

QRDBImage2: TQRDBImage;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

{$R *.dfm}

end.

unit Unit10;

interface

uses

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

Dialogs, QuickRpt, QRCtrls, DB, ExtCtrls;

type

TForm10 = class(TForm)

QuickRep1: TQuickRep;

QRBand1: TQRBand;

DataSource1: TDataSource;

QRDBText1: TQRDBText;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRLabel3: TQRLabel;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRDBText7: TQRDBText;

QRLabel8: TQRLabel;

QRDBText8: TQRDBText;

QRLabel9: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRLabel10: TQRLabel;

QRLabel11: TQRLabel;

QRLabel12: TQRLabel;

QRLabel13: TQRLabel;

QRLabel14: TQRLabel;

QRLabel15: TQRLabel;

QRLabel16: TQRLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

{$R *.dfm}

end.

unit Unit11;

interface

uses

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

Dialogs, StdCtrls;

type

TForm11 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses Unit10, pasp_st;

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);

begin

form10.QRLabel12.Caption:=form11.Edit1.Text;

form10.QRLabel14.Caption:=form11.Edit2.Text;

form10.QRLabel13.Caption:=form11.Edit3.Text;

form10.QRLabel16.Caption:=form11.Edit4.Text;

form10.QRLabel15.Caption:=form11.Edit5.Text;

form10.QuickRep1.Preview;

end;

end.

unit Unit12;

interface

uses

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

Dialogs, StdCtrls, DB, Grids, DBGrids, DBCtrls;

type

TForm12 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Label1: TLabel;

DBImage1: TDBImage;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

uses pasp_st;

{$R *.dfm}

procedure TForm12.FormCreate(Sender: TObject);

begin

form12.DataSource1.AutoEdit:=false;

form2.openpicturedialog1.Filter:='Все файлы

bmp;*.ico;*.emf;*.wmf)|*.bmp;*.ico;*.emf;*.wmf';

form2.savepicturedialog1.Filter:='*.bmp|*.bmp';

end;

end.


Додаток 3

7.4 Інструкції по впровадженню і експлуатації програмного засобу

Для встановлення даного продукту на ваш комп’ютер потрібно диск з інсталяційним пакетом вставити в CD-ROM. Після чого з диску запусти виконуваний файл Setup.exe. В діалоговому вікні, що відкриється мал. 7.1, натисніть на клавішу Далі для продовження встановлення або кнопку Скасувати для виходу з програми установки.

Мал. 7.1

В слідуючому вікні мал. 7.2 можна прочитати Ліцензійну угоду. Прийняти її і натиснути Далі.


Мал. 7.2

В діалоговому вікні мал. 7.3 вкажіть пароль доступу та натисніть кнопку Далі для продовження встановлення програми на ваш комп’ютер.

Мал. 7.3

Дане вікно Мал. 7.4 показує куди потрібно встановити программу.

Мал. 7.4

Дане вікно Мал. 7.5 показує де будуть розміщенні ярлики встановленої програми.


Мал. 7.5

Після закінчення встановлення програми з’явиться наступне вікно Мал 7.6 на якому потрібно натиснути на кнопку Готово та можна обрати чи запускати встановлену програму після натиснення.

Мал. 7.6

Для запуску програми необхідно виконати команди Пуск → Облік паспортних даних→Облік паспортних даних. Інформація по керуваню прогамою знаходиться в допомозі програми, для виклику допомоги під час роботи програми необхідно натиснути клавішу F1.

 
назад
1
2
3
4
5
6
НАПИШИТЕ НАМ
Copyright © Smekni.com. All rigths reserved.