?? frm
字號:
Width = 855
End
Begin VB.TextBox TXT_CXND
Appearance = 0 'Flat
Height = 300
Left = 2010
TabIndex = 27
Top = 450
Width = 1335
End
Begin VB.Label Label1
Caption = "年度"
Height = 195
Left = 1440
TabIndex = 26
Top = 503
Width = 555
End
End
Begin VB.TextBox TXT_DWBL
Appearance = 0 'Flat
Height = 285
Left = 2040
TabIndex = 23
Text = "Text2"
Top = 4470
Visible = 0 'False
Width = 1035
End
Begin VB.TextBox TXT_grbl
Appearance = 0 'Flat
Height = 285
Left = 930
TabIndex = 22
Top = 4470
Visible = 0 'False
Width = 945
End
Begin VB.PictureBox Picture1
BackColor = &H00808000&
Height = 3345
Left = 210
ScaleHeight = 3285
ScaleWidth = 2295
TabIndex = 21
Top = 870
Width = 2355
End
Begin VB.TextBox TXT_YJHJ
Appearance = 0 'Flat
DataField = "應繳金額合計"
DataSource = "datPrimaryRS"
Height = 285
Left = 5190
TabIndex = 6
Top = 3750
Width = 1905
End
Begin VB.TextBox TXT_GRYJE
Appearance = 0 'Flat
DataField = "個人應繳額"
DataSource = "datPrimaryRS"
Height = 285
Left = 5190
TabIndex = 5
Top = 3420
Width = 1905
End
Begin VB.TextBox TXT_DWYJE
Appearance = 0 'Flat
DataField = "單位應繳額"
DataSource = "datPrimaryRS"
Height = 285
Left = 5190
TabIndex = 4
Top = 3060
Width = 1905
End
Begin VB.TextBox TXT_JS
Appearance = 0 'Flat
DataSource = "datPrimaryRS"
Height = 285
Left = 5190
TabIndex = 3
Top = 2700
Width = 1905
End
Begin VB.TextBox TXT_ZGRS
Appearance = 0 'Flat
DataField = "在職職工數"
DataSource = "datPrimaryRS"
Height = 285
Left = 5190
TabIndex = 2
Top = 2310
Width = 1905
End
Begin VB.TextBox TXT_ND
Appearance = 0 'Flat
DataField = "年度"
DataSource = "datPrimaryRS"
Height = 285
Left = 5190
TabIndex = 0
Top = 1485
Width = 1395
End
Begin VB.TextBox TXT_QYBH
Appearance = 0 'Flat
BackColor = &H8000000B&
DataField = "企業編號"
DataSource = "datPrimaryRS"
Height = 285
Left = 5190
Locked = -1 'True
TabIndex = 13
Top = 1050
Width = 1905
End
Begin MSComCtl2.DTPicker RQ
Height = 285
Left = 5190
TabIndex = 1
Top = 1890
Width = 1365
_ExtentX = 2408
_ExtentY = 503
_Version = 393216
Format = 26869761
CurrentDate = 36305
End
Begin Threed.SSCommand cmdClear
Height = 375
Left = 5160
TabIndex = 8
Top = 4680
Width = 975
_Version = 65536
_ExtentX = 1720
_ExtentY = 661
_StockProps = 78
Caption = "&C.清 除"
End
Begin Threed.SSCommand cmdClose
Height = 375
Left = 6360
TabIndex = 9
Top = 4680
Width = 975
_Version = 65536
_ExtentX = 1720
_ExtentY = 661
_StockProps = 78
Caption = "&Q.關 閉"
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Caption = "應繳金額合計"
Height = 255
Index = 8
Left = 2820
TabIndex = 20
Top = 3825
Width = 1815
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Caption = "個人應繳額"
Height = 255
Index = 7
Left = 2820
TabIndex = 19
Top = 3495
Width = 1815
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Caption = "單位應繳額"
Height = 255
Index = 6
Left = 2820
TabIndex = 18
Top = 3120
Width = 1815
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Caption = "上年月平均工資總額"
Height = 255
Index = 5
Left = 2820
TabIndex = 17
Top = 2790
Width = 1815
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Caption = "在職職工數"
Height = 255
Index = 4
Left = 2820
TabIndex = 16
Top = 2400
Width = 1815
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H8000000B&
Caption = "填報日期"
ForeColor = &H80000008&
Height = 255
Index = 3
Left = 2820
TabIndex = 15
Top = 1980
Width = 1815
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Caption = "年 度"
Height = 255
Index = 2
Left = 2820
TabIndex = 14
Top = 1590
Width = 1815
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Caption = "企業編號"
Height = 255
Index = 1
Left = 2820
TabIndex = 12
Top = 1185
Width = 1815
End
End
End
End
Attribute VB_Name = "frm_DBYLJL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CMD_DEL_Click()
DataGrid1.AllowDelete = True
End Sub
Private Sub cmdclear_Click()
Me.TXT_CXND = ""
Me.TXT_DWBL = ""
Me.TXT_DWYJE = ""
Me.TXT_grbl = ""
Me.TXT_GRYJE = ""
Me.TXT_JS = ""
Me.txt_ND = ""
Me.TXT_QYBH = ""
Me.TXT_YJHJ = ""
Me.TXT_ZGRS = ""
End Sub
Private Sub cmdClose_Click()
RSGL.Enabled = True
Unload Me
End Sub
Private Sub cmdUpdate_Click()
If MsgBox("確認要保存記錄嗎？", vbYesNo + vbQuestion, "系統提示") = vbNo Then Exit Sub
sqlbc = "insert 大病醫療記錄 (年度,日期,在職職工數,上年月平均工資總額,單位應繳額,個人應繳額,應繳金額合計) values('" & txt_ND & "','" & RQ & "'," & TXT_ZGRS & "," & TXT_JS & "," & TXT_DWYJE & "," & TXT_GRYJE & "," & TXT_YJHJ & ")"
Set rsbc = ConnWZ.Execute(sqlbc)
End Sub
Private Sub Command1_Click()
Dim sSQL As String
If TXT_CXND = "" Then
MsgBox "請選擇查詢條件！"
Else
sSQL = "select * from 大病醫療記錄 where 年度=" & TXT_CXND & ""
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open sSQL, db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS
DataGrid1.Refresh
End If
End Sub
Private Sub Form_Load()
Dim STRjs As Long
RQ.Value = Date
txt_ND = Year(RQ)
Sql = "select * from 比例基數維護表 where 年度=" & Trim(txt_ND) & ""
Set rs = ConnWZ.Execute(Sql)
If Not rs.EOF Then
STRjs = rs("大病醫療基數")
TXT_grbl = rs("個人應繳比例")
TXT_DWBL = rs("單位應繳比例")
End If
Sql = "select * from 大病統籌登記 where 是否停止='否'"
Set rs = ConnWZ.Execute(Sql)
TXT_ZGRS = rs.RecordCount
TXT_JS = Val(TXT_ZGRS) * STRjs
TXT_DWYJE = Val(TXT_ZGRS) * Val(TXT_JS) * Val(TXT_DWBL)
TXT_GRYJE = Val(TXT_ZGRS) * Val(TXT_JS) * Val(TXT_grbl)
TXT_YJHJ = Val(TXT_DWYJE) + Val(TXT_GRYJE)
End Sub
Private Sub RQ_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys "{TAB}"
End If
End Sub
Private Sub TXT_ND_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys "{TAB}"
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -