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

📄 frmothersql.frm

📁 一个简单但功能强大的进货系统,同样适合用于毕业论文的设计
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form frmOtherSql 
   Caption         =   "其它入库单查询(已过帐)"
   ClientHeight    =   6915
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7725
   Icon            =   "frmOtherSql.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6915
   ScaleWidth      =   7725
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame2 
      ForeColor       =   &H00000000&
      Height          =   3900
      Left            =   0
      TabIndex        =   5
      Top             =   3000
      Width           =   7695
      Begin VB.TextBox txtps_demo 
         Appearance      =   0  'Flat
         DataField       =   "备注"
         DataMember      =   "Com已过账其它入库"
         DataSource      =   "DEaccp"
         Enabled         =   0   'False
         Height          =   300
         Left            =   4920
         TabIndex        =   10
         Top             =   830
         Width           =   2595
      End
      Begin VB.TextBox txtps_maker 
         Appearance      =   0  'Flat
         DataField       =   "操作员名称"
         DataMember      =   "Com已过账其它入库"
         DataSource      =   "DEaccp"
         Enabled         =   0   'False
         Height          =   300
         Left            =   1200
         TabIndex        =   9
         Top             =   830
         Width           =   915
      End
      Begin VB.TextBox txtps_date 
         Appearance      =   0  'Flat
         DataField       =   "入库日期"
         DataMember      =   "Com已过账其它入库"
         DataSource      =   "DEaccp"
         Enabled         =   0   'False
         Height          =   300
         Left            =   3000
         TabIndex        =   8
         Top             =   330
         Width           =   1080
      End
      Begin VB.TextBox txtps_id 
         Appearance      =   0  'Flat
         DataField       =   "入库编号"
         DataMember      =   "Com已过账其它入库"
         DataSource      =   "DEaccp"
         Enabled         =   0   'False
         Height          =   300
         Left            =   1200
         TabIndex        =   7
         Top             =   330
         Width           =   915
      End
      Begin VB.TextBox Txt 
         Appearance      =   0  'Flat
         DataField       =   "仓库编号"
         DataMember      =   "Com已过账其它入库"
         DataSource      =   "DEaccp"
         Enabled         =   0   'False
         Height          =   270
         Left            =   3000
         TabIndex        =   6
         Top             =   840
         Width           =   1095
      End
      Begin MSDataGridLib.DataGrid DataGrid2 
         Bindings        =   "frmOtherSql.frx":1272
         Height          =   2055
         Left            =   420
         TabIndex        =   11
         Top             =   1260
         Width           =   6855
         _ExtentX        =   12091
         _ExtentY        =   3625
         _Version        =   393216
         AllowUpdate     =   0   'False
         BackColor       =   16777215
         Enabled         =   -1  'True
         ColumnHeaders   =   -1  'True
         HeadLines       =   1
         RowHeight       =   17
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         DataMember      =   "Com已过帐库存"
         ColumnCount     =   5
         BeginProperty Column00 
            DataField       =   "入库编号"
            Caption         =   "入库编号"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "商品编号"
            Caption         =   "商品编号"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "数量"
            Caption         =   "数量"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.0000"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "单价"
            Caption         =   "单价"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "总额"
            Caption         =   "金额"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   1
               Format          =   "#,##0.00"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
               ColumnAllowSizing=   0   'False
               Object.Visible         =   0   'False
               ColumnWidth     =   1275.024
            EndProperty
            BeginProperty Column01 
               Alignment       =   1
               ColumnAllowSizing=   0   'False
               ColumnWidth     =   1184.882
            EndProperty
            BeginProperty Column02 
               Alignment       =   1
               ColumnAllowSizing=   0   'False
               ColumnWidth     =   1800
            EndProperty
            BeginProperty Column03 
               Alignment       =   1
               ColumnAllowSizing=   0   'False
               ColumnWidth     =   1500.095
            EndProperty
            BeginProperty Column04 
               Alignment       =   1
               ColumnAllowSizing=   0   'False
               ColumnWidth     =   1800
            EndProperty
         EndProperty
      End
      Begin MSDataListLib.DataCombo DCboSup 
         Bindings        =   "frmOtherSql.frx":1287
         DataField       =   "供应商编号"
         DataMember      =   "Com已过账其它入库"
         DataSource      =   "DEaccp"
         Height          =   330
         Left            =   5460
         TabIndex        =   12
         Top             =   300
         Width           =   2055
         _ExtentX        =   3625
         _ExtentY        =   582
         _Version        =   393216
         Enabled         =   0   'False
         MatchEntry      =   -1  'True
         Appearance      =   0
         ListField       =   "supplier_name"
         BoundColumn     =   "supplier_id"
         Text            =   ""
         Object.DataMember      =   "ComSupplier"
      End
      Begin VB.Label LblStatus 
         BorderStyle     =   1  'Fixed Single
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   420
         TabIndex        =   19
         Top             =   3480
         Width           =   6855
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "备注:"
         Height          =   180
         Index           =   7
         Left            =   4440
         TabIndex        =   18
         Top             =   885
         Width           =   450
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "操作员:"
         Height          =   180
         Index           =   4
         Left            =   540
         TabIndex        =   17
         Top             =   885
         Width           =   630
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "对方单位:"
         Height          =   180
         Index           =   3
         Left            =   4560
         TabIndex        =   16
         Top             =   330
         Width           =   810
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "日期:"
         Height          =   180
         Index           =   1
         Left            =   2520
         TabIndex        =   15
         Top             =   405
         Width           =   450
      End
      Begin VB.Label lblFieldLabel 
         Alignment       =   1  'Right Justify
         AutoSize        =   -1  'True
         Caption         =   "单据编号:"

⌨️ 快捷键说明

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