help me look it'mean wxh zt

wxhwhmanshan

Dim i, j, Field_COUNT As Integer
    Dim strCMD As Command

   
    If Combo1.Text = "NetWork" Then
        Open App.Path & "\server.dat" For Input As #1
        Input #1, FP_ZDLX
        Input #1, My_USERID
        Input #1, My_PASSWORD
        Input #1, My_DATASOURCE
        Input #1, My_INITIALCATALOG
        Input #1, My_PROVIDER
        Input #1, BK_PROVIDER
        Close #1
        DATA_SERVER = "NetWork"
        Check1.DataChanged = True
        Check1.MaskColor = &HFF&
    Else
        If Combo1.Text = "access" Then
        Open App.Path & "\locat.dat" For Input As #1
        Input #1, FP_ZDLX
        Input #1, My_USERID
        Input #1, My_PASSWORD
        Input #1, My_DATASOURCE
        Input #1, My_INITIALCATALOG
        Input #1, My_PROVIDER
        Input #1, BK_PROVIDER
        Close #1
        DATA_SERVER = "access"
        Check1.DataChanged = True
        Check1.MaskColor = &HFF&
        Me.Check1.Value = 0
        Else
            MsgBox "请注意：服务器选择错误！", 48, "提示"
            Combo1.Text = "sqlserver"
            Combo1.SetFocus
            Exit Sub
        End If

    End If
    Me.Command1.Enabled = True
    Me.Text1.SetFocus
   
    Exit Sub
   
Err_Process:
   'MsgBox "信息：操作错误！", 16, "警告"
   Exit Sub

Paul

一段VB的代码..看样子是一个combo控件.选择不同的选项.则写入文件...而且好像关键是随着Text的不同
DATA_SERVER 也赋值成不同的东东....不过代码不全..也不懂DATA_SERVER定义成什么.

lights

错了,是根据不同的选择,从文件中读数据!不过这个控制写的太弱智了!结构不清晰,而且读取的数据是同样格式的!应该简化这部分代码!
大致猜一下是根据选择读取数据库登陆信息连接远程或本地数据库!
不过楼猪剪的这段代码还真是"完整"!

lights

文件号的使用也非常不规范!freefile()函数别舍不得用!
结构写成这样就算了!就算代码简化功力不够,最起码也用个select case 语句吧!
msgbox也是,有枚举不用,非要用什么48,16,让大家看不懂很酷啊!