📄 frmreaderaddinfo.frm
字号:
Caption = "*"
Height = 180
Index = 3
Left = 4920
TabIndex = 40
Top = 3420
Width = 90
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Caption = "*"
Height = 180
Index = 2
Left = 4920
TabIndex = 39
Top = 1980
Width = 90
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Caption = "*"
Height = 180
Index = 1
Left = 4920
TabIndex = 38
Top = 1500
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "读者编号："
Height = 180
Left = 360
TabIndex = 35
Top = 577
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "读者姓名："
Height = 180
Left = 360
TabIndex = 34
Top = 1050
Width = 900
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "读者性别："
Height = 180
Left = 360
TabIndex = 33
Top = 1530
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "读者类别："
Height = 180
Left = 360
TabIndex = 32
Top = 2010
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "出生日期："
Height = 180
Left = 360
TabIndex = 31
Top = 2490
Width = 900
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "办证日期："
Height = 180
Left = 360
TabIndex = 30
Top = 2970
Width = 900
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "读者状态："
Height = 180
Left = 360
TabIndex = 29
Top = 3450
Width = 900
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "证件名称："
Height = 180
Left = 360
TabIndex = 28
Top = 3930
Width = 900
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "证件号码："
Height = 180
Left = 360
TabIndex = 27
Top = 4410
Width = 900
End
Begin VB.Label Label13
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "读者单位："
Height = 180
Left = -74640
TabIndex = 26
Top = 570
Width = 900
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "读者部门："
Height = 180
Left = -74640
TabIndex = 25
Top = 1080
Width = 900
End
Begin VB.Label Label16
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "联系地址："
Height = 180
Left = -74640
TabIndex = 24
Top = 2160
Width = 900
End
Begin VB.Label Label17
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "电子邮件："
Height = 180
Left = -74640
TabIndex = 23
Top = 2604
Width = 900
End
Begin VB.Label Label18
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备 注："
Height = 180
Left = -74640
TabIndex = 22
Top = 3000
Width = 900
End
Begin VB.Label Label15
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "联系电话："
Height = 180
Left = -74640
TabIndex = 21
Top = 1639
Width = 900
End
Begin VB.Label Label19
BackStyle = 0 'Transparent
Caption = "*"
Height = 180
Left = 4920
TabIndex = 20
Top = 540
Width = 90
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Caption = "*"
Height = 180
Index = 0
Left = 4920
TabIndex = 14
Top = 1020
Width = 90
End
End
Begin VB.PictureBox Picbg1
Appearance = 0 'Flat
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1440
Left = 5400
Picture = "frmreaderaddinfo.frx":198D3
ScaleHeight = 1440
ScaleWidth = 1440
TabIndex = 37
Top = 480
Width = 1440
End
End
Attribute VB_Name = "frmreaderaddinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdclean_Click()
txt读者编号.Text = ""
txt读者姓名.Text = ""
DTP出生日期.Value = Trim(Year(Now)) & "-" & Trim(Month(Now)) & "-" & Trim(day(Now))
DTP办证日期.Value = Trim(Year(Now)) & "-" & Trim(Month(Now)) & "-" & Trim(day(Now))
txt证件名称.Text = ""
txt证件号码.Text = ""
txt读者单位.Text = ""
txt读者部门.Text = ""
txt联系电话.Text = ""
txt联系地址.Text = ""
txt电子邮件.Text = ""
txt备注.Text = ""
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub cmdsave_Click()
Dim rs As New ADODB.Recordset
Dim sql As String
sql2 = "select * from dzxxb where 读者编号 ='" & Trim(txt读者编号.Text) & "'"
If Trim(txt读者编号.Text) = "" Then
MsgBox "读者编号编号不能为空！", vbOKOnly
ElseIf Trim(txt读者姓名.Text) = "" Then
MsgBox "读者姓名不能为空！", vbOKOnly
ElseIf Trim(combox读者性别.Text) = "" Then
MsgBox "读者性别不能为空！", vbOKOnly
ElseIf Trim(combox读者类别.Text) = "" Then
MsgBox "读者类别不能为空！", vbOKOnly
ElseIf Trim(combox读者状态.Text) = "" Then
MsgBox "读者状态不能为空！", vbOKOnly
Else
Set rs = TransactSQL(sql2)
If rs.EOF = False Then
MsgBox "该读者已经存在，请核对！", vbOKOnly
Else
sql = "insert into dzxxb values('" & Trim(txt读者编号.Text) & "','" & Trim(txt读者姓名.Text) & "','" & _
Trim(combox读者性别.Text) & "','" & Trim(combox读者类别.Text) & "','" & DTP出生日期.Value & "','" & _
DTP办证日期.Value & "','" & Trim(combox读者状态.Text) & "'," & 0 & ",'" & Trim(txt证件名称.Text) & "','" & _
Trim(txt证件号码.Text) & "','" & Trim(txt读者单位.Text) & "','" & Trim(txt读者部门.Text) & "','" & Trim(txt联系电话.Text) & "','" & _
Trim(txt联系地址.Text) & "','" & Trim(txt电子邮件.Text) & "','" & Trim(txt备注.Text) & "','" & user & "')"
TransactSQL (sql) '插入一条读者信息
MsgBox "读者添加成功！", vbOKOnly
Call frmreadermanage.readerone_update(Trim(txt读者编号.Text), True) '更新readerGrid表
End If
rs.Close
End If
End Sub
Private Sub Form_Load()
Call fullpic(Me, Picbg1) '背景图
'读者类别加入到cmbo类别编号组合框中
Me.Left = (frmmain.ScaleWidth - Me.Width) / 2
Me.Top = (frmmain.ScaleHeight - Me.Height) / 2
Dim rs As New ADODB.Recordset
Dim sqlType As String
sqlType = "select 读者类别 from dzlbb order by 读者类别"
Set rs = TransactSQL(sqlType)
While Not rs.EOF
combox读者类别.AddItem rs(0)
rs.MoveNext
Wend
rs.Close
DTP出生日期.Value = Trim(Year(Now)) & "-" & Trim(Month(Now)) & "-" & Trim(day(Now))
DTP办证日期.Value = Trim(Year(Now)) & "-" & Trim(Month(Now)) & "-" & Trim(day(Now))
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -