addware.frm

来自「一个企业生产管理系统」· FRM 代码 · 共 504 行 · 第 1/2 页

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form addware 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "ware_product"
   ClientHeight    =   4965
   ClientLeft      =   1095
   ClientTop       =   330
   ClientWidth     =   5970
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4965
   ScaleWidth      =   5970
   Begin VB.TextBox Text1 
      DataField       =   "warename"
      DataSource      =   "datPrimaryRS"
      Height          =   375
      Left            =   2040
      TabIndex        =   20
      Text            =   "Text1"
      Top             =   3480
      Width           =   3375
   End
   Begin MSDataListLib.DataCombo DataCombo2 
      Bindings        =   "addware.frx":0000
      DataField       =   "ware_id"
      DataSource      =   "datPrimaryRS"
      Height          =   330
      Left            =   2040
      TabIndex        =   18
      Top             =   0
      Width           =   3375
      _ExtentX        =   5953
      _ExtentY        =   582
      _Version        =   393216
      ListField       =   "warename"
      BoundColumn     =   "ware_id"
      Text            =   "DataCombo2"
      Object.DataMember      =   "Command2"
   End
   Begin MSDataListLib.DataCombo DataCombo1 
      Bindings        =   "addware.frx":003D
      DataField       =   "blong_to"
      DataSource      =   "datPrimaryRS"
      Height          =   330
      Left            =   2040
      TabIndex        =   17
      Top             =   2520
      Width           =   3375
      _ExtentX        =   5953
      _ExtentY        =   582
      _Version        =   393216
      ListField       =   "blong_to"
      BoundColumn     =   "id"
      Text            =   "DataCombo1"
      Object.DataMember      =   "Command1"
   End
   Begin VB.TextBox txtFields 
      DataField       =   "ware_layer_id"
      DataSource      =   "datPrimaryRS"
      Height          =   285
      Index           =   1
      Left            =   2040
      TabIndex        =   10
      Top             =   1335
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "quantity"
      DataSource      =   "datPrimaryRS"
      Height          =   285
      Index           =   2
      Left            =   2040
      TabIndex        =   9
      Top             =   1785
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "war_ware_id"
      DataSource      =   "datPrimaryRS"
      Height          =   285
      Index           =   3
      Left            =   2040
      TabIndex        =   8
      Top             =   2220
      Width           =   3375
   End
   Begin VB.TextBox txtFields 
      DataField       =   "blong_to"
      DataSource      =   "datPrimaryRS"
      Height          =   285
      Index           =   4
      Left            =   2040
      TabIndex        =   7
      Top             =   2895
      Width           =   3375
   End
   Begin VB.PictureBox picButtons 
      Align           =   2  'Align Bottom
      Appearance      =   0  'Flat
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   300
      Left            =   0
      ScaleHeight     =   300
      ScaleWidth      =   5970
      TabIndex        =   0
      Top             =   4665
      Width           =   5970
      Begin VB.CommandButton cmdClose 
         Caption         =   "关闭(&C)"
         Height          =   300
         Left            =   4680
         TabIndex        =   5
         Top             =   0
         Width           =   1095
      End
      Begin VB.CommandButton cmdRefresh 
         Caption         =   "刷新(&R)"
         Height          =   300
         Left            =   3521
         TabIndex        =   4
         Top             =   0
         Width           =   1095
      End
      Begin VB.CommandButton cmdDelete 
         Caption         =   "删除(&D)"
         Height          =   300
         Left            =   2367
         TabIndex        =   3
         Top             =   0
         Width           =   1095
      End
      Begin VB.CommandButton cmdUpdate 
         Caption         =   "更新(&U)"
         Height          =   300
         Left            =   1213
         TabIndex        =   2
         Top             =   0
         Width           =   1095
      End
      Begin VB.CommandButton cmdAdd 
         Caption         =   "添加(&A)"
         Height          =   300
         Left            =   59
         TabIndex        =   1
         Top             =   0
         Width           =   1095
      End
   End
   Begin MSAdodcLib.Adodc datPrimaryRS 
      Align           =   2  'Align Bottom
      Height          =   330
      Left            =   0
      Top             =   4335
      Visible         =   0   'False
      Width           =   5970
      _ExtentX        =   10530
      _ExtentY        =   582
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   "PROVIDER=MSDASQL;driver={SQL Server};server=ht;uid=sa;pwd=;database=warehouse;"
      OLEDBString     =   "PROVIDER=MSDASQL;driver={SQL Server};server=ht;uid=sa;pwd=;database=warehouse;"
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   "select ware_id,ware_layer_id,quantity,war_ware_id,blong_to,warename from ware_product"
      Caption         =   " "
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000001&
      Height          =   375
      Left            =   5160
      Picture         =   "addware.frx":008C
      ScaleHeight     =   315
      ScaleWidth      =   195
      TabIndex        =   6
      Top             =   480
      Width           =   255
   End
   Begin VB.TextBox txtFields 
      DataField       =   "ware_id"
      DataSource      =   "datPrimaryRS"
      Height          =   405
      Index           =   0
      Left            =   2040
      TabIndex        =   11
      Top             =   480
      Width           =   3375
   End
   Begin VB.Label WWW 
      Caption         =   "零件名称"
      Height          =   375
      Left            =   840
      TabIndex        =   19
      Top             =   3480
      Width           =   975
   End
   Begin VB.Label lblLabels 
      Caption         =   "零件编号"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   840
      TabIndex        =   16
      Top             =   480
      Width           =   975
   End
   Begin VB.Label lblLabels 
      Caption         =   "ware_layer_id:"
      Height          =   255