📄 formxzyh.frm
字号:
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 21
Top = 1125
Width = 735
End
Begin VB.Label Label3
Caption = "用户单位"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 20
Top = 765
Width = 855
End
Begin VB.Label Label2
Caption = "拼 音 码"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3000
TabIndex = 19
Top = 405
Width = 735
End
Begin VB.Label Label1
Caption = "联 系 人"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 18
Top = 405
Width = 735
End
End
Begin VB.TextBox txtBZ
Height = 320
Left = 1305
TabIndex = 15
Top = 5160
Width = 7110
End
Begin VB.TextBox txtJDR
Enabled = 0 'False
Height = 320
Left = 6720
TabIndex = 2
Top = 1080
Width = 1455
End
Begin VB.TextBox txtGJRQ
Height = 320
Left = 4080
TabIndex = 1
Top = 1080
Width = 1455
End
Begin VB.TextBox txtYHID
Enabled = 0 'False
Height = 320
Left = 1320
TabIndex = 0
Top = 1080
Width = 1575
End
Begin VB.Image Image1
Height = 240
Left = 480
Picture = "FormXZYH.frx":0000
Top = 1080
Width = 240
End
Begin VB.Label Label11
Caption = "建 档 人"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5880
TabIndex = 28
Top = 1125
Width = 855
End
Begin VB.Label Label10
Caption = "购机日期"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3240
TabIndex = 27
Top = 1125
Width = 735
End
Begin VB.Label Label9
Caption = "编号"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 825
TabIndex = 26
Top = 1125
Width = 435
End
Begin VB.Label Label8
Caption = "备注"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 855
TabIndex = 25
Top = 5205
Width = 405
End
End
Attribute VB_Name = "FormXZYH"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'作者：alibaba-cjw
'发布日期：2006/11/11
'描 述：客户信息管理系统
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Sub cmdEXIT_Click()
Unload Me
End Sub
Private Sub cmdSAVA_Click()
'数据校验~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
If txtGJRQ.Text = "" Then
MsgBox "购机日期不能为空！", 48, "错误提示"
txtGJRQ.SetFocus
Exit Sub
End If
If txtLXR.Text = "" Then
MsgBox "联系人不能为空！", 48, "错误提示"
txtLXR.SetFocus
Exit Sub
End If
If txtYHDH.Text = "" And txtYHSJ.Text = "" Then
MsgBox "用户电话或手机必须填写一项！", 48, "错误提示"
txtYHDH.SetFocus
Exit Sub
End If
If txtZJXH.Text = "" Then
MsgBox "主机型号不能为空！", 48, "错误提示"
txtZJXH.SetFocus
Exit Sub
End If
If txtZJBH.Text = "" Then
MsgBox "主机编号不能为空！", 48, "错误提示"
txtZJBH.SetFocus
Exit Sub
End If
'添加数据~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Call OpenConn
sql = "select * from yhda"
rs.Open sql, cn, 3, 3
rs.AddNew
rs.Fields("yhid") = txtYHID.Text
rs.Fields("lxr") = txtLXR.Text
rs.Fields("pym") = txtPYM.Text
rs.Fields("yhlx") = Me.Combo1.Text
rs.Fields("yhdw") = txtYHDW.Text
rs.Fields("yhdz") = txtYHDZ.Text
rs.Fields("yzbm") = txtYZBM.Text
rs.Fields("yhdh") = txtYHDH.Text
rs.Fields("yhsj") = txtYHSJ.Text
rs.Fields("zjxh") = txtZJXH.Text
rs.Fields("zjbh") = txtZJBH.Text
rs.Fields("xsqxh") = txtXSQXH.Text
rs.Fields("xsqbh") = txtXSQBH.Text
rs.Fields("gjrq") = txtGJRQ.Text
rs.Fields("jdr") = txtJDR.Text
rs.Fields("bz") = txtBZ.Text
rs.Update
Call CloseConn
'保存结束~~~~~~~~~~~~~~~~~~~~~~~~~~~
'更新formZY listview~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
FormZY.cmdCZ = True
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~`
Call zdbh
txtLXR.Text = ""
txtPYM.Text = ""
Me.Combo1.Clear
txtYHDW.Text = ""
txtYHDZ.Text = ""
txtYZBM.Text = ""
txtYHDH.Text = ""
txtYHSJ.Text = ""
txtZJXH.Text = ""
txtZJBH.Text = ""
txtXSQXH.Text = ""
txtXSQBH.Text = ""
txtGJRQ.Text = ""
txtBZ.Text = ""
Me.Combo1.AddItem "个人"
Me.Combo1.AddItem "单位"
txtZJBH.BackColor = &H80000005
End Sub
Private Sub Form_Load()
'添加下拉列表~~~~~~~~~~~~~~~~~
Me.Combo1.AddItem "个人"
Me.Combo1.AddItem "单位"
'自动编号~~~~~~~~~~~~~~
Call zdbh
Me.Picture1.Picture = LoadPicture(App.Path & "\bg\bg3.bmp")
Me.Caption = xtmc
Me.Icon = FormZY.Icon
txtJDR.Text = czy
End Sub
Private Sub txtGJRQ_LostFocus()
'~~~~~~~~~~日期格式~~~~~~~~~~~~~~~~
If IsDate(txtGJRQ.Text) Then
txtGJRQ = Format(txtGJRQ.Text, "yyyy-mm-dd")
Else
txtGJRQ = ""
End If
End Sub
Private Sub txtLXR_LostFocus()
'获得用户名拼音码~~~~~~~~~~~~~~~~~~~`
Dim a As Integer
txtPYM.Text = ""
a = Len(txtLXR.Text)
For i = 1 To a
txtPYM.Text = txtPYM.Text & py(Mid(txtLXR.Text, i, 1))
Next i
End Sub
Private Sub txtZJBH_Change()
'~~~~~~~~~~~~~验证文本有效性~~~~~~~~~~~~~~~~~~~~
If Len(txtZJBH.Text) = 16 Or Len(txtZJBH.Text) = 18 Then
txtZJBH.BackColor = &H80000005
Else
txtZJBH.BackColor = &H80C0FF
End If
End Sub
Private Sub txtZJBH_GotFocus()
'~~~~~~~~~~~~~验证文本有效性~~~~~~~~~~~~~~~~~~~~
If Len(txtZJBH.Text) = 16 Or Len(txtZJBH.Text) = 18 Then
txtZJBH.BackColor = &H80000005
Else
txtZJBH.BackColor = &H80C0FF
End If
End Sub
Private Sub zdbh()
'自动编号~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Call OpenConn
sql = "select yhid from yhda ORDER BY yhid"
rs.Open sql, cn, 1, 1
If rs.RecordCount > 0 Then
rs.MoveLast
txtYHID.Text = "YH" & Format(Val(Right(rs.Fields("yhid"), 5) + 1), "00000")
Else
txtYHID.Text = "YH00001"
End If
Call CloseConn
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -