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

etFocus; Trim (lbedBrotherName. Text)= Then Exit;

lvBrothers. Items. Add Do:=Trim (lbedBrotherName. Text) ;. Add (DateToStr (dtpBrotherBirthday. Date)) ;. Add (lbedBrotherPartner. Text) ;. Add (IntToStr (seBrotherChildrenCount. Value)); chbxBrotherWithYou. Checked Then. Add ( Так ). Add ( Ні ) ;;;

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

TfmSchengenAgreement.bbBrotherEditClick (Sender: TObject) ;. SetFocus; lvBrothers. ItemIndex=- 1 Then Exit; Trim (lbedBrotherName. Text)= Then Exit;

lvBrothers. Items [lvBrothers. ItemIndex] Do:=Trim (lbedBrotherName. Text); [0]:=DateToStr (dtpBrotherBirthday. Date); [1]:=lbedBrotherPartner. Text; [2]:=IntToStr (seBrotherChildrenCount. Value); chbxBrotherWithYou. Checked Then [3]:= Так [3]:= Ні raquo ;;;;

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

TfmSchengenAgreement.lvBrothersChange (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.bbFriendAddClick (Sender: TObject) ;. SetFocus; Trim (lbedFriendName. Text)= Then Exit; lvFriends. Items. Add Do:=Trim (lbedFriendName. Text) ;. Add (DateToStr (dtpFriendBirthday. Date)) ;;

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

TfmSchengenAgreement.bbFriendEditClick (Sender: TObject) ;. SetFocus; lvFriends. ItemIndex=- 1 Then Exit; Trim (lbedFriendName. Text)= Then Exit; lvFriends. Items [lvFriends. ItemIndex] Do:=Trim (lbedFriendName. Text); [0]:=DateToStr (dtpFriendBirthday. Date) ;;;

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

TfmSchengenAgreement.lvFriendsChange (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]) ;;

TfmSchengenAgreement.bbCountryAddClick (Sender: TObject) ;. SetFocus; lvCountries. Items. Add Do:=DateToStr (dtpVisaStart. Date) ;. Add (DateToStr (dtpVisaEnd. Date)) ;. Add (cbxCountry. Text) ;. Add (DateToStr (dtpVisaDate. Date)) ;. Add (lbedVisaType. Text) ;. Add (lbedCountryWhere. Text) ;;;

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

TfmSchengenAgreement.bbCountryEditClick (Sender: TObject) ;. SetFocus; lvCountries. ItemIndex=- 1 Then Exit; lvCountries. Items [lvCountries. ItemIndex] Do:=DateToStr (dtpVisaStart. Date); [0]:=DateToStr (dtpVisaEnd. Date); [1]:=cbxCountry. Text; [2]:=DateToStr (dtpVisaDate. Date); [3]:=lbedVisaType. Text; [4]: ??= lbedCountryWhere. Text ;;;

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

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

. Date:=StrToDate (Item. Caption) ;. Date:=StrToDate (Item. SubItems [0]) ;. Text:=Item. SubItems [1] ;. Date:=StrToDate (Item. SubItems [2]) ;. Text:=Item. SubItems [3] ;. Text:=Item. SubItems [4] ;;

TfmSchengenAgreement.miNewClick (Sender: TObject); Sender lt; gt; nil ThenApplication. MessageBox ( очистити анкету для занесення НОВИХ даних? Raquo ;, Нова анкета raquo ;, MB_YESNO + MB_ICONQUESTION) lt; gt; IDYES Then Exit; (fmSchengenAgreement, - 1); (fmSchengenAgreement, - 2);

//cbxFamilyStatus. ItemIndex:=0; (Self); (Self); (Self) ;. ActivePageIndex:=0 ;;