yy_cpbj.frm

基于SQL2000的企业管理MRPII,包含进销存,财务,报关等组件,VB6开发,带文档说明.

               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   225
            Index           =   8
            Left            =   120
            TabIndex        =   33
            Top             =   2250
            Width           =   1335
         End
         Begin VB.Label Label 
            Caption         =   "所属客户:"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   9
            Left            =   120
            TabIndex        =   32
            Top             =   2670
            Width           =   1695
         End
      End
   End
   Begin MSAdodcLib.Adodc Adoprimaryrs 
      Height          =   615
      Left            =   3960
      Top             =   5400
      Width           =   4815
      _ExtentX        =   8493
      _ExtentY        =   1085
      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         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "Adoprimaryrs"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "PMingLiU"
         Size            =   9
         Charset         =   136
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin TrueOleDBGrid60.TDBGrid TDBGrid3 
      Bindings        =   "Yy_cpbj.frx":3B3D
      Height          =   5985
      Left            =   30
      OleObjectBlob   =   "Yy_cpbj.frx":3B58
      TabIndex        =   44
      Top             =   120
      Width           =   2715
   End
   Begin VB.Label Label 
      Caption         =   "产品编号:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   13
      Left            =   120
      TabIndex        =   47
      Top             =   6300
      Width           =   1335
   End
End
Attribute VB_Name = "yy_cpbj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Combo_Gwcp As Recordset
Private Sub Cmdprint_Click()
sys_cpzl_rpt.DataControl1.ConnectionString = Conn_Str
sys_cpzl_rpt.DataControl1.Source = "select* from yy_bzdj order BY cplb,cpbh,cpmc"
sys_cpzl_rpt.Show VBRUN.FormShowConstants.vbModal
End Sub

Private Sub Cmdreturn_Click()
Unload Me
End Sub

'*******************************************************
'*            曹汉华   2002.8.29  编写                 *
'*******************************************************
Private Sub cmdnext_Click(Index As Integer) '向后

  On Error Resume Next
  If Not adoprimaryrs.Recordset.EOF Then adoprimaryrs.Recordset.MoveNext
  If adoprimaryrs.Recordset.EOF And adoprimaryrs.Recordset.RecordCount > 0 Then
    Beep
    adoprimaryrs.Recordset.MoveLast
  End If
  
  Exit Sub
End Sub

Private Sub cmdqd_Click(Index As Integer) '首端
   On Error Resume Next
  If adoprimaryrs.Recordset.RecordCount > 0 Then
  If adoprimaryrs.BOFAction = False Then
  adoprimaryrs.Recordset.MoveFirst
  Else
  adoprimaryrs.Recordset.MoveNext
  End If
  Else
  Exit Sub
  End If
  End Sub

Private Sub cmdxq_Click() '向前
  On Error Resume Next
  If Not adoprimaryrs.Recordset.BOF Then adoprimaryrs.Recordset.MovePrevious
  If adoprimaryrs.Recordset.BOF And adoprimaryrs.Recordset.RecordCount > 0 Then
    Beep
    adoprimaryrs.Recordset.MoveFirst
  End If
  
  Exit Sub
End Sub

Private Sub cmdmd_Click() '末端
 On Error Resume Next
 If adoprimaryrs.Recordset.RecordCount > 0 Then
 If adoprimaryrs.Recordset.EOF = False Then
    adoprimaryrs.Recordset.MoveLast
    Else
    adoprimaryrs.Recordset.MovePrevious
 End If
 Else
 Exit Sub
 End If
End Sub
Private Sub combo_KeyPress(Index As Integer, KeyAscii As Integer)

 If KeyAscii = 13 Then    ' 按回车
      KeyAscii = 0
      SendKeys "{TAB}"
   End If

End Sub
Private Sub Form_Load() '列表框数据
 Cmdcancel.Enabled = False
 CmdOK.Enabled = False
 Me.Width = main_FRM.Picture1.Width - 30
 Me.Top = main_FRM.ActiveBar21.Bands("Band7").Height * 2.5 - 65
 Me.Height = main_FRM.Picture1.Height - 300
 Me.Left = main_FRM.Picture1.Left + 15
 Call combo_load
 Call khbh_load
 adoprimaryrs.ConnectionString = Conn_Str
 adoprimaryrs.RecordSource = "select * FROM yy_bzdj order by cpbh,CPMC"
 adoprimaryrs.Refresh
 Combo(1).Enabled = False
 Combo(2).Enabled = False
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) '非法退出禁止
If Cmdcancel.Enabled = True Then
If UnloadMode <> VBRUN.QueryUnloadConstants.vbFormCode Then
Cancel = 1
Exit Sub
End If
End If
End Sub



Private Sub text_KeyDown(Index As Integer, KeyCode As Integer, caizhft As Integer)
If KeyCode = 40 Then        '向下箭头
   If Index + 1 < Text.Count Then
   Text(Index + 1).SetFocus
   Else
   Text(0).SetFocus
  End If
End If
If KeyCode = 38 Then        '向上箭头
  If Index - 1 >= 0 Then
  Text(Index - 1).SetFocus
  Else
  Text(Text.Count - 1).SetFocus
  End If
End If
End Sub

Private Sub Cmdadd_Click()   '添加
  Combo(1).Enabled = True
  Combo(2).Enabled = True
  Cmddelete.Enabled = False
  Cmdadd.Enabled = False
  Cmdedit.Enabled = False
  Cmdreturn.Enabled = False
  CmdOK.Enabled = True
  Cmdcancel.Enabled = True

If adoprimaryrs.Recordset.RecordCount > 0 And adoprimaryrs.Recordset.EOF = False Then
adoprimaryrs.Recordset.MoveLast
End If
adoprimaryrs.Recordset.AddNew
For i = 0 To Text.Count - 1
  Text(i).Locked = False
Next i
Text(0).Text = Combo(0).Text
Text(1).Text = VBA.Date$
adoprimaryrs.Recordset.Fields("sl").Value = 0
adoprimaryrs.Recordset.Fields("kcsx").Value = 0
adoprimaryrs.Recordset.Fields("kcxx").Value = 0
End Sub

Private Sub cmdDelete_Click() '删除
 Combo(2).Enabled = False
  On Error Resume Next
  If adoprimaryrs.Recordset.RecordCount > 0 Then

  With adoprimaryrs
    .Recordset.Delete
    If .Recordset.EOF = False Then .Refresh
     If adoprimaryrs.Recordset.RecordCount > 0 Then
       .Recordset.MoveNext
      Else
     .Recordset.MovePrevious
    End If
    End With
  Else
  Exit Sub
  End If
  'Call tree_load
  'Call combo_load
End Sub

Private Sub cmdEdit_Click() '修改
   Combo(2).Enabled = True
   Combo(1).Enabled = True
  For i = 0 To Text.Count - 1
      Text(i).Locked = False
  Next i

  Cmddelete.Enabled = False
  Cmdadd.Enabled = False
  Cmdedit.Enabled = False
  Cmdreturn.Enabled = False
  CmdOK.Enabled = True
  Cmdcancel.Enabled = True
  On Error GoTo EditErr
  Exit Sub
EditErr:
  MsgBox Err.Description
End Sub
Private Sub cmdCancel_Click() '取消
  Combo(2).Enabled = True
  Combo(1).Enabled = False
  For i = 0 To Text.Count - 1
      Text(i).Locked = True
  Next i
  Combo(0).Locked = False
  Text(0).SetFocus
  Cmddelete.Enabled = True
  Cmdadd.Enabled = True
  Cmdedit.Enabled = True
  Cmdreturn.Enabled = True
  CmdOK.Enabled = False
  Cmdcancel.Enabled = False
  On Error Resume Next
  adoprimaryrs.Recordset.CancelUpdate
  If mvBookMark > 0 Then
    adoprimaryrs.Recordset.Bookmark = mvBookMark
  Else
    adoprimaryrs.Recordset.MoveFirst
  End If
  End Sub

