需要点击鼠标即可生成文本文件 [英] Need to have a point and click form generate a text document

问题描述

大家好，我是论坛的新手，但我希望任何人都可以提供任何输入.这是我的两难境地:

我在医师办公室做一份兼职工作，他以前有一张旧纸质表格，他会检查该表格并检查是否存在病情，或者检查一个描述患者情况的适当方框.他已更改为电子病历，并且希望能够在PC上使用一个表格，该表格可以反映他拥有的旧纸质表格，选中其中的框，然后根据自己的回答生成笔记.我希望该笔记可以实时生成，因为他单击了表单上的复选框，我希望最终笔记文本可以在表单底部的文本框中生成.我计划添加一个按钮，以便他完成后可以单击该按钮，该按钮将复制便笺文本，并将其粘贴到他的EMR中.

我已经开始过这个项目两次，一次是使用HTML表单，另一次是使用VB，但是现在我不确定要追求哪一个……真的，最简单的方法对我来说都很好.我要做的就是使问题出现，然后在已选中的复选框中显示响应.我不想在最终文档中列出未经检查的答复.

那么最简单的方法是什么?我可以创建一个简单的ASP页面来处理HTML页面中的表单数据吗?

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?

推荐答案

有很多方法可以做到这一点，但是也许这会有所帮助.使用Windows窗体应用程序:

注意:这不是一个非常优雅的解决方案，但也许它至少会让您对可以做的事情有所了解.

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.

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

另外，在UpdateData()方法中，您还可以执行以下操作:

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

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

打个比方病人快死了:True

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

这篇关于需要点击鼠标即可生成文本文件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！