⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 frmpz_search.frm

📁 一个用VB写的财务软件源码
💻 FRM
📖 第 1 页 / 共 5 页
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmPZ_Search 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "查询条件"
   ClientHeight    =   3705
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7695
   Icon            =   "frmPZ_Search.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3705
   ScaleWidth      =   7695
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox txtOccurDate 
      Height          =   270
      Left            =   -2430
      TabIndex        =   84
      Top             =   5355
      Visible         =   0   'False
      Width           =   1920
   End
   Begin VB.CommandButton cmdOccurDate 
      CausesValidation=   0   'False
      Height          =   270
      Left            =   -510
      Picture         =   "frmPZ_Search.frx":014A
      Style           =   1  'Graphical
      TabIndex        =   83
      Top             =   5355
      Visible         =   0   'False
      Width           =   300
   End
   Begin MSComCtl2.MonthView mvwOccurDate 
      Height          =   2220
      Left            =   -6480
      TabIndex        =   82
      Top             =   3990
      Visible         =   0   'False
      Width           =   4065
      _ExtentX        =   7170
      _ExtentY        =   3916
      _Version        =   393216
      ForeColor       =   16711680
      BackColor       =   -2147483633
      Appearance      =   1
      StartOfWeek     =   52690945
      TitleForeColor  =   16576
      CurrentDate     =   37063
   End
   Begin VB.TextBox txtLevel 
      Alignment       =   1  'Right Justify
      Height          =   285
      Left            =   2040
      MaxLength       =   1
      TabIndex        =   31
      Text            =   "1"
      Top             =   3188
      Visible         =   0   'False
      Width           =   465
   End
   Begin VB.CommandButton cmdSummary 
      CausesValidation=   0   'False
      Height          =   270
      Left            =   7215
      Picture         =   "frmPZ_Search.frx":024C
      Style           =   1  'Graphical
      TabIndex        =   38
      Top             =   3915
      Width           =   300
   End
   Begin VB.TextBox txtSummary 
      Height          =   270
      Left            =   1080
      TabIndex        =   37
      Top             =   3915
      Width           =   6135
   End
   Begin VB.CommandButton cmdCBD 
      CausesValidation=   0   'False
      Height          =   270
      Left            =   7215
      Picture         =   "frmPZ_Search.frx":034E
      Style           =   1  'Graphical
      TabIndex        =   74
      Top             =   6075
      Width           =   300
   End
   Begin VB.CommandButton cmdVendor 
      CausesValidation=   0   'False
      Height          =   270
      Left            =   7215
      Picture         =   "frmPZ_Search.frx":0450
      Style           =   1  'Graphical
      TabIndex        =   68
      Top             =   5715
      Width           =   300
   End
   Begin VB.CommandButton cmdCustomer 
      CausesValidation=   0   'False
      Height          =   270
      Left            =   7215
      Picture         =   "frmPZ_Search.frx":0552
      Style           =   1  'Graphical
      TabIndex        =   62
      Top             =   5355
      Width           =   300
   End
   Begin VB.CommandButton cmdPerson 
      CausesValidation=   0   'False
      Height          =   270
      Left            =   3030
      Picture         =   "frmPZ_Search.frx":0654
      Style           =   1  'Graphical
      TabIndex        =   77
      Top             =   6465
      Width           =   300
   End
   Begin VB.CommandButton cmdItem 
      CausesValidation=   0   'False
      Height          =   270
      Left            =   3030
      Picture         =   "frmPZ_Search.frx":0756
      Style           =   1  'Graphical
      TabIndex        =   71
      Top             =   6015
      Width           =   300
   End
   Begin VB.CommandButton cmdDepartment 
      CausesValidation=   0   'False
      Height          =   270
      Left            =   3030
      Picture         =   "frmPZ_Search.frx":0858
      Style           =   1  'Graphical
      TabIndex        =   65
      Top             =   5595
      Width           =   300
   End
   Begin VB.CommandButton cmdCountMode 
      CausesValidation=   0   'False
      Height          =   270
      Left            =   3030
      Picture         =   "frmPZ_Search.frx":095A
      Style           =   1  'Graphical
      TabIndex        =   54
      Top             =   5175
      Width           =   300
   End
   Begin VB.CommandButton cmdSubject 
      CausesValidation=   0   'False
      Height          =   270
      Left            =   3000
      Picture         =   "frmPZ_Search.frx":0A5C
      Style           =   1  'Graphical
      TabIndex        =   41
      Top             =   4275
      Width           =   300
   End
   Begin VB.ComboBox cboFX 
      Height          =   300
      Left            =   1080
      Style           =   2  'Dropdown List
      TabIndex        =   47
      Top             =   4701
      Width           =   1335
   End
   Begin VB.TextBox txtForeign2 
      Alignment       =   1  'Right Justify
      Height          =   270
      Left            =   6060
      TabIndex        =   51
      Top             =   4635
      Width           =   1455
   End
   Begin VB.TextBox txtAmount2 
      Alignment       =   1  'Right Justify
      Height          =   270
      Left            =   6060
      TabIndex        =   58
      Top             =   4995
      Width           =   1455
   End
   Begin VB.TextBox txtMoney2 
      Alignment       =   1  'Right Justify
      Height          =   270
      Left            =   6060
      TabIndex        =   45
      Top             =   4275
      Width           =   1455
   End
   Begin VB.TextBox txtBillNo2 
      Height          =   270
      Left            =   6060
      TabIndex        =   81
      Top             =   6435
      Width           =   1455
   End
   Begin VB.TextBox txtBillNo1 
      Height          =   270
      Left            =   4080
      TabIndex        =   79
      Top             =   6435
      Width           =   1455
   End
   Begin VB.TextBox txtCBD 
      Height          =   270
      Left            =   4200
      TabIndex        =   73
      Top             =   6075
      Width           =   3000
   End
   Begin VB.TextBox txtVendor 
      Height          =   270
      Left            =   4200
      TabIndex        =   67
      Top             =   5715
      Width           =   3000
   End
   Begin VB.TextBox txtItem 
      Height          =   270
      Left            =   1080
      TabIndex        =   70
      Top             =   6009
      Width           =   1920
   End
   Begin VB.TextBox txtCustomer 
      Height          =   270
      Left            =   4200
      TabIndex        =   61
      Top             =   5355
      Width           =   3000
   End
   Begin VB.TextBox txtAmount1 
      Alignment       =   1  'Right Justify
      Height          =   270
      Left            =   4080
      TabIndex        =   56
      Top             =   4995
      Width           =   1455
   End
   Begin VB.TextBox txtMoney1 
      Alignment       =   1  'Right Justify
      Height          =   270
      Left            =   4080
      TabIndex        =   43
      Top             =   4275
      Width           =   1455
   End
   Begin VB.TextBox txtCountMode 
      Height          =   270
      Left            =   1080
      TabIndex        =   53
      Top             =   5157
      Width           =   1920
   End
   Begin VB.TextBox txtPerson 
      Height          =   270
      Left            =   1080
      TabIndex        =   76
      Top             =   6435
      Width           =   1920
   End
   Begin VB.TextBox txtDepartment 
      Height          =   270
      Left            =   1080
      TabIndex        =   64
      Top             =   5583
      Width           =   1920
   End
   Begin VB.TextBox txtForeign1 
      Alignment       =   1  'Right Justify
      Height          =   270
      Left            =   4080
      TabIndex        =   49
      Top             =   4635
      Width           =   1455
   End
   Begin VB.TextBox txtSubject 
      Height          =   270
      Left            =   1080
      TabIndex        =   40
      Top             =   4275
      Width           =   1920
   End
   Begin VB.ComboBox cboZDr 
      BackColor       =   &H80000013&
      Enabled         =   0   'False
      Height          =   300
      Left            =   5880
      TabIndex        =   27
      Text            =   "cboZDr"
      Top             =   2040
      Width           =   1635
   End
   Begin VB.ComboBox cboFHr 
      BackColor       =   &H80000013&
      Enabled         =   0   'False
      Height          =   300
      Left            =   5880
      TabIndex        =   29
      Text            =   "cboFHr"
      Top             =   2580
      Width           =   1635
   End
   Begin VB.CheckBox chkZDr 
      Caption         =   "制单人:"
      Height          =   250
      Left            =   4920
      TabIndex        =   26
      Top             =   2065
      Width           =   1000
   End
   Begin VB.CheckBox chkFHr 
      Caption         =   "复核人:"
      Height          =   250
      Left            =   4920
      TabIndex        =   28
      Top             =   2620
      Width           =   1000
   End
   Begin VB.CommandButton cmdMore 
      Caption         =   "辅助条件>>"
      CausesValidation=   0   'False
      Height          =   345
      Left            =   4080
      TabIndex        =   33
      Top             =   3210
      Visible         =   0   'False
      Width           =   1065
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "关闭"
      CausesValidation=   0   'False
      Height          =   345
      Left            =   6480
      TabIndex        =   35
      Top             =   3195
      Width           =   1065
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   345
      Left            =   5310
      TabIndex        =   34
      Top             =   3195
      Width           =   1065
   End
   Begin VB.CheckBox chkPzType 
      Caption         =   "凭证种类(&T):"
      Height          =   180
      Left            =   5040
      TabIndex        =   18
      Top             =   120
      Width           =   1400
   End
   Begin VB.CheckBox chkPzbh 
      Caption         =   "凭证编号(&B):"
      Height          =   180
      Left            =   5040
      TabIndex        =   21
      Top             =   1080
      Width           =   1400
   End
   Begin VB.Frame Frame5 
      Height          =   645
      Left            =   4920
      TabIndex        =   22
      Top             =   1080
      Width           =   2595
      Begin VB.TextBox txtPzbhTo 
         BackColor       =   &H80000013&
         Enabled         =   0   'False
         Height          =   285
         Left            =   1680
         MaxLength       =   4
         TabIndex        =   25
         Top             =   240
         Width           =   825
      End
      Begin VB.TextBox txtPzbhFrom 
         BackColor       =   &H80000013&
         Enabled         =   0   'False
         Height          =   285
         Left            =   480
         MaxLength       =   4
         TabIndex        =   23

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -