Реферат Створення Електронної анкети для Заповнення даних

dit ;: TGroupBox ;: TLabeledEdit ;: TSpinEdit ;: TCheckBox ;: TBitBtn ;: TBitBtn ;: TBitBtn ;: TListView ;: TLabel ;: TLabel ;: TTimer ;: TLabel ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBEdit ;: TDBComboBox ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit;:TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TLabel ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TLabel ;: TDBEdit ;: TDateTimePicker ;: TDateTimePicker ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel ;: TDBEdit ;: TLabel; chbxArmyClick (Sender: TObject); actNextPageExecute (Sender: TObject); actPrevPageExecute (Sender: TObject); chbxFatherDeadClick (Sender: TObject); chbxMotherDeadClick (Sender: TObject); miAboutClick ( Sender: TObject); miExitClick (Sender: TObject); lvChildrenChange (Sender: TObject; Item: TListItem ;: TItemChange); cbxFamilyStatusExit (Sender: TObject); lvFriendsChange (Sender: TObject; Item: TListItem ;: TItemChange); lvBrothersChange (Sender:TObject; Item: TListItem ;: TItemChange); lvCountriesChange (Sender: TObject; Item: TListItem ;: TItemChange); bbFriendAddClick (Sender: TObject); bbFriendDeleteClick (Sender: TObject); bbFriendEditClick (Sender: TObject); lvFriendsKeyDown (Sender: TObject; var Key: Word ;: TShiftState); lvBrothersKeyDown (Sender: TObject; var Key: Word ;: TShiftState); bbBrotherDeleteClick (Sender: TObject); bbBrotherAddClick (Sender: TObject); bbBrotherEditClick (Sender: TObject); lvChildrenKeyDown (Sender: TObject ; var Key: Word ;: TShiftState); bbChildDeleteClick (Sender: TObject); bbChildAddClick (Sender: TObject); bbChildEditClick (Sender: TObject); lvCountriesKeyDown (Sender: TObject; var Key: Word ;: TShiftState); bbCountryDeleteClick (Sender: TObject); bbCountryAddClick (Sender: TObject); bbCountryEditClick (Sender: TObject); miNewClick (Sender: TObject); miSaveAsClick (Sender: TObject); miOpenClick (Sender: TObject); miSaveClick (Sender: TObject); FormCreate (Sender: TObject ); lbedSurnameChange (Sender: TObject); Timer1Timer (Sender: TObject); lbedSurnameKeyUp (Sender: TObject; var Key: Word ;: TShiftState); FormActivate (Sender: TObject);

{Private declarations}

{Public declarations};

: TfmSchengenAgreement;

About, ComponentsLoadSave, Unit1;

{$ R * .dfm}

procedure TfmSchengenAgreementbxArmyClick (Sender: TObject) ;. Enabled:=chbxArmy. Checked ;;

TfmSchengenAgreement.actNextPageExecute (Sender: TObject) ;. SelectNextPage (True) ;;

TfmSchengenAgreement.actPrevPageExecute (Sender: TObject) ;. SelectNextPage (False) ;;

TfmSchengenAgreementbxFatherDeadClick (Sender: TObject) ;. Enabled:=chbxFatherDead. Checked ;;

TfmSchengenAgreementbxMotherDeadClick (Sender: TObject) ;. Enabled:=chbxMotherDead. Checked ;;

TfmSchengenAgreement.miAboutClick (Sender: TObject) ;. ShowModal ;;

TfmSchengenAgreement.miExitClick (Sender: TObject) ;;;

TfmSchengenAgreement.bbChildAddClick (Sender: TObject) ;. SetFocus; Trim (lbedChildName. Text)= Then Exit;

lvChildren. Items. Add Do:=Trim (lbedChildName. Text) ;. Add (DateToStr (dtpChildBirthday. Date)) ;. Add (lbedChildPartner. Text) ;. Add (IntToStr (seChildChildrenCount. Value)); chbxChildWithYou. Checked Then. Add ( Так ). Add ( Ні ) ;;;

TfmSchengenAgreement.bbChildDeleteClick (Sender: TObject); lvChildren. ItemIndex=- 1 Then Exit; Application. MessageBox ( ВИДАЛИТИ цею Запис? Raquo ;, Ві впевнені? Raquo ;, MB_YESNO + MB_ICONQUESTION) lt; gt; IDYES Then Exit ;. Items. Delete (lvChildren. ItemIndex) ;;

TfmSchengenAgreement.bbChildEditClick (Sender: TObject) ;. SetFocus; lvChildren. ItemIndex=- 1 Then Exit; Trim (lbedChildName. Text)= Then Exit;

lvChildren. Items [lvChildren. ItemIndex] Do:=Trim (lbedChildName. Text); [0]:=DateToStr (dtpChildBirthday. Date); [1]:=lbedChildPartner. Text; [2]:=IntToStr (seChildChildrenCount. Value); chbxChildWithYou. Checked Then [3]:= Так [3]:= Ні raquo ;;;;

TfmSchengenAgreement.lvChildrenKeyDown (Sender: TObject; Key: Word; Shift: TShiftState); Key=VK_DELETE Then (Self) ;;

TfmSchengenAgreement.lvChildrenChange (Sender: TObject ;: TListItem; Change: TItemChange); Change lt; gt; ctState Then Exit; Item. SubItems. Count=0 Then Exit;

. Text:=Item. Caption ;. Date:=StrToDate (Item. SubItems [0]) ;. Text:=Item. SubItems [1] ;. Value:=StrToInt (Item. SubItems [2]); Item. SubItems [3] [1]= Д Then. Checked:=True. Checked:=False ;;

TfmSchengenAgreement.bbBrotherAddClick (Sender: TObject) ;. S...