📄 hyxx.frm
字号:
_ExtentY = 556
Text = "2005-10-24"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Value = 38649
End
Begin VB.TextBox txt_aihao
Appearance = 0 'Flat
BackColor = &H00F4E6B9&
Height = 975
Left = 960
TabIndex = 9
Top = 1440
Width = 2055
End
Begin VB.TextBox txt_memo
Appearance = 0 'Flat
BackColor = &H00F4E6B9&
Height = 975
Left = 3720
TabIndex = 8
Top = 1440
Width = 3015
End
Begin VB.TextBox txt_address
Appearance = 0 'Flat
BackColor = &H00F4E6B9&
Height = 270
Left = 3000
TabIndex = 7
Top = 1080
Width = 3735
End
Begin VB.TextBox txt_youbian
Appearance = 0 'Flat
BackColor = &H00F4E6B9&
Height = 270
Left = 3600
TabIndex = 6
Top = 720
Width = 1095
End
Begin VB.TextBox txt_tel
Appearance = 0 'Flat
BackColor = &H00F4E6B9&
Height = 270
Left = 960
TabIndex = 5
Top = 720
Width = 1935
End
Begin VB.TextBox txt_user
Appearance = 0 'Flat
BackColor = &H00F4E6B9&
Height = 270
Left = 960
TabIndex = 4
Top = 360
Width = 1215
End
Begin VB.ComboBox Com_work
Height = 300
Left = 5280
TabIndex = 3
Text = "Combo1"
Top = 360
Width = 1455
End
Begin VB.ComboBox com_zy
Height = 300
Left = 5640
TabIndex = 2
Text = "Combo1"
Top = 720
Width = 1095
End
Begin VB.ComboBox Com_sex
Height = 300
Left = 2880
TabIndex = 1
Text = "Combo1"
Top = 360
Width = 1215
End
Begin VB.Label Label9
BackColor = &H00FFFFFF&
Caption = "会员资料"
Height = 255
Left = 480
TabIndex = 39
Top = 0
Width = 735
End
Begin VB.Shape Shape2
BorderColor = &H00FFFFFF&
Height = 2415
Left = 360
Top = 120
Width = 6615
End
Begin VB.Shape Shape1
BorderColor = &H00808080&
BorderWidth = 2
Height = 2415
Left = 360
Top = 120
Width = 6615
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "备注:"
Height = 255
Left = 3120
TabIndex = 25
Top = 1800
Width = 615
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "姓名:"
ForeColor = &H00000000&
Height = 255
Left = 480
TabIndex = 19
Top = 360
Width = 495
End
Begin VB.Label txt_zy
BackStyle = 0 'Transparent
Caption = "重要程度:"
ForeColor = &H00000000&
Height = 255
Left = 4800
TabIndex = 18
Top = 720
Width = 855
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "爱好:"
ForeColor = &H00000000&
Height = 255
Left = 480
TabIndex = 17
Top = 1680
Width = 495
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "地址:"
ForeColor = &H00400000&
Height = 255
Left = 2520
TabIndex = 16
Top = 1155
Width = 495
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "生日:"
ForeColor = &H00000000&
Height = 255
Left = 480
TabIndex = 15
Top = 1200
Width = 495
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "邮编:"
ForeColor = &H00000000&
Height = 255
Left = 3000
TabIndex = 14
Top = 720
Width = 495
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "电话:"
ForeColor = &H00000000&
Height = 255
Left = 480
TabIndex = 13
Top = 720
Width = 495
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "工作类别:"
ForeColor = &H00000000&
Height = 255
Left = 4440
TabIndex = 12
Top = 360
Width = 855
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "性别:"
ForeColor = &H00000000&
Height = 255
Left = 2280
TabIndex = 11
Top = 360
Width = 495
End
End
End
Attribute VB_Name = "hyxx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Frame3_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Form_Load()
start
End Sub
Private Sub isButton2_Click()
sy.Show
Unload Me
End Sub
Private Sub isButton3_Click()
hygl.Show
Unload Me
End Sub
Private Sub isButton4_Click()
yyhz.Show
Unload Me
End Sub
Private Sub isButton5_Click()
srts.Show
Unload Me
End Sub
Sub start()
Dim conn As ADODB.Connection '定义ADO链接conn
Dim rs As ADODB.Recordset '定义ADO记录集rs
Dim str As String
Dim StrConnect As String '定义
StrConnect = App.Path
If Right(StrConnect, 1) <> "\" Then StrConnect = StrConnect + "\"
StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & StrConnect & "\data\kq.mdb"
Adodc1.ConnectionString = StrConnect
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM [会员管理]"
Adodc1.Refresh
Adodc1.Recordset.Move srts.Text3.Text
txt_user.Text = Adodc1.Recordset.Fields("姓名") & vbNullString
Com_sex.Text = Adodc1.Recordset.Fields("性别") & vbNullString
txt_tel.Text = Adodc1.Recordset.Fields("电话") & vbNullString
txt_youbian.Text = Adodc1.Recordset.Fields("邮编") & vbNullString
com_zy.Text = Adodc1.Recordset.Fields("重要程度") & vbNullString
shengri.Text = Adodc1.Recordset.Fields("生日") & vbNullString
Com_work.Text = Adodc1.Recordset.Fields("工作类型") & vbNullString
txt_address.Text = Adodc1.Recordset.Fields("地址") & vbNullString
txt_aihao.Text = Adodc1.Recordset.Fields("爱好") & vbNullString
txt_memo.Text = Adodc1.Recordset.Fields("备注") & vbNullString
txt_cishu.Text = Adodc1.Recordset.Fields("消费次数") & vbNullString
txt_yue.Text = Adodc1.Recordset.Fields("总余额") & vbNullString
txt_jine.Text = Adodc1.Recordset.Fields("消费金额") & vbNullString
txt_shangci.Text = Adodc1.Recordset.Fields("上次消费") & vbNullString
com_manyi.Text = Adodc1.Recordset.Fields("满意度") & vbNullString
End Sub
Sub start1()
Dim conn As ADODB.Connection '定义ADO链接conn
Dim rs As ADODB.Recordset '定义ADO记录集rs
Dim str As String
Dim StrConnect As String '定义
StrConnect = App.Path
If Right(StrConnect, 1) <> "\" Then StrConnect = StrConnect + "\"
StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & StrConnect & "\data\kq.mdb"
Adodc1.ConnectionString = StrConnect
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM [会员管理]"
Adodc1.Refresh
txt_user.Text = Adodc1.Recordset.Fields("姓名") & vbNullString
Com_sex.Text = Adodc1.Recordset.Fields("性别") & vbNullString
txt_tel.Text = Adodc1.Recordset.Fields("电话") & vbNullString
txt_youbian.Text = Adodc1.Recordset.Fields("邮编") & vbNullString
com_zy.Text = Adodc1.Recordset.Fields("重要程度") & vbNullString
shengri.Text = Adodc1.Recordset.Fields("生日") & vbNullString
Com_work.Text = Adodc1.Recordset.Fields("工作类型") & vbNullString
txt_address.Text = Adodc1.Recordset.Fields("地址") & vbNullString
txt_aihao.Text = Adodc1.Recordset.Fields("爱好") & vbNullString
txt_memo.Text = Adodc1.Recordset.Fields("备注") & vbNullString
txt_cishu.Text = Adodc1.Recordset.Fields("消费次数") & vbNullString
txt_yue.Text = Adodc1.Recordset.Fields("总余额") & vbNullString
txt_jine.Text = Adodc1.Recordset.Fields("消费金额") & vbNullString
txt_shangci.Text = Adodc1.Recordset.Fields("上次消费") & vbNullString
com_manyi.Text = Adodc1.Recordset.Fields("满意度") & vbNullString
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -