frmwuliaorcedit.frm

一个ERP系统可以用来学习之用

      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      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.Label Label13 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "入库时间"
      Height          =   255
      Left            =   4440
      TabIndex        =   14
      Top             =   4440
      Width           =   1215
   End
   Begin VB.Label Label12 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "仓库名称"
      Height          =   255
      Left            =   4440
      TabIndex        =   13
      Top             =   3840
      Width           =   1215
   End
   Begin VB.Label Label11 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "单价"
      Height          =   255
      Left            =   4440
      TabIndex        =   12
      Top             =   3240
      Width           =   1215
   End
   Begin VB.Label Label10 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "物料代号"
      Height          =   255
      Left            =   4440
      TabIndex        =   11
      Top             =   2640
      Width           =   1215
   End
   Begin VB.Label Label9 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "入仓单代号"
      Height          =   255
      Left            =   4440
      TabIndex        =   10
      Top             =   2040
      Width           =   1215
   End
   Begin VB.Label Label8 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "入库负责人"
      Height          =   255
      Left            =   360
      TabIndex        =   9
      Top             =   4440
      Width           =   975
   End
   Begin VB.Label Label7 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "金额"
      Height          =   255
      Left            =   360
      TabIndex        =   8
      Top             =   3840
      Width           =   975
   End
   Begin VB.Label Label6 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "进库数量"
      Height          =   255
      Left            =   360
      TabIndex        =   7
      Top             =   3240
      Width           =   975
   End
   Begin VB.Label Label4 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "公司代号"
      Height          =   255
      Left            =   360
      TabIndex        =   6
      Top             =   2640
      Width           =   975
   End
   Begin VB.Label Label3 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "入仓ID"
      Height          =   255
      Left            =   360
      TabIndex        =   5
      Top             =   2040
      Width           =   975
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "物料入仓明细数据表"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2760
      TabIndex        =   4
      Top             =   360
      Width           =   4215
   End
   Begin VB.Image imgExit 
      Height          =   480
      Left            =   6480
      Picture         =   "frmwuliaoRCedit.frx":0000
      Top             =   5520
      Width           =   480
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "退出"
      Height          =   180
      Left            =   6480
      TabIndex        =   3
      Top             =   6000
      Width           =   480
   End
   Begin VB.Label lbldelete 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "删除"
      Height          =   180
      Left            =   4800
      TabIndex        =   2
      Top             =   6000
      Width           =   360
   End
   Begin VB.Image imgDelete 
      Height          =   480
      Left            =   4800
      Picture         =   "frmwuliaoRCedit.frx":0442
      Top             =   5520
      Width           =   480
   End
   Begin VB.Label lblmodify 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "修改"
      Height          =   180
      Left            =   3360
      TabIndex        =   1
      Top             =   6000
      Width           =   360
   End
   Begin VB.Image imgModify 
      Height          =   480
      Left            =   3360
      Picture         =   "frmwuliaoRCedit.frx":074C
      Top             =   5520
      Width           =   480
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "添加"
      Height          =   180
      Left            =   1920
      TabIndex        =   0
      Top             =   6000
      Width           =   360
   End
   Begin VB.Image imgAdd 
      Height          =   480
      Left            =   1920
      Picture         =   "frmwuliaoRCedit.frx":0B8E
      Top             =   5520
      Width           =   480
   End
End
Attribute VB_Name = "frmwuliaoRCedit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public modify As Boolean
Public oriid As String


Private Sub Form_Load()
    frmwuliaoRCedit.BackColor = RGB(77, 116, 244)
   Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=ERP"
   Adodc1.RecordSource = "SELECT * FROM GYSHANG"
   Adodc1.Refresh
   
   If Adodc1.Recordset.RecordCount > 0 Then
        Adodc1.Recordset.MoveFirst
      Do While Adodc1.Recordset.EOF = False
        ComboGxdaihao.AddItem (Adodc1.Recordset.Fields("GYNAME"))
        Adodc1.Recordset.MoveNext
      Loop
   Else
   End If
        
  Adodc2.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=ERP"
  Adodc2.RecordSource = "SELECT * FROM WULIAOMULU"
  Adodc2.Refresh
  
  If Adodc2.Recordset.RecordCount > 0 Then
        Adodc2.Recordset.MoveFirst
       Do While Adodc2.Recordset.EOF = False
        ComboWLdaihao.AddItem (Adodc2.Recordset.Fields("WLNAME"))
        Adodc2.Recordset.MoveNext
       Loop
  Else
  End If
   ComboRcman.AddItem "张三"
   ComboRcman.AddItem "李四"
   comboCfdidian.AddItem "A区"
   comboCfdidian.AddItem "B区"
   comboCfdidian.AddItem "二区"
End Sub

Private Sub imgExit_Click()
    Label5_Click
End Sub

Private Sub Label5_Click()
    Unload Me
    frmwuliaoRC.Show
End Sub