VB6.0中如何实现将系统中点击选择按钮选择文件，选择完后将文件名显示到附件框中，然后点击上传按钮将选择的附件按照工单号保存到SQLServer数据表中，数据表字段为工单号，文件，描述。下载时按照工单号将数据表中对应的文件下载到当前桌面。写出该逻辑代码

在VB6.0中实现这样的功能，你可以按照以下步骤编写代码：

1. **创建用户界面**:
- 创建两个控件：一个用于文件选择（如`OpenFileDialog`），一个用于显示文件名（如`TextBox`，假设名为txtAttachment），还有一个用于上传按钮（如`CommandButton`，假设名为cmdUpload）以及一个用于工单号输入的文本框或组合框。

2. **文件选择事件处理**:

   Private Sub cmdBrowse_Click()
       Dim openFileDialog As Object
       Set openFileDialog = CreateObject("MSComDlg.CommonDialog")
       openFileDialog.Filter = "所有文件 (*.*)|*.*" ' 设置过滤器
       If openFileDialog.ShowOpen <> 0 Then ' 如果用户选择了文件
           txtAttachment.Text = openFileDialog.FileName ' 显示文件路径到附件框
       End If
   End Sub

3. **上传按钮事件处理**:

   Private Sub cmdUpload_Click()
       Dim connStr As String, sql As String
       connStr = '你的SQL Server连接字符串'
       
       '假设工单号已存在某个文本框或组合框中，例如txtWorkOrder'
       sql = "INSERT INTO YourTable (WorkOrder, File, Description) VALUES ('" & txtWorkOrder.Value & "', '" & txtAttachment.Text & "', '附件')" ' 替换YourTable为你实际的数据表名
       '这里通常需要连接数据库，执行插入操作，具体代码取决于你的数据库连接库

       '如果使用ADODB.Connection和Recordset:
       On Error Resume Next
       Dim conn As ADODB.Connection
       Set conn = New ADODB.Connection
       conn.Open connStr
       conn.Execute sql
       On Error GoTo 0
       '关闭连接
       conn.Close
   End Sub

4. **下载功能**:
要下载对应工单号的文件，可以添加另一个按钮事件，但VB6.0本身并不直接支持从数据库下载文件到桌面。通常你需要先查询数据库获取文件路径，然后用WinAPI函数（如`ShellExecute`）启动文件的打开操作：

   Private Sub btnDownload_Click()
       '类似上面的SQL查询，获取指定工单号的文件信息
       '假设查询结果在rs对象中，比如File字段是file_path
       Dim file_path As String
       file_path = rs("file_path")

       '使用ShellExecute启动文件
       Dim shell As Object
       Set shell = CreateObject("WScript.Shell")
       shell.Run file_path, vbNormalFocus, False '替换file_path为实际路径
   End Sub

请注意，以上代码示例仅提供基本思路，实际应用中还需要处理错误、数据库连接管理等细节，并可能需要引用相应的COM组件来操作数据库。同时，为了方便起见，上述代码未包含完整的异常处理部分。