46712 (607917), страница 6

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 6)

end

else

begin

Result := CurrentYear - Year;

if (Month > CurrentMonth) then

Dec(Result)

else

begin

if Month = CurrentMonth then

if (Day > CurrentDay) then

Dec(Result);

end;

end;

end;

procedure TForm2.DBEdit4Change(Sender: TObject);

begin

if length(dbedit4.Text)=10 then

dbedit5.Text:= Format('%d',

[CalculateAge(StrToDate(dbedit4.Text), Date)]);

end;

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

if openpicturedialog1.Execute then

dbimage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

openpicturedialog1.Filter:='Âñå ôàéëû(*.bmp;*.ico;*.emf;*.wmf)|*.bmp;*.ico;*.emf;*.wmf';

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

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

var bm:string;

zv:TBookmark;

begin

zv:=Table1.GetBookmark;

form11.show;

end;

procedure TForm2.Edit1Change(Sender: TObject);

var strField:string;

begin

strField:='Prizvuge';

table1.Locate(strField, Edit1.Text,[loCaseInsensitive,loPartialKey]);

end;

procedure TForm2.BitBtn3Click(Sender: TObject);

var bm:string;

zv:TBookmark;

begin

zv:=Table1.GetBookmark;

form9.QuickRep1.Preview;

end;

procedure TForm2.FormActivate(Sender: TObject);

begin

form2.DBEdit1.SetFocus;

end;

unit vyl;

interface

uses

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

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask,

jpeg;

type

TForm3 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Table1: TTable;

DBComboBox1: TDBComboBox;

DBEdit1: TDBEdit;

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

end.

unit Unit4;

interface

uses

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

Dialogs, DB,QuickRpt, Grids, DBGrids, DBTables, DBCtrls, StdCtrls, ExtCtrls;

type

TForm4 = class(TForm)

Table1: TTable;

DBGrid2: TDBGrid;

Button1: TButton;

Edit1: TEdit;

DataSource2: TDataSource;

Query11: TQuery;

Label1: TLabel;

DataSource1: TDataSource;

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;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses p_st, Unit8, pasp_st, Unit9;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

var fam: string[30];

begin

fam:=edit1.Text;

dbgrid2.Visible:=true;

if fam <> ''

then

begin

with form4.Query11 do begin

Close;

SQL.Clear;

SQL.Add('SELECT prizvuge,Imia, po_batkovi, rik_nar,vik, Stat,adress, vylucia, Nom_byd, nom_kva,ser_pasp,nom_pasp,data_vud_pasp, kum_vud_pasp,viiskovo_zobov');

SQL.Add('FROM Pasp_st.db');

SQL.Add('WHERE Prizvuge= "'+ fam + '"');

Open;

end;

form4.Query11.DataSource:=form4.DataSource1;

Form4.DataSource2.DataSet:=form4.Query11;

form4.DBGrid2.DataSource:=form4.DataSource2;

end;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

form4.Table1.Refresh;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Buttons, Grids, DBGrids, DBTables, DB, ExtCtrls,

DBCtrls;

type

TForm5 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

DataSource1: TDataSource;

DataSource2: TDataSource;

Table1: TTable;

Query1: TQuery;

DBGrid1: TDBGrid;

BitBtn1: TBitBtn;

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;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

var fam: string;

begin

dbgrid1.Visible:=true;

fam:=edit1.Text;

if fam <> ''

then

begin

with form5.Query1 do begin

Close;

SQL.Clear;

SQL.Add('SELECT prizvuge,Imia, po_batkovi, rik_nar,vik, Stat,adress, vylucia, Nom_byd, nom_kva,ser_pasp,nom_pasp,data_vud_pasp, kum_vud_pasp,viiskovo_zobov ');

SQL.Add('FROM Pasp_st.db');

SQL.Add('WHERE vylucia= "'+ fam + '"');

Open;

end;

form5.Query1.DataSource:=form5.DataSource1;

Form5.DataSource2.DataSet:=form5.Query1;

form5.DBGrid1.DataSource:=form5.DataSource2;

end;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

form5.Table1.Refresh;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Buttons;

type

TForm6 = class(TForm)

DBGrid1: TDBGrid;

Table1: TTable;

Query1: TQuery;

DataSource1: TDataSource;

DataSource2: TDataSource;

Edit1: TEdit;

BitBtn1: TBitBtn;

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;

Label1: TLabel;

Button1: TButton;

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit9, Unit8;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);

var fam,fam1: string[30];

begin

form6.DBGrid1.Visible:=true;

fam:='Òàê';

with form6.Query1 do begin

Close;

SQL.Clear;

SQL.Add('SELECT prizvuge,Imia, po_batkovi, rik_nar,vik, Stat,adress, vylucia, Nom_byd, nom_kva,ser_pasp,nom_pasp,data_vud_pasp, kum_vud_pasp,viiskovo_zobov');

SQL.Add('FROM Pasp_st.db');

SQL.Add('WHERE pensioner= "'+ fam + '"');

Open;

end;

form6.Query1.DataSource:=form6.DataSource1;

Form6.DataSource2.DataSet:=form6.Query1;

form6.DBGrid1.DataSource:=form6.DataSource2;

end;

procedure TForm6.Button1Click(Sender: TObject);

var zv:TBookmark;

begin

zv:=Query1.GetBookmark;

form8.QuickRep1.Preview;

end;

procedure TForm6.FormCreate(Sender: TObject);

begin

form6.Table1.Refresh;

end;

end.

unit Unit7;

interface

uses

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

Dialogs, StdCtrls, Buttons, DB, DBTables, Grids, DBGrids, Mask, DBCtrls,

ExtCtrls;

type

TForm7 = class(TForm)

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

Table1: TTable;

Table2: TTable;

Query1: TQuery;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

BitBtn1: TBitBtn;

Label2: TLabel;

Label3: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

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;

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;

Характеристики

Список файлов курсовой работы