--=================== 标量函数 ========================
--函数功能：计算员工的月薪，接收 支付率*8*30*
alter function MonthlySal(@PayRate float,@n tinyint)--, float
returns float--返回值类型
as
begin...
Private Sub CommandButton1_Click()
Dim cnn As New ADODB.Connection
Dim strsql As String
Dim rnum As Integer, i As Integer
'① excel+excel 链接
'cnn.Open "Provider=Microsoft.Jet.OleDb.4.0;Ex...
