formzpcx.frm

来往帐、增票登记

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Formzpcx 
   Caption         =   "增票签收查询"
   ClientHeight    =   4365
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7170
   LinkTopic       =   "Form1"
   ScaleHeight     =   4365
   ScaleWidth      =   7170
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   375
      Left            =   6240
      TabIndex        =   9
      Top             =   240
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "查询"
      Height          =   375
      Left            =   5280
      TabIndex        =   8
      Top             =   240
      Width           =   975
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   3135
      Left            =   0
      TabIndex        =   7
      Top             =   1200
      Width           =   7095
      _ExtentX        =   12515
      _ExtentY        =   5530
      _Version        =   393216
      FixedCols       =   0
   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        =   6
      Top             =   720
      Visible         =   0   'False
      Width           =   975
   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        =   5
      Top             =   720
      Width           =   4095
   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            =   3840
      TabIndex        =   3
      Top             =   240
      Width           =   1455
   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            =   1440
      TabIndex        =   1
      Top             =   240
      Width           =   1455
   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        =   4
      Top             =   720
      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            =   2880
      TabIndex        =   2
      Top             =   240
      Width           =   1215
   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            =   0
      TabIndex        =   0
      Top             =   240
      Width           =   1455
   End
End
Attribute VB_Name = "Formzpcx"
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 <> "" And Text3.Text <> "" And Text4.Text <> "" Then
  Set rst = db.OpenRecordset("zpdj", 2)
  'sql = "select a.dw,b.* from dw a,zpdj b where a.ID=b.dw "
  'db.Execute sql
  rst.MoveFirst
  Formzpcx.MSFlexGrid1.Rows = Val(rst.RecordCount) + 1
  'MsgBox Formzpcx.MSFlexGrid1.Rows
  Formzpcx.MSFlexGrid1.Cols = 10
  Formzpcx.MSFlexGrid1.FormatString = " 开 票 日 期 | 收 票 日 期 | 登 记 日 期 | 记 帐 日 期 | 到 期 日 期 | 增  票  单  号  |   金    额   |  税 额  | 总  金  额  |记帐"
  Formzpcx.MSFlexGrid1.Row = 0
  rst.MoveFirst
  Do While rst.EOF = False
    If rst.Fields("dw") = Text4.Text And rst.Fields("kprq") >= Text1.Text And rst.Fields("kprq") <= Text2.Text Then
      'MsgBox Formzpcx.MSFlexGrid1.Row
      'MsgBox Formzpcx.MSFlexGrid1.Rows
      Formzpcx.MSFlexGrid1.Row = Formzpcx.MSFlexGrid1.Row + 1
      Formzpcx.MSFlexGrid1.Rows = Formzpcx.MSFlexGrid1.Rows + 1
      Formzpcx.MSFlexGrid1.Col = 0
      Formzpcx.MSFlexGrid1.Text = rst.Fields("kprq")
      Formzpcx.MSFlexGrid1.Col = 1
      Formzpcx.MSFlexGrid1.Text = rst.Fields("jsrq")
      Formzpcx.MSFlexGrid1.Col = 2
      Formzpcx.MSFlexGrid1.Text = rst.Fields("rq")
      Formzpcx.MSFlexGrid1.Col = 3
      Formzpcx.MSFlexGrid1.Text = rst.Fields("jzrq")
      Formzpcx.MSFlexGrid1.Col = 4
      Formzpcx.MSFlexGrid1.Text = rst.Fields("dqrq")
      Formzpcx.MSFlexGrid1.Col = 5
      Formzpcx.MSFlexGrid1.Text = rst.Fields("djbh")
      Formzpcx.MSFlexGrid1.Col = 6
      Formzpcx.MSFlexGrid1.Text = rst.Fields("je")
      Formzpcx.MSFlexGrid1.Col = 7
      Formzpcx.MSFlexGrid1.Text = rst.Fields("se")
      Formzpcx.MSFlexGrid1.Col = 8
      Formzpcx.MSFlexGrid1.Text = rst.Fields("zje")
      Formzpcx.MSFlexGrid1.Col = 9
      Formzpcx.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 = "6"
Formrq.Show 1
Formrq.Text1.Text = "6"
End Sub

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

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