purana.love — Windows Live

purana 的个人资料purana.love日志列表

工具

帮助

日志

5月7日

心情杂记

这两天一直在想，其实一年后出来工作的话。自己现在这水平，到底能做些什么。在这物欲横流的社会，虽然文凭并不能真实反应一个人的工作能力。但手上没有这张珍贵的纸，始终比别人吃亏很多。

其实从我现在这文化课分数来看，我一早就已经放弃了参加高考的机会。我将更多的时间放在专业知识的学习上，因为我个人始终相信，专业知识比任何东西还要重要。可能很多人都会说我选择错误了。因为现在就连大学本科学历的学习，都很难在这社会上找到一官半职，更何况是一个高中生。的确，我天天都在想这问题。每一天打开报纸，就能看到，什么大学生找不到工作，现在连硕士研究生也有很大压力了。

的确，中国这么大的人口，再加上现在的发展迅猛，这些事是迟早都会发生的。但是我们也应该从另一个角度来看。我们有时也会看到，说什么公司的人力不够，技术人员缺乏，这又说明了什么，说明了真正的人材太少。所以我坚定去学习专业知识，花更多的时间下去。

可能我今天没选择参加高考，多少年后的我，可能会为今天的决定后悔，但至少我现在没有，我觉得我今天的走的路没有错，那别人怎么说我也不会去管，因为只要自己觉得是正确的，就坚持。不是吗？

17:46 | 添加评论 | 阅读评论 (1) | 固定链接 | 写入日志

4月30日

以热爱祖国为荣以危害祖国为耻
以服务人民为荣以背离人民为耻
以崇尚科学为荣以愚昧无知为耻
以辛勤劳动为荣以好逸恶劳为耻
以团结互助为荣以损人利己为耻
以诚实守信为荣以见利忘义为耻
以遵纪守法为荣以违法乱纪为耻
以艰苦奋斗为荣以骄奢淫逸为耻

　　胡锦涛同志3月4日看望出席全国政协十届四次会议的委员时提出，要引导广大干部群众，特别是青少年树立“八荣八耻”的社会主义荣辱观。
　　“八荣八耻”涵盖了爱国主义、集体主义和社会主义思想的丰富内容，是中国传统美德和时代精神的完美结合，是以爱国主义为核心的民族精神和以改革创新为核心的时代精神的鲜明表达，为公民道德建设树起了新的标杆。
　　胡锦涛指出要把发展社会主义先进文化放到十分突出的位置，充分发挥文化启迪思想、陶冶情操、传授知识、鼓舞人心的积极作用，努力培育有理想、有道德、有文化、有纪律的社会主义公民。
　　要在全社会大力弘扬爱国主义、集体主义、社会主义思想，倡导社会主义基本道德规范，促进良好社会风气的形成和发展。
　　要引导广大干部群众特别是青少年树立社会主义荣辱观，坚持以热爱祖国为荣、以危害祖国为耻，以服务人民为荣、以背离人民为耻，以崇尚科学为荣、以愚昧无知为耻，以辛勤劳动为荣、以好逸恶劳为耻，以团结互助为荣、以损人利己为耻，以诚实守信为荣、以见利忘义为耻，以遵纪守法为荣、以违法乱纪为耻，以艰苦奋斗为荣、以骄奢淫逸为耻。

12:58 | 添加评论 | 固定链接 | 写入日志

4月11日

Windows按扭突破专家

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'程序员 : 梁嘉辉

'E - Mail : purana@126.com

'模块功能 : 将不可用的按扭转换成可用的

'编写时间 : 2006-4-8

'最后更新时间: 2006-4-10

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private Const GW_CHILD = 5
Private Const GW_HWNDFIRST = 0
Private Const GW_HWNDNEXT = 2
Private Const SW_SHOW = 5
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim k As Long '窗体的句柄

Private Sub GoEnabled(hwndParent As Long)
    Dim hwndChild As Long
    hwndChild = GetWindow(hwndParent, GW_CHILD Or GW_HWNDFIRST)       '获得子窗体的句柄
    Do While hwndChild <> 0
        Call EnableWindow(hwndChild, 1)        '设置为可用
        GoEnabled hwndChild        '递归查找出子窗体
        hwndChild = GetWindow(hwndChild, GW_HWNDNEXT)
    Loop
End Sub

Private Sub Command1_Click()
    If Command1.Caption = "开始工作" Then
         Timer1.Enabled = True
         Command1.Caption = "停止"
    Else
         Timer1.Enabled = False
         Command1.Caption = "开始工作"
    End If
End Sub

Private Sub Form_Load()
    Me.Move Screen.Width / 2 - Me.Width / 2, Screen.Height / 2 - Me.Height / 2
    '将本窗体设置为置顶
    Call SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub

Private Sub Label3_Click()
'发邮件
Call ShellExecute(Me.hwnd, "Open", "mailto:purana@126.com", vbNullString, vbNullString, 0)
End Sub

Private Sub Label4_Click()
Call MsgBox("这是一个Windows按扭突破的程序,使用此程序可以使不可用的按扭(Enabled=False)恢复可用." & vbCrLf & _
"使用方法.只要点击开始工作.再点击需要设置为可用的按扭的窗体就可以.", vbExclamation + vbYesNo, "Windows按扭突破专家")
End Sub

Private Sub Timer1_Timer()
    k = GetForegroundWindow
    If k = Me.hwnd Or k = 0 Then Exit Sub
    Call GoEnabled(k)
End Sub

13:01 | 添加评论 | 固定链接 | 写入日志 | 计算机与 Internet

4月9日

在数据库中保存图片

打开vb6,新建工程。

添加两个按钮,一个image控件

注意:Access中的photo字段类型为OLE对象.

SqlServer中的photo字段类型为Image

'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本

‘2.5版本以下不支持Stream对象

Dim iConcstr As String

Dim iConc As ADODB.Connection

'保存文件到数据库中

Sub s_SaveFile()

Dim iStm As ADODB.Stream

Dim iRe As ADODB.Recordset

Dim iConcstr As String

'读取文件到内容

Set iStm = New ADODB.Stream

With iStm

.Type = adTypeBinary '二进制模式

.Open

.LoadFromFile App.Path + "\test.jpg"

End With

'打开保存文件的表

Set iRe = New ADODB.Recordset

With iRe

.Open "select * from img", iConc, 1, 3

.AddNew '新增一条记录

.Fields("photo") = iStm.Read

.Update

End With

'完成后关闭对象

iRe.Close

iStm.Close

End Sub

Sub s_ReadFile()

Dim iStm As ADODB.Stream

Dim iRe As ADODB.Recordset

'打开表

Set iRe = New ADODB.Recordset

‘得到最新添加的纪录

iRe.Open "select top 1 * from img order by id desc", iConc, adOpenKeyset, adLockReadOnly

'保存到文件

Set iStm = New ADODB.Stream

With iStm

.Mode = adModeReadWrite

.Type = adTypeBinary

.Open

.Write iRe("photo")

‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.

.SaveToFile App.Path & "\test1.jpg"

End With

Image1.Picture = LoadPicture(App.Path & "\test1.jpg")

'关闭对象

iRe.Close

iStm.Close

End Sub

Private Sub Command1_Click()

Call s_ReadFile

End Sub

Private Sub Command2_Click()

Call s_SaveFile

End Sub

Private Sub Form_Load()

'数据库连接字符串

iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _

";Data Source=F:\csdn_vb\database\保存图片\access图片\img.mdb"

‘下面的语句是连接sqlserver数据库的.

‘iConcstr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _

‘ "User ID=sa;Password=;Initial Catalog=test;Data Source=yang"

Set iConc = New ADODB.Connection

iConc.Open iConcstr

End Sub

Private Sub Form_Unload(Cancel As Integer)

iConc.Close

Set iConc = Nothing

End Sub

20:04 | 添加评论 | 固定链接 | 写入日志

个人资料

purana

自定义列表

类别

日志

心情杂记

八荣八耻

Windows按扭突破专家

在数据库中保存图片