📄 gnxmchshh.frm

📁 医院管理系统已经在运行中
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
        DataGrid1.Columns(2).Width = 600
        Exit Sub
     Else
        Adodc1.Recordset.AddNew
        Adodc1.Recordset.Fields(0) = Text1.Text
        Adodc1.Recordset.Fields(1) = Text2.Text
        Adodc1.Recordset.Fields(2) = Combo1.Text
        Adodc1.Recordset.Fields(3) = Val(Text3.Text)
        If Text4.Text <> "" Then
           Adodc1.Recordset.Fields(4) = Text4.Text
        Else
           Adodc1.Recordset.Fields(4) = "无"
        End If
        Adodc1.Recordset.Fields(5) = Combo4.Text
        Adodc1.Recordset.Update
     End If
  End If
  If zz = 222 Then
     Adodc1.Recordset.Fields(1) = Text2.Text
     Adodc1.Recordset.Fields(2) = Combo1.Text
     Adodc1.Recordset.Fields(3) = Val(Text3.Text)
     If Text4.Text <> "" Then
        Adodc1.Recordset.Fields(4) = Text4.Text
     Else
        Adodc1.Recordset.Fields(4) = "无"
     End If
     Adodc1.Recordset.Fields(5) = Combo4.Text
     Adodc1.Recordset.Update
  End If
  DataGrid1.Columns(0).Width = 950
  DataGrid1.Columns(2).Width = 600
  DataGrid1.Refresh
  Command1.Enabled = True
  Command2.Enabled = True
  Command3.Enabled = True
  Command4.Enabled = False
  Command5.Enabled = True
  Command1.SetFocus
  Combo4.Enabled = False
  Text1.Locked = True
  Text2.Locked = True
  Text3.Locked = True
  Text4.Locked = True
End Sub

Private Sub Command5_Click()
mcc = InputBox("请输入您要查找的收费标准的项目名称")
Adodc1.Refresh
Adodc1.Recordset.Find ("项目名称=" + "'" + mcc + "'")
    If Adodc1.Recordset.EOF = False Then
       Call disp4
    Else
       MsgBox "没有找到项目名称为“" & mcc & "”的收费标准"
    End If
End Sub

Private Sub Command6_Click()
   mcc = InputBox("请输入您要查找的功能科的项目名称")
   Adodc2.Refresh
   Adodc2.Recordset.Find ("项目名称=" + "'" + mcc + "'")
    If Adodc2.Recordset.EOF = False Then
       DataGrid2.Columns(0).Width = 900
       Call disp5
    Else
       MsgBox "没有找到项目名称为“" & mcc & "”的功能科检查项目"
    End If
End Sub

Private Sub Command7_Click()
If xx = 111 Then
     If Text6.Text = "" Or Combo2.Text = "" Or Text9.Text = "" Then
        MsgBox "您输入的数据不完整，请输入完整的数据后再保存！"
        If Text6.Text = "" Then Text6.SetFocus
        If Combo2.Text = "" Then Combo2.SetFocus
        If Text9.Text = "" Then Text9.SetFocus
        Exit Sub
     End If
     Adodc2.Refresh
     Adodc2.Recordset.Find ("项目名称=" + "'" + Text6.Text + "'")
     If Adodc2.Recordset.EOF = False Then
        MsgBox "项目名称已经存在，请输入其他项目名称！"
        Text6.Text = ""
        Text7.Text = ""
        Text8.Text = ""
        Combo1.Text = ""
        Text9.Text = ""
        Text10.Text = ""
        Text6.SetFocus
        DataGrid2.Columns(0).Width = 900
        Exit Sub
     Else
        Adodc2.Recordset.AddNew
        Adodc2.Recordset.Fields(0) = Text5.Text
        Adodc2.Recordset.Fields(1) = Text6.Text
        Adodc2.Recordset.Fields(2) = Text7.Text
        Adodc2.Recordset.Fields(3) = Text8.Text
        Adodc2.Recordset.Fields(4) = Combo2.Text
        Adodc2.Recordset.Fields(5) = Val(Text9.Text)
        Adodc2.Recordset.Fields(6) = Text10.Text
        Adodc2.Recordset.Update
     End If
  End If
  If xx = 222 Then
     Adodc2.Recordset.Fields(1) = Text6.Text
     Adodc2.Recordset.Fields(2) = Text7.Text
     Adodc2.Recordset.Fields(3) = Text8.Text
     Adodc2.Recordset.Fields(4) = Combo2.Text
     Adodc2.Recordset.Fields(5) = Val(Text9.Text)
     Adodc2.Recordset.Fields(6) = Text10.Text
     Adodc2.Recordset.Update
  End If
  DataGrid2.Columns(0).Width = 900
  Command10.Enabled = True
  Command9.Enabled = True
  Command8.Enabled = True
  Command7.Enabled = False
  Command6.Enabled = True
  Command10.SetFocus
  Text1.Locked = True
  Text2.Locked = True
  Text3.Locked = True
  Text4.Locked = True
End Sub

Private Sub Command8_Click()
  Text6.Locked = False
  Text6.SelStart = Len(Text2.Text)
  Text6.SetFocus
  Text7.Locked = False
  Text8.Locked = False
  Text9.Locked = False
  Text10.Locked = False
  xx = 222
  Command10.Enabled = False
  Command9.Enabled = False
  Command8.Enabled = False
  Command7.Enabled = True
  Command6.Enabled = False
End Sub

Private Sub Command9_Click()
   Adodc2.Recordset.Delete
   DataGrid2.Refresh
   Text5.Text = ""
   Text6.Text = ""
   Text7.Text = ""
   Text8.Text = ""
   Combo2.Text = ""
   Text9.Text = ""
   Text10.Text = ""
   MsgBox "已经成功删除了您所要删除的功能科检查项目！"
End Sub

Private Sub DataGrid1_Click()
  Call disp4
End Sub
Sub disp4()
   Text1.Text = Adodc1.Recordset.Fields(0)
   Text2.Text = Adodc1.Recordset.Fields(1)
   Combo1.Text = Adodc1.Recordset.Fields(2)
   Text3.Text = Adodc1.Recordset.Fields(3)
   If IsNull(Adodc1.Recordset.Fields(4)) = False Then
      Text4.Text = Adodc1.Recordset.Fields(4)
   Else
      Text4.Text = ""
   End If
   If IsNull(Adodc1.Recordset.Fields(5)) = False Then
      Combo4.Text = Adodc1.Recordset.Fields(5)
   Else
      Combo4.Text = ""
   End If
End Sub

Private Sub DataGrid2_Click()
    Call disp5
End Sub
Sub disp5()
   Text5.Text = Adodc2.Recordset.Fields(0)
   Text6.Text = Adodc2.Recordset.Fields(1)
   If IsNull(Adodc2.Recordset.Fields(2)) = False Then
      Text7.Text = Adodc2.Recordset.Fields(2)
   Else
      Text7.Text = ""
   End If
   If IsNull(Adodc2.Recordset.Fields(3)) = False Then
      Text8.Text = Adodc2.Recordset.Fields(3)
   Else
      Text8.Text = ""
   End If
   Combo2.Text = Adodc2.Recordset.Fields(4)
   Text9.Text = Adodc2.Recordset.Fields(5)
   If IsNull(Adodc2.Recordset.Fields(6)) = False Then
      Text10.Text = Adodc2.Recordset.Fields(6)
   Else
      Text10.Text = ""
   End If
End Sub

Private Sub DataGrid3_Click()
  Call disp6
End Sub
Sub disp6()
  Text11.Text = Adodc3.Recordset.Fields(0)
  Text12.Text = Adodc3.Recordset.Fields(1)
  Combo3.Text = Adodc3.Recordset.Fields(2)
End Sub
Private Sub Form_Activate()
  Option1.Value = False
  Option2.Value = False
  Option3.Value = False
  Frame1.Left = Frame2.Left
  Frame5.Visible = False
  Frame8.Visible = False
End Sub

Private Sub Form_Load()
  Frame1.Top = 850
  Frame1.Height = 500
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + dbstr
  Adodc1.RecordSource = "收费标准"
  Adodc1.Refresh
  Adodc4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + dbstr
  Adodc4.RecordSource = "处方类别"
  Adodc4.Refresh
End Sub

Private Sub Option1_Click()
   Frame1.Visible = True
   Frame5.Visible = False
   Frame1.Top = 850
   Frame1.Height = 500
   Frame8.Visible = False
   Frame5.Top = 9500
   Frame5.Height = 500
   If Option1.Value = True Then
      Timer1.Enabled = True
      Adodc1.Refresh
      'Adodc4.Refresh
      'Combo4.Clear
      Combo4.Text = ""
      'While Adodc4.Recordset.EOF = False
      '   Combo4.AddItem Adodc4.Recordset.Fields(1)
      '   Adodc4.Recordset.MoveNext
      'Wend
      Text1.Text = ""
      Text2.Text = ""
      Text3.Text = ""
      Text4.Text = ""
      Combo1.Text = ""
      Combo4.Enabled = False
      DataGrid1.Columns(0).Width = 950
      DataGrid1.Columns(2).Width = 600
      Command1.SetFocus
   End If
End Sub

Private Sub Option2_Click()
   
   Frame5.Visible = True
   Frame1.Visible = False
   Frame1.Top = 850
   Frame1.Height = 500
   Frame5.Top = 9500
   Frame5.Height = 500
   Frame8.Visible = False
   Frame5.Left = Frame2.Left
   If Option2.Value = True Then
      Timer3.Enabled = True
      Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + dbstr
      Adodc2.RecordSource = "检查项目"
      Adodc2.Refresh
      Text5.Text = ""
      Text6.Text = ""
      Text7.Text = ""
      Text8.Text = ""
      Combo2.Text = ""
      Text9.Text = ""
      Text10.Text = ""
      DataGrid2.Columns(0).Width = 900
      Command10.SetFocus
   End If
End Sub

Private Sub Option3_Click()
Frame1.Visible = False
Frame5.Visible = False
Frame8.Visible = True
Command16.Enabled = True
Command15.Enabled = True
Command14.Enabled = True
Command13.Enabled = False
Command12.Enabled = True
Command11.Enabled = True
Frame8.Top = 1560
Frame8.Left = -Frame8.Width
Frame8.Width = 600
Frame8.Height = 6975
If Option3.Value = True Then
   Timer5.Enabled = True
   Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + dbstr
   Adodc3.RecordSource = "药品代码"
   Adodc3.Refresh
   Adodc4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" + dbstr
   Adodc4.RecordSource = "处方类别"
   Adodc4.Refresh
   Combo3.Clear
   Combo3.Text = ""
   While Adodc4.Recordset.EOF = False
      Combo3.AddItem Adodc4.Recordset.Fields(1)
      Adodc4.Recordset.MoveNext
   Wend
   Combo3.AddItem "床费"
   Combo3.AddItem "取暖费"
   Combo3.AddItem "陪人费"
   Combo3.AddItem "胃镜"
   Combo3.AddItem "挂号"
   Combo3.AddItem "护理"
   Combo3.AddItem "抢救"
   Text11.Text = ""
   Text12.Text = ""
   DataGrid3.Columns(0).Width = 1120
   DataGrid3.Columns(1).Width = 2600
   Command16.SetFocus
End If
End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command7.SetFocus
End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then Text12.SetFocus
End Sub

Private Sub Text12_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Command13.SetFocus
End Sub

Private Sub Text12_LostFocus()
   '类别确认
   Adodc1.Refresh
   Adodc1.Recordset.Find ("项目名称=" + "'" + Trim(Text12.Text) + "'")
   If Adodc1.Recordset.EOF = False Then
      Combo3.Text = Adodc1.Recordset.Fields(5)
   End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Combo1.SetFocus
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text4.SetFocus
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Combo4.SetFocus
End Sub

Private Sub Text6_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Text7.SetFocus
End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text8.SetFocus
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Combo2.SetFocus
End Sub

Private Sub Text9_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text10.SetFocus
End Sub

Private Sub Timer1_Timer()
Frame1.Top = Frame1.Top + 25
If Frame1.Top >= 1580 Then
   Timer1.Enabled = False
   Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
   Frame1.Height = Frame1.Height + 150
   If Frame1.Height >= 6975 Then
      Timer2.Enabled = False
   End If
End Sub

Private Sub Timer3_Timer()
Frame5.Top = Frame5.Top - 25
If Frame5.Top <= 8050 Then
   Timer3.Enabled = False
   Timer4.Enabled = True
End If
End Sub

Private Sub Timer4_Timer()
   Frame5.Height = Frame5.Height + 150
   Frame5.Top = Frame5.Top - 150
   If Frame5.Height >= 6975 Then
      Timer4.Enabled = False
      Frame5.Top = 1560
   End If
End Sub

Private Sub Timer5_Timer()
  Frame8.Left = Frame8.Left + 100
  If Frame8.Left >= 240 Then
     Timer5.Enabled = False
     Frame8.Left = Frame2.Left
     Timer6.Enabled = True
  End If
End Sub

Private Sub Timer6_Timer()
   Frame8.Width = Frame8.Width + 150
   If Frame8.Width >= 9495 Then
      Timer6.Enabled = False
      Frame8.Width = Frame2.Width
   End If
End Sub
上一页 1 2 34
💿 文件大小 131 K
👤 上传用户 jaysdy1117
📂 所属分类医药行业
🏷️ 相关标签

#管理系统 #运行
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -