?? frm_cyxx_temp.frm

?? 可運(yùn)行的一個(gè)醫(yī)院住院管理系統(tǒng)
?? FRM
?? 第 1 頁(yè) / 共 2 頁(yè)
字號(hào):
上一頁(yè)12
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column08 
         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 Column09 
         DataField       =   "入院時(shí)間"
         Caption         =   "入院時(shí)間"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column10 
         DataField       =   "主治醫(yī)師"
         Caption         =   "主治醫(yī)師"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column11 
         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 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       =   "出院時(shí)間"
         Caption         =   "出院時(shí)間"
         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       =   "掛號(hào)單號(hào)"
         Caption         =   "掛號(hào)單號(hào)"
         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 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   1365.165
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   1094.74
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column09 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column10 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column11 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column12 
            ColumnWidth     =   1275.024
         EndProperty
         BeginProperty Column13 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column14 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column15 
            ColumnWidth     =   2085.166
         EndProperty
      EndProperty
   End
   Begin VB.TextBox Text1 
      DataField       =   "住院號(hào)"
      DataSource      =   "Adodc1"
      Height          =   375
      Left            =   1920
      TabIndex        =   3
      Text            =   "Text1"
      Top             =   1560
      Width           =   1575
   End
End
Attribute VB_Name = "frm_cyxx_temp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim AA
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from View_cyxx where 住院號(hào)='" + Text1.Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
'frm_cygl.Text11.Text = Adodc1.Recordset.Fields("病房號(hào)")
frm_cygl.Text1.Text = Adodc1.Recordset.Fields("住院號(hào)")
frm_cygl.Text2.Text = Adodc1.Recordset.Fields("姓名")
frm_cygl.Combo1.Text = Adodc1.Recordset.Fields("性別")
frm_cygl.DTPicker1.Value = Adodc1.Recordset.Fields("出生日期")
frm_cygl.Text3.Text = Adodc1.Recordset.Fields("年齡")
frm_cygl.Text4.Text = Adodc1.Recordset.Fields("聯(lián)系地址")
frm_cygl.Text5.Text = Adodc1.Recordset.Fields("聯(lián)系電話")
frm_cygl.Text6.Text = Adodc1.Recordset.Fields("主要診斷")
frm_cygl.Text7.Text = Adodc1.Recordset.Fields("主治醫(yī)師")
frm_cygl.Text10.Text = Adodc1.Recordset.Fields("掛號(hào)單號(hào)")
frm_cygl.Combo2.Text = Adodc1.Recordset.Fields("付款方式")
frm_cygl.DT2.Value = Adodc1.Recordset.Fields("入院時(shí)間")
frm_cygl.Combo3.Text = Adodc1.Recordset.Fields("收入科室")
frm_cygl.Text8.Text = Adodc1.Recordset.Fields("備注")
AA = Adodc1.Recordset.Fields("住院號(hào)")
Unload Me
frm_cygl.DT3.SetFocus
Adodc2.RecordSource = "select * from Table_zyxx where 住院號(hào)='" + Str(AA) + "'"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
frm_cygl.Text11.Text = Adodc2.Recordset.Fields("病房號(hào)")
Else
End If
Else
Unload Me
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If Text1.Text = "" Then
Unload Me
Exit Sub
Else
Adodc1.RecordSource = "select * from View_cyxx where 住院號(hào)='" + Text1.Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
'frm_cygl.Text11.Text = Adodc1.Recordset.Fields("病房號(hào)")
frm_cygl.Text1.Text = Adodc1.Recordset.Fields("住院號(hào)")
frm_cygl.Text2.Text = Adodc1.Recordset.Fields("姓名")
frm_cygl.Combo1.Text = Adodc1.Recordset.Fields("性別")
frm_cygl.DTPicker1.Value = Adodc1.Recordset.Fields("出生日期")
frm_cygl.Text3.Text = Adodc1.Recordset.Fields("年齡")
frm_cygl.Text4.Text = Adodc1.Recordset.Fields("聯(lián)系地址")
frm_cygl.Text5.Text = Adodc1.Recordset.Fields("聯(lián)系電話")
frm_cygl.Text6.Text = Adodc1.Recordset.Fields("主要診斷")
frm_cygl.Text7.Text = Adodc1.Recordset.Fields("主治醫(yī)師")
frm_cygl.Text10.Text = Adodc1.Recordset.Fields("掛號(hào)單號(hào)")
frm_cygl.Combo2.Text = Adodc1.Recordset.Fields("付款方式")
frm_cygl.DT2.Value = Adodc1.Recordset.Fields("入院時(shí)間")
frm_cygl.Combo3.Text = Adodc1.Recordset.Fields("收入科室")
frm_cygl.Text8.Text = Adodc1.Recordset.Fields("備注")
AA = Adodc1.Recordset.Fields("住院號(hào)")
Adodc2.RecordSource = "select * from Table_zyxx where 住院號(hào)='" + Str(AA) + "'"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
frm_cygl.Text11.Text = Adodc2.Recordset.Fields("病房號(hào)")
Else
End If
Unload Me
frm_cygl.DT3.SetFocus
Else
Unload Me
End If
End If
Else
End If
End Sub

Private Sub Form_Load()
Me.Top = 3700
Me.Left = 3020
End Sub
上一頁(yè)12
?? 文件大小 2144 K
?? 上傳用戶 l550253832
?? 所屬分類(lèi) MySQL數(shù)據(jù)庫(kù)
??? 相關(guān)標(biāo)簽

#運(yùn)行 #管理系統(tǒng)
?? 快捷鍵說(shuō)明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號(hào) Ctrl + =
減小字號(hào) Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frm_cyxx_temp.frm

?? 快捷鍵說(shuō)明
