?? formc2.frm
字號:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form FormC2
BackColor = &H00C0C0FF&
Caption = " 醫 藥 費 報 銷 查 詢 處 理 "
ClientHeight = 8595
ClientLeft = 60
ClientTop = 345
ClientWidth = 11880
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8595
ScaleWidth = 11880
StartUpPosition = 2 '屏幕中心
Visible = 0 'False
Begin VB.CommandButton Command6
Caption = "退 出"
Height = 375
Left = 1275
TabIndex = 15
Top = 7740
Width = 1215
End
Begin VB.ComboBox Combo1
BackColor = &H008080FF&
Height = 300
Left = 960
TabIndex = 14
Text = "Combo1"
Top = 720
Width = 1575
End
Begin VB.CommandButton Command4
Caption = "待 報"
Height = 375
Left = 1275
TabIndex = 11
Top = 6600
Width = 1215
End
Begin VB.CommandButton Command5
Caption = "全 部"
Enabled = 0 'False
Height = 375
Left = 1275
TabIndex = 10
Top = 7200
Width = 1215
End
Begin VB.Frame Frame1
BackColor = &H00FFFF80&
BorderStyle = 0 'None
Height = 3495
Left = 480
TabIndex = 1
Top = 1800
Width = 2035
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 300
Index = 3
Left = 480
TabIndex = 12
Text = "Text1(3)"
Top = 2640
Width = 1215
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 300
Index = 2
Left = 480
TabIndex = 9
Text = "Text1(2)"
Top = 1920
Width = 1215
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 300
Index = 0
Left = 480
TabIndex = 5
Text = "Text1(0)"
Top = 480
Width = 1215
End
Begin VB.TextBox Text1
Enabled = 0 'False
Height = 300
Index = 1
Left = 480
TabIndex = 4
Text = "Text1(1)"
Top = 1200
Width = 1215
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "返款日期："
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 240
TabIndex = 13
Top = 2400
Width = 990
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "報銷日期："
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 240
TabIndex = 7
Top = 1680
Width = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "單據數量："
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 240
TabIndex = 3
Top = 240
Width = 990
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "合計金額："
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 240
TabIndex = 2
Top = 960
Width = 990
End
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 2295
Left = 2880
TabIndex = 0
Top = 360
Visible = 0 'False
Width = 8475
_ExtentX = 14949
_ExtentY = 4048
_Version = 393216
BackColor = 12648447
BackColorBkg = 12648447
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid2
Height = 2295
Left = 2880
TabIndex = 6
Top = 3120
Visible = 0 'False
Width = 8475
_ExtentX = 14949
_ExtentY = 4048
_Version = 393216
BackColor = 16777152
BackColorBkg = 12640511
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid3
Height = 2175
Left = 2880
TabIndex = 16
Top = 6000
Visible = 0 'False
Width = 8475
_ExtentX = 14949
_ExtentY = 3836
_Version = 393216
BackColor = 12648447
BackColorBkg = 12648447
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "待報銷醫藥費單據："
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 3000
TabIndex = 18
Top = 5760
Width = 1770
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "醫藥費單據："
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 3000
TabIndex = 17
Top = 2880
Width = 1185
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "請選擇："
BeginProperty Font
Name = "宋體"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 180
Left = 540
TabIndex = 8
Top = 420
Width = 795
End
End
Attribute VB_Name = "FormC2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
' ┃ FormB0 醫藥費報銷處理 ┃
' ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
Const intCy1 = &HC0FFFF, intCx1 = &HC0E0FF
Const intCy2 = &HC0E0FF, intCx2 = &HC0FFFF, intCn2 = &HFFFF00
Const intCy3 = &H80FF80, intCx3 = &HC0FFFF
Const intRs1 = 9, intRs2 = 21, intRs3 = 8
Dim intRo1 As Integer, intRo2 As Integer
Dim Dmp As String, strYf As String, strYd As String, strTj As String, intTs As Integer
Dim strDm As String, strSz As String, StrLb As String, strXm As String, strMc As String
Dim Xh As Integer, Rq As String, Sz As String, Lb As String, Mc As String, Bz As String
Dim Dj As Single, Sl As Single, Sr As Single, Zc As Single, Je As Single, Sj As String
Dim Bh As Integer, Rqp As String, Szp As String, Lbp As String, Mcp As String, Bzp As String
Dim Bhp As Integer, Bxp As String, Xh2 As Integer
Dim Djp As Single, Slp As Byte, Srp As Single, Zcp As Single, Jep As Single, Dsp As Byte
Dim Xmp As String, Xm As String, Sjp As String
Dim strFs As String, blnXg As Boolean
Dim arrXm() As String, arrBh(), arrZm()
'
Private Sub Form_Load()
Db_fN2 = App.Path & StrDir & Db_Name2
StrCrq = Format(Date, "yyyy.mm.dd")
If myF_ConnT(Db_fN2) = False Then Unload Me: Exit Sub ' 連接庫 T ' 打開數據庫 2
StrT1 = "T_tm" ' 條目表 MyRs1
StrT2 = "T_zm" ' 賬目表 MyRs2
StrT3 = "T_yf" ' 報銷表 MyRs3
Rq = StrCrq
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3
End Sub
Private Sub Form_Activate()
If blnTc = True Then Unload Me: Exit Sub
Call P_grd1 ' T_yf 表
Call P_yftj ' 搜索條件
Call P_cmb1 ' 姓名
Call P_grd2 ' T_zm 表
Call P_init
intRo1 = 1
intRo2 = 1
intRo3 = 1
End Sub
Private Sub P_yftj() ' 醫藥費搜索條件
StrSQL = "Select * From " & StrT1 & _
" Where Dm Like 'Lb%' And (Jc Like 's' Or Jc Like 'z')" & _
" Order By Xh"
Set MyRs0 = New Recordset
MyRs0.Open StrSQL, cnnTce, adOpenKeyset, adLockOptimistic
N5 = MyRs0.RecordCount:
If N5 > 0 Then
ReDim arrSl(N5, 2)
strYf = ""
For i = 1 To N5
If MyRs0![Mc] Like "*醫藥*" Then
If MyRs0![Jc] = "z" Then
strYd = " Where Sz='z' And Lb='" & MyRs0![Bz] & "' And Bh=0"
End If
If strYf = "" Then
strYf = strYf & "Sz='" & MyRs0![Jc] & "' And Lb='" & MyRs0![Bz] & "'"
Else
strYf = strYf & " Or Sz='" & MyRs0![Jc] & "' And Lb='" & MyRs0![Bz] & "'"
End If
End If
MyRs0.MoveNext
Next
strYf = " Where (" & strYf & ")": strTj = strYf
MyRs0.Close
Else
MsgBox " 沒有發現醫藥費類別信息 ... ", 48, " 請注意"
strTj = ""
End If
End Sub
Private Sub P_cmb1() ' 姓名 Combo1
strDm = "Xm"
StrSQL = "Select * From " & StrT1 & " Where Dm Like '" & strDm & "%' Order By Xh"
Set MyRs0 = New Recordset
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -