contacts.c

来自「CD_《Palm OS编程实践》」· C语言 代码 · 共 1,435 行 · 第 1/3 页

	// CH.5 Get the current record
	hrecord = DmQueryRecord( contactsDB, cursor );
		
	// CH.6 Initialize the date and time variable
	precord = MemHandleLock( hrecord );
	MemMove( &dateTime, precord + DB_DATE_TIME_START,
			sizeof( dateTime ) );

	// CH.6 Initialize the date control
	setDateTrigger();
		
	// CH.6 Initialize the time control
	setTimeTrigger();
	
	// CH.5 Set the text for the First Name field
	setText( getObject( form, ContactDetailFirstNameField ),
			precord + DB_FIRST_NAME_START );
		
	// CH.5 Set the text for the Last Name field
	setText( getObject( form, ContactDetailLastNameField ),
			precord + DB_LAST_NAME_START );
		
	// CH.5 Set the text for the Phone Number field
	setText( getObject( form, ContactDetailPhoneNumberField ),
			precord + DB_PHONE_NUMBER_START );
	MemHandleUnlock( hrecord );

	// CH.5 If the record is already dirty, it's new, so set focus
	if( isDirty )
	{
  		// CH.3 Get the index of our field
		index = FrmGetObjectIndex( form, ContactDetailFirstNameField );

		// CH.3 Set the focus to the First Name field
		FrmSetFocus( form, index );
		
		// CH.5 Set upper shift on
		GrfSetState( false, false, true );			
	}
	
	// CH.5 We're done
	return;
}

// CH.5 Puts any field changes in the record
void getFields( void )
{
	FormPtr		form;		// CH.5 The contact detail form
	
	// CH.5 Get the contact detail form pointer
	form = FrmGetActiveForm();
		
	// CH.5 Turn off focus
	FrmSetFocus( form, -1 );
			
	// CH.5 If the record has been modified
	if( isDirty )
	{
		CharPtr	precord;	// CH.5 Points to the DB record
	
		// CH.7 Detach the record from the database
		DmDetachRecord( contactsDB, cursor, &hrecord );
		
		// CH.5 Lock the record
		precord = MemHandleLock( hrecord );
		
		// CH.5 Get the text for the First Name field
		getText( getObject( form, ContactDetailFirstNameField ),
				precord, DB_FIRST_NAME_START );
		
		// CH.5 Get the text for the Last Name field
		getText( getObject( form, ContactDetailLastNameField ),
				precord, DB_LAST_NAME_START );
		
		// CH.5 Get the text for the Phone Number field
		getText( getObject( form, ContactDetailPhoneNumberField ),
				precord, DB_PHONE_NUMBER_START );
		
		// CH.7 Find the proper position
		cursor = DmFindSortPosition( contactsDB, precord, NULL,
				(DmComparF*)sortFunc, sortBy );
		
		// CH.5 Unlock the record
		MemHandleUnlock( hrecord );
		
		// CH.7 Reattach the record
		DmAttachRecord( contactsDB, &cursor, hrecord, NULL );
	}

	// CH.5 Reset the dirty bit
	isDirty = false;
				
	// CH.5 We're done
	return;
}

// CH.5 Set the text in a field
static void setText( FieldPtr field, CharPtr text )
{
	VoidHand	hfield;	// CH.5 Handle of field text
	CharPtr		pfield;	// CH.5 Pointer to field text
	
	// CH.5 Get the current field handle
	hfield = FldGetTextHandle( field );
	
	// CH.5 If we have a handle
	if( hfield != NULL )
	{
		// CH.5 Resize it
		if( MemHandleResize( hfield, StrLen( text ) + 1 ) != 0 )
			errorExit( MemoryErrorAlert );
	}
	
	else
	// CH.5 Allocate a handle for the string
	{
		hfield = MemHandleNew( StrLen( text ) + 1 );
		if( hfield == NULL )
			errorExit( MemoryErrorAlert );
	}
	
	// CH.5 Lock it
	pfield = MemHandleLock( hfield );
	
	// CH.5 Copy the string
	StrCopy( pfield, text );
	
	// CH.5 Unlock it
	MemHandleUnlock( hfield );
	
	// CH.5 Give it to the field
	FldSetTextHandle( field, hfield );
	
	// CH.5 Draw the field
	FldDrawField( field );
	
	// CH.5 We're done
	return;
}	

// CH.5 Get the text from a field
static void getText( FieldPtr field, VoidPtr precord, Word offset )
{
	CharPtr		pfield;	// CH.5 Pointer to field text

	// CH.5 Get the text pointer
	pfield = FldGetTextPtr( field );
	
	// CH.5 Copy it
	DmWrite( precord, offset, pfield, StrLen( pfield ) );
	
	// CH.5 We're done
	return;
}

// CH.6 Set the Contact Detail date selector trigger
static void setDateTrigger( void )
{
	FormPtr		form;		// CH.5 The contact detail form
	
	// CH.6 Get the contact detail form pointer
	form = FrmGetActiveForm();
	
	// CH.6 If there is no date
	if( dateTime.year == NO_DATE )
	{
		CtlSetLabel( getObject( form, ContactDetailDateSelTrigger ),
				"          " );
	}
	
	else
	// CH.6 If there is a date
	{
		Char dateString[dateStringLength];
		
		// CH.6 Get the date string
		DateToAscii( dateTime.month, dateTime.day, dateTime.year,
				(DateFormatType)PrefGetPreference( prefDateFormat ), dateString );
		
		// CH.6 Set the selector trigger label
		CtlSetLabel( getObject( form, ContactDetailDateSelTrigger ),
				dateString );
				
	}
	
	// CH.6 We're done
	return;
}

// CH.6 Set the Contact Detail time selector trigger
static void setTimeTrigger( void )
{
	FormPtr		form;		// CH.5 The contact detail form
	
	// CH.6 Get the contact detail form pointer
	form = FrmGetActiveForm();
	
	// CH.6 If there's no time
	if( dateTime.hour == NO_TIME )
	{
		CtlSetLabel( getObject( form, ContactDetailTimeSelTrigger ),
				"          " );
	}
	
	else
	// CH.6 If there is a time
	{
		Char timeString[timeStringLength];
		
		// CH.6 Get the time string
		TimeToAscii( dateTime.hour, dateTime.minute,
				(TimeFormatType)PrefGetPreference( prefTimeFormat ), timeString );
		
		// CH.6 Set the selector trigger label
		CtlSetLabel( getObject( form, ContactDetailTimeSelTrigger ),
				timeString );
				
	}

	// CH.6 We're done
	return;
}

// CH.6 Set the controls in the Enter Time form based on dateTime
static void setTimeControls( void )
{
	FormPtr		form;
	ControlPtr	hourButton;
	ControlPtr	minuteTensButton;
	ControlPtr	minuteOnesButton;
	ControlPtr	amButton;
	ControlPtr	pmButton;
	ControlPtr	noTimeCheckbox;
	Char		labelString[3];
	SWord		hour;
	
	// CH.6 Get the form
	form = FrmGetActiveForm();
	
	// CH.6 Get the control pointers
	hourButton = getObject( form, EnterTimeHoursPushButton );
	minuteTensButton = getObject( form,
			EnterTimeMinuteTensPushButton );
	minuteOnesButton = getObject( form,
			EnterTimeMinuteOnesPushButton );
	amButton = getObject( form, EnterTimeAMPushButton );
	pmButton = getObject( form, EnterTimePMPushButton );
	noTimeCheckbox = getObject( form, EnterTimeNoTimeCheckbox );
	
	// CH.6 If there is a time
	if( dateTime.hour != NO_TIME )
	{
		// CH.6 Update the hour
		hour = dateTime.hour % 12;
		if( hour == 0 )
			hour = 12;
		CtlSetLabel( hourButton,
				StrIToA( labelString, hour ) );

		// CH.6 Update the minute tens
		CtlSetLabel( minuteTensButton,
				StrIToA( labelString, dateTime.minute / 10 ) );
	
		// CH.6 Update the minute ones
		CtlSetLabel( minuteOnesButton,
				StrIToA( labelString, dateTime.minute % 10 ) );
	
		// CH.6 Update AM
		CtlSetValue( amButton, (dateTime.hour < 12) );
				
		// CH.6 Update PM
		CtlSetValue( pmButton, (dateTime.hour > 11) );

		// CH.6 Uncheck the no time checkbox
		CtlSetValue( noTimeCheckbox, false );
	}
	
	else
	// If there is no time
	{
		// CH.6 Update the hour
		CtlSetValue( hourButton, false );
		CtlSetLabel( hourButton, "" );
		
		// CH.6 Update the minute tens
		CtlSetValue( minuteTensButton, false );
		CtlSetLabel( minuteTensButton, "" );
		
		// CH.6 Update the minute ones
		CtlSetValue( minuteOnesButton, false );
		CtlSetLabel( minuteOnesButton, "" );
		
		// CH.6 Update AM
		CtlSetValue( amButton, false );
				
		// CH.6 Update PM
		CtlSetValue( pmButton, false );

		// CH.6 Uncheck the no time checkbox
		CtlSetValue( noTimeCheckbox, true );
	}
	
	// CH.6 We're done
	return;
}

// CH.7 Builds the contact list
static void buildList( void )
{
	FormPtr		form;		// CH.6 A form structure pointer
	Int			choice;		// CH.7 The list choice we're doing
	CharPtr		precord;	// CH.7 Pointer to a record
	Char		listChoice[dateStringLength + 1 +	// CH.7 We
						timeStringLength + 1 +		// build
						DB_FIRST_NAME_SIZE +		// list
						DB_LAST_NAME_SIZE];		// choices here
							// CH.7 The current list choice
	CharPtr		pchoices;	// CH.7 Pointer to packed choices
	UInt		offset;		// CH.7 Offset into packed strings
	VoidPtr		ppchoices;	// CH.7 Pointer to pointers to choices

	// CH.6 Get our form pointer
	form = FrmGetActiveForm();

	// CH.7 Put the list choices in a packed string
	for( choice = 0; choice < numRecords; choice++ )
	{
		// CH.7 Get the record
		hrecord = DmQueryRecord( contactsDB, choice );
		precord = MemHandleLock( hrecord );
				
		// CH.7 Get the date and time
		MemMove( &dateTime, precord + DB_DATE_TIME_START,
				sizeof( dateTime ) );

		// CH.7 Clear the list choice string
		*listChoice = '\0';

		// CH.7 Add the date string if any
		if( dateTime.year != NO_DATE )
		{
			DateToAscii( dateTime.month, dateTime.day,
					dateTime.year,
					(DateFormatType)PrefGetPreference(
					prefDateFormat ), listChoice );
			StrCat( listChoice, " " );
		}
			
		// CH.7 Add the time string if any
		if( dateTime.hour != NO_TIME )
		{
			TimeToAscii( dateTime.hour, dateTime.minute,
					(TimeFormatType)PrefGetPreference(
					prefTimeFormat ), listChoice +
					StrLen( listChoice ) );
			StrCat( listChoice, " " );
		}
				
		// CH.7 Append the first name
		StrCat( listChoice, precord + DB_FIRST_NAME_START );
		StrCat( listChoice, " " );
				
		// CH.7 Append the last name
		StrCat( listChoice, precord + DB_LAST_NAME_START );
				
		// CH.7 Allocate memory for the list entry string
		// CH.7 If this is the first choice
		if( hchoices == 0 )
		{
			// CH.7 Allocate the storage for the choice
			if( (hchoices = MemHandleNew(
					StrLen( listChoice ) + 1 )) == 0 )
				errorExit( MemoryErrorAlert );
			
			// CH.7 Initial offset points to the start
			offset = 0;
		}
				
		else
		// CH.7 If this is a subsequent choice
		{
			// CH.7 Unlock
			MemHandleUnlock( hchoices );
			
			// CH.7 Resize
			if( MemHandleResize( hchoices, offset +
					StrLen( listChoice ) + 1 ) )
				errorExit( MemoryErrorAlert );
		
		}
				
		// CH.7 Lock
		pchoices = MemHandleLock( hchoices );

		// CH.7 Copy the string into the memory
		StrCopy( pchoices + offset, listChoice );
		offset += StrLen( listChoice ) + 1;
				
		// CH.7 Unlock the record
		MemHandleUnlock( hrecord );
	}
			
	// CH.7 Create a pointer array from the packed string list
	if( (hpchoices = SysFormPointerArrayToStrings( pchoices,
			numRecords )) == 0 )
		errorExit( MemoryErrorAlert );
		ppchoices = MemHandleLock( hpchoices );
			
	// CH.7 Set the list choices
	LstSetListChoices( getObject( form, ContactListListList ),
			ppchoices, numRecords );

	// CH.7 Draw the list
	LstDrawList( getObject( form, ContactListListList ) );

	// CH.7 We're done
	return;
}

// CH.7 This function is called by Palm OS to sort records
static Int sortFunc( CharPtr precord1, CharPtr precord2, Int sortBy )
{
	Int sortResult;
	
	// CH.7 Switch based on sort criteria
	switch( sortBy )
	{
		// CH.7 Sort by date and time
		case SORTBY_DATE_TIME:
		{
			DateTimePtr pdateTime1;
			DateTimePtr pdateTime2;
			Long lDiff;
			
			pdateTime1 = (DateTimePtr)(precord1 + DB_DATE_TIME_START);
			pdateTime2 = (DateTimePtr)(precord2 + DB_DATE_TIME_START);
			
			// CH.7 Compare the dates and times
			lDiff = (Long)(TimDateTimeToSeconds( pdateTime1 ) / 60 ) -
					(Long)(TimDateTimeToSeconds( pdateTime2 ) / 60 );
			
			// CH.7 Date/time #1 is later
			if( lDiff > 0 )
				sortResult = 1;
			
			else	
			// CH.7 Date/time #2 is later
			if( lDiff < 0 )
				sortResult = -1;
				
			else
			// CH.7 They are equal
				sortResult = 0;
		}
		break;		

		// CH.7 Sort by first name
		case SORTBY_FIRST_NAME:
		{
			sortResult = StrCompare( precord1 + DB_FIRST_NAME_START,
					precord2 + DB_FIRST_NAME_START );
		}
		break;
		
		// CH.7 Sort by last name
		case SORTBY_LAST_NAME:
		{
			sortResult = StrCompare( precord1 + DB_LAST_NAME_START,
					precord2 + DB_LAST_NAME_START );
		}
		break;		
	}
	
	// CH.7 We're done
	return( sortResult );
}