frmcenter.frm

vb+sql 用于公交点钞结算和报表结合的相关软件

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmCenter 
   Caption         =   "下载IC卡数据"
   ClientHeight    =   6435
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10185
   Icon            =   "frmCenter.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6435
   ScaleWidth      =   10185
   WindowState     =   2  'Maximized
   Begin TabDlg.SSTab SSTab1 
      Height          =   5895
      Left            =   540
      TabIndex        =   0
      Top             =   510
      Width           =   8835
      _ExtentX        =   15584
      _ExtentY        =   10398
      _Version        =   393216
      Style           =   1
      Tabs            =   1
      TabsPerRow      =   2
      TabHeight       =   582
      TabCaption(0)   =   "下载IC卡数据(&Download)"
      TabPicture(0)   =   "frmCenter.frx":0442
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame3"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).ControlCount=   1
      Begin VB.Frame Frame3 
         Height          =   5055
         Left            =   120
         TabIndex        =   1
         Top             =   660
         Width           =   8205
         Begin VB.CommandButton Command1 
            Caption         =   "发送数据..."
            Height          =   495
            Left            =   5340
            TabIndex        =   3
            Top             =   3600
            Width           =   1545
         End
         Begin VB.TextBox Text2 
            Height          =   4575
            Left            =   150
            TabIndex        =   2
            Text            =   "Text1"
            Top             =   300
            Width           =   3555
         End
         Begin MSComCtl2.MonthView MonthView3 
            Height          =   2220
            Left            =   3930
            TabIndex        =   4
            Top             =   300
            Width           =   4065
            _ExtentX        =   7170
            _ExtentY        =   3916
            _Version        =   393216
            ForeColor       =   -2147483635
            BackColor       =   33023
            Appearance      =   1
            MonthBackColor  =   16777215
            StartOfWeek     =   24510465
            TitleBackColor  =   12632256
            TrailingForeColor=   16744576
            CurrentDate     =   37077
         End
      End
   End
End
Attribute VB_Name = "frmCenter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdDownCenter_Click()
    Dim cmd As New ADODB.Command
    On Error Resume Next
    
    Refresh
    With cmd
        .ActiveConnection = cnn
        .CommandText = "SP_TO_AMC"
        .CommandType = adCmdStoredProc
        .CommandTimeout = 0
        .Execute
    End With
End Sub

Private Sub Command1_Click()
    Dim rs As New ADODB.Recordset
    
End Sub