工资管理系统数据图_工资管理系统实训报告_工资管理系统需求规格说明书(39)

+ Str(DTP1.Value) + "AND "

+ Str(DTP2.Value) + ""

Adodc2.Refresh End If If Check1(0).Value = 1 And Check1(1).Value = 1 Then Select Case Combo2.text Case Is = "like"

Adodc1.RecordSource = "select * from 工资发放查询 where (工资发放查询."

&

Combo1.text &

"

like%+ "

+ Text1.text + "+%and 工资发放查询.发放日期 between "

+ Str(DTP1.Value) + "AND "

+ Str(DTP2.Value) + ")"

Adodc1.Refresh Adodc2.RecordSource = "select sum(应发金额合计)as 应发金额合计 1,sum(应 扣金额合计)as 应扣金额合计 1,sum(实发金额)as 实发金额 1 from 工资发放查询 where (工资发放查询."

&

Combo1.text &

"

like +%+ "

+ Text1.text + "+%and 工资发 放查询.发放日期 between "

+ Str(DTP1.Value) + "AND "

+ Str(DTP2.Value) + ")"

Adodc2.Refresh Case Is = "="

Adodc1.RecordSource = "select * from 工资发放查询 where (工资发放查询."

&

Combo1.text &

"

= "

+ Text1.text + "and 工资发放查询.发放日期 between "

+ Str(DTP1.Value) + "AND "

+ Str(DTP2.Value) + ")"

Adodc1.Refresh Adodc2.RecordSource = "select sum(应发金额合计)as 应发金额合计 1,sum(应 扣金额合计)as 应扣金额合计 1,sum(实发金额)as 实发金额 1 from 工资发放查询 where (工资发放查询."

&

Combo1.text &

"

= "

+ Text1.text + "and 工资发放查询.发放日 期 between "

+ Str(DTP1.Value) + "AND "

+ Str(DTP2.Value) + ")"

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-31446-39.html