📄 frmsearch.frm
字号:
BeginProperty Column22
DataField = "SEND_SECTION"
Caption = "送检科室"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column23
DataField = "SEND_DOCTOR"
Caption = "送检医师"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column24
DataField = "DESCRIBE"
Caption = "图象描述"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column25
DataField = "US_TIP1"
Caption = "超声提示1"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column26
DataField = "US_TIP2"
Caption = "超声提示2"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column27
DataField = "US_TIP3"
Caption = "超声提示3"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column28
DataField = "US_TIP4"
Caption = "超声提示4"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
MarqueeStyle = 3
Locked = -1 'True
BeginProperty Column00
Object.Visible = 0 'False
ColumnWidth = 1094.74
EndProperty
BeginProperty Column01
ColumnWidth = 959.811
EndProperty
BeginProperty Column02
ColumnWidth = 1604.976
EndProperty
BeginProperty Column03
ColumnWidth = 1019.906
EndProperty
BeginProperty Column04
ColumnWidth = 854.929
EndProperty
BeginProperty Column05
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column06
ColumnWidth = 599.811
EndProperty
BeginProperty Column07
Object.Visible = 0 'False
ColumnWidth = 1365.165
EndProperty
BeginProperty Column08
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column09
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column10
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column11
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column12
ColumnWidth = 1470.047
EndProperty
BeginProperty Column13
ColumnWidth = 854.929
EndProperty
BeginProperty Column14
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column15
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column16
ColumnWidth = 1500.095
EndProperty
BeginProperty Column17
Object.Visible = 0 'False
ColumnWidth = 824.882
EndProperty
BeginProperty Column18
ColumnWidth = 884.976
EndProperty
BeginProperty Column19
ColumnWidth = 900.284
EndProperty
BeginProperty Column20
ColumnWidth = 1244.976
EndProperty
BeginProperty Column21
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column22
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column23
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column24
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column25
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column26
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column27
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column28
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
EndProperty
End
End
Begin MSComctlLib.StatusBar sbrSearch
Align = 2 'Align Bottom
Height = 300
Left = 0
TabIndex = 3
Top = 4245
Width = 4245
_ExtentX = 7488
_ExtentY = 529
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 4233
Key = "Info"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3175
MinWidth = 3175
Key = "Sort"
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmSearch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public Loaded As Boolean '窗体是否加载
Public Docked As Boolean '是否被Dock
Public oriTop As Single, oriLeft As Single, oriHeight As Single, oriWidth As Single
Private WithEvents rscmdUS_ReportSick As ADODB.Recordset
Attribute rscmdUS_ReportSick.VB_VarHelpID = -1
Private Sub dtgResult_Click()
flgSearch_Click
End Sub
Private Sub dtgResult_HeadClick(ByVal ColIndex As Integer)
'对列进行排序
Static SortType As Integer
Dim strSQL As String
SortType = (SortType + 1) Mod 2
strSQL = dtgResult.Columns(ColIndex).DataField & " " & IIf(SortType = 1, "ASC", "DESC")
rsUS_ReportSick.Sort = strSQL
Me.sbrSearch.Panels("Sort").Text = "排序: " & dtgResult.Columns(ColIndex).Caption & IIf(SortType = 1, "↑", "↓")
End Sub
Private Sub dtgResult_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Me.sbrSearch.Panels("Info").Text = "记录: " & rsUS_ReportSick.AbsolutePosition & "/" & rsUS_ReportSick.RecordCount
End Sub
Private Sub flgSearch_Click()
'Me.ssBarSearch.Enabled = False
Me.ssBarSearch.Enabled = True
End Sub
Private Sub Form_Load()
'--------------------------------------
'在窗体加载事件中处理各种初始化事件
'--------------------------------------
Dim RT As ReportItem
Dim col As Column
'刷新数据,重新绑定,设置WithEvents对象
With rsUS_ReportSick
.Requery
Set dtgResult.DataSource = rsUS_ReportSick
Set rscmdUS_ReportSick = rsUS_ReportSick
End With
frmReport.WorkType = "Browse"
SearchTip = False
TipAtSerial = 0
'加入可搜索项目
For Each RT In gcolReportItems
Me.ssBarSearch.Tools("ID_SearchItem").ComboBox.AddItem RT.CName
Next RT
ViewResult False
IniUS.LoadFormPlace Me
'设置
With flgSearch
.ColWidth(0) = 1800
.ColWidth(1) = 800
.ColWidth(2) = 1800
.TextMatrix(0, 0) = "查询项目"
.TextMatrix(0, 1) = "关系"
.TextMatrix(0, 2) = "查询值"
End With
Me.Loaded = True
DockWindow
End Sub
Public Sub DockWindow()
'----------------------
'将本窗体Dock到frmMain
'的右侧PicDock中
'----------------------
With Me
.oriHeight = .height
.oriLeft = .Left
.oriTop = .Top
.oriWidth = .width
End With
With frmMain
.picDock.Visible = True
.picSplit.Visible = True
SetParent Me.hwnd, .picDock.hwnd
frmMain.picDock_Resize
Me.Docked = True
End With
End Sub
Private Sub Form_Resize()
On Error Resume Next
'If Me.Width < 4500 Then Me.Width = 4500
flgSearch.Move 15, 15, Me.ScaleWidth - 30, Me.ScaleHeight - 30 - sbrSearch.height
picResult.Move 30, 30, Me.ScaleWidth - 60, Me.ScaleHeight - 60 - sbrSearch.height
dtgResult.Move 0, 0, picResult.ScaleWidth, picResult.ScaleHeight
End Sub
Private Sub Form_Unload(Cancel As Integer)
rsUS_ReportSick.Filter = "SERIAL_ID > 0" '刷新记录集，去除可能已经有的过滤条件。
'卸载窗体(报告和图象查询)
Unload frmReport
Unload frmImageResult
'保存信息
IniUS.SaveFormPlace Me
frmMain.KillDock
Me.Loaded = False
'禁止“编辑报告”菜单
frmMain.atBarMain.Tools("ID_USEdit").Enabled = False
End Sub
Private Sub rscmdUS_ReportSick_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'-------------------
'移动完毕事件
'-------------------
'如果是非法移动,则取消
With rscmdUS_ReportSick
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -