📄 frm_zzrk_czfclgl.frm
字号:
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column09
DataField = "联系电话2"
Caption = "联系电话2"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column10
DataField = "牌照号"
Caption = "牌照号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column11
DataField = "备注"
Caption = "备注"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 2085.166
EndProperty
BeginProperty Column01
ColumnWidth = 2085.166
EndProperty
BeginProperty Column02
ColumnWidth = 2085.166
EndProperty
BeginProperty Column03
ColumnWidth = 2085.166
EndProperty
BeginProperty Column04
ColumnWidth = 2085.166
EndProperty
BeginProperty Column05
ColumnWidth = 2085.166
EndProperty
BeginProperty Column06
ColumnWidth = 2085.166
EndProperty
BeginProperty Column07
ColumnWidth = 2085.166
EndProperty
BeginProperty Column08
ColumnWidth = 2085.166
EndProperty
BeginProperty Column09
ColumnWidth = 2085.166
EndProperty
BeginProperty Column10
ColumnWidth = 2085.166
EndProperty
BeginProperty Column11
ColumnWidth = 2085.166
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 3
Top = 0
Width = 11880
_ExtentX = 20955
_ExtentY = 1164
ButtonWidth = 1984
ButtonHeight = 1005
Appearance = 1
TextAlignment = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 7
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "增加 "
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除 "
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改 "
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = " 查询 "
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷新 "
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印 "
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关闭 "
ImageIndex = 7
EndProperty
EndProperty
BorderStyle = 1
End
Begin VB.Menu gl
Caption = "管理(&G)"
Begin VB.Menu EDIT
Caption = "修改"
End
Begin VB.Menu ADD
Caption = "增加"
End
Begin VB.Menu DEL
Caption = "删除"
End
Begin VB.Menu AA
Caption = "-"
End
Begin VB.Menu DYYL
Caption = "打印预览"
End
Begin VB.Menu DYJSZ
Caption = "打印机设置"
End
End
Begin VB.Menu PRINT
Caption = "打印(&P)"
End
Begin VB.Menu tool
Caption = "工具(&T)"
Begin VB.Menu SJBF
Caption = "数据备份"
End
Begin VB.Menu SJHF
Caption = "数据恢复"
End
Begin VB.Menu BB
Caption = "-"
End
Begin VB.Menu CZYSZ
Caption = "操作员设置"
End
Begin VB.Menu MMXG
Caption = "操作员密码修改"
End
Begin VB.Menu GHCZY
Caption = "更换操作员"
End
End
Begin VB.Menu help
Caption = "帮助(&H)"
Begin VB.Menu FWWMDWZ
Caption = "访问我们的网站"
End
Begin VB.Menu GWMXX
Caption = "给我们写信"
End
Begin VB.Menu ABOUT
Caption = "关于 人口信息管理系统"
End
End
Begin VB.Menu EXIT
Caption = "退出(&E)"
End
End
Attribute VB_Name = "frm_ZZRK_CZFCLGL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ADD_Click()
frm_ZZRK_CLGL_ADD.Show
End Sub
Private Sub DEL_Click()
If Adodc1.Recordset.EOF = False Then
c = MsgBox("您确认要删除该记录吗?", 17, "人口信息管理系统")
If c = vbOK Then
Adodc1.Recordset.Delete
Adodc1.Refresh
Else
End If
Else
End If
End Sub
Private Sub DYJSZ_Click()
CommonDialog1.ShowPrinter
End Sub
Private Sub DYYL_Click()
DataEnvironment1.rsczfcl.Open "select * from Table_ZZRK_CLXX "
If DataEnvironment1.rsczfcl.RecordCount > 0 Then
DataRep_czfxx.Show
Else
MsgBox "没有出租房车辆信息", 32, "人口信息管理系统"
DataEnvironment1.rsczfcl.Close
End If
End Sub
Private Sub EDIT_Click()
frm_ZZRK_CLGL_CXXG.Show
frm_ZZRK_CLGL_CXXG.Caption = "车辆信息修改"
End Sub
Private Sub print_Click()
DataEnvironment1.rsczfcl.Open "select * from Table_ZZRK_CLXX "
If DataEnvironment1.rsczfcl.RecordCount > 0 Then
DataRep_czfxx.Show
Else
MsgBox "没有出租房车辆信息", 32, "人口信息管理系统"
DataEnvironment1.rsczfcl.Close
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
frm_ZZRK_CLGL_ADD.Show
Case 2
If Adodc1.Recordset.EOF = False Then
c = MsgBox("您确认要删除该记录吗?", 17, "人口信息管理系统")
If c = vbOK Then
Adodc1.Recordset.Delete
Adodc1.Refresh
Else
End If
Else
MsgBox "当前数据库中已经没有可删除的记录", 32, "人口信息管理系统"
End If
Case 3
frm_ZZRK_CLGL_CXXG.Show
frm_ZZRK_CLGL_CXXG.Caption = "车辆信息修改"
Case 4
frm_ZZRK_CLGL_CXXG.Show
frm_ZZRK_CLGL_CXXG.Caption = "车辆信息查询"
Case 5
Adodc1.RecordSource = "select * from Table_ZZRK_CLXX"
Adodc1.Refresh
Case 6
DataEnvironment1.rsczfcl.Open "select * from Table_ZZRK_CLXX "
If DataEnvironment1.rsczfcl.RecordCount > 0 Then
DataRep_czfxx.Show
Else
MsgBox "没有出租房车辆信息", 32, "人口信息管理系统"
DataEnvironment1.rsczfcl.Close
End If
Case 7
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -