Основний код програми

unit Main;

interface

uses

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

Dialogs, StdCtrls, ComCtrls, ExtCtrls, XPMan, Menus, Buttons, Spin,

ActnList, ToolWin, Mask, DBCtrls;

type

TfmSchengenAgreement = class(TForm)

sbInfo: TStatusBar;

pnTop: TPanel;

pnBottom: TPanel;

MainMenu1: TMainMenu;

miFile: TMenuItem;

N1: TMenuItem;

miExit: TMenuItem;

miHelp: TMenuItem;

miAbout: TMenuItem;

XPManifest1: TXPManifest;

pcPages: TPageControl;

pnPersonalInfo: TPanel;

tsPersonalInfo: TTabSheet;

tsAddress: TTabSheet;

tsPosition: TTabSheet;

tsPartnerChildren: TTabSheet;

tsBrothers: TTabSheet;

tsParents: TTabSheet;

tsFriends: TTabSheet;

tsFormerCounties: TTabSheet;

stPersonalInfo: TStaticText;

stAddress: TStaticText;

stPosition: TStaticText;

stPartnerChildren: TStaticText;

stBrothers: TStaticText;

stParents: TStaticText;

stFriends: TStaticText;

stFormerCountries: TStaticText;

dtpFatherBirthday: TDateTimePicker;

chbxFatherDead: TCheckBox;

dtpFatherDeathday: TDateTimePicker;

lbedFatherAddress: TLabeledEdit;

dtpMotherBirthday: TDateTimePicker;

chbxMotherDead: TCheckBox;

dtpMotherDeathday: TDateTimePicker;

lbedMotherAddress: TLabeledEdit;

chbxFatherWithYou: TCheckBox;

chbxMotherWithYou: TCheckBox;

lbFatherBirthday: TLabel;

lbedFatherDeathday: TLabel;

lbMotheBirthday: TLabel;

lbMotherDeathday: TLabel;

lbedFriendName: TLabeledEdit;

dtpFriendBirthday: TDateTimePicker;

lbFriendBirthday: TLabel;

bbFriendAdd: TBitBtn;

bbFriendDelete: TBitBtn;

bbFriendEdit: TBitBtn;

lvFriends: TListView;

ActionList1: TActionList;

actNextPage: TAction;

actPrevPage: TAction;

lbedPartnerFormerName: TLabeledEdit;

lbedPartnerRealAddress: TLabeledEdit;

chbxPartnerWithYou: TCheckBox;

lbPartnerBirthday: TLabel;

dtpBrotherBirthday: TDateTimePicker;

lbedBrotherPartner: TLabeledEdit;

seBrotherChildrenCount: TSpinEdit;

chbxBrotherWithYou: TCheckBox;

lbBrotherChildrenCount: TLabel;

lbBrotherBirthday: TLabel;

bbBrotherAdd: TBitBtn;

bbBrotherDelete: TBitBtn;

bbBrotherEdit: TBitBtn;

lvBrothers: TListView;

Label2: TLabel;

Label3: TLabel;

dtpVisaStart: TDateTimePicker;

lbVisaStart: TLabel;

lbVisaEnd: TLabel;

dtpVisaEnd: TDateTimePicker;

cbxCountry: TComboBox;

lbCountry: TLabel;

lbVisaDate: TLabel;

dtpVisaDate: TDateTimePicker;

lbedVisaType: TLabeledEdit;

lbedCountryWhere: TLabeledEdit;

bbCountryAdd: TBitBtn;

bbCountryDelete: TBitBtn;

bbCountryEdit: TBitBtn;

lvCountries: TListView;

lbFullName: TLabel;

bbPrev: TBitBtn;

bbNext: TBitBtn;

miSave: TMenuItem;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

bbAbout: TBitBtn;

bbExit: TBitBtn;

lbDate: TLabel;

dtpDate: TDateTimePicker;

bvBevel1: TBevel;

bbSave: TBitBtn;

gbxName: TGroupBox;

lbedFormerNames: TLabeledEdit;

gbxBirth: TGroupBox;

lbBirthday: TLabel;

gbxArmy: TGroupBox;

chbxArmy: TCheckBox;

lbedArmy: TLabeledEdit;

gbxFamilyStatus: TGroupBox;

gbxHomeAddress: TGroupBox;

gbxRealAddress: TGroupBox;

