form_datecoinfo.frm

宇迪ｅｒｐ,企业erp模块一

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Frm_DateCoInfo 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "系统参数设置"
   ClientHeight    =   4410
   ClientLeft      =   3225
   ClientTop       =   1890
   ClientWidth     =   5430
   HelpContextID   =   1013
   Icon            =   "Form_DateCoInfo.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4410
   ScaleWidth      =   5430
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "取消&C"
      Height          =   315
      Index           =   1
      Left            =   4230
      TabIndex        =   1
      Top             =   3990
      Width           =   1125
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定&D"
      Height          =   315
      Index           =   0
      Left            =   2880
      TabIndex        =   0
      Top             =   3990
      Width           =   1125
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   3795
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   5325
      _ExtentX        =   9393
      _ExtentY        =   6694
      _Version        =   393216
      Style           =   1
      Tabs            =   1
      TabsPerRow      =   1
      TabHeight       =   520
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      TabCaption(0)   =   "系统"
      TabPicture(0)   =   "Form_DateCoInfo.frx":038A
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Label1(0)"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "Label1(1)"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "Label1(2)"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "Text1(0)"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "Text1(1)"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).Control(5)=   "Text1(2)"
      Tab(0).Control(5).Enabled=   0   'False
      Tab(0).ControlCount=   6
      Begin VB.TextBox Text1 
         Height          =   285
         Index           =   2
         Left            =   1410
         MaxLength       =   25
         TabIndex        =   5
         Top             =   1590
         Width           =   3315
      End
      Begin VB.TextBox Text1 
         Height          =   285
         Index           =   1
         Left            =   1410
         MaxLength       =   30
         TabIndex        =   4
         Top             =   1080
         Width           =   3315
      End
      Begin VB.TextBox Text1 
         Height          =   285
         Index           =   0
         Left            =   1410
         MaxLength       =   30
         TabIndex        =   3
         Top             =   600
         Width           =   3315
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "电话:"
         Height          =   180
         Index           =   2
         Left            =   360
         TabIndex        =   8
         Top             =   1590
         Width           =   450
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "地址:"
         Height          =   180
         Index           =   1
         Left            =   360
         TabIndex        =   7
         Top             =   1110
         Width           =   450
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "公司名称:"
         Height          =   180
         Index           =   0
         Left            =   360
         TabIndex        =   6
         Top             =   660
         Width           =   810
      End
   End
End
Attribute VB_Name = "Frm_DateCoInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click(Index As Integer)
    Dim Ssql As String
    Dim i As Integer
    Dim aDo_Date As New Recordset
    On Error GoTo error_exit
    
    If Index = 1 Then Unload Me: Exit Sub
    
    
    Ssql = "update HDSystem_DataBases set CoName='" & Trim(Text1(0).Text) & "'," _
         & "Address='" & Trim(Text1(1).Text) & "',Phone='" & Trim(Text1(2).Text) & "'  WHERE DataBasesName='" & Trim(Text1(0).Tag) & "'"
    Conn_System.Execute Ssql
    Unload Me
    Exit Sub
    
error_exit:
    MsgBox Err.Description, 16
End Sub

Private Sub Form_Activate()
    On Error GoTo error_exit
    Dim TF As Boolean
    Dim aDo_data As New Recordset
    Dim aDo_data1 As New Recordset
    
    TF = False
    Set aDo_data = Conn_System.Execute("select * from HDSystem_DataBases where DataBasesName='" & Text1(0).Tag & "'")
    If aDo_data.RecordCount > 0 Then
    Text1(0) = "" & aDo_data!CoName
    Text1(1) = "" & aDo_data!Address
    Text1(2) = "" & aDo_data!Phone
    If Trim(aDo_data!YNUse) = "1" Then
       Command1(0).Enabled = False
       Text1(0).Enabled = False
       Text1(1).Enabled = False
       Text1(2).Enabled = False
    End If
    End If
    
    Exit Sub
error_exit:
    MsgBox Err.Description, 16
    Unload Me
End Sub