📄 frmmain.frm
字号:
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSComctlLib.ImageList ImageList1
Left = 8910
Top = 90
_ExtentX = 1005
_ExtentY = 1005
BackColor = 16711680
ImageWidth = 20
ImageHeight = 20
MaskColor = 16711680
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 24
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":1A0B
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":1B8D
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":20CF
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":2611
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":2B53
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":2C5D
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":38CF
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":3D21
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":48F3
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":4D45
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":5197
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":55E9
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":5A3B
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":5E8D
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":655F
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":69B1
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":6E03
Key = ""
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":74FD
Key = ""
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":80CF
Key = ""
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":88A9
Key = ""
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":8CFB
Key = ""
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":8E55
Key = ""
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":BCDF
Key = ""
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":BDF1
Key = ""
EndProperty
EndProperty
End
End
Begin VB.Menu File
Caption = "文件(&F)"
Begin VB.Menu print
Caption = "打印"
End
Begin VB.Menu fs1
Caption = "-"
End
Begin VB.Menu Exit
Caption = "退出"
Shortcut = ^E
End
End
Begin VB.Menu Work
Caption = "操作(&M)"
Begin VB.Menu Refresh
Caption = "刷新"
End
Begin VB.Menu ms2
Caption = "-"
End
Begin VB.Menu ShowAll
Caption = "全部显示"
End
Begin VB.Menu ms1
Caption = "-"
End
Begin VB.Menu DataInput
Caption = "信息录入(I)"
End
Begin VB.Menu ms3
Caption = "-"
End
Begin VB.Menu Query
Caption = "信息查询(Q)"
End
Begin VB.Menu SelectByID
Caption = "按编号查找"
End
End
Begin VB.Menu Settings
Caption = "设置(&S)"
Begin VB.Menu ModifyUser
Caption = "修改用户名"
End
Begin VB.Menu ModifyPassword
Caption = "修改密码"
End
End
Begin VB.Menu Database
Caption = "数据(&D)"
Visible = 0 'False
Begin VB.Menu Data_Init
Caption = "数据库初始化"
End
Begin VB.Menu Data_Back
Caption = "数据库备份"
End
End
Begin VB.Menu MHelp
Caption = "帮助(&H)"
Begin VB.Menu Help
Caption = "帮助"
Shortcut = ^H
End
Begin VB.Menu sh1
Caption = "-"
End
Begin VB.Menu About
Caption = "关于"
End
End
Begin VB.Menu menuInfo
Caption = "Info"
Visible = 0 'False
Begin VB.Menu Info
Caption = "详细信息"
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub About_Click()
frmAbout.Show vbModal, Me
End Sub
Private Sub Data_Back_Click()
FrmDataBack.Show
End Sub
Private Sub DataGrid1_DblClick()
FrmInput.Show
End Sub
Private Sub DataGrid2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu menuInfo
End If
End Sub
Private Sub DataInput_Click()
FrmInput.Show
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("确实要退出吗？", vbOKCancel, "警告") = vbOK Then
If UseGame = True Then
Kill App.Path & "\tmp.exe"
End If
Unload Me
Else
Cancel = -1
End If
End Sub
Private Sub Form_Resize()
If Me.ScaleWidth <> 0 Then
SSTab1.Move Me.ScaleLeft, Toolbar1.Height, Me.ScaleWidth, Me.ScaleHeight - Toolbar1.Height - StatusBar1.Height
DataGrid1.Move SSTab1.Left + 100, SSTab1.Top, SSTab1.Left + SSTab1.Width - 300, SSTab1.Top + SSTab1.Height - 1350
DataGrid2.Move SSTab1.Left + 100, SSTab1.Top, SSTab1.Left + SSTab1.Width - 300, SSTab1.Top + SSTab1.Height - 1350
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
Else
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
For i = Forms.Count - 1 To 1 Step -1
Unload Forms(i)
Next
End Sub
Private Sub Help_Click()
Shell "hh.exe " & App.Path & "\Help.chm", vbNormalFocus
End Sub
Private Sub Info_Click()
On Error Resume Next
curRecord = AdoQuery.Recordset.AbsolutePosition - 1
FrmInfo.AdoQuery2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mgydb.mdb;Persist Security Info=False"
FrmInfo.AdoQuery2.CommandType = adCmdText
FrmInfo.AdoQuery2.RecordSource = SearchStr2
FrmInfo.AdoQuery2.Refresh
FrmInfo.AdoQuery2.Recordset.Move curRecord
FrmInfo.LblAll.Caption = FrmInfo.AdoQuery2.Recordset.RecordCount
FrmInfo.LblCur.Caption = FrmInfo.AdoQuery2.Recordset.Bookmark
FrmInfo.Show
ShowImage FrmInfo.Image1, FrmInfo.AdoQuery2
End Sub
Private Sub ModifyPassword_Click()
FrmMdfPw.Show vbModal, Me
End Sub
Private Sub ModifyUser_Click()
FrmMdfUser.Show vbModal, Me
End Sub
Private Sub print_Click()
On Error Resume Next
Dim xla As Excel.Application
Dim xlb As Workbook
Dim xlc As Worksheet
If SSTab1.Tab = 0 Then
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -