frmunsellquery.frm

来自「通用书店管理系统」· FRM 代码 · 共 737 行 · 第 1/3 页

FRM
737
字号
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{DEF7CADD-83C0-11D0-A0F1-00A024703500}#7.0#0"; "TODG7.OCX"
Begin VB.Form frmUnsellQuery 
   Caption         =   "退书查询——零售"
   ClientHeight    =   6825
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6825
   ScaleWidth      =   11880
   WindowState     =   2  'Maximized
   Begin VB.CommandButton cmdSearch 
      Caption         =   "查询条件(&F)"
      Height          =   405
      Index           =   0
      Left            =   10380
      TabIndex        =   20
      Top             =   6240
      Width           =   1335
   End
   Begin VB.Frame Frame1 
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Caption         =   "查询条件"
      ForeColor       =   &H80000008&
      Height          =   3255
      Index           =   0
      Left            =   3660
      TabIndex        =   18
      Top             =   1020
      Visible         =   0   'False
      Width           =   4560
      Begin VB.CommandButton cmdSearch 
         Appearance      =   0  'Flat
         Height          =   315
         Index           =   7
         Left            =   4020
         Picture         =   "frmUnsellQuery.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   14
         Top             =   660
         Width           =   345
      End
      Begin VB.CommandButton cmdSearch 
         Appearance      =   0  'Flat
         Height          =   315
         Index           =   6
         Left            =   4020
         Picture         =   "frmUnsellQuery.frx":0344
         Style           =   1  'Graphical
         TabIndex        =   16
         Top             =   180
         Width           =   345
      End
      Begin VB.CommandButton cmdSearch 
         Appearance      =   0  'Flat
         Height          =   315
         Index           =   5
         Left            =   4020
         Picture         =   "frmUnsellQuery.frx":0688
         Style           =   1  'Graphical
         TabIndex        =   13
         Top             =   1140
         Width           =   345
      End
      Begin VB.CommandButton cmdSearch 
         Appearance      =   0  'Flat
         Height          =   315
         Index           =   4
         Left            =   4020
         Picture         =   "frmUnsellQuery.frx":09CC
         Style           =   1  'Graphical
         TabIndex        =   12
         Top             =   1620
         Visible         =   0   'False
         Width           =   345
      End
      Begin VB.CommandButton cmdExit 
         Appearance      =   0  'Flat
         Height          =   405
         Index           =   0
         Left            =   2520
         Picture         =   "frmUnsellQuery.frx":0D10
         Style           =   1  'Graphical
         TabIndex        =   15
         Top             =   2700
         Width           =   960
      End
      Begin VB.CommandButton cmdOk 
         Appearance      =   0  'Flat
         Height          =   405
         Index           =   0
         Left            =   1320
         Picture         =   "frmUnsellQuery.frx":21F4
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   2700
         Width           =   960
      End
      Begin VB.CheckBox chkFields 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         Caption         =   "书名"
         ForeColor       =   &H80000008&
         Height          =   315
         Index           =   3
         Left            =   240
         TabIndex        =   11
         Top             =   720
         Value           =   1  'Checked
         Width           =   765
      End
      Begin VB.TextBox txtFields 
         Appearance      =   0  'Flat
         Height          =   345
         Index           =   3
         Left            =   1260
         TabIndex        =   1
         Top             =   660
         Width           =   2610
      End
      Begin VB.TextBox txtFields 
         Appearance      =   0  'Flat
         Height          =   345
         Index           =   2
         Left            =   1260
         TabIndex        =   0
         Top             =   180
         Width           =   2610
      End
      Begin VB.TextBox txtFields 
         Appearance      =   0  'Flat
         Height          =   345
         Index           =   1
         Left            =   1260
         TabIndex        =   2
         Top             =   1140
         Width           =   2610
      End
      Begin VB.TextBox txtFields 
         Appearance      =   0  'Flat
         Height          =   345
         Index           =   0
         Left            =   1260
         TabIndex        =   3
         Top             =   1620
         Visible         =   0   'False
         Width           =   2610
      End
      Begin VB.CheckBox chkFields 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         Caption         =   "书号"
         ForeColor       =   &H80000008&
         Height          =   315
         Index           =   2
         Left            =   240
         TabIndex        =   10
         Top             =   240
         Value           =   1  'Checked
         Width           =   960
      End
      Begin MSComCtl2.DTPicker dtpDate 
         Height          =   375
         Index           =   0
         Left            =   1260
         TabIndex        =   5
         Top             =   2100
         Width           =   1365
         _ExtentX        =   2408
         _ExtentY        =   661
         _Version        =   393216
         Format          =   24576001
         CurrentDate     =   37329
      End
      Begin MSComCtl2.DTPicker dtpDate 
         Height          =   375
         Index           =   1
         Left            =   3060
         TabIndex        =   6
         Top             =   2100
         Width           =   1365
         _ExtentX        =   2408
         _ExtentY        =   661
         _Version        =   393216
         Format          =   24576001
         CurrentDate     =   37329
      End
      Begin VB.CheckBox chkFields 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         Caption         =   "图书类型"
         ForeColor       =   &H80000008&
         Height          =   315
         Index           =   1
         Left            =   240
         TabIndex        =   9
         Top             =   1200
         Value           =   1  'Checked
         Width           =   1050
      End
      Begin VB.CheckBox chkFields 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         Caption         =   "供货商号"
         ForeColor       =   &H80000008&
         Height          =   315
         Index           =   0
         Left            =   240
         TabIndex        =   8
         Top             =   1680
         Value           =   1  'Checked
         Visible         =   0   'False
         Width           =   1050
      End
      Begin VB.CheckBox chkFields 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         Caption         =   "销售日期"
         ForeColor       =   &H80000008&
         Height          =   315
         Index           =   4
         Left            =   240
         TabIndex        =   17
         Top             =   2160
         Width           =   1050
      End
      Begin VB.Label Label1 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0C0C0&
         Caption         =   "至"
         ForeColor       =   &H80000008&
         Height          =   300
         Index           =   0
         Left            =   2760
         TabIndex        =   19
         Top             =   2160
         Width           =   330
      End
   End
   Begin TrueOleDBGrid70.TDBGrid tdbQuery 
      Height          =   6045

⌨️ 快捷键说明

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