ditCopy
Printer.Print""
Printer.PaintPictureClipboard.GetData(),0,0
Printer.EndDoc
ExitSub
errHandler:
MsgBoxErr.Description,vbCritical,"错误"
EndSub
PrivateSubCommand6_Click()
GoToerrHandler
MSChart4.EditCopy
Printer.Print""
Printer.PaintPictureClipboard.GetData(),0,0
Printer.EndDoc
ExitSub
errHandler:
MsgBoxErr.Description,vbCritical,"错误"
EndSub
PrivateSubForm_Load()
MDIForm1.StatusBar1.Panels(2).Text="当前操作:"&Me.Caption
Me.Left=0:Me.Top=0
Adodc3.ConnectionString=strConn
strSQL="selectdistinctofficeNamefromoffice"
Adodc3.RecordSource=strSQL
Adodc3.CommandType=adCmdText
Adodc3.Refresh
'将所查到的的内容来填充combo1
Combo1.Clear
Combo1.AddItem"全部"
WhileNotAdodc3.Recordset.EOF
Combo1.AddItemAdodc3.Recordset("officeName")
Adodc3.Recordset.MoveNext
Wend
Combo1.ListIndex=0
Adodc3.Recordset.Close
strSQL="selectdoctor.doctorNameas医师姓名,count(doctor.doctorId)as被投诉次数fromdoctor,patient,officewheredoctor.doctorId=patient.hDoctoridandoffice.Id=doctor.officeId"
strSQL=strSQL+"groupbydoctor.doctorName"
Adodc3.CursorLocation=adUseClient
Adodc3.CommandType=adCmdText
Adodc3.RecordSource=strSQL
Adodc3.Refresh
MSChart3.Enabled=False
strSQL=""
Adodc1.ConnectionString=strConn
strSQL="selectoffice.officeNameas科室名,count(doctor.officeID)as科室人数fromdoctor,patient,officewheredoctor.doctorID=patient.hDoctorIDandoffice.Id=doctor.officeIdgroupbyoffice.officeName"
Adodc1.CursorLocation=adUseClient
Adodc1.CommandType=adCmdText
Adodc1.RecordSource=strSQL
Adodc1.Refresh
Adodc2.ConnectionString=strConn
strSQL="selectpatient.pDateas年,count(doctor.officeId)as年次数fromdoctor,patient,officewheredoctor.doctorId=patient.hDoctoridandoffice.Id=doctor.officeIdgroupbypatient.pDate"
Adodc2.CursorLocation=adUseClient
Adodc2.CommandType=adCmdText
Adodc2.RecordSource=strSQL
Adodc2.Refresh
Adodc4.ConnectionString=strConn
strSQL="selectpatient.pClassas投诉等级,count(doctor.officeId)as等级次数fromdoctor,patient,officewheredoctor.doctorId=patient.hDoctoridandoffice.Id=doctor.officeIdgroupbypatient.pClass"
Adodc4.CursorLocation=adUseClient
Adodc4.CommandType=adCmdText
Adodc4.RecordSource=strSQL
Adodc4.Refresh
EndSub
PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
UnloadMe
MDIForm1.StatusBar1.Panels(2).Text="当前操作:"&MDIForm1.Loading
EndSub
??
??
??
??
1
上一篇:
vb办公用品管理程序(论文和程序)
下一篇:
ASP小区停车管理系统(Access)(含录像)