lbedRealIndex: TLabeledEdit;

lbedRealAddress: TLabeledEdit;

gbxPhone: TGroupBox;

lbedRegisterPhone: TLabeledEdit;

gbxResponsiblePerson: TGroupBox;

lbedResponsiblePerson: TLabeledEdit;

lbedRegistered: TLabeledEdit;

gbxJob: TGroupBox;

lbedJobYear: TLabeledEdit;

gbxFirm: TGroupBox;

lbedFirmPhone: TLabeledEdit;

lbedFirmFax: TLabeledEdit;

lbedFirmEMail: TLabeledEdit;

gbxNoJob: TGroupBox;

lbedIfNoJob: TLabeledEdit;

gbxChildren: TGroupBox;

lbedChildPartner: TLabeledEdit;

seChildChildrenCount: TSpinEdit;

chbxChildWithYou: TCheckBox;

bbChildAdd: TBitBtn;

bbChildDelete: TBitBtn;

bbChildEdit: TBitBtn;

lvChildren: TListView;

lbChildBirthday: TLabel;

lbChildChildrenCount: TLabel;

Timer1: TTimer;

Label4: TLabel;

name1: TDBEdit;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBComboBox1: TDBComboBox;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label1: TLabel;

DBEdit6: TDBEdit;

Label6: TLabel;

DBEdit7: TDBEdit;

Label7: TLabel;

DBEdit8: TDBEdit;

Label8: TLabel;

DBEdit9: TDBEdit;

Label9: TLabel;

DBEdit10: TDBEdit;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

DBEdit11: TDBEdit;

Label13: TLabel;

DBEdit12: TDBEdit;

Label14: TLabel;

Label15: TLabel;

lbedChildName: TDBEdit;

DateTimePicker1: TDateTimePicker;

dtpChildBirthday: TDateTimePicker;

lbedBrotherName: TDBEdit;

Label16: TLabel;

DBEdit14: TDBEdit;

Label17: TLabel;

DBEdit15: TDBEdit;

Label18: TLabel;

procedure chbxArmyClick(Sender: TObject);

procedure actNextPageExecute(Sender: TObject);

procedure actPrevPageExecute(Sender: TObject);

procedure chbxFatherDeadClick(Sender: TObject);

procedure chbxMotherDeadClick(Sender: TObject);

procedure miAboutClick(Sender: TObject);

procedure miExitClick(Sender: TObject);

procedure lvChildrenChange(Sender: TObject; Item: TListItem;

Change: TItemChange);

procedure cbxFamilyStatusExit(Sender: TObject);

procedure lvFriendsChange(Sender: TObject; Item: TListItem;

Change: TItemChange);

procedure lvBrothersChange(Sender: TObject; Item: TListItem;

Change: TItemChange);

procedure lvCountriesChange(Sender: TObject; Item: TListItem;

Change: TItemChange);

procedure bbFriendAddClick(Sender: TObject);

procedure bbFriendDeleteClick(Sender: TObject);

procedure bbFriendEditClick(Sender: TObject);

procedure lvFriendsKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure lvBrothersKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure bbBrotherDeleteClick(Sender: TObject);

procedure bbBrotherAddClick(Sender: TObject);

procedure bbBrotherEditClick(Sender: TObject);

procedure lvChildrenKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure bbChildDeleteClick(Sender: TObject);

procedure bbChildAddClick(Sender: TObject);

procedure bbChildEditClick(Sender: TObject);

procedure lvCountriesKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure bbCountryDeleteClick(Sender: TObject);

procedure bbCountryAddClick(Sender: TObject);

procedure bbCountryEditClick(Sender: TObject);

procedure miNewClick(Sender: TObject);

procedure miSaveAsClick(Sender: TObject);

procedure miOpenClick(Sender: TObject);

procedure miSaveClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure lbedSurnameChange(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure lbedSurnameKeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmSchengenAgreement: TfmSchengenAgreement;

implementation

uses About, ComponentsLoadSave, Unit1;

{$R *.dfm}

procedure TfmSchengenAgreement.chbxArmyClick(Sender: TObject);

begin

lbedArmy.Enabled: =chbxArmy.Checked;

end;

procedure TfmSchengenAgreement.actNextPageExecute(Sender: TObject);

begin

pcPages.SelectNextPage(True);

end;

procedure TfmSchengenAgreement.actPrevPageExecute(Sender: TObject);

begin

pcPages.SelectNextPage(False);

end;

procedure TfmSchengenAgreement.chbxFatherDeadClick(Sender: TObject);

begin

dtpFatherDeathday.Enabled: =chbxFatherDead.Checked;

end;

procedure TfmSchengenAgreement.chbxMotherDeadClick(Sender: TObject);

begin

dtpMotherDeathday.Enabled: =chbxMotherDead.Checked;

end;

procedure TfmSchengenAgreement.miAboutClick(Sender: TObject);

begin

fmAbout.ShowModal;

end;

procedure TfmSchengenAgreement.miExitClick(Sender: TObject);

begin

Close;

end;

procedure TfmSchengenAgreement.bbChildAddClick(Sender: TObject);

begin

lbedChildName.SetFocus;

If Trim(lbedChildName.Text)='' Then Exit;

With lvChildren.Items.Add Do

Begin

Caption: =Trim(lbedChildName.Text);

SubItems.Add(DateToStr(dtpChildBirthday.Date));

SubItems.Add(lbedChildPartner.Text);

SubItems.Add(IntToStr(seChildChildrenCount.Value));

If chbxChildWithYou.Checked Then

SubItems.Add('Так')

Else

SubItems.Add('Ні');

End;

end;

procedure TfmSchengenAgreement.bbChildDeleteClick(Sender: TObject);

begin

If lvChildren.ItemIndex=-1 Then Exit;

If Application.MessageBox('Видалити цей запис? ', 'Ви впевнені? ', MB_YESNO+MB_ICONQUESTION)< > IDYES Then Exit;

lvChildren.Items.Delete(lvChildren.ItemIndex);

end;

procedure TfmSchengenAgreement.bbChildEditClick(Sender: TObject);

begin

lbedChildName.SetFocus;

If lvChildren.ItemIndex=-1 Then Exit;

If Trim(lbedChildName.Text)='' Then Exit;

With lvChildren.Items[lvChildren.ItemIndex] Do

Begin

Caption: =Trim(lbedChildName.Text);

SubItems[0]: =DateToStr(dtpChildBirthday.Date);

SubItems[1]: =lbedChildPartner.Text;

SubItems[2]: =IntToStr(seChildChildrenCount.Value);

If chbxChildWithYou.Checked Then

SubItems[3]: ='Так'

Else

SubItems[3]: ='Ні';

End;

end;

procedure TfmSchengenAgreement.lvChildrenKeyDown(Sender: TObject;

var Key: Word; Shift: TShiftState);

begin

If Key=VK_DELETE Then

bbChildDeleteClick(Self);

end;

procedure TfmSchengenAgreement.lvChildrenChange(Sender: TObject;

Item: TListItem; Change: TItemChange);

begin

If Change< > ctState Then Exit;

If Item.SubItems.Count=0 Then Exit;

lbedChildName.Text: =Item.Caption;

dtpChildBirthday.Date: =StrToDate(Item.SubItems[0]);

lbedChildPartner.Text: =Item.SubItems[1];

seChildChildrenCount.Value: =StrToInt(Item.SubItems[2]);

If Item.SubItems[3][1]='Д' Then

chbxChildWithYou.Checked: =True

Else

chbxChildWithYou.Checked: =False;

end;

procedure TfmSchengenAgreement.bbBrotherAddClick(Sender: TObject);

begin

lbedBrotherName.SetFocus;

If Trim(lbedBrotherName.Text)='' Then Exit;

With lvBrothers.Items.Add Do

Begin

Caption: =Trim(lbedBrotherName.Text);

SubItems.Add(DateToStr(dtpBrotherBirthday.Date));

SubItems.Add(lbedBrotherPartner.Text);

SubItems.Add(IntToStr(seBrotherChildrenCount.Value));

If chbxBrotherWithYou.Checked Then

SubItems.Add('Так')

Else

SubItems.Add('Ні');

End;

end;

procedure TfmSchengenAgreement.bbBrotherDeleteClick(Sender: TObject);

begin

If lvBrothers.ItemIndex=-1 Then Exit;

If Application.MessageBox('Видалити цей запис? ', 'Ви впевнені? ', MB_YESNO+MB_ICONQUESTION)< > IDYES Then Exit;

lvBrothers.Items.Delete(lvBrothers.ItemIndex);

end;

procedure TfmSchengenAgreement.bbBrotherEditClick(Sender: TObject);

begin

lbedBrotherName.SetFocus;

If lvBrothers.ItemIndex=-1 Then Exit;

If Trim(lbedBrotherName.Text)='' Then Exit;

With lvBrothers.Items[lvBrothers.ItemIndex] Do

Begin

Caption: =Trim(lbedBrotherName.Text);

SubItems[0]: =DateToStr(dtpBrotherBirthday.Date);

SubItems[1]: =lbedBrotherPartner.Text;

SubItems[2]: =IntToStr(seBrotherChildrenCount.Value);

If chbxBrotherWithYou.Checked Then

SubItems[3]: ='Так'

Else

SubItems[3]: ='Ні';

End;

end;

procedure TfmSchengenAgreement.lvBrothersKeyDown(Sender: TObject;

var Key: Word; Shift: TShiftState);

begin

If Key=VK_DELETE Then

bbBrotherDeleteClick(Self);

end;

procedure TfmSchengenAgreement.lvBrothersChange(Sender: TObject;

Item: TListItem; Change: TItemChange);

begin

If Change< > ctState Then Exit;

If Item.SubItems.Count=0 Then Exit;

lbedBrotherName.Text: =Item.Caption;

dtpBrotherBirthday.Date: =StrToDate(Item.SubItems[0]);

lbedBrotherPartner.Text: =Item.SubItems[1];

seBrotherChildrenCount.Value: =StrToInt(Item.SubItems[2]);

If Item.SubItems[3][1]='Д' Then

chbxBrotherWithYou.Checked: =True

Else

chbxBrotherWithYou.Checked: =False;

end;

procedure TfmSchengenAgreement.bbFriendAddClick(Sender: TObject);

begin

lbedFriendName.SetFocus;

If Trim(lbedFriendName.Text)='' Then Exit;

With lvFriends.Items.Add Do

Begin

Caption: =Trim(lbedFriendName.Text);

SubItems.Add(DateToStr(dtpFriendBirthday.Date))

End;

end;

procedure TfmSchengenAgreement.bbFriendDeleteClick(Sender: TObject);

begin

If lvFriends.ItemIndex=-1 Then Exit;

If Application.MessageBox('Видалити цей запис? ', 'Ви впевнені? ', MB_YESNO+MB_ICONQUESTION)< > IDYES Then Exit;

lvFriends.Items.Delete(lvFriends.ItemIndex);

end;

procedure TfmSchengenAgreement.bbFriendEditClick(Sender: TObject);

begin

lbedFriendName.SetFocus;

If lvFriends.ItemIndex=-1 Then Exit;

If Trim(lbedFriendName.Text)='' Then Exit;

With lvFriends.Items[lvFriends.ItemIndex] Do

Begin

Caption: =Trim(lbedFriendName.Text);

SubItems[0]: =DateToStr(dtpFriendBirthday.Date);

End;

end;

procedure TfmSchengenAgreement.lvFriendsKeyDown(Sender: TObject;

var Key: Word; Shift: TShiftState);

begin

If Key=VK_DELETE Then

bbFriendDeleteClick(Self);

end;

procedure TfmSchengenAgreement.lvFriendsChange(Sender: TObject;

Item: TListItem; Change: TItemChange);

begin

If Change< > ctState Then Exit;

If Item.SubItems.Count=0 Then Exit;

lbedFriendName.Text: =Item.Caption;

dtpFriendBirthday.Date: =StrToDate(Item.SubItems[0]);

end;

procedure TfmSchengenAgreement.bbCountryAddClick(Sender: TObject);

begin

dtpVisaStart.SetFocus;

With lvCountries.Items.Add Do

Begin

Caption: =DateToStr(dtpVisaStart.Date);

SubItems.Add(DateToStr(dtpVisaEnd.Date));

SubItems.Add(cbxCountry.Text);

SubItems.Add(DateToStr(dtpVisaDate.Date));

SubItems.Add(lbedVisaType.Text);

SubItems.Add(lbedCountryWhere.Text);

End;

end;

procedure TfmSchengenAgreement.bbCountryDeleteClick(Sender: TObject);

begin

If lvCountries.ItemIndex=-1 Then Exit;

If Application.MessageBox('Видалити цей запис? ', 'Ви впевнені? ', MB_YESNO+MB_ICONQUESTION)< > IDYES Then Exit;

lvCountries.Items.Delete(lvCountries.ItemIndex);

end;

procedure TfmSchengenAgreement.bbCountryEditClick(Sender: TObject);

begin

dtpVisaStart.SetFocus;

If lvCountries.ItemIndex=-1 Then Exit;

With lvCountries.Items[lvCountries.ItemIndex] Do

Begin

Caption: =DateToStr(dtpVisaStart.Date);

SubItems[0]: =DateToStr(dtpVisaEnd.Date);

SubItems[1]: =cbxCountry.Text;

SubItems[2]: =DateToStr(dtpVisaDate.Date);

SubItems[3]: =lbedVisaType.Text;

SubItems[4]: =lbedCountryWhere.Text;

End;

end;

procedure TfmSchengenAgreement.lvCountriesKeyDown(Sender: TObject;

var Key: Word; Shift: TShiftState);

begin

If Key=VK_DELETE Then

bbCountryDeleteClick(Self);

end;

procedure TfmSchengenAgreement.lvCountriesChange(Sender: TObject;

Item: TListItem; Change: TItemChange);

begin

If Change< > ctState Then Exit;

If Item.SubItems.Count=0 Then Exit;

dtpVisaStart.Date: =StrToDate(Item.Caption);

dtpVisaEnd.Date: =StrToDate(Item.SubItems[0]);

cbxCountry.Text: =Item.SubItems[1];

dtpVisaDate.Date: =StrToDate(Item.SubItems[2]);

lbedVisaType.Text: =Item.SubItems[3];

lbedCountryWhere.Text: =Item.SubItems[4];

end;

procedure TfmSchengenAgreement.miNewClick(Sender: TObject);

begin

If Sender< > nil Then

If Application.MessageBox('Очистити анкету для занесення нових даних? ', 'Нова анкета', MB_YESNO+MB_ICONQUESTION)< > IDYES Then Exit;

ClearComponents(fmSchengenAgreement, -1);

ClearComponents(fmSchengenAgreement, -2);

//cbxFamilyStatus.ItemIndex: =0;

chbxArmyClick(Self);

chbxFatherDeadClick(Self);

chbxMotherDeadClick(Self);

pcPages.ActivePageIndex: =0;

end;

procedure TfmSchengenAgreement.miOpenClick(Sender: TObject);

Var

AnkFile: TFileStream;

begin

If Not(OpenDialog1.Execute) Then Exit;

miNewClick(nil);

AnkFile: =TFileStream.Create(OpenDialog1.FileName, fmOpenRead);

LoadComponents(fmSchengenAgreement, -1, AnkFile);

AnkFile.Free;

SaveDialog1.FileName: =OpenDialog1.FileName;

end;

procedure TfmSchengenAgreement.miSaveAsClick(Sender: TObject);

begin

If Not(SaveDialog1.Execute) Then Exit;

miSaveClick(nil);

end;

procedure TfmSchengenAgreement.miSaveClick(Sender: TObject);

Var

AnkFile: TFileStream;

begin

dbconnect.ADOTable1.Insert;

SetFocus;

Update;

end;

procedure TfmSchengenAgreement.FormCreate(Sender: TObject);

begin

miNewClick(nil);

end;

procedure TfmSchengenAgreement.lbedSurnameChange(Sender: TObject);

begin

//lbFullName.Caption: =lbedSurname.Text+' '+lbedName.Text+' '+lbedPatronymic.Text;

end;

procedure TfmSchengenAgreement.Timer1Timer(Sender: TObject);

begin

Timer1.Enabled: =False;

Timer1.Tag: =0;

end;

procedure TfmSchengenAgreement.cbxFamilyStatusExit(Sender: TObject);

begin

Timer1.Tag: =1;

Timer1.Enabled: =True;

end;

procedure TfmSchengenAgreement.lbedSurnameKeyUp(Sender: TObject;

var Key: Word; Shift: TShiftState);

begin

If Timer1.Tag< > 1 Then Exit;

If Key< > 9 Then Exit;

Timer1.Enabled: =False;

actNextPageExecute(Self);

end;

procedure TfmSchengenAgreement.FormActivate(Sender: TObject);

begin

dbconnect.ADOTable1.Insert;

Update;

end;

end.