📄 add.frm
字号:
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 7320
TabIndex = 7
Text = "Combo2"
Top = 360
Width = 735
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 4920
TabIndex = 6
Text = "Combo1"
Top = 360
Width = 1095
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2760
TabIndex = 3
Text = " "
Top = 240
Width = 1335
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 840
TabIndex = 0
Text = " "
Top = 240
Width = 1020
End
Begin VB.Label Label25
Caption = "身份证号码"
Height = 375
Left = 0
TabIndex = 53
Top = 3480
Width = 1575
End
Begin VB.Label Label24
Caption = "日"
Height = 255
Left = 4440
TabIndex = 47
Top = 1920
Width = 255
End
Begin VB.Label Label23
Caption = "月"
Height = 255
Left = 3600
TabIndex = 46
Top = 1920
Width = 375
End
Begin VB.Label Label22
Caption = "年"
Height = 255
Left = 2640
TabIndex = 45
Top = 1920
Width = 375
End
Begin VB.Label Label21
Caption = "日"
Height = 255
Left = 9120
TabIndex = 42
Top = 0
Width = 495
End
Begin VB.Label Label20
Caption = "月"
Height = 375
Left = 8280
TabIndex = 41
Top = 0
Width = 375
End
Begin VB.Label Label19
Caption = "年"
Height = 375
Left = 7440
TabIndex = 40
Top = 0
Width = 615
End
Begin VB.Label Label18
Caption = "近期照片"
Height = 375
Left = 7920
TabIndex = 35
Top = 1920
Width = 1335
End
Begin VB.Label Label17
Caption = "工资水平"
Height = 375
Left = 3480
TabIndex = 33
Top = 2400
Width = 1215
End
Begin VB.Label Label16
Caption = "职 称"
Height = 375
Left = 0
TabIndex = 30
Top = 2400
Width = 975
End
Begin VB.Label Label15
Caption = "婚姻状况"
Height = 375
Left = 4920
TabIndex = 28
Top = 1920
Width = 1215
End
Begin VB.Label Label14
Caption = "进入公司日期"
Height = 375
Left = 0
TabIndex = 26
Top = 1920
Width = 1935
End
Begin VB.Label Label13
Caption = "职 务"
Height = 375
Left = 6600
TabIndex = 24
Top = 840
Width = 855
End
Begin VB.Label Label12
Caption = "所在部门"
Height = 375
Left = 3000
TabIndex = 22
Top = 1320
Width = 1215
End
Begin VB.Label Label11
Caption = "毕业院校"
Height = 375
Left = 0
TabIndex = 20
Top = 1320
Width = 1215
End
Begin VB.Label Label10
Caption = "所学专业"
Height = 375
Left = 6240
TabIndex = 18
Top = 1320
Width = 1215
End
Begin VB.Label Label9
Caption = "政治面貌"
Height = 255
Left = 2280
TabIndex = 16
Top = 840
Width = 1335
End
Begin VB.Label Label8
Caption = "民 族"
Height = 375
Left = 0
TabIndex = 14
Top = 840
Width = 855
End
Begin VB.Label Label7
Caption = "通讯地址"
Height = 375
Left = 0
TabIndex = 12
Top = 4080
Width = 1335
End
Begin VB.Label Label6
Caption = "联系方式2"
Height = 375
Left = 3360
TabIndex = 10
Top = 2880
Width = 1455
End
Begin VB.Label Label5
Caption = "联系方式1"
Height = 375
Left = 0
TabIndex = 8
Top = 2880
Width = 1455
End
Begin VB.Label Label4
Caption = "出生年月"
Height = 255
Left = 6120
TabIndex = 5
Top = 360
Width = 1215
End
Begin VB.Label Label3
Caption = "性 别"
Height = 255
Left = 4080
TabIndex = 4
Top = 360
Width = 855
End
Begin VB.Label Label2
Caption = "姓 名"
Height = 375
Left = 2040
TabIndex = 2
Top = 240
Width = 855
End
Begin VB.Label Label1
Caption = "编 号"
Height = 375
Left = 0
TabIndex = 1
Top = 240
Width = 855
End
End
Attribute VB_Name = "add1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Public conn As New ADODB.Connection
Dim sql As String
Dim Chunk() As Byte
Dim lngLengh As Long
Dim intChunks As Integer
Dim intFragment As Integer
Const ChunkSize = 1000
Const lngDataFile = 1
Dim filename As String
Private Sub Command1_Click()
sql = "select * from info where code='" & Trim(Val(Text1.text)) & "'"
rs.Open sql
If rs.EOF = False Then
MsgBox "对不起，编号不能重复"
rs.Close
Text1.SetFocus
Exit Sub
End If
rs.Close
If Trim(CommonDialog1.filename) = "" Then
MsgBox "未选择照片.!!", vbInformation + vbSystemModal, "不能保存"
Exit Sub
End If
If (Dir(Trim(CommonDialog1.filename)) = "") Then Exit Sub
Open Trim(CommonDialog1.filename) For Binary Access Read As lngDataFile
lngLengh = LOF(lngDataFile)
intChunks = lngLengh \ ChunkSize
intFragment = lngLengh Mod ChunkSize
code = Trim(Val(Text1.text))
name1 = Trim(Text2.text)
sex = Trim(Combo1.text)
birth = Trim(Combo2.text) + "-" + Trim(Combo10.text) + "-" + Trim(Combo11.text)
nation = Trim(Combo3.text)
government = Trim(Combo4.text)
speciality = Trim(Text6.text)
department = Trim(Text8.text)
laborage = Trim(Combo8.text)
duty = Trim(Combo9.text)
time = Trim(Combo6.text) + "-" + Trim(Combo12.text) + "-" + Trim(Combo13.text)
marry = Trim(Combo7.text)
phone1 = Trim(Text3.text)
phone2 = Trim(Text4.text)
address = Trim(Text5.text)
family = Trim(Text10.text)
graduate = Trim(Text7.text)
jf = Trim(Text9.text)
geren = Trim(Text11.text)
number = Trim(Text12.text)
sql = "select * from info"
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
rs.AddNew
rs.Fields("code") = code
rs.Fields("name") = name
rs.Fields("sex") = sex
rs.Fields("nation") = nation
rs.Fields("government") = government
rs.Fields("speciality") = speciality
rs.Fields("department") = department
rs.Fields("number") = number
rs.Fields("laborage") = laborage
rs.Fields("duty") = duty
rs.Fields("zhicheng") = zhicheng
rs.Fields("time") = time
rs.Fields("birth") = birth
rs.Fields("marry") = marry
rs.Fields("family") = family
rs.Fields("phone1") = phone1
rs.Fields("phone2") = phone2
rs.Fields("address") = address
rs.Fields("jf") = jf
rs.Fields("number") = number
rs.Fields("resume") = geren
ReDim Chunk(intFragment)
Get lngDataFile, , Chunk()
rs.Fields("photo").AppendChunk Chunk()
ReDim Chunk(ChunkSize)
For i = 1 To intChunks
Get lngDataFile, , Chunk()
rs.Fields("photo").AppendChunk Chunk()
Next i
rs.Update
Close lngDataFile
Call showpicture
rs.Close
End Sub
Private Sub Command2_Click()
On Error GoTo errhandler:
CommonDialog1.DialogTitle = "职工照片的选择"
CommonDialog1.Filter = "所有图形文件|*.bmp;*.gif;*.jpg;*.ico|位图文件(*.bmp;*.dib)|*.bmp;*.dib|GIF文件(*.gif)|*.gif|GPEG文件(*.jpg)|*.jpg|图形文件(*.ioc)|*.ioc"
CommonDialog1.ShowOpen
If CommonDialog1.filename = "" Then Exit Sub
Picture1.Picture = LoadPicture(CommonDialog1.filename)
Exit Sub
errhandler:
MsgBox Err.Description, vbCritical, "错误"
End Sub
Private Sub Form_Load()
Call strsql(connstring)
conn.Open connstring
Dim code As String
Dim name1 As String
Dim sex, nation, government, speciality, graduate, department, laborage, duty, zhicheng As String
Dim time, birth As Timer
Dim marry, phone1, phone2, address, family, jf, number As String
Dim geren As String
Dim i As Integer
Combo1.AddItem "男"
Combo1.AddItem "女"
Combo1.ListIndex = 0
Combo3.AddItem "汉"
Combo3.AddItem "回"
Combo3.AddItem "满"
Combo3.AddItem "藏"
Combo3.AddItem "蒙古"
Combo3.ListIndex = 0
Combo4.AddItem "共产党员"
Combo4.AddItem "九三学社"
Combo4.AddItem "国民党"
Combo4.AddItem "无党派"
Combo4.AddItem "团员"
Combo4.AddItem "其它"
Combo4.ListIndex = 5
Combo5.AddItem "总经理"
Combo5.AddItem "经理"
Combo5.AddItem "主任"
Combo5.AddItem "副主任"
Combo5.AddItem "科长"
Combo5.AddItem "副科长"
Combo5.AddItem "职工"
Combo5.ListIndex = 6
Combo7.AddItem "未婚"
Combo7.AddItem "已婚"
Combo7.AddItem "离异"
Combo7.AddItem "丧偶"
Combo7.ListIndex = 1
Combo9.AddItem "工程师"
Combo9.AddItem "高级工程师"
Combo9.AddItem "工程师助理"
Combo9.AddItem "无"
Combo9.ListIndex = 3
Combo8.AddItem "1000以下"
Combo8.AddItem "1000到1500"
Combo8.AddItem "1500到3000"
Combo8.AddItem "3000以上"
Combo8.ListIndex = 0
For i = 1900 To 2100
Combo2.AddItem i + 1
Next i
For i = 0 To 11
Combo10.AddItem i + 1
Next i
For i = 0 To 30
Combo11.AddItem i + 1
Next i
For i = 1900 To 2100
Combo6.AddItem i + 1
Next i
For i = 0 To 11
Combo12.AddItem i + 1
Next i
For i = 0 To 30
Combo13.AddItem i + 1
Combo2.ListIndex = 0
Combo10.ListIndex = 0
Combo11.ListIndex = 0
Combo12.ListIndex = 0
Combo13.ListIndex = 0
Combo6.ListIndex = 0
Next i
Call strsql(connstring)
sql = "select * from info"
rs.Open sql, conn
rs.MoveNext
Call showpicture
rs.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
conn.Close
End Sub
Public Sub showpicture()
Open " 123 " For Binary Access Write As lngDataFile
lngLengh = rs.Fields("photo").ActualSize
intChunks = lngLengh \ ChunkSize
intFragment = lngLengh Mod ChunkSize
ReDim Chunk(intFragment)
Chunk() = rs.Fields("photo").GetChunk(intFragment)
Put lngDataFile, , Chunk()
For i = 1 To intChunks
ReDim Buffer(ChunkSize)
Chunk() = rs.Fields("photo").GetChunk(ChunkSize)
Put lngDataFile, , Chunk()
Next i
Close lngDataFile
filename = " 123 "
Picture1.Picture = LoadPicture(filename)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -