?? 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 + -