📄 frm_blgl_main.frm
字号:
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column12
DataField = "就诊时间"
Caption = " 就诊时间"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column13
DataField = "联系电话"
Caption = "联系电话"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column14
DataField = "病人职业"
Caption = "病人职业"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column15
DataField = "联系地址"
Caption = "联系地址"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column16
DataField = "工作单位"
Caption = "工作单位"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column17
DataField = "用药情况"
Caption = " 用 药 情 况"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column18
DataField = "病人主诉"
Caption = " 病 人 主 诉"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column19
DataField = "即往病史"
Caption = "即往病史"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column20
DataField = "临床诊断"
Caption = " 临 床 诊 断"
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
BeginProperty Column00
Alignment = 1
Object.Visible = 0 'False
ColumnWidth = 734.74
EndProperty
BeginProperty Column01
Object.Visible = -1 'True
ColumnWidth = 959.811
EndProperty
BeginProperty Column02
Alignment = 1
ColumnWidth = 780.095
EndProperty
BeginProperty Column03
Alignment = 2
ColumnWidth = 599.811
EndProperty
BeginProperty Column04
Alignment = 2
ColumnWidth = 615.118
EndProperty
BeginProperty Column05
Object.Visible = 0 'False
ColumnWidth = 780.095
EndProperty
BeginProperty Column06
Object.Visible = 0 'False
ColumnWidth = 569.764
EndProperty
BeginProperty Column07
Object.Visible = 0 'False
ColumnWidth = 615.118
EndProperty
BeginProperty Column08
Object.Visible = 0 'False
ColumnWidth = 780.095
EndProperty
BeginProperty Column09
Object.Visible = 0 'False
ColumnWidth = 810.142
EndProperty
BeginProperty Column10
Alignment = 2
ColumnWidth = 975.118
EndProperty
BeginProperty Column11
Alignment = 2
Object.Visible = -1 'True
ColumnWidth = 615.118
EndProperty
BeginProperty Column12
ColumnWidth = 959.811
EndProperty
BeginProperty Column13
Object.Visible = 0 'False
ColumnWidth = 824.882
EndProperty
BeginProperty Column14
Object.Visible = 0 'False
ColumnWidth = 810.142
EndProperty
BeginProperty Column15
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column16
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column17
ColumnWidth = 2085.166
EndProperty
BeginProperty Column18
ColumnWidth = 2085.166
EndProperty
BeginProperty Column19
Object.Visible = 0 'False
ColumnWidth = 2085.166
EndProperty
BeginProperty Column20
ColumnWidth = 2085.166
EndProperty
EndProperty
End
End
Begin VB.Menu blgl_menu
Caption = "fiel"
Visible = 0 'False
Begin VB.Menu blgl_add
Caption = " 增 加 (&A) "
End
Begin VB.Menu blgl_edit
Caption = " 修 改 (&M) "
End
Begin VB.Menu querry
Caption = " 查 询 (&Q) "
End
Begin VB.Menu menu_refresh
Caption = " 刷 新 (&R) "
End
End
End
Attribute VB_Name = "frm_blgl_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub blgl_add_Click()
Text1.Text = "add"
Load frm_blgl_edit
frm_blgl_edit.Show
End Sub
Private Sub blgl_edit_Click()
Text1.Text = "edit"
Load frm_blgl_edit
frm_blgl_edit.Show
End Sub
Private Sub cmd_del_Click()
Dim myreturn As Integer
myreturn = MsgBox("数据删除后将不可恢复，您却是要删除吗？", vbOKCancel, "迅捷软件--数据删除")
If myreturn = 1 Then
Adodc1.Recordset.Delete adAffectCurrent
Else
Exit Sub
End If
End Sub
Private Sub cmd_edit_Click()
PopupMenu blgl_menu, 0, cmd_edit.Left, cmd_edit.Top + cmd_edit.Height
End Sub
Private Sub cmd_querry_Click()
Adodc1.RecordSource = "select * from blgl where " + cob_tj.Text + cob_bds.Text + "'" + txt_nr.Text + "'"
Adodc1.Refresh
End Sub
Private Sub cmd_yxzl_Click()
Text1.Text = "more"
frm_blgl_edit.Show
End Sub
Private Sub Cmd2_Click()
Unload Me
End Sub
Private Sub Command2_Click()
txt_nr.Text = ""
Frame1.Visible = False
End Sub
Private Sub dg_main_DblClick()
Text1.Text = "more"
frm_blgl_edit.Show
End Sub
Private Sub Form_Activate()
Dim datapath As String
datapath = App.Path & "\"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + datapath + "bl_blgl.mdb"
Adodc1.RecordSource = "select * from blgl order by 病历号"
Adodc1.Refresh
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then
cmd_del.Enabled = False
Else
cmd_del.Enabled = True
End If
cob_tj.ListIndex = 0
cob_bds.ListIndex = 0
End Sub
Private Sub Form_Load()
Dim datapath As String
datapath = App.Path & "\"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + datapath + "bl_blgl.mdb"
Adodc1.RecordSource = "select * from blgl order by 病历号"
Adodc1.Refresh
If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then
cmd_del.Enabled = False
End If
End Sub
Private Sub Form_Resize()
pic_main.Width = Me.Width - 150
dg_main.Width = pic_main.Width - 60
pic_main.Height = Me.Height - 1050
dg_main.Height = pic_main.Height - 60
cmd_edit.Top = pic_main.Height + 100
cmd_del.Top = pic_main.Height + 100
cmd2.Top = pic_main.Height + 100
cmd2.Left = Me.Width - cmd2.Width - 400
cmd_yxzl.Top = pic_main.Height + 100
Frame1.Top = cmd_del.Top - Frame1.Height - 400
Frame1.Left = cmd_del.Left - cmd_del.Width
End Sub
Private Sub querry_Click()
Frame1.Visible = True
End Sub
Private Sub menu_refresh_Click()
Form_Activate
End Sub
Private Sub txt_nr_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmd_querry_Click
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -