《全自动生化分析仪处理系统源代码》由会员分享,可在线阅读,更多相关《全自动生化分析仪处理系统源代码(63页珍藏版)》请在金锄头文库上搜索。
1、前1Option ExplicitPrivate Delay_Count As IntegerPrivate Cur_Op_Mode As IntegerPrivate Cur_Plate_File As LongPrivate Cur_Itm_Id As LongPrivate Cur_Kit_ID As LongPrivate Is_Load_Over As BooleanPrivate oPlateObject As New PlateObjectPrivate oCell As CellObjectPrivate WellColorNode As IXMLDOMElementPriva
2、te MeadsureBuffer As StringPrivate data_arr() As SinglePrivate Is_Specified_Cov As BooleanPrivate tMeasureNode As IXMLDOMElementPrivate CurMeasureBaud As StringPrivate CurMeasureCount As IntegerPrivate CurMeasureIndex As IntegerPublic Sub SetSpecifiedCov(ByVal return_cov As String, ByVal return_plat
3、e_num As String)IlblCovPlateNum.Caption = return_plate_numgrdCov.rows = 1Call LoadCovList(return_cov)Is_Specified_Cov = True前2End SubPrivate Sub cboPlateFile_Click()If Is_Load_Over = False Then Exit SubIf cboPlateFile.ListIndex = Cur_Plate_File Then Exit SubCur_Plate_File = cboPlateFile.ListIndexIf
4、Cur_Plate_File = 0 ThencboMainBaud.Enabled = True cboExtBaud.Enabled = True txtPlateFileName.Text = lblPlateNum.Caption = lblCovPlateNum.Caption = oPlateObject.ResetPlate ResetAllIf Command5.Enabled = True ThenCommand10.Enabled = FalseCommand10.Tag = 0End IfElsecboMainBaud.Enabled = FalsecboExtBaud.
5、Enabled = FalsetxtPlateFileName.Text = cboPlateFile.TextLoadPlateFromDisk App.Path & plate2 & txtPlateFileName.TextEnd IfEnd Sub前3Private Sub Command1_Click()frmSelectPlate.FromClient = 1frmSelectPlate.OpenMethod = 0frmSelectPlate.Cur_Itm_Id = 0frmSelectPlate.Show 1Select Case frmSelectPlate.ReturnV
6、alueCase 0Case 1/ 、 、 qAEQN%圧Ear aCommand1.Enabled = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand10.Enabled = FalseCommand10.Tag = 0Case 2qAf%圧応即。aCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = True
7、Command8.Enabled = TrueIf Cur_Plate_File = 0 Then前4Command10.Enabled = FalseCommand10.Tag = 0ElseCommand10.Enabled = TrueCommand10.Tag = 1End IfCase 3/ 、 / AONEoEp aCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueCommand8.Enabled = FalseCommand10.Enable
8、d = FalseCommand10.Tag = 0End SelectEnd SubPrivate Sub LoadCovList(ByVal str_itm_cov_list As String)Dim itm_id As Long, itm_code As String, cov_value As String, ncx_value As String, pcx_value As String, blkx_value As StringDim view_color As OLE_COLORDim covDoc As New DOMDocument, covNode As IXMLDOME
9、lement, itmNode AsIXMLDOMElement前5If covDoc.loadXML( & str_itm_cov_list & ) = True ThenFor Each covNode In covDoc.selectNodes(/cov_list)itm_id = covNode.getAttribute(itm_id)Set itmNode = ItmDoc.selectSingleNode(/rowitm_id= & itm_id & )If Not itmNode Is Nothing Thenitm_code = itmNode.getAttribute(itm
10、_code)view_color = itmNode.getAttribute(view_color)cov_value = covNode.getAttribute(cov)ncx_value = covNode.getAttribute(ncx)pcx_value = covNode.getAttribute(pcx)blkx_value = covNode.getAttribute(blkx)grdCov.AddItem itm_idgrdCov.TextMatrix(grdCov.rows - 1, 1) = grdCov.TextMatrix(grdCov.rows - 1, 2)
11、= itm_codegrdCov.TextMatrix(grdCov.rows - 1, 3) = Format(ncx_value, 0.0000)grdCov.TextMatrix(grdCov.rows - 1, 4) = Format(pcx_value, 0.0000) grdCov.TextMatrix(grdCov.rows - 1, 5) = Format(blkx_value, 0.0000) grdCov.TextMatrix(grdCov.rows - 1, 6) = Format(cov_value, 0.0000)grdCov.Cell(flexcpBackColor
12、, grdCov.rows - 1, 1, grdCov.rows - 1, 1) = view_colorEnd IfNextEnd IfSet itmNode = NothingSet covNode = NothingSet covDoc = Nothing前6End SubPrivate Sub Command10_Click()frmSmplNumFilter.From_Client = 1frmSmplNumFilter.Show 1End SubPrivate Sub Command2_Click()If txtPlateFileName.Text = ThenMsgBox 总D
13、f虫ia宜-CeNa宜禹,vblnformation + vbOKOnly,Me.CaptioncboPlateFile.SetFocusExit SubEnd IfIf oPlateObject.PlateNum = Then / / / /MsgBox pAieaAODE1EapE y%Yjj, vbInformation + vbOKOnly,Me.CaptionExit SubEnd IfoPlateObject.SetItmCovList , FalseDim calc_state As Integer, err_str As String, nI As Integer, itm_f
14、ind As Boolean, specified_covAs String, specified_blk As StringDim calc_over_itm As Integercalc_over_itm = 0前7Dim gridRangeNodes As IXMLDOMNodeList, gridRangeNode As IXMLDOMAttributeSet gridRangeNodes = oPlateObject.GetPlateNode.selectNodes(/grid_range/itm_idnot(.=preceding:*/itm_id)For Each gridRan
15、geNode In gridRangeNodesIf gridRangeNode.Value 0 ThenIf lblCovPlateNum.Caption Thenitm_find = Falsespecified_cov = For nI = 1 To grdCov.rows - 1If grdCov.TextMatrix(nI, 0) = gridRangeNode.Value Thenspecified_cov = grdCov.TextMatrix(nI, 6)specified_blk = grdCov.TextMatrix(nI, 5)itm_find = TrueExit ForEnd