CHMS

What church management system does your church use?

What size is your church?

Do you think churches of under 200 attendees would pay 5 to 10 a month for a chms?

- just some thoughts I a processing.

Changing a column display name in vb when using dynamicdata

I am working on a completely new version of the Church Management System I started building back when I was working at CHF. Since this is a new project I thought I would use it to learn a new technology. I am building this site using Asp.net Dynamic Data.

One problem I ran into was how to change the column display name since my database uses column names with underscores for spaces and I want an actual space between parts of the column name when using the app. To do this you need to use the Display Name attribute in your meta class. Unfortunately this attribute only works on a full property and not on a simple object like other System.ComponentModel attributes seem to. So in my Meta Data class I created a dummy property with the same name as the actual property I want to change the display name for.

<DisplayName("Address Type")> _
Public Property Address_Type() As String
'These are not actually used, they are just required to make this into
'a true property which is required for the DisplayName Attribute.
Get
Return ""
End Get
Set(ByVal value As String)
End Set
End Property


Here is the entire class for you to look at:

Imports Microsoft.VisualBasic
Imports System.Web.DynamicData
Imports System.ComponentModel
Imports System.ComponentModel.DataAnnotations

<MetadataType(GetType(CHMS_Address_TypeMetaData))> _
Partial Public Class CHMS_Address_Type


End Class

<TableName("Address Types")> _
Public Class CHMS_Address_TypeMetaData

<DisplayName("Address Type")> _
Public Property Address_Type() As String
'These are not actually used, they are just required to make this into
'a true property which is required for the DisplayName Attribute.
Get
Return ""
End Get
Set(ByVal value As String)
End Set
End Property

'Columns I want hidden
<ScaffoldColumn(False)> _
Public Church_ID As Object

<ScaffoldColumn(False)> _
Public Created As Object

<ScaffoldColumn(False)> _
Public Created_By As Object

<ScaffoldColumn(False)> _
Public Last_Edited As Object

<ScaffoldColumn(False)> _
Public Last_Edited_By As Object

<ScaffoldColumn(False)> _
Public IsDeleted As Object

End Class

A New Kind of Christianity

Yesterday I finally bought Brian D Mclaren's http://www.brianmclaren.net/ latest book A New Kind of Christianity. I an liking it so far. It is messing with my overarching worldview in a good way.

iPhone

My wife bought me an iPhone! :-)


- Posted using BlogPress from my iPhone

NaNoWriMo I did it

I did it. I successfully wrote 50,000+ words in less than one month.

My novel is not finished but I completed the NaNoWriMo goal.

I am looking at options for self publishing now.

nanowrimo

Kristen and I are going to do the National Novel Writing Month. We are each going to try to write a 50,000 word book during the month of November. This means I will be putting my other writing and misc projects on hold for November.

Come join us if you dare: http://www.nanowrimo.org/

Nebo Station Part 6

“With less than half the self-destruct charges working, we can’t count on anywhere near a full self destruct. The best we can hope for is that the Durement Nebo will break up into pieces, and with all those life pods out there we’re likely to kill more of our own people with debris from the ship caused by that kind of uncontrolled explosion.”

The bridge engineering officer’s report was succinct and to the point.

“Ok people, it looks like the self destruct charges aren’t an option at this point, but I don’t want to just leave the ship here for the enemy to salvage either, give me another option to consider!”

When the captain demands something you give it to him, even if what he is demanding seems impossible, so we threw out options from the top of our very tired heads and nothing seemed workable until I hit on an idea.

“What if we set the auto-pilot to jump the ship out of here?” I asked and could tell from the looks I got that the bridge crew thought I had finally snapped under the stress. “I know the ship can’t actually jump out of here.” I replied to the looks I was getting. “The hyperspace engines are probably shot even if the real space engines could reach jump speed. But if I set the realspace engines to over-max on the current course, override what’s left of the safeties and set the hyperspace engines to engage in fifteen minutes there’s only two possibilities that I can think of. One the hyperspace engines fail and without the safety lockouts they feedback and explode in a small nova, taking the ship with them. Two, the hyperspace engines work if only for a microsecond and the ship makes a semi random if very very short hyperspace jump. Still, that should be enough to make it hard for the enemy to find at the very least.”

The bridge engineering officer agreed with my assessment and the captain liked the plan well enough so that was what we did. With the captains key and some quick jury rigging we turned off the few safety systems that were still working, setup the blind jump in the autopilot, the captain recorded the last log entry and we pulled the backup log recording, pushed the engines back up past redline, and took the bridge life pod.

We spent the next twenty minutes watching the ship recede and waiting for it to blow up. When the explosion never came we concluded that against all logic the jump had been a success, and then spent the next several days waiting to be rescued.

After the Nebo ‘disappeared’ as it were, the battle pretty much ended. Our five remaining capital ships jumped out soon after that and jumped back in a few hours later after the enemy ships had collected their life pods and left. Then what was left of our squadron jumped for regional headquarters where ships and crew would be re-assigned into new squadrons.