Private Sub cmdOK_Click()    '确认
 Combo(2).Enabled = False
 Combo(1).Enabled = False
On Error Resume Next
If Text(0).Text = "" Then
   MsgBox "所有名称不能为空", 48, "提示"
   Text(0).SetFocus
   Exit Sub
End If
If Text(1).Text = "" Then
   MsgBox "所有名称不能为空", 48, "提示"
   Text(0).SetFocus
   Exit Sub
End If
  Combo(0).Locked = False
  Cmddelete.Enabled = True
  Cmdadd.Enabled = True
  Cmdedit.Enabled = True
  Cmdreturn.Enabled = True
  CmdOK.Enabled = False
  Cmdcancel.Enabled = False
  adoprimaryrs.Recordset.UpdateBatch adAffectCurrent
   adoprimaryrs.Recordset.UpdateBatch adAffectAll
  If adoprimaryrs.Recordset.EOF = False And adoprimaryrs.Recordset.RecordCount > 0 Then
    adoprimaryrs.Recordset.MoveNext
    adoprimaryrs.Recordset.MovePrevious
    Else
    adoprimaryrs.Recordset.MovePrevious
     adoprimaryrs.Recordset.MoveNext
  End If
  Cmdcancel.Enabled = False
  CmdOK.Enabled = False
  'Call tree_load
  Call combo_load
  For i = 0 To Text.Count - 1
      Text(i).Locked = True
  Next i
End Sub


Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
   If KeyAscii = 13 Then    ' 按回车
      KeyAscii = 0
      SendKeys "{TAB}"
   End If
End Sub


Sub combo_load()
On Error Resume Next
Dim Lb As String
Dim combo_data As Recordset
Set combo_data = New Recordset
combo_data.Open "select DISTINCT cplb from yy_bzdj", DB, adOpenStatic, adLockOptimistic
 If combo_data.RecordCount > 0 Then
   Lb = Combo(0).Text
   Combo(0).Clear
   For i = 1 To combo_data.RecordCount
    Combo(0).AddItem (combo_data.Fields("cplb"))
     If combo_data.EOF = False Then
     combo_data.MoveNext
   End If
   Next i
 combo_data.MoveFirst
 Combo(0).Text = Lb
 End If
Dim Combo_Gwcp As Recordset
Set Combo_Gwcp = New Recordset
Combo_Gwcp.Open "select DISTINCT spbh,spmc from bg_cp", DB, adOpenStatic, adLockOptimistic
 If Combo_Gwcp.RecordCount > 0 Then
   Lb = Combo(2).Text
   Combo(2).Clear
   For i = 1 To Combo_Gwcp.RecordCount
    Combo(2).AddItem (Combo_Gwcp.Fields("spbh"))
     If Combo_Gwcp.EOF = False Then
     Combo_Gwcp.MoveNext
   End If
   Next i
 Combo_Gwcp.MoveFirst
 Combo(2).Text = Lb
 End If
 End Sub
 Sub khbh_load()
On Error Resume Next
Dim Lb As String
Dim combo_data1 As Recordset
Set combo_data1 = New Recordset
combo_data1.Open "select DISTINCT khbh from yy_khzl", DB, adOpenStatic, adLockOptimistic
 If combo_data1.RecordCount > 0 Then
   Lb = Combo(1).Text
   Combo(1).Clear
   For i = 1 To combo_data1.RecordCount
    Combo(1).AddItem (combo_data1.Fields("khbh"))
     If combo_data1.EOF = False Then
     combo_data1.MoveNext
   End If
   Next i
 combo_data1.MoveFirst
 Combo(1).Text = Lb
 Else
 Exit Sub
 End If
 
 End Sub

Private Sub Text1_Change()
adoprimaryrs.ConnectionString = Conn_Str
 adoprimaryrs.RecordSource = "select * FROM yy_bzdj where cpbh like '%" & Text1.Text & "%' order by cpbh,CPMC"
 adoprimaryrs.Refresh
End Sub