有个问题想高手请教：
     程序分为服务器和客户端
     基本流程为：当客户端向服务器发送sql语句时，服务器自动处理。服务器向客户端返回时，以字节方式，返回数字或图片。
     我也曾经编写了一个，可以局域网中，运行效果不佳。客户端有时能连上，有时连不上，并在编相同的第二个窗体时，代码也很重复。代码见下边。


请高手帮我改一改，并帮优化一下代码。让编相同功能的其它窗体时，能调用很少的代码就能实现。

在线等

[[it] 本帖最后由 yyttdd63 于 2008-10-30 17:16 编辑 [/it]]

怎么没人会啊

不错不错,支持了!
建议把代码封装一下,就不会有重复代码,而且方便调用,这样的才够规范.

另外大家注意一下,这是个很有意义的程序,因为它能实现ACCESS数据库的远程访问!

收到的鲜花

• multiple1902 于 2008-10-27 22:48 送鲜花  28朵   附言：我很赞同

三断笛
好
我不知道怎么封装,有谁会啊,劳架优化一下代码.
谢谢!

[[it] 本帖最后由 yyttdd63 于 2008-10-27 10:03 编辑 [/it]]

大家能把自己修改的代码共享一下吗??

这个程序,我不会改.
只提供一下建议。用添加数据窗口时选择类生成的那个 类的代码来封装。
那个类的代码如下：你只要换成你对应的 数据生成函数就可以了。
如果你要 winscok 控件的话，你就用自定义控件的办法进行封装。自定义控件支持类的这个属性和设置


Option Explicit

Dim WithEvents adoPrimaryRS As Recordset
Private DoingRequery As Boolean
Public Event MoveComplete()

Private Sub Class_Initialize()
  Dim db As Connection
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=F:\download\代码\server\mdb\grx.mdb;"

  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "select MediaBLOB,MediaDescription,MediaID,MediaName,MediaType from tblMedia", db, adOpenStatic, adLockOptimistic

  DataMembers.Add "Primary"
End Sub

Private Sub Class_GetDataMember(DataMember As String, Data As Object)
  Select Case DataMember
  Case "Primary"
    Set Data = adoPrimaryRS
  End Select
End Sub

Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  RaiseEvent MoveComplete
End Sub

Private Sub adoPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  '验证代码置于此处
  '下列动作发生时该事件被调用
  Dim bCancel As Boolean
  Select Case adReason
  Case adRsnAddNew
  Case adRsnClose
  Case adRsnDelete
  Case adRsnFirstChange
  Case adRsnMove
  Case adRsnRequery
  Case adRsnResynch
  Case adRsnUndoAddNew
  Case adRsnUndoDelete
  Case adRsnUndoUpdate
  Case adRsnUpdate
  End Select

  If bCancel Then adStatus = adStatusCancel
End Sub

Public Property Get EditingRecord() As Boolean
  EditingRecord = (adoPrimaryRS.EditMode <> adEditNone)
End Property

Public Property Get AbsolutePosition() As Long
  AbsolutePosition = adoPrimaryRS.AbsolutePosition
End Property

Public Sub AddNew()
  adoPrimaryRS.AddNew
End Sub

Public Sub Delete()
  adoPrimaryRS.Delete
    MoveNext
End Sub

Public Sub Requery()
  adoPrimaryRS.Requery
  DataMemberChanged "Primary"
End Sub

Public Sub Update()
  With adoPrimaryRS
    .UpdateBatch adAffectAll
    If .EditMode = adEditAdd Then
      MoveLast
    End If
  End With
End Sub

Public Sub Cancel()
  With adoPrimaryRS
    .CancelUpdate
    If .EditMode = adEditAdd Then
      MoveFirst
    End If
  End With
End Sub

Public Sub MoveFirst()
  adoPrimaryRS.MoveFirst
End Sub

Public Sub MoveLast()
  adoPrimaryRS.MoveLast
End Sub

Public Sub MoveNext()
  If Not adoPrimaryRS.EOF Then adoPrimaryRS.MoveNext
  If adoPrimaryRS.EOF And adoPrimaryRS.RecordCount > 0 Then
    Beep
    '已到最后返回
    adoPrimaryRS.MoveLast
  End If
End Sub

Public Sub MovePrevious()
  If Not adoPrimaryRS.BOF Then adoPrimaryRS.MovePrevious
  If adoPrimaryRS.BOF And adoPrimaryRS.RecordCount > 0 Then
    Beep
    '已到最后返回
    adoPrimaryRS.MoveFirst
  End If
End Sub

谢谢"风吹过b"高手
感谢所有支持本贴的人

大家能把自己修改的代码共享一下吗??

ding一下