Need to have a point and click form generate a text document

Question

1.00/5 (1 vote)

See more:

Hello everyone, I'm new to the forums, but I would love any input that anyone has to offer. Here is my dilemma:

I have a side job for a physicians office, and he used to have an old paper form where he would go through and check a box if a condition was present, or check an appropriate box describing an aspect of the patient. He has changed to an electronic medical record, and he wants to be able to use a form on his PC that mirrors the old paper form he had, check the boxes there, and then have that generate his note based on the responses he gave. I would like the note to be generated in real time, as he clicks check boxes on the form, and I'd like the final note text to be generated in a Text Box at the bottom of the form. I plan on adding a button, so that when he is complete, he can click the button, which will copy the note text, and he can paste it into his EMR.

I've started this project twice already, once using an HTML form, and the other time using VB, but right now I'm not sure which one to pursue...Really whatever works easiest is fine for me. All I need to do is make it so that the question appears, followed by the response in the checkbox that was checked. I do not want unchecked responses to be listed in the final document.

So what would be the easiest way to do this? Is there a simple ASP page I could create to process the form data from the HTML page? Would I need to have a server running on thier network to get the ASP page to work correctly?

Posted 4-Nov-11 9:44am

DrFistington

Add a Solution

Comments

Maciej Los 4-Nov-11 17:24pm

Is it relates to VB.NET, ASP.NET?

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

LanFanNinja · Answer 1 · 2011-11-04T11:22:00

Well there are many ways to do this but maybe this will help. Using Windows Form Application:

Note: This is not a very elegant solution but maybe it will at least give you an idea of some thing you could do.

VB

Public Partial Class Form1
	Inherits Form
	Const checkBoxCount As Integer = 3
	Private checkBoxes As CheckBox() = New CheckBox(checkBoxCount - 1) {}
	Private checkBoxesText As String() = New String(checkBoxCount - 1) {}

	Public Sub New()
		InitializeComponent()

		checkBoxes(0) = checkBox1
		checkBoxes(1) = checkBox2
		checkBoxes(2) = checkBox3

		For i As Integer = 0 To checkBoxCount - 1
			checkBoxesText(i) = checkBoxes(i).Text
		Next
	End Sub

	Private Sub checkBox1_CheckedChanged(sender As Object, e As EventArgs)
		UpdateData()
	End Sub

	Private Sub checkBox2_CheckedChanged(sender As Object, e As EventArgs)
		UpdateData()
	End Sub

	Private Sub checkBox3_CheckedChanged(sender As Object, e As EventArgs)
		UpdateData()
	End Sub

	Private Sub UpdateData()
		textBox1.Clear()
		For i As Integer = 0 To checkBoxCount - 1
			If checkBoxes(i).Checked Then
				textBox1.Text += checkBoxesText(i) & vbCr & vbLf
			End If
		Next
	End Sub
End Class

Also in the UpdateData() method you could also do something like:

VB

textBox1.Text += checkBoxesText(i) + ": " & checkBoxes(i).Checked.ToString() & vbCr & vbLf

to diplay something like e.g. Patient is dying: True