frmquerry.frm

会计管理信息系统windows界面vb编程 会计管理信息系统windows界面vb编程

            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "损益"
            EndProperty
         EndProperty
      End
   End
   Begin VB.PictureBox Picture1 
      Height          =   10935
      Left            =   0
      Picture         =   "frmQuerry.frx":014A
      ScaleHeight     =   932.663
      ScaleMode       =   0  'User
      ScaleWidth      =   1314.717
      TabIndex        =   5
      Top             =   0
      Width           =   15255
      Begin MSAdodcLib.Adodc Adodc3 
         Height          =   375
         Left            =   600
         Top             =   2760
         Visible         =   0   'False
         Width           =   1200
         _ExtentX        =   2117
         _ExtentY        =   661
         ConnectMode     =   0
         CursorLocation  =   3
         IsolationLevel  =   -1
         ConnectionTimeout=   15
         CommandTimeout  =   30
         CursorType      =   3
         LockType        =   3
         CommandType     =   8
         CursorOptions   =   0
         CacheSize       =   50
         MaxRecords      =   0
         BOFAction       =   0
         EOFAction       =   0
         ConnectStringType=   1
         Appearance      =   1
         BackColor       =   -2147483643
         ForeColor       =   -2147483640
         Orientation     =   0
         Enabled         =   -1
         Connect         =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=AISKM.mdb;Persist Security Info=False"
         OLEDBString     =   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=AISKM.mdb;Persist Security Info=False"
         OLEDBFile       =   ""
         DataSourceName  =   ""
         OtherAttributes =   ""
         UserName        =   ""
         Password        =   ""
         RecordSource    =   ""
         Caption         =   "Adodc3"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         _Version        =   393216
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "会计科目"
         BeginProperty Font 
            Name            =   "隶书"
            Size            =   26.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   525
         Left            =   6840
         TabIndex        =   7
         Top             =   840
         Width           =   2160
      End
      Begin VB.Label Label1 
         BackColor       =   &H80000018&
         BackStyle       =   0  'Transparent
         Caption         =   "请输入科目代号或科目名称"
         ForeColor       =   &H80000018&
         Height          =   255
         Left            =   2640
         TabIndex        =   6
         Top             =   240
         Width           =   2295
      End
   End
   Begin VB.Menu mnuAdd 
      Caption         =   "科目增加"
      Index           =   0
   End
   Begin VB.Menu mnuDelete 
      Caption         =   "科目删除"
   End
   Begin VB.Menu mnuUpdate 
      Caption         =   "科目修改"
   End
   Begin VB.Menu mnuEnd 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "frmQuerry"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'模糊查询
Private Sub Command1_Click()
    If Text1.Text = "" Then
        MsgBox "请输入要查询的科目代码"
    Else
        Adodc2.RecordSource = "select * from kmzd where 科目代码='" + Text1.Text + "' or 科目名称 like '%" + Text1.Text + "%'"
        Adodc2.Refresh
        If Adodc2.Recordset.RecordCount >= 1 Then
            Set DataGrid1.DataSource = Adodc2
            DataGrid1.Refresh
            Text1.Text = ""
            Text1.SetFocus
        Else
        MsgBox "您要查找的科目代码不存在"
        Text1.Text = ""
        Text1.SetFocus
        End If
    End If
End Sub

Private Sub Form_Load()
    Adodc1.RecordSource = "select 科目代码,科目名称,科目类别,余额方向 from kmzd order by 科目代码 asc "
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
    DataGrid1.Columns(0).Width = 800
    DataGrid1.Columns(1).Width = 1600
    DataGrid1.Columns(2).Width = 2500
    DataGrid1.Columns(3).Width = 1500
End Sub

Private Sub mnuAdd_Click(Index As Integer)
    frmAdd.Show 1
End Sub
'删除科目
Private Sub mnuDelete_Click()
If DataGrid1.Columns(0).Text = "" Then
    MsgBox "请选择要删除的科目代码"
ElseIf CheckDel1() = False Then
    MsgBox "还存在其他下一级别科目，不能删除"
Else
    Adodc2.RecordSource = "select 科目代码 from kmzd where 科目代码='" + DataGrid1.Columns(0).Text + "'"
    If MsgBox("你确定要删除此会计科目吗", vbYesNo + vbQuestion, "信息提示") = vbYes Then
        Adodc2.Refresh
        Adodc2.Recordset.Delete
        Adodc2.Recordset.Close
        Adodc2.Refresh
        Set DataGrid1.DataSource = Adodc1
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
    End If
End If
End Sub
'检验要删除的科目是否存在下级科目
Public Function CheckDel1() As Boolean
    Dim Str As String
    Str = DataGrid1.Columns(0).Text
    Adodc3.RecordSource = "select 科目代码 from kmzd where 科目代码 like'" + DataGrid1.Columns(0).Text + "%'"
    Adodc3.Refresh
    If Adodc3.Recordset.RecordCount >= 2 Then
        CheckDel1 = False
    Else
        CheckDel1 = True
    End If
End Function

Private Sub mnuEnd_Click()
    End
End Sub

Private Sub mnuQuerry_Click()
    frmQuerry.Show 1
End Sub

Private Sub mnuUpdate_Click()
    If DataGrid1.Columns(0).Text = "" Then
       MsgBox "请选择需要删除的科目"
    Else
        frmUpdate.Show 1
    End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Call Command1_Click
    End If
End Sub
'显示全部或部分信息
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    
    Select Case Button.Index
        Case 1
        Adodc1.RecordSource = "select  科目代码,科目名称,科目类别,余额方向 from kmzd order by 科目代码 asc"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        DataGrid1.Refresh
        Case 2
        Adodc1.RecordSource = "select  科目代码,科目名称,科目类别,余额方向 from kmzd where 科目类别='资产' order by 科目代码 asc"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        Case 3
        Adodc1.RecordSource = "select  科目代码,科目名称,科目类别,余额方向 from kmzd where 科目类别='负债' order by 科目代码 asc"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        Case 4
        Adodc1.RecordSource = "select  科目代码,科目名称,科目类别,余额方向 from kmzd where 科目类别='权益' order by 科目代码 asc"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        Case 5
        Adodc1.RecordSource = "select  科目代码,科目名称,科目类别,余额方向 from kmzd where 科目类别='成本' order by 科目代码 asc"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        Case 6
        Adodc1.RecordSource = "select  科目代码,科目名称,科目类别,余额方向 from kmzd where 科目类别='损益' order by 科目代码 asc"
        Adodc1.Refresh
        Set DataGrid1.DataSource = Adodc1
        End Select
End Sub