• Дисциплины
• Виды работ

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

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

ess, 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;

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

• Назад
• 1
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10
• Далее