📄 frmmain.frm

📁 婚姻介绍所管理信息系统
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
        DataGrid1.Columns.Item(8).Width = 500
        DataGrid1.Columns.Item(9).Width = 600
        DataGrid1.Columns.Item(10).Width = 1700
        DataGrid1.Columns.Item(11).Width = 700
        DataGrid1.Columns.Item(12).Width = 600
        DataGrid1.Columns.Item(13).Width = 4900
        DataGrid1.Columns.Item(14).Width = 1000

        If Not AdoMain.Recordset.EOF Then
            Set xla = New Excel.Application
            Set xlb = xla.Workbooks.Add
            Set xlc = xlb.Worksheets.Add
            xlc.Activate
            xlc.Rows.Delete
            xlc.Range("a1").Borders.Value = 1
            xlc.Range("b1").Borders.Value = 1
            xlc.Range("c1").Borders.Value = 1
            xlc.Range("d1").Borders.Value = 1
            xlc.Range("e1").Borders.Value = 1
            xlc.Range("f1").Borders.Value = 1
            xlc.Range("g1").Borders.Value = 1
            xlc.Range("h1").Borders.Value = 1
            xlc.Range("i1").Borders.Value = 1
            xlc.Range("j1").Borders.Value = 1
            xlc.Range("k1").Borders.Value = 1
            xlc.Range("l1").Borders.Value = 1
            xlc.Range("m1").Borders.Value = 1
            xlc.Range("n1").Borders.Value = 1
            
            xlc.Range("a1") = "编号"
            xlc.Range("b1") = "年龄"
            xlc.Range("c1") = "属相"
            xlc.Range("d1") = "身高"
            xlc.Range("e1") = "体重"
            xlc.Range("f1") = "学历"
            xlc.Range("g1") = "职业"
            xlc.Range("h1") = "收入"
            xlc.Range("i1") = "住房"
            xlc.Range("j1") = "婚姻"
            xlc.Range("k1") = "孩子"
            xlc.Range("l1") = "户口"
            xlc.Range("m1") = "要求对方"
            xlc.Range("n1") = "交往情况"
            Dim i As Integer
            For i = 2 To AdoMain.Recordset.RecordCount + 1
                xlc.Range("a" & i).Borders.Value = 1
                xlc.Range("b" & i).Borders.Value = 1
                xlc.Range("c" & i).Borders.Value = 1
                xlc.Range("d" & i).Borders.Value = 1
                xlc.Range("d" & i).NumberFormat = "#.##"
                xlc.Range("e" & i).Borders.Value = 1
                xlc.Range("f" & i).Borders.Value = 1
                xlc.Range("g" & i).Borders.Value = 1
                xlc.Range("h" & i).Borders.Value = 1
                xlc.Range("i" & i).Borders.Value = 1
                xlc.Range("j" & i).Borders.Value = 1
                xlc.Range("k" & i).Borders.Value = 1
                xlc.Range("l" & i).Borders.Value = 1
                xlc.Range("m" & i).Borders.Value = 1
                xlc.Range("n" & i).Borders.Value = 1
                
                xlc.Range("a" & i) = AdoMain.Recordset("编号")
                xlc.Range("b" & i) = AdoMain.Recordset("年龄")
                xlc.Range("c" & i) = AdoMain.Recordset("属相")
                xlc.Range("d" & i) = AdoMain.Recordset("身高")
                xlc.Range("e" & i) = AdoMain.Recordset("体重")
                xlc.Range("f" & i) = AdoMain.Recordset("学历")
                xlc.Range("g" & i) = AdoMain.Recordset("职业")
                xlc.Range("h" & i) = AdoMain.Recordset("收入")
                xlc.Range("i" & i) = AdoMain.Recordset("住房")
                xlc.Range("j" & i) = AdoMain.Recordset("婚姻")
                xlc.Range("k" & i) = AdoMain.Recordset("孩子")
                xlc.Range("l" & i) = AdoMain.Recordset("户口")
                xlc.Range("m" & i) = AdoMain.Recordset("要求对方")
                xlc.Range("n" & i) = AdoMain.Recordset("交往情况")
                AdoMain.Recordset.MoveNext
            Next i
            xlc.Columns.AutoFit
            xlc.Activate
            xla.Visible = True
        Else
            MsgBox "没有满足条件的记录!", vbInformation + vbOKOnly, "提示"
        End If
    Else
        AdoQuery.RecordSource = SearchStr
        AdoQuery.Refresh
        If HasQuery = True Then
            FrmMain.DataGrid2.Columns.Item(0).Width = 550
            FrmMain.DataGrid2.Columns.Item(1).Width = 400
            FrmMain.DataGrid2.Columns.Item(2).Width = 400
            FrmMain.DataGrid2.Columns.Item(3).Width = 500
            FrmMain.DataGrid2.Columns.Item(4).Width = 500
            FrmMain.DataGrid2.Columns.Item(5).Width = 500
            FrmMain.DataGrid2.Columns.Item(6).Width = 1000
            FrmMain.DataGrid2.Columns.Item(7).Width = 600
            FrmMain.DataGrid2.Columns.Item(8).Width = 500
            FrmMain.DataGrid2.Columns.Item(9).Width = 600
            FrmMain.DataGrid2.Columns.Item(10).Width = 1700
            FrmMain.DataGrid2.Columns.Item(11).Width = 700
            FrmMain.DataGrid2.Columns.Item(12).Width = 600
            FrmMain.DataGrid2.Columns.Item(13).Width = 4900
            FrmMain.DataGrid2.Columns.Item(14).Width = 1000
        End If
        If Not AdoQuery.Recordset.EOF Then
            Set xla = New Excel.Application
            Set xlb = xla.Workbooks.Add
            Set xlc = xlb.Worksheets.Add
            xlc.Activate
            xlc.Rows.Delete
            xlc.Range("a1").Borders.Value = 1
            xlc.Range("b1").Borders.Value = 1
            xlc.Range("c1").Borders.Value = 1
            xlc.Range("d1").Borders.Value = 1
            xlc.Range("e1").Borders.Value = 1
            xlc.Range("f1").Borders.Value = 1
            xlc.Range("g1").Borders.Value = 1
            xlc.Range("h1").Borders.Value = 1
            xlc.Range("i1").Borders.Value = 1
            xlc.Range("j1").Borders.Value = 1
            xlc.Range("k1").Borders.Value = 1
            xlc.Range("l1").Borders.Value = 1
            xlc.Range("m1").Borders.Value = 1
            xlc.Range("n1").Borders.Value = 1
            xlc.Range("a1") = "编号"
            xlc.Range("b1") = "年龄"
            xlc.Range("c1") = "属相"
            xlc.Range("d1") = "身高"
            xlc.Range("e1") = "体重"
            xlc.Range("f1") = "学历"
            xlc.Range("g1") = "职业"
            xlc.Range("h1") = "收入"
            xlc.Range("i1") = "住房"
            xlc.Range("j1") = "婚姻"
            xlc.Range("k1") = "孩子"
            xlc.Range("l1") = "户口"
            xlc.Range("m1") = "要求对方"
            xlc.Range("n1") = "交往情况"
            
            For i = 2 To AdoQuery.Recordset.RecordCount + 1
                xlc.Range("a" & i).Borders.Value = 1
                xlc.Range("b" & i).Borders.Value = 1
                xlc.Range("c" & i).Borders.Value = 1
                xlc.Range("d" & i).Borders.Value = 1
                xlc.Range("d" & i).NumberFormat = "#.##"
                xlc.Range("e" & i).Borders.Value = 1
                xlc.Range("f" & i).Borders.Value = 1
                xlc.Range("g" & i).Borders.Value = 1
                xlc.Range("h" & i).Borders.Value = 1
                xlc.Range("i" & i).Borders.Value = 1
                xlc.Range("j" & i).Borders.Value = 1
                xlc.Range("k" & i).Borders.Value = 1
                xlc.Range("l" & i).Borders.Value = 1
                xlc.Range("m" & i).Borders.Value = 1
                xlc.Range("n" & i).Borders.Value = 1
                xlc.Range("a" & i) = AdoQuery.Recordset("编号")
                xlc.Range("b" & i) = AdoQuery.Recordset("年龄")
                xlc.Range("c" & i) = AdoQuery.Recordset("属相")
                xlc.Range("d" & i) = AdoQuery.Recordset("身高")
                xlc.Range("e" & i) = AdoQuery.Recordset("体重")
                xlc.Range("f" & i) = AdoQuery.Recordset("学历")
                xlc.Range("g" & i) = AdoQuery.Recordset("职业")
                xlc.Range("h" & i) = AdoQuery.Recordset("收入")
                xlc.Range("i" & i) = AdoQuery.Recordset("住房")
                xlc.Range("j" & i) = AdoQuery.Recordset("婚姻")
                xlc.Range("k" & i) = AdoQuery.Recordset("孩子")
                xlc.Range("l" & i) = AdoQuery.Recordset("户口")
                xlc.Range("m" & i) = AdoQuery.Recordset("要求对方")
                xlc.Range("n" & i) = AdoQuery.Recordset("交往情况")
                AdoQuery.Recordset.MoveNext
            Next i
            xlc.Columns.AutoFit
            xlc.Activate
            xla.Visible = True
        Else
            MsgBox "没有满足条件的记录!", vbInformation + vbOKOnly, "提示"
        End If
    End If
End Sub

Private Sub Query_Click()
    FrmQuery.Show
End Sub

Private Sub Refresh_Click()
    If SSTab1.Tab = 0 Then
        AdoMain.Refresh
    Else
        If AdoQuery.RecordSource <> "" Then
            AdoQuery.Refresh
        End If
    End If
    DataGrid1.Columns.Item(0).Width = 550
    DataGrid1.Columns.Item(1).Width = 400
    DataGrid1.Columns.Item(2).Width = 400
    DataGrid1.Columns.Item(3).Width = 500
    DataGrid1.Columns.Item(4).Width = 500
    DataGrid1.Columns.Item(5).Width = 500
    DataGrid1.Columns.Item(6).Width = 1000
    DataGrid1.Columns.Item(7).Width = 600
    DataGrid1.Columns.Item(8).Width = 500
    DataGrid1.Columns.Item(9).Width = 600
    DataGrid1.Columns.Item(10).Width = 1700
    DataGrid1.Columns.Item(11).Width = 700
    DataGrid1.Columns.Item(12).Width = 600
    DataGrid1.Columns.Item(13).Width = 4900
    DataGrid1.Columns.Item(14).Width = 1000
    If HasQuery = True Then
        FrmMain.DataGrid2.Columns.Item(0).Width = 550
        FrmMain.DataGrid2.Columns.Item(1).Width = 400
        FrmMain.DataGrid2.Columns.Item(2).Width = 400
        FrmMain.DataGrid2.Columns.Item(3).Width = 500
        FrmMain.DataGrid2.Columns.Item(4).Width = 500
        FrmMain.DataGrid2.Columns.Item(5).Width = 500
        FrmMain.DataGrid2.Columns.Item(6).Width = 1000
        FrmMain.DataGrid2.Columns.Item(7).Width = 600
        FrmMain.DataGrid2.Columns.Item(8).Width = 500
        FrmMain.DataGrid2.Columns.Item(9).Width = 600
        FrmMain.DataGrid2.Columns.Item(10).Width = 1700
        FrmMain.DataGrid2.Columns.Item(11).Width = 700
        FrmMain.DataGrid2.Columns.Item(12).Width = 600
        FrmMain.DataGrid2.Columns.Item(13).Width = 4900
        FrmMain.DataGrid2.Columns.Item(14).Width = 1000
    End If
    CountAll = AdoMain.Recordset.RecordCount
    StatusBar1.Panels.Item(2).Text = "共有" & CountAll & "条记录"
End Sub

Private Sub SelectByID_Click()
    FrmSelectByID.Show vbModal, Me
End Sub

Private Sub ShowAll_Click()
    SSTab1.Tab = 0
    FrmMain.AdoMain.RecordSource = "select 编号,年龄,属相,身高,体重,学历,职业,收入,住房,婚姻,孩子,户口,姓名,要求对方,交往情况 from mgydb order by 编号"
    AdoMain.Refresh
        
    DataGrid1.Columns.Item(0).Width = 550
    DataGrid1.Columns.Item(1).Width = 400
    DataGrid1.Columns.Item(2).Width = 400
    DataGrid1.Columns.Item(3).Width = 500
    DataGrid1.Columns.Item(4).Width = 500
    DataGrid1.Columns.Item(5).Width = 500
    DataGrid1.Columns.Item(6).Width = 1000
    DataGrid1.Columns.Item(7).Width = 600
    DataGrid1.Columns.Item(8).Width = 500
    DataGrid1.Columns.Item(9).Width = 600
    DataGrid1.Columns.Item(10).Width = 1700
    DataGrid1.Columns.Item(11).Width = 700
    DataGrid1.Columns.Item(12).Width = 600
    DataGrid1.Columns.Item(13).Width = 4900
    DataGrid1.Columns.Item(14).Width = 1000
    CountAll = AdoMain.Recordset.RecordCount
    StatusBar1.Panels.Item(2).Text = "共有" & CountAll & "条记录"
    
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
    If SSTab1.Tab = 0 Then
        DataGrid1.Visible = True
        DataGrid2.Visible = False
    Else
        DataGrid1.Visible = False
        DataGrid2.Visible = True
    End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
    Case 1
        print_Click
    Case 3
        DataInput_Click
    Case 4
        Query_Click
    Case 6
        If SSTab1.Tab = 0 Then
            AdoMain.Refresh
        Else
            If AdoQuery.RecordSource <> "" Then
                AdoQuery.Refresh
                StatusBar1.Panels.Item(3).Text = "共有 " & FrmMain.AdoQuery.Recordset.RecordCount & " 个符合条件的记录"
            End If
        End If
        
        DataGrid1.Columns.Item(0).Width = 550
        DataGrid1.Columns.Item(1).Width = 400
        DataGrid1.Columns.Item(2).Width = 400
        DataGrid1.Columns.Item(3).Width = 500
        DataGrid1.Columns.Item(4).Width = 500
        DataGrid1.Columns.Item(5).Width = 500
        DataGrid1.Columns.Item(6).Width = 1000
        DataGrid1.Columns.Item(7).Width = 600
        DataGrid1.Columns.Item(8).Width = 500
        DataGrid1.Columns.Item(9).Width = 600
        DataGrid1.Columns.Item(10).Width = 1700
        DataGrid1.Columns.Item(11).Width = 700
        DataGrid1.Columns.Item(12).Width = 600
        DataGrid1.Columns.Item(13).Width = 4900
        DataGrid1.Columns.Item(14).Width = 1000
        If HasQuery = True Then
            FrmMain.DataGrid2.Columns.Item(0).Width = 550
            FrmMain.DataGrid2.Columns.Item(1).Width = 400
            FrmMain.DataGrid2.Columns.Item(2).Width = 400
            FrmMain.DataGrid2.Columns.Item(3).Width = 500
            FrmMain.DataGrid2.Columns.Item(4).Width = 500
            FrmMain.DataGrid2.Columns.Item(5).Width = 500
            FrmMain.DataGrid2.Columns.Item(6).Width = 1000
            FrmMain.DataGrid2.Columns.Item(7).Width = 600
            FrmMain.DataGrid2.Columns.Item(8).Width = 500
            FrmMain.DataGrid2.Columns.Item(9).Width = 600
            FrmMain.DataGrid2.Columns.Item(10).Width = 1700
            FrmMain.DataGrid2.Columns.Item(11).Width = 700
            FrmMain.DataGrid2.Columns.Item(12).Width = 600
            FrmMain.DataGrid2.Columns.Item(13).Width = 4900
            FrmMain.DataGrid2.Columns.Item(14).Width = 1000
        End If
        CountAll = AdoMain.Recordset.RecordCount
        StatusBar1.Panels.Item(2).Text = "共有" & CountAll & "条记录"
    Case 7
        SSTab1.Tab = 0
        AdoMain.RecordSource = "select 编号,年龄,属相,身高,体重,学历,职业,收入,住房,婚姻,孩子,户口,姓名,要求对方,交往情况 from mgydb order by 编号"
        AdoMain.Refresh
            
        DataGrid1.Columns.Item(0).Width = 550
        DataGrid1.Columns.Item(1).Width = 400
        DataGrid1.Columns.Item(2).Width = 400
        DataGrid1.Columns.Item(3).Width = 500
        DataGrid1.Columns.Item(4).Width = 500
        DataGrid1.Columns.Item(5).Width = 500
        DataGrid1.Columns.Item(6).Width = 1000
        DataGrid1.Columns.Item(7).Width = 600
        DataGrid1.Columns.Item(8).Width = 500
        DataGrid1.Columns.Item(9).Width = 600
        DataGrid1.Columns.Item(10).Width = 1700
        DataGrid1.Columns.Item(11).Width = 700
        DataGrid1.Columns.Item(12).Width = 600
        DataGrid1.Columns.Item(13).Width = 4900
        DataGrid1.Columns.Item(14).Width = 1000
        CountAll = AdoMain.Recordset.RecordCount
        StatusBar1.Panels.Item(2).Text = "共有" & CountAll & "条记录"
    Case 8
        If HasQuery = True Then
            Info_Click
        Else
            MsgBox "请先进行查询，再点击“详细信息”！", vbOKOnly + vbInformation, "提示"
        End If
    Case 10
        FrmMdfUser.Show vbModal, Me
    Case 11
        FrmMdfPw.Show vbModal, Me
    Case 13
        Shell "hh.exe " & App.Path & "\Help.chm", vbNormalFocus
    End Select
End Sub
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -