frmselectaccount.frm

一个OA办公自动化管理系统

VERSION 5.00
Object = "{0D6234D1-DBA2-11D1-B5DF-0060976089D0}#6.0#0"; "TODG6.OCX"
Begin VB.Form frmSelectAccount 
   BackColor       =   &H00D39E9F&
   Caption         =   "635"
   ClientHeight    =   3990
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6555
   ControlBox      =   0   'False
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3990
   ScaleWidth      =   6555
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdLink 
      Caption         =   "636"
      Height          =   435
      Left            =   2520
      TabIndex        =   6
      Top             =   3360
      Width           =   975
   End
   Begin VB.CommandButton cmdDel 
      Caption         =   "13"
      Height          =   435
      Left            =   4680
      TabIndex        =   5
      Top             =   3360
      Width           =   975
   End
   Begin VB.CommandButton cmdNew 
      Caption         =   "637"
      Height          =   435
      Left            =   3600
      TabIndex        =   4
      Top             =   3360
      Width           =   975
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "18"
      Height          =   435
      Left            =   1440
      TabIndex        =   3
      Top             =   3360
      Width           =   975
   End
   Begin VB.CommandButton cmdSelect 
      Caption         =   "17"
      Height          =   435
      Left            =   360
      TabIndex        =   2
      Top             =   3360
      Width           =   975
   End
   Begin TrueOleDBGrid60.TDBGrid TDBGrid1 
      Height          =   2595
      Left            =   120
      OleObjectBlob   =   "frmSelectAccount.frx":0000
      TabIndex        =   0
      Top             =   600
      Width           =   6315
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "638"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   360
      TabIndex        =   1
      Top             =   120
      Width           =   3375
   End
End
Attribute VB_Name = "frmSelectAccount"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub CmdCancel_Click()
    Unload FrmFLash
    Unload Me
End Sub

Private Sub CmdDel_Click()
    Dim RstAccount As Recordset
    Set RstAccount = New Recordset
    If MsgBox("确实要删除?", vbOKCancel) = vbOK Then
        RstAccount.Open "Delete From AccountName where AccountID='" & Me.TDBGrid1.Columns(2).Value & "' ", GetCNMain, adOpenStatic, adLockOptimistic
    End If
    'LocalDBCN
    'LocalCN.Execute "Delete From AccountName where AccountID='" & Me.TDBGrid1.Columns(0).Value & "' "
    Form_Load
End Sub

Private Sub cmdLink_Click()
    frmNewAccount.Caption = "连接帐套"
    frmNewAccount.cmdNewAccount.Visible = False
    frmNewAccount.cmdSelect.Visible = True
    frmNewAccount.cmdSelect.Top = frmNewAccount.cmdExit.Top
    frmNewAccount.Show 1
    Form_Load
End Sub

Private Sub cmdNew_Click()
    FrmPubInit.Show 1
End Sub

Private Sub cmdSelect_Click()
    Dim RstAccount As Recordset
    LinkString = ""
    strAccountName = Me.TDBGrid1.Columns(2).Value
    strAccountID = Me.TDBGrid1.Columns(4).Value
    If Me.TDBGrid1.Columns(2).Value <> "" And Me.TDBGrid1.Columns(3).Value <> "" Then
        CNLinkString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog='" & Trim(Me.TDBGrid1.Columns(2).Value) & "';Data Source=" & Trim(Me.TDBGrid1.Columns(3).Value) & ""
        'LocalLinkString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source= " & App.Path & "\" & Trim(Me.TDBGrid1.Columns(2).Value) & ".mdb"
        LocalLinkString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\" & Trim(Me.TDBGrid1.Columns(2).Value) & ".mdb"
        LinkServerName = Trim(Me.TDBGrid1.Columns(3).Value)
    Else
        LinkString = ""
        LinkServerName = ""
    End If
    Unload Me
    MoneyMain
    frmLogin.Show 1
End Sub

Public Sub Form_Load()
    If IsNumeric(Me.Caption) Then
        Me.Caption = LoadResString(Val(Me.Caption & GLanguageID))
        GGetRes GLanguageID, Me
    End If
    Dim RstAccount As Recordset
    Set RstAccount = New Recordset
    RstAccount.Open "SELECT Description, Company,AccountID,ServerName,AccountID FROM AccountName;", GetCNMain, adOpenKeyset, adLockReadOnly
    Set Me.TDBGrid1.DataSource = RstAccount
    'Me.TDBGrid1.Refresh
    Me.TDBGrid1.MarqueeStyle = 4
    Me.TDBGrid1.Columns(0).Caption = "帐套名称"
    Me.TDBGrid1.Columns(0).Width = 3000
    Me.TDBGrid1.Columns(0).Alignment = 2
    Me.TDBGrid1.Columns(1).Caption = "公司名称"
    Me.TDBGrid1.Columns(1).Width = 2500
    Me.TDBGrid1.Columns(1).Alignment = 2
    Me.TDBGrid1.Columns(2).Visible = False
    Me.TDBGrid1.Columns(3).Visible = False
    Me.TDBGrid1.Columns(4).Visible = False
    
    
End Sub



Private Sub TDBGrid1_DblClick()
    cmdSelect_Click
End Sub