formspdq.frm

来往帐、增票登记

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form Formspdq 
   Caption         =   "增票到期查询"
   ClientHeight    =   4290
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7275
   LinkTopic       =   "Form1"
   ScaleHeight     =   4290
   ScaleWidth      =   7275
   StartUpPosition =   1  '所有者中心
   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            =   1200
      TabIndex        =   6
      Top             =   120
      Width           =   1455
   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            =   3720
      TabIndex        =   5
      Top             =   120
      Width           =   1455
   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            =   1320
      TabIndex        =   4
      Top             =   600
      Width           =   4095
   End
   Begin VB.TextBox Text4 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5520
      TabIndex        =   3
      Top             =   600
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "查询"
      Height          =   375
      Left            =   5280
      TabIndex        =   1
      Top             =   120
      Width           =   975
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   375
      Left            =   6360
      TabIndex        =   0
      Top             =   120
      Width           =   855
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   3135
      Left            =   0
      TabIndex        =   2
      Top             =   1080
      Width           =   7215
      _ExtentX        =   12726
      _ExtentY        =   5530
      _Version        =   393216
      FixedCols       =   0
   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            =   240
      TabIndex        =   9
      Top             =   120
      Width           =   975
   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            =   2760
      TabIndex        =   8
      Top             =   120
      Width           =   975
   End
   Begin VB.Label Label3 
      Caption         =   "单位名称"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   7
      Top             =   600
      Width           =   975
   End
End
Attribute VB_Name = "Formspdq"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" Then
  Set rst = db.OpenRecordset("zpdj", 2)
  rst.MoveFirst
  Formspdq.MSFlexGrid1.Rows = rst.RecordCount + 1
  Formspdq.MSFlexGrid1.Cols = 8
  Formspdq.MSFlexGrid1.FormatString = " 开 票 日 期 | 收 票 日 期 | 登 记 日 期 | 记 帐 日 期 | 到 期 日 期 | 增  票  单  号  |   金    额   |记帐"
  Formspdq.MSFlexGrid1.Row = 0
  rst.MoveFirst
  Do While rst.EOF = False
    If rst.Fields("dw") = Text4.Text And rst.Fields("dqrq") <= Text2.Text And rst.Fields("jz") = "否" Then
      Formspdq.MSFlexGrid1.Row = Formzpcx.MSFlexGrid1.Row + 1
      Formspdq.MSFlexGrid1.Col = 0
      Formspdq.MSFlexGrid1.Text = rst.Fields("kprq")
      Formspdq.MSFlexGrid1.Col = 1
      Formspdq.MSFlexGrid1.Text = rst.Fields("jsrq")
      Formspdq.MSFlexGrid1.Col = 2
      Formspdq.MSFlexGrid1.Text = rst.Fields("rq")
      Formspdq.MSFlexGrid1.Col = 3
      Formspdq.MSFlexGrid1.Text = rst.Fields("jzrq")
      Formspdq.MSFlexGrid1.Col = 4
      Formspdq.MSFlexGrid1.Text = rst.Fields("dqrq")
      Formspdq.MSFlexGrid1.Col = 5
      Formspdq.MSFlexGrid1.Text = rst.Fields("djbh")
      Formspdq.MSFlexGrid1.Col = 6
      Formspdq.MSFlexGrid1.Text = rst.Fields("je")
      Formspdq.MSFlexGrid1.Col = 7
      Formspdq.MSFlexGrid1.Text = rst.Fields("jz")
    End If
    rst.MoveNext
  Loop
Else
  MsgBox "请完整选择日期或单位!"
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Text1.Text = Date
Text2.Text = Date
End Sub

Private Sub Text1_DblClick()
Formrq.Text1.Text = "1"
Formrq.Show 1
Formrq.Text1.Text = "1"
End Sub

Private Sub Text2_DblClick()
Formrq.Text1.Text = "2"
Formrq.Show 1
Formrq.Text1.Text = "2"
End Sub

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