Location:
Search - zip.lib.p
Search list
Description: java实现的遗传算法，
他的设计需要最小集合的支持，
并且在这个基础上实现更复杂的遗传算法！
目录结构如下：
jgap_2.5_src.zip\\srcjgap_2.5_src.zip\\lib
jgap_2.5_src.zip\\examples
jgap_2.5_src.zip\\tests
还有相应的帮助-achieve the genetic algorithm, the design needs the support of the smallest pools, and on the basis of a more complex genetic algorithm! Directory structure is as follows : jgap_2.5_src.zip \\ srcjgap_2.5_src.zip \\ lib jgap_2.5_src.zip \\ examples jgap_2.5_src.zi p \\ corresponding tests also help
Platform: |
Size: 671180 |
Author: star |
Hits:
Description: Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
'*************************************************************
Public Function ImportPhoto(sPicFile As String, sEmpID As String) As String
Dim rcsPic As ADODB.Recordset
Dim sMax As String
Dim sInsertPic As String
Dim rcsTemp As New Recordset
Dim sTempSQL As String
If Trim(sPicFile) = "" Then Exit Function
On Error GoTo ErrorImportPhoto
Set rcsPic = New ADODB.Recordset
rcsPic.CursorType = adOpenKeyset
rcsPic.LockType = adLockOptimistic '
rcsPic.Open "T_PPICTURE ", AstDbCnt, , , adCmdTable 'astdbcnt 替换为你连接方式
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile sPicFile
rcsPic.AddNew
rcsPic.Fields("PERS").Value = sEmpID
rcsPic.Fields("PIC").Value = mstream.Read
rcsPic.Update
mstream.Close
Set mstream = Nothing
rcsPic.Close
Set rcsPic = Nothing
Exit Function
ErrorImportPhoto:
ImportPhoto = "FALSE"
End Function
'注意要将 AstDbCnt 替换为你的oracle 连接
Public Function DisplayPhoto(oPicture As PictureBox, sPicID As String)
Dim rcsDisplay As ADODB.Recordset
Set rcsDisplay = New ADODB.Recordset
Dim mstream As ADODB.Stream
Dim mc0 As String
rcsDisplay.Open "Select * from T_PPICTURE where PERS = '" & sPicID & "'", AstDbCnt, adOpenKeyset, adLockOptimistic
If rcsDisplay.EOF Then
oPicture.Picture = LoadPicture()
Exit Function
End If
If IsNull(rcsDisplay.Fields("PIC").Value) Then
oPicture.Picture = LoadPicture()
Exit Function
End If
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rcsDisplay.Fields("PIC").Value
strclose = App.Path & "\AstPhoto_temp"
DeleteFile (strclose)
mstream.SaveToFile strclose
mstream.Close
Set mstream = Nothing
rcsDisplay.Close
Set rcsDisplay = Nothing
oPicture.Picture = LoadPicture(strclose)
End Function
Private Sub Command1_Click()
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=IWP2;Initial Catalog=T213;User Id=sa;Password=sql123"
Set rs = New ADODB.Recordset
rs.Open "Select * from QB_T213PMPD where DT=2006080818", cn, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields("MPI").Value
mstream.SaveToFile "P:\T213_data\ShowMPI\T213_3.mpi", adSaveCreateOverWrite
rs.Close
cn.Close
End Sub
Private Sub Command2_Click()
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=;Initial Catalog=pubs;User Id=;Password="
Set rs = New ADODB.Recordset
rs.Open "Select * from pub_info", cn, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile ""
rs.Fields("logo").Value = mstream.Read
rs.Update
rs.Close
cn.Close
End Sub
Platform: |
Size: 3123 |
Author: wuzhiyong_130@163.com |
Hits:
Description: 我的一个网友写的PHP下面的zip类 最适合PHP做网上办公系统和提供网站管理程序。-I wrote a netizen PHP zip following categories best suited to do online PHP office systems and site management procedures.
Platform: |
Size: 3072 |
Author: 董好然 |
Hits:
Description: java实现的遗传算法，
他的设计需要最小集合的支持，
并且在这个基础上实现更复杂的遗传算法！
目录结构如下：
jgap_2.5_src.zip\srcjgap_2.5_src.zip\lib
jgap_2.5_src.zip\examples
jgap_2.5_src.zip\tests
还有相应的帮助-achieve the genetic algorithm, the design needs the support of the smallest pools, and on the basis of a more complex genetic algorithm! Directory structure is as follows : jgap_2.5_src.zip \ srcjgap_2.5_src.zip \ lib jgap_2.5_src.zip \ examples jgap_2.5_src.zi p \ corresponding tests also help
Platform: |
Size: 670720 |
Author: star |
Hits:
Description: UnzipPHP is a tools for zip file on server.
Platform: |
Size: 29696 |
Author: dainv |
Hits: