formdwcx.frm

来往帐、增票登记

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Formdwcx 
   Caption         =   "单位往来帐查询"
   ClientHeight    =   4785
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8700
   LinkTopic       =   "Form1"
   ScaleHeight     =   4785
   ScaleWidth      =   8700
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command3 
      Caption         =   "新增记录"
      Height          =   375
      Left            =   6240
      TabIndex        =   8
      Top             =   120
      Width           =   855
   End
   Begin VB.TextBox Text3 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1920
      TabIndex        =   7
      Top             =   4320
      Width           =   1815
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   3615
      Left            =   0
      TabIndex        =   5
      Top             =   600
      Width           =   8655
      _ExtentX        =   15266
      _ExtentY        =   6376
      _Version        =   393216
      FixedCols       =   0
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   375
      Left            =   7080
      TabIndex        =   4
      Top             =   120
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "查询"
      Height          =   375
      Left            =   5400
      TabIndex        =   3
      Top             =   120
      Width           =   855
   End
   Begin VB.TextBox Text2 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5760
      TabIndex        =   2
      Top             =   120
      Width           =   855
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1080
      TabIndex        =   1
      Top             =   120
      Width           =   3375
   End
   Begin VB.Label Label2 
      Caption         =   "单位余额"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   840
      TabIndex        =   6
      Top             =   4320
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "单位名称"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   975
   End
End
Attribute VB_Name = "Formdwcx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Text1.Text <> "" And Text2.Text <> "" Then
  Set rst = db.OpenRecordset("lwz", 2)
  If rst.EOF = True And rst.BOF = True Then
    MsgBox "记录为空!"
  Else
    Text3.Text = ""
    rst.MoveFirst
    Formdwcx.MSFlexGrid1.Rows = 1
    Formdwcx.MSFlexGrid1.Cols = 6
    Formdwcx.MSFlexGrid1.FormatString = " 日   期  |     摘          要     |借 方 金 额 | 贷 方 金 额 |借贷|  余  额   "
    Formdwcx.MSFlexGrid1.Row = 0
    rst.MoveFirst
    ye = 0
    Do While rst.EOF = False
      If rst.Fields("dw") = Text2.Text Then
        Formdwcx.MSFlexGrid1.Rows = Formdwcx.MSFlexGrid1.Rows + 1
        Formdwcx.MSFlexGrid1.Row = Formdwcx.MSFlexGrid1.Rows - 1
        Formdwcx.MSFlexGrid1.Col = 0
        Formdwcx.MSFlexGrid1.Text = rst.Fields("rq")
        Formdwcx.MSFlexGrid1.Col = 1
        Formdwcx.MSFlexGrid1.Text = rst.Fields("zhy")
        If rst.Fields("jd") = "借" Then
          ye = ye + Val(rst.Fields("je"))
          Formdwcx.MSFlexGrid1.Col = 4
          Formdwcx.MSFlexGrid1.Text = "借"
          Formdwcx.MSFlexGrid1.Col = 2
          Formdwcx.MSFlexGrid1.Text = rst.Fields("je")
          Formdwcx.MSFlexGrid1.Col = 5
          Formdwcx.MSFlexGrid1.Text = ye
        Else
          ye = ye - Val(rst.Fields("je"))
          Formdwcx.MSFlexGrid1.Col = 4
          Formdwcx.MSFlexGrid1.Text = "贷"
          Formdwcx.MSFlexGrid1.Col = 3
          Formdwcx.MSFlexGrid1.Text = rst.Fields("je")
          Formdwcx.MSFlexGrid1.Col = 5
          Formdwcx.MSFlexGrid1.Text = ye
        End If
      End If
    rst.MoveNext
    Loop
    rst.MovePrevious
    Text3.Text = rst.Fields("ye")
  End If
Else
  MsgBox "请选择单位!"
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Formdwdj.Text2.Text = Text1.Text
Formdwdj.Text3.Text = Text2.Text
Formdwdj.Show 1
Formdwdj.Text2.Text = Text1.Text
Formdwdj.Text3.Text = Text2.Text
End Sub

Private Sub Text1_DblClick()
Formdwzl.Command3.Caption = "选    择"
Formdwzl.Show 1
Formdwzl.Command3.Caption = "选    择"
End Sub