📄 frm大病医疗记录.frm
字号:
Orientation = 0
Enabled = -1
Connect = "DSN=LandaMIS"
OLEDBString = ""
OLEDBFile = ""
DataSourceName = "LandaMIS"
OtherAttributes = ""
UserName = "sa"
Password = ""
RecordSource = "大病医疗记录"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Frame Frame2
Caption = "查询条件"
Height = 1155
Left = -74910
TabIndex = 23
Top = 420
Width = 7515
Begin VB.CommandButton Command1
Caption = "查询"
Height = 405
Left = 6540
TabIndex = 27
Top = 690
Width = 855
End
Begin VB.TextBox TXT_CXND
Height = 315
Left = 2010
TabIndex = 26
Top = 450
Width = 1335
End
Begin VB.Label Label1
Caption = "年度"
Height = 315
Left = 1440
TabIndex = 25
Top = 540
Width = 555
End
End
Begin VB.TextBox TXT_DWBL
Height = 285
Left = 2040
TabIndex = 22
Text = "Text2"
Top = 4470
Visible = 0 'False
Width = 1035
End
Begin VB.TextBox TXT_grbl
Height = 285
Left = 930
TabIndex = 21
Top = 4470
Visible = 0 'False
Width = 945
End
Begin VB.PictureBox Picture1
BackColor = &H00808000&
Height = 3345
Left = 210
ScaleHeight = 3285
ScaleWidth = 2295
TabIndex = 20
Top = 870
Width = 2355
End
Begin VB.CommandButton cmdClose
Caption = "关闭"
Height = 390
Left = 6630
TabIndex = 18
Top = 4710
Width = 915
End
Begin VB.CommandButton cmdUpdate
Caption = "保存"
Height = 390
Left = 5640
TabIndex = 17
Top = 4710
Width = 915
End
Begin VB.TextBox TXT_YJHJ
DataField = "应缴金额合计"
DataSource = "datPrimaryRS"
Height = 285
Left = 5190
TabIndex = 16
Top = 3750
Width = 1905
End
Begin VB.TextBox TXT_GRYJE
DataField = "个人应缴额"
DataSource = "datPrimaryRS"
Height = 285
Left = 5190
TabIndex = 14
Top = 3420
Width = 1905
End
Begin VB.TextBox TXT_DWYJE
DataField = "单位应缴额"
DataSource = "datPrimaryRS"
Height = 285
Left = 5190
TabIndex = 12
Top = 3060
Width = 1905
End
Begin VB.TextBox TXT_JS
DataSource = "datPrimaryRS"
Height = 285
Left = 5190
TabIndex = 10
Top = 2700
Width = 1905
End
Begin VB.TextBox TXT_ZGRS
DataField = "在职职工数"
DataSource = "datPrimaryRS"
Height = 285
Left = 5190
TabIndex = 8
Top = 2310
Width = 1905
End
Begin VB.TextBox TXT_ND
DataField = "年度"
DataSource = "datPrimaryRS"
Height = 285
Left = 5190
TabIndex = 5
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 = 3
Top = 1050
Width = 1905
End
Begin MSComCtl2.DTPicker RQ
Height = 285
Left = 5190
TabIndex = 19
Top = 1890
Width = 1365
_ExtentX = 2408
_ExtentY = 503
_Version = 393216
Format = 59244545
CurrentDate = 36305
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Caption = "应缴金额合计:"
Height = 255
Index = 8
Left = 2820
TabIndex = 15
Top = 3825
Width = 1815
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Caption = "个人应缴额:"
Height = 255
Index = 7
Left = 2820
TabIndex = 13
Top = 3495
Width = 1815
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Caption = "单位应缴额:"
Height = 255
Index = 6
Left = 2820
TabIndex = 11
Top = 3120
Width = 1815
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Caption = "上年月平均工资总额:"
Height = 255
Index = 5
Left = 2820
TabIndex = 9
Top = 2790
Width = 1815
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Caption = "在职职工数:"
Height = 255
Index = 4
Left = 2820
TabIndex = 7
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 = 6
Top = 1980
Width = 1815
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Caption = "年度:"
Height = 255
Index = 2
Left = 2820
TabIndex = 4
Top = 1590
Width = 1815
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Caption = "企业编号:"
Height = 255
Index = 1
Left = 2820
TabIndex = 2
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 cmdClose_Click()
RSGL.Enabled = True
Unload Me
End Sub
Private Sub cmdUpdate_Click()
RESULT = MsgBox("您确实要保存吗？", vbYesNo)
If RESULT = 6 Then
sqlbc = "insert 大病医疗记录 (年度,日期,在职职工数,上年月平均工资总额,单位应缴额,个人应缴额,应缴金额合计) values('" & TXT_ND & "','" & RQ & "'," & TXT_ZGRS & "," & TXT_JS & "," & TXT_DWYJE & "," & TXT_GRYJE & "," & TXT_YJHJ & ")"
Set rsbc = ConnWZ.Execute(sqlbc)
End If
End Sub
Private Sub Command1_Click()
If TXT_CXND = "" Then
MsgBox "请选择查询条件！"
Else
Adodc1.RecordSource = "select * from 大病医疗记录 where 年度=" & TXT_CXND & ""
Adodc1.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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -