Приложение Код программы:

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.