frmats.frm

学生宿舍管理系统vb源码

                procBar.Value = i / count * 100
            Next i
            lblResult.Caption = "当前状态: 正在写入点表数据,请稍候!"
            conSQL.OpenCn ServerName
            conSQL.openRs dbStr
            For i = 1 To count
                'conSQL.OpenCn ServerName
                'conSQL.openRs dbStr
                'conSQL.rs.MoveLast
                conSQL.rs.AddNew
                conSQL.rs.Fields("Dwg_No").Value = DwgNo
                If PointInfo(i).EXP_NO <> "" Then conSQL.rs.Fields("Exp_Num").Value = PointInfo(i).EXP_NO
                If PointInfo(i).MAP_NO <> "" Then conSQL.rs.Fields("Map_No").Value = PointInfo(i).MAP_NO
                If Not IsNull(PointInfo(i).S_CODE) Then conSQL.rs.Fields("S_Code").Value = PointInfo(i).S_CODE
                If Not IsNull(PointInfo(i).X) Then conSQL.rs.Fields("X").Value = PointInfo(i).X
                If Not IsNull(PointInfo(i).Y) Then conSQL.rs.Fields("Y").Value = PointInfo(i).Y
                If Not IsNull(PointInfo(i).SURF_H) Then conSQL.rs.Fields("Surf_H").Value = PointInfo(i).SURF_H
                If PointInfo(i).M_DATE <> "" Then conSQL.rs.Fields("M_Date").Value = PointInfo(i).M_DATE
                If PointInfo(i).B_CODE <> "" Then conSQL.rs.Fields("B_Code").Value = PointInfo(i).B_CODE
                If PointInfo(i).STREET <> "" Then conSQL.rs.Fields("Street_No").Value = PointInfo(i).STREET
                If PointInfo(i).Remark <> "" Then conSQL.rs.Fields("Remark").Value = PointInfo(i).Remark
                conSQL.rs.Update
                'conSQL.cloRs
                'conSQL.cloCn
                procBar.Value = i / count * 100
            Next i
            conSQL.cloRs
            conSQL.cloCn
        End If
        lblResult.Caption = "当前状态: 正在读取线表数据,请稍候!"
        dbStr = "select * from Jline"
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & txtFile & "';Persist Security Info=False"
        .RecordSource = dbStr
        .Refresh
        count = .Recordset.RecordCount
        If count > 0 Then
            ReDim LineInfo(count) As LineStruct
            .Recordset.MoveFirst
            For i = 1 To count
                If Not IsNull(.Recordset.Fields("START_POINT").Value) Then LineInfo(i).START_POINT = .Recordset.Fields("START_POINT").Value
                If Not IsNull(.Recordset.Fields("END_POINT").Value) Then LineInfo(i).END_POINT = .Recordset.Fields("END_POINT").Value
                If Not IsNull(.Recordset.Fields("S_Deep").Value) Then LineInfo(i).START_DEEP = .Recordset.Fields("S_Deep").Value
                If Not IsNull(.Recordset.Fields("E_Deep").Value) Then LineInfo(i).END_DEEP = .Recordset.Fields("E_Deep").Value
                If Not IsNull(.Recordset.Fields("MATERIAL").Value) Then LineInfo(i).MATERIAL = .Recordset.Fields("MATERIAL").Value
                If Not IsNull(.Recordset.Fields("Transect_TYPE").Value) Then LineInfo(i).D_TYPE = .Recordset.Fields("Transect_TYPE").Value
                If Not IsNull(.Recordset.Fields("Pipe_Dia").Value) Then LineInfo(i).Pipe_Dia = .Recordset.Fields("Pipe_Dia").Value
                If Not IsNull(.Recordset.Fields("M_DATE").Value) Then LineInfo(i).M_DATE = .Recordset.Fields("M_DATE").Value
                If Not IsNull(.Recordset.Fields("B_CODE").Value) Then LineInfo(i).B_CODE = .Recordset.Fields("B_CODE").Value
                If Not IsNull(.Recordset.Fields("LINE_STYLE").Value) Then LineInfo(i).LINE_STYLE = .Recordset.Fields("LINE_STYLE").Value
                If Not IsNull(.Recordset.Fields("LENGTH").Value) Then LineInfo(i).LENGTH = .Recordset.Fields("LENGTH").Value
                If Not IsNull(.Recordset.Fields("STREET_No").Value) Then LineInfo(i).STREET = .Recordset.Fields("STREET_No").Value
                If Not IsNull(.Recordset.Fields("M_STYLE").Value) Then LineInfo(i).M_STYLE = .Recordset.Fields("M_STYLE").Value
                If Not IsNull(.Recordset.Fields("Remark").Value) Then LineInfo(i).Remark = .Recordset.Fields("Remark").Value
                .Recordset.MoveNext
                procBar.Value = i / count * 100
            Next i
            lblResult.Caption = "当前状态: 正在写入线表数据,请稍候!"
            conSQL.OpenCn ServerName
            conSQL.openRs dbStr
            For i = 1 To count
                'conSQL.rs.MoveLast
                conSQL.rs.AddNew
                conSQL.rs.Fields("Dwg_No").Value = DwgNo
                If LineInfo(i).START_POINT <> "" Then conSQL.rs.Fields("Start_Point").Value = LineInfo(i).START_POINT
                If LineInfo(i).END_POINT <> "" Then conSQL.rs.Fields("End_Point").Value = LineInfo(i).END_POINT
                If Not IsNull(LineInfo(i).START_DEEP) Then conSQL.rs.Fields("S_Deep").Value = LineInfo(i).START_DEEP
                If Not IsNull(LineInfo(i).END_DEEP) Then conSQL.rs.Fields("E_Deep").Value = LineInfo(i).END_DEEP
                If LineInfo(i).MATERIAL <> "" Then conSQL.rs.Fields("Material").Value = LineInfo(i).MATERIAL
                If LineInfo(i).D_TYPE <> "" Then conSQL.rs.Fields("Transect_Type").Value = LineInfo(i).D_TYPE
                If LineInfo(i).Pipe_Dia <> "" Then conSQL.rs.Fields("Pipe_Dia").Value = LineInfo(i).Pipe_Dia
                If LineInfo(i).M_DATE <> "" Then conSQL.rs.Fields("M_Date").Value = LineInfo(i).M_DATE
                If LineInfo(i).B_CODE <> "" Then conSQL.rs.Fields("B_Code").Value = LineInfo(i).B_CODE
                If LineInfo(i).LINE_STYLE <> "" Then conSQL.rs.Fields("Line_Style").Value = LineInfo(i).LINE_STYLE
                If Not IsNull(LineInfo(i).LENGTH) Then conSQL.rs.Fields("Length").Value = LineInfo(i).LENGTH
                If LineInfo(i).STREET <> "" Then conSQL.rs.Fields("Street_No").Value = LineInfo(i).STREET
                If LineInfo(i).M_STYLE <> "" Then conSQL.rs.Fields("M_Style").Value = LineInfo(i).M_STYLE
                If LineInfo(i).Remark <> "" Then conSQL.rs.Fields("Remark").Value = LineInfo(i).Remark
                conSQL.rs.Update
                procBar.Value = i / count * 100
            Next i
            conSQL.cloRs
            conSQL.cloCn
        End If
        lblResult.Caption = "当前状态: 正在读取水表数据,请稍候!"
        dbStr = "select * from BInfo"
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & txtFile & "';Persist Security Info=False"
        .RecordSource = dbStr
        .Refresh
        count = .Recordset.RecordCount
        If count > 0 Then
            ReDim BiaoInfo(count) As BiaoStruct
            .Recordset.MoveFirst
            For i = 1 To count
                If Not IsNull(.Recordset.Fields("WellNum").Value) Then BiaoInfo(i).WellNum = .Recordset.Fields("WellNum").Value
                If Not IsNull(.Recordset.Fields("PointNum").Value) Then BiaoInfo(i).PointNum = .Recordset.Fields("PointNum").Value
                If Not IsNull(.Recordset.Fields("BNum").Value) Then BiaoInfo(i).BNum = .Recordset.Fields("BNum").Value
                If Not IsNull(.Recordset.Fields("BType").Value) Then BiaoInfo(i).BType = .Recordset.Fields("BType").Value
                If Not IsNull(.Recordset.Fields("BPia").Value) Then BiaoInfo(i).BPia = .Recordset.Fields("BPia").Value
                If Not IsNull(.Recordset.Fields("BConnect").Value) Then BiaoInfo(i).BConnect = .Recordset.Fields("BConnect").Value
                If Not IsNull(.Recordset.Fields("BMade").Value) Then BiaoInfo(i).BMade = .Recordset.Fields("BMade").Value
                If Not IsNull(.Recordset.Fields("BUnit").Value) Then BiaoInfo(i).BUnit = .Recordset.Fields("BUnit").Value
                If Not IsNull(.Recordset.Fields("FType").Value) Then BiaoInfo(i).FType = .Recordset.Fields("FType").Value
                If Not IsNull(.Recordset.Fields("Repair").Value) Then BiaoInfo(i).Repair = .Recordset.Fields("Repair").Value
                If Not IsNull(.Recordset.Fields("Remark").Value) Then BiaoInfo(i).Remark = .Recordset.Fields("Remark").Value
                .Recordset.MoveNext
                procBar.Value = i / count * 100
            Next i
            lblResult.Caption = "当前状态: 正在写入水表数据,请稍候!"
            conSQL.OpenCn ServerName
            conSQL.openRs dbStr
            For i = 1 To count
                'conSQL.rs.MoveLast
                conSQL.rs.AddNew
                conSQL.rs.Fields("Dwg_No").Value = DwgNo
                If BiaoInfo(i).WellNum <> "" Then conSQL.rs.Fields("WellNum").Value = BiaoInfo(i).WellNum
                If BiaoInfo(i).PointNum <> "" Then conSQL.rs.Fields("PointNum").Value = BiaoInfo(i).PointNum
                If BiaoInfo(i).BNum <> "" Then conSQL.rs.Fields("BNum").Value = BiaoInfo(i).BNum
                If BiaoInfo(i).BType <> "" Then conSQL.rs.Fields("BType").Value = BiaoInfo(i).BType
                If Not IsNull(BiaoInfo(i).BPia) Then conSQL.rs.Fields("BPia").Value = BiaoInfo(i).BPia
                If BiaoInfo(i).BConnect <> "" Then conSQL.rs.Fields("BConnect").Value = BiaoInfo(i).BConnect
                If BiaoInfo(i).BMade <> "" Then conSQL.rs.Fields("BMade").Value = BiaoInfo(i).BMade
                If BiaoInfo(i).BUnit <> "" Then conSQL.rs.Fields("BUnit").Value = BiaoInfo(i).BUnit
                If BiaoInfo(i).FType <> "" Then conSQL.rs.Fields("FType").Value = BiaoInfo(i).FType
                If BiaoInfo(i).Repair <> "" Then conSQL.rs.Fields("Repair").Value = BiaoInfo(i).Repair
                If BiaoInfo(i).Remark <> "" Then conSQL.rs.Fields("Remark").Value = BiaoInfo(i).Remark
                conSQL.rs.Update
                procBar.Value = i / count * 100
            Next i
            conSQL.cloRs
            conSQL.cloCn
        End If
        lblResult.Caption = "当前状态: 正在读取阀门数据,请稍候!"
        dbStr = "select * from FInfo"
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & txtFile & "';Persist Security Info=False"
        .RecordSource = dbStr
        .Refresh
        count = .Recordset.RecordCount
        If count > 0 Then
            ReDim FaInfo(count) As FaStruct
            .Recordset.MoveFirst
            For i = 1 To count
                If Not IsNull(.Recordset.Fields("PointNum").Value) Then FaInfo(i).PointNum = .Recordset.Fields("PointNum").Value
                If Not IsNull(.Recordset.Fields("State").Value) Then FaInfo(i).State = .Recordset.Fields("State").Value
                If Not IsNull(.Recordset.Fields("FType").Value) Then FaInfo(i).FType = .Recordset.Fields("FType").Value
                If Not IsNull(.Recordset.Fields("FMade").Value) Then FaInfo(i).FMade = .Recordset.Fields("FMade").Value
                If Not IsNull(.Recordset.Fields("Repair").Value) Then FaInfo(i).Repair = .Recordset.Fields("Repair").Value
                If Not IsNull(.Recordset.Fields("Remark").Value) Then FaInfo(i).Remark = .Recordset.Fields("Remark").Value
                .Recordset.MoveNext
                procBar.Value = i / count * 100
            Next i
            lblResult.Caption = "当前状态: 正在写入阀门数据,请稍候!"
            conSQL.OpenCn ServerName
            conSQL.openRs dbStr
            For i = 1 To count
                'conSQL.rs.MoveLast
                conSQL.rs.AddNew
                conSQL.rs.Fields("Dwg_No").Value = DwgNo
                If FaInfo(i).PointNum <> "" Then conSQL.rs.Fields("PointNum").Value = FaInfo(i).PointNum
                If Not IsNull(FaInfo(i).State) Then conSQL.rs.Fields("State").Value = FaInfo(i).State
                If FaInfo(i).FType <> "" Then conSQL.rs.Fields("FType").Value = FaInfo(i).FType
                If FaInfo(i).FMade <> "" Then conSQL.rs.Fields("FMade").Value = FaInfo(i).FMade
                If FaInfo(i).Repair <> "" Then conSQL.rs.Fields("Repair").Value = FaInfo(i).Repair
                If FaInfo(i).Remark <> "" Then conSQL.rs.Fields("Remark").Value = FaInfo(i).Remark
                conSQL.rs.Update
                procBar.Value = i / count * 100
            Next i
            conSQL.cloRs
            conSQL.cloCn
        End If
    End With
    lblResult.Caption = "当前状态: 操作完成!"
End Sub

Private Sub cmdView_Click()
    comDLG.DialogTitle = "选择文件"
    comDLG.Filter = "Acess数据文件(*.mdb)|*.mdb"
    comDLG.InitDir = App.Path
    comDLG.ShowOpen
    txtFile = comDLG.FileName
End Sub

Private Sub Form_Load()
    lblResult.Caption = "当前状态: 等待操作!"
    
    ListView1.View = lvwReport
    
    Dim colX As Object
    Set colX = ListView1.ColumnHeaders.Add(1)
    colX.Text = "文件编号"
    colX.Width = ListView1.Width / 4
    Set colX = ListView1.ColumnHeaders.Add(2)
    colX.Text = "文件名称"
    colX.Width = ListView1.Width / 4 * 3 - 50
    ShowRecord
    
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
End Sub

Private Sub ShowRecord()
    Dim dbStr As String
    Dim i As Integer
    Dim newItem As ListItem
    
    ListView1.ListItems.Clear
    ServerName = GetKeyValue(HKEY_LOCAL_MACHINE, "software\CXSOFT", "ServerName")
    dbStr = "select Dwg_No,Name from FileTable order by Dwg_No"
    conSQL.OpenCn ServerName
    conSQL.openRs dbStr
    If conSQL.rs.RecordCount > 0 Then conSQL.rs.MoveFirst
    ReDim FileInfo(conSQL.rs.RecordCount) As FileStruct
    FileInfo(0).no = conSQL.rs.RecordCount
    For i = 1 To conSQL.rs.RecordCount
        Set newItem = ListView1.ListItems.Add()
        newItem.Text = conSQL.rs.Fields("Dwg_No").Value
        newItem.SubItems(1) = LTrim(RTrim(conSQL.rs.Fields("Name").Value))
        FileInfo(i).no = conSQL.rs.Fields("Dwg_No").Value
        FileInfo(i).name = conSQL.rs.Fields("Name").Value
        conSQL.rs.MoveNext
    Next i
    conSQL.cloRs
    conSQL.cloCn
End Sub