frmmingxi.frm

财务管理信息系统

            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column05 
         DataField       =   "余额"
         Caption         =   "余额"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column06 
         DataField       =   "余额方向"
         Caption         =   "余额方向"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
            ColumnWidth     =   870.236
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   1094.74
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   3195.213
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   645.165
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   689.953
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   540.284
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   810.142
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   615
      Left            =   0
      TabIndex        =   6
      Top             =   0
      Width           =   8295
      _ExtentX        =   14631
      _ExtentY        =   1085
      ButtonWidth     =   1138
      ButtonHeight    =   926
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   5
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "首记录"
            Key             =   "btnFirst"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "上记录"
            Key             =   "btnBefore"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "下记录"
            Key             =   "btnNext"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "尾记录"
            Key             =   "btnLast"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "btnExit"
            ImageIndex      =   10
         EndProperty
      EndProperty
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   7440
         Top             =   0
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   16
         ImageHeight     =   16
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   10
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMingXi.frx":0457
               Key             =   ""
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMingXi.frx":0569
               Key             =   ""
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMingXi.frx":067B
               Key             =   ""
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMingXi.frx":078D
               Key             =   ""
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMingXi.frx":089F
               Key             =   ""
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMingXi.frx":09B1
               Key             =   ""
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMingXi.frx":0AC3
               Key             =   ""
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMingXi.frx":0BD5
               Key             =   ""
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMingXi.frx":0CE7
               Key             =   ""
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "frmMingXi.frx":0DF9
               Key             =   ""
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "frmMingXi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub LoadData()
    Dim strFilter As String
    Dim strCode As String
    strCode = "101"
    If Len(Trim(Me.txbOne.Text)) = 0 Then
        strFilter = "where 科目代码=" + strCode
    Else
        strCode = Trim(Me.txbOne.Text)
        strFilter = "where 科目代码=" + strCode
    End If
    '清空DataGrid
    Dim db As New DataBases
    Dim rs As Recordset
    Set rs = db.RunSelectSQL("SELECT 凭证编号, 会计期间, 摘要, 借方, 贷方, 余额, 余额方向 FROM 本期明细账簿  " + strFilter)
    Set Adodc1.Recordset = rs
    lblCount.Caption = "记录数:" + CStr(rs.RecordCount)
    If rs.RecordCount = 0 Then
        Me.lblCode.Caption = ""
        Me.lblName.Caption = ""
        Exit Sub
    End If
    Me.lblCode.Caption = strCode
    Dim strSQL As String
    strSQL = "select 科目名称 from 科目表 where 科目代码=" + strCode
    Set rs = db.RunSelectSQL(strSQL)
    Me.lblName.Caption = rs(0)
End Sub

Private Sub btnSearch_Click()
    LoadData
End Sub

Private Sub form_load()
    Dim db As New DataBases
    Adodc1.ConnectionString = db.sConn
    LoadData
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    If StrComp(Button.Key, "btnFirst") = 0 Then
        Adodc1.Recordset.MoveFirst
    ElseIf StrComp(Button.Key, "btnBefore") = 0 Then
        Adodc1.Recordset.MovePrevious
    ElseIf StrComp(Button.Key, "btnNext") = 0 Then
        Adodc1.Recordset.MoveNext
    ElseIf StrComp(Button.Key, "btnLast") = 0 Then
        Adodc1.Recordset.MoveLast
    ElseIf StrComp(Button.Key, "btnExit") = 0 Then
        Hide
    End If
End Sub