shu/DPM_PADM
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update 20240102

Browse Source
This commit is contained in:
Stefan Hutter
2024-01-02 22:23:16 +01:00
parent 31b67036c3
commit 6164ec3d16
219 changed files with 429344 additions and 1191 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
DPM2016/Utils/Globals.vb
View File

@@ -53,6 +53,7 @@ Module Globals
Public Stammdaten_Geladen As Boolean = False
Public LeistungenLoaded As Boolean = False
Public ToastInfo As New ToastMessage
Public Enum ApplicationTypes
DH = 1

21
DPM2016/Utils/ToastMessage.vb Normal file
View File

@@ -0,0 +1,21 @@
Imports kp.Toaster
Public Class ToastMessage
Public Sub ShowToastMessage(o As Object, title As String, message As String, type As ToastType, duration As ToastDuration)
If My.Settings.ShowToast = True Then
Toast.show(o, title, message, type, duration)
End If
End Sub
Public Sub ShowSaveMesasge(o As Object)
If My.Settings.ShowToast = "True" Then
Toast.show(o, "Speichern", "Daten erfolgreich gespeichert", ToastType.INFO, ToastDuration.SHORT)
End If
End Sub
End Class

6
DPM2016/Utils/frmSplash.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmSplash
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmSplash
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.SuspendLayout()
'

177
DPM2016/Utils/frmSuche.Designer.vb generated
View File

@@ -30,17 +30,17 @@ Partial Class frmSuche
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.SuperTabItem1 = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel5 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Button6 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Label5 = New System.Windows.Forms.Label()
Me.TextBox5 = New System.Windows.Forms.TextBox()
Me.Dokumente = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.SuperTabItem1 = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Button4 = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
@@ -62,18 +62,24 @@ Partial Class frmSuche
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.DokumentAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PatientFirmaAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Freitext = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel6 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.btnSucheFreitext = New System.Windows.Forms.Button()
Me.Label6 = New System.Windows.Forms.Label()
Me.txtsucheFreitext = New System.Windows.Forms.TextBox()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
Me.SuperTabControlPanel5.SuspendLayout()
Me.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel2.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.ContextMenuStrip2.SuspendLayout()
Me.SuperTabControlPanel6.SuspendLayout()
Me.SuspendLayout()
'
'MenuStrip1
@@ -133,11 +139,12 @@ Partial Class frmSuche
Me.SuperTabControl1.ControlBox.MenuBox.Name = ""
Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel6)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel5)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Top
Me.SuperTabControl1.Location = New System.Drawing.Point(0, 49)
Me.SuperTabControl1.Name = "SuperTabControl1"
@@ -147,9 +154,53 @@ Partial Class frmSuche
Me.SuperTabControl1.Size = New System.Drawing.Size(800, 129)
Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SuperTabControl1.TabIndex = 22
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabItem1, Me.SuperTabItem2, Me.SuperTabItem3, Me.SuperTabItem4, Me.Dokumente})
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabItem1, Me.SuperTabItem2, Me.SuperTabItem3, Me.SuperTabItem4, Me.Dokumente, Me.Freitext})
Me.SuperTabControl1.Text = "SuperTabControl1"
'
'SuperTabControlPanel1
'
Me.SuperTabControlPanel1.Controls.Add(Me.Button1)
Me.SuperTabControlPanel1.Controls.Add(Me.Label1)
Me.SuperTabControlPanel1.Controls.Add(Me.TextBox1)
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(800, 104)
Me.SuperTabControlPanel1.TabIndex = 1
Me.SuperTabControlPanel1.TabItem = Me.SuperTabItem1
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(12, 75)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Suchen"
Me.Button1.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 18)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(61, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Suchbegriff"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(79, 15)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(154, 20)
Me.TextBox1.TabIndex = 0
'
'SuperTabItem1
'
Me.SuperTabItem1.AttachedControl = Me.SuperTabControlPanel1
Me.SuperTabItem1.GlobalItem = False
Me.SuperTabItem1.Name = "SuperTabItem1"
Me.SuperTabItem1.Text = "Patient"
'
'SuperTabControlPanel5
'
Me.SuperTabControlPanel5.Controls.Add(Me.Button6)
@@ -204,50 +255,6 @@ Partial Class frmSuche
Me.Dokumente.Name = "Dokumente"
Me.Dokumente.Text = "Dokumente"
'
'SuperTabControlPanel1
'
Me.SuperTabControlPanel1.Controls.Add(Me.Button1)
Me.SuperTabControlPanel1.Controls.Add(Me.Label1)
Me.SuperTabControlPanel1.Controls.Add(Me.TextBox1)
Me.SuperTabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(800, 104)
Me.SuperTabControlPanel1.TabIndex = 1
Me.SuperTabControlPanel1.TabItem = Me.SuperTabItem1
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(12, 75)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Suchen"
Me.Button1.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 18)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(61, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Suchbegriff"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(79, 15)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(154, 20)
Me.TextBox1.TabIndex = 0
'
'SuperTabItem1
'
Me.SuperTabItem1.AttachedControl = Me.SuperTabControlPanel1
Me.SuperTabItem1.GlobalItem = False
Me.SuperTabItem1.Name = "SuperTabItem1"
Me.SuperTabItem1.Text = "Patient"
'
'SuperTabControlPanel4
'
Me.SuperTabControlPanel4.Controls.Add(Me.Button4)
@@ -394,7 +401,8 @@ Partial Class frmSuche
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Daten.PrintInfo.MeasurementDevice = C1.Win.C1TrueDBGrid.PrintInfo.MeasurementDeviceEnum.Screen
Me.C1Daten.PrintInfo.MeasurementPrinterName = Nothing
Me.C1Daten.Size = New System.Drawing.Size(800, 272)
Me.C1Daten.TabIndex = 23
Me.C1Daten.Text = "C1TrueDBGrid1"
@@ -404,12 +412,12 @@ Partial Class frmSuche
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DettailsAnzeigenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 48)
Me.ContextMenuStrip1.Size = New System.Drawing.Size(160, 26)
'
'DettailsAnzeigenToolStripMenuItem
'
Me.DettailsAnzeigenToolStripMenuItem.Name = "DettailsAnzeigenToolStripMenuItem"
Me.DettailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.DettailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(159, 22)
Me.DettailsAnzeigenToolStripMenuItem.Text = "Details anzeigen"
'
'ContextMenuStrip2
@@ -430,6 +438,50 @@ Partial Class frmSuche
Me.PatientFirmaAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(196, 22)
Me.PatientFirmaAnzeigenToolStripMenuItem.Text = "Patient/Firma anzeigen"
'
'Freitext
'
Me.Freitext.AttachedControl = Me.SuperTabControlPanel6
Me.Freitext.GlobalItem = False
Me.Freitext.Name = "Freitext"
Me.Freitext.Text = "Freitext"
'
'SuperTabControlPanel6
'
Me.SuperTabControlPanel6.Controls.Add(Me.btnSucheFreitext)
Me.SuperTabControlPanel6.Controls.Add(Me.Label6)
Me.SuperTabControlPanel6.Controls.Add(Me.txtsucheFreitext)
Me.SuperTabControlPanel6.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel6.Location = New System.Drawing.Point(0, 25)
Me.SuperTabControlPanel6.Name = "SuperTabControlPanel6"
Me.SuperTabControlPanel6.Size = New System.Drawing.Size(800, 104)
Me.SuperTabControlPanel6.TabIndex = 0
Me.SuperTabControlPanel6.TabItem = Me.Freitext
'
'btnSucheFreitext
'
Me.btnSucheFreitext.Location = New System.Drawing.Point(12, 66)
Me.btnSucheFreitext.Name = "btnSucheFreitext"
Me.btnSucheFreitext.Size = New System.Drawing.Size(75, 23)
Me.btnSucheFreitext.TabIndex = 11
Me.btnSucheFreitext.Text = "Suchen"
Me.btnSucheFreitext.UseVisualStyleBackColor = True
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(12, 10)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(61, 13)
Me.Label6.TabIndex = 10
Me.Label6.Text = "Suchbegriff"
'
'txtsucheFreitext
'
Me.txtsucheFreitext.Location = New System.Drawing.Point(79, 7)
Me.txtsucheFreitext.Name = "txtsucheFreitext"
Me.txtsucheFreitext.Size = New System.Drawing.Size(290, 20)
Me.txtsucheFreitext.TabIndex = 9
'
'frmSuche
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -447,10 +499,10 @@ Partial Class frmSuche
Me.ToolStrip1.PerformLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False)
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.SuperTabControlPanel5.PerformLayout()
Me.SuperTabControlPanel1.ResumeLayout(False)
Me.SuperTabControlPanel1.PerformLayout()
Me.SuperTabControlPanel5.ResumeLayout(False)
Me.SuperTabControlPanel5.PerformLayout()
Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel4.PerformLayout()
Me.SuperTabControlPanel2.ResumeLayout(False)
@@ -460,6 +512,8 @@ Partial Class frmSuche
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ContextMenuStrip2.ResumeLayout(False)
Me.SuperTabControlPanel6.ResumeLayout(False)
Me.SuperTabControlPanel6.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -503,4 +557,9 @@ Partial Class frmSuche
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
Friend WithEvents DokumentAnzeigenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PatientFirmaAnzeigenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SuperTabControlPanel6 As DevComponents.DotNetBar.SuperTabControlPanel
Friend WithEvents Freitext As DevComponents.DotNetBar.SuperTabItem
Friend WithEvents btnSucheFreitext As Button
Friend WithEvents Label6 As Label
Friend WithEvents txtsucheFreitext As TextBox
End Class

31
DPM2016/Utils/frmSuche.resx
View File

@@ -150,39 +150,10 @@
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 798, 270&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 798, 270&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;Caption{AlignHorz:Center;}ColumnSelector{}Editor{}EvenRow{BackColor:White;}FilterBar{BackColor:Info;}FilterWatermark{BackColor:Info;ForeColor:InfoText;}Footer{}Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;AlignVert:Center;}Heading{BackColor:Control;ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;WrapText:WrapWithOverflow;}HeadingHot{}HighlightRow{BackColor:Highlight;ForeColor:HighlightText;}Inactive{BackColor:InactiveCaption;ForeColor:InactiveCaptionText;}Normal{}OddRow{BackColor:ControlLight;}RecordSelector{AlignImage:Center;}RowSelector{}Selected{BackColor:Highlight;ForeColor:HighlightText;}Style1{}Style10{}Style11{}Style12{}Style13{}Style14{}Style15{}Style16{}Style17{}Style18{}Style19{}Style2{}Style3{}Style4{}Style5{}Style6{}Style7{}Style8{}Style9{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HeadingHotStyle parent="HeadingHot" me="Style19" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;RowSelectorStyle parent="RowSelector" me="Style17" /&gt;&lt;ColumnSelectorStyle parent="ColumnSelector" me="Style18" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 798, 270&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;Style parent="RecordSelector" me="RowSelector" /&gt;&lt;Style parent="Heading" me="ColumnSelector" /&gt;&lt;Style parent="Heading" me="HeadingHot" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 798, 270&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>388, 17</value>

32
DPM2016/Utils/frmSuche.vb
View File

@@ -82,6 +82,22 @@ Public Class frmSuche
End If
Case "Dokumente"
DokumentAnzeigenToolStripMenuItem_Click(sender, e)
Case "Freitext"
Cursor = Cursors.WaitCursor
Dim db As New clsDB
db.Get_Tabledata("Behandlu", " where nrbehandlung=" & Key.ToString)
Key = db.dsDaten.Tables(0).Rows(0).Item("nrpatient").ToString
Dim nrbehandlung As Integer = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung").ToString
Dim f As New Patient
f.MdiParent = Me.MdiParent
f.Show()
f.PatientNr = Key
f.Behandlung1.PatientNr = Key
f.SuperTabControl1.SelectedTabIndex = 3
f.Behandlung1.treebehandlungen.SelectedNode = Globals.FindNode(f.Behandlung1.treebehandlungen.Nodes, nrbehandlung, nrbehandlung)
Cursor = Cursors.Default
End Select
Catch
End Try
@@ -107,6 +123,10 @@ Public Class frmSuche
If Globals.License.DMS = False Then
Me.SuperTabControl1.Tabs(4).Visible = False
End If
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
Me.SuperTabItem1.Text = "Kunde"
Me.SuperTabItem2.Visible = False
End If
End Sub
@@ -263,4 +283,16 @@ Public Class frmSuche
End Try
End Sub
Private Sub btnSucheFreitext_Click(sender As Object, e As EventArgs) Handles btnSucheFreitext.Click
Dim db As New clsDB
db.Get_Tabledata("Freitextsuche", "", db.Get_SQL(40), Me.txtsucheFreitext.Text)
Me.C1Daten.DataSource = Nothing
Me.C1Daten.DataSource = db.dsDaten.Tables(0)
Me.C1Daten.DataMember = db.dsDaten.Tables(0).TableName
End Sub
Private Sub txtsucheFreitext_KeyDown(sender As Object, e As KeyEventArgs) Handles txtsucheFreitext.KeyDown
If e.KeyCode = Keys.Enter Then btnSucheFreitext_Click(sender, e)
End Sub
End Class