sc_wwjg_gczl.frm

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

  Else
  Adoprimaryrs.Recordset.MoveNext
  End If
  Else
  Exit Sub
  End If
  End Sub

Private Sub cmdxq_Click() '向前
  On Error GoTo GoPrevError
  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
GoPrevError:
  MsgBox Err.Description
End Sub

Private Sub cmdmd_Click() '末端
 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 Combo1_Click(Index As Integer)
On Error Resume Next
If Index = 0 Then
  Set combo2_data = New Recordset
  combo2_data.Open "select DISTINCT shi from sys_qysz where sheng='" & Trim(Combo1(0).Text) & "' and (not shi is null or shi<>'')", DB, adOpenStatic
 If combo2_data.RecordCount > 0 Then
   Combo1(1).Clear
   For i = 1 To combo2_data.RecordCount
   Combo1(1).AddItem (combo2_data.Fields("shi"))
   If combo2_data.EOF = False Then
   combo2_data.MoveNext
   End If
   Next i
   Combo1(1).Refresh
   combo2_data.MoveFirst
 Else
 Exit Sub
 End If

Combo1(1).Enabled = True
Combo1(1).Text = ""
Combo1(1).ZOrder
End If
If Index = 1 Then
  Set combo3_data = New Recordset
  combo3_data.Open "select DISTINCT zheng from sys_qysz where shi='" & Trim(Combo1(1).Text) & "' and (not zheng is null or zheng<>'')", DB, adOpenStatic
 If combo3_data.RecordCount > 0 Then
   Combo1(2).Clear
   For i = 1 To combo3_data.RecordCount
   Combo1(2).AddItem (combo3_data.Fields("zheng"))
   If combo3_data.EOF = False Then
   combo3_data.MoveNext
   End If
   Next i
   Combo1(2).Refresh
   combo3_data.MoveFirst
 Else
 Exit Sub
 End If

Combo1(2).Enabled = True
Combo1(2).Text = ""
Combo1(2).ZOrder
End If
If Index = 3 Then
Dim hla As Recordset
Set hla = New Recordset
hla.Open "select DISTINCT hl,bzcode from sys_bzsz where bizh='" & Trim(Combo1(3).Text) & "'", DB, adOpenStatic
Text1(7).Text = hla!hl
Adoprimaryrs.Recordset.Fields("bzcode").Value = hla!bzcode
End If
End Sub

Private Sub Combo1_KeyPress(Index As Integer, KeyAscii As Integer)

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

End Sub

Private Sub Command1_Click()
Dim ZLsj As Recordset

If MsgBox("是否真的更新系统中该客户的基本资料?注:不包括编号变动.", vbYesNo + 16, "系统郑重提示") = vbYes Then
With Adoprimaryrs.Recordset
Set ZLsj = New Recordset
ZLsj.Open "select * from yy_khbjt", DB, adOpenStatic
ZLsj.ActiveConnection.Execute "update yy_khbjt set khmc='" & .Fields("khmc").Value & "',bizh='" & .Fields("bizh").Value & "',phone='" & .Fields("phone").Value & "',fkfs='" & .Fields("fkfs").Value & "',zffs='" & .Fields("zffs").Value & "',hl='" & .Fields("hl").Value & "' where khbh='" & .Fields("khbh").Value & "'"
'ZLsj.ActiveConnection.Execute "update yy_khddt set khmc='" & .Fields("khmc").Value & "',bizh='" & .Fields("bizh").Value & "',phone='" & .Fields("phone").Value & "',fkfs='" & .Fields("fkfs").Value & "',zffs='" & .Fields("zffs").Value & "',hl='" & .Fields("hl").Value & "' where khbh='" & .Fields("khbh").Value & "'"
ZLsj.ActiveConnection.Execute "update yy_cpshdt set khmc='" & .Fields("khmc").Value & "',bizh='" & .Fields("bizh").Value & "',phone='" & .Fields("phone").Value & "',fkfs='" & .Fields("fkfs").Value & "',hl='" & .Fields("hl").Value & "' where khbh='" & .Fields("khbh").Value & "'"
ZLsj.ActiveConnection.Execute "update yy_khtht set khmc='" & .Fields("khmc").Value & "' where khbh='" & .Fields("khbh").Value & "'"
End With
MsgBox "更新完毕!", vbOKOnly + 64, "系统提示"
End If
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 Form_Load() '列表框数据
 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
 Cmdcancel.Enabled = False
 CmdOK.Enabled = False
 Call combo_load
 Adoprimaryrs.ConnectionString = Conn_Str
 Adoprimaryrs.RecordSource = "select * FROM Sc_JGDW_DjB ORDER BY KHBH,KHMC"
 Adoprimaryrs.Refresh
 End Sub
Private Sub Form_Unload(Cancel As Integer)
Adoprimaryrs.Recordset.Close
End Sub

Private Sub text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then        '向下箭头
   If Index + 1 < Text1.Count Then
   Text1(Index + 1).SetFocus
   Else
  
  End If
End If
If KeyCode = 38 Then        '向上箭头
  If Index - 1 >= 0 Then
  Text1(Index - 1).SetFocus
  Else
  Text1(Text1.Count - 1).SetFocus
  End If
End If
End Sub
Private Sub Cmdadd_Click()   '添加
  
  cmdxq.Enabled = False
  cmdnext.Enabled = False
  cmdqd.Enabled = False
  cmdmd.Enabled = False
  Cmdprint.Enabled = False
  TDBGrid3.Enabled = False
  Command1.Enabled = False
  cmdqd.Enabled = False
  Cmd_find.Enabled = False
  Cmddelete.Enabled = False
  Cmdadd.Enabled = False
  Cmdedit.Enabled = False
  Cmdreturn.Enabled = False
  CmdOK.Enabled = True
  Cmdcancel.Enabled = True
On Error GoTo AddErr
If Adoprimaryrs.Recordset.RecordCount > 0 Then
Adoprimaryrs.Recordset.MoveLast
End If
Adoprimaryrs.Recordset.AddNew
For i = 0 To Text1.Count - 1
  Text1(i).Locked = False
Next i
For i = 0 To Combo1.Count - 1
 Combo1(i).Locked = False
Next i
'
'Text1(0).Text = "kh" + bh
Text1(6).Text = Date
Exit Sub
AddErr:
 MsgBox Err.Description
End Sub

Private Sub cmdDelete_Click() '删除
 If MsgBox("是否真的删除当前记录 ？", vbYesNo + 32, "系统提示") = vbYes Then
  On Error Resume Next
  With Adoprimaryrs
    .Recordset.Delete
    .Recordset.MoveNext
    If .Recordset.EOF Then .Recordset.MoveFirst
  End With
End If
End Sub

Private Sub cmdEdit_Click() '修改
  On Error GoTo EditErr
  For i = 0 To Text1.Count - 1
      Text1(i).Locked = False
  Next i
  For i = 0 To Combo1.Count - 1
  Combo1(i).Locked = False
  Next i
  
  Cmd_find.Enabled = False
  Cmddelete.Enabled = False
  Cmdadd.Enabled = False
  Cmdedit.Enabled = False
  Cmdreturn.Enabled = False
  CmdOK.Enabled = True
  Cmdcancel.Enabled = True
  cmdxq.Enabled = False
  cmdnext.Enabled = False
  cmdqd.Enabled = False
  cmdmd.Enabled = False
  Cmdprint.Enabled = False
  TDBGrid3.Enabled = False
  Command1.Enabled = False
  cmdqd.Enabled = False
  Exit Sub
EditErr:
  MsgBox Err.Description
End Sub
Private Sub cmdCancel_Click() '取消
  On Error Resume Next
  For i = 0 To Text1.Count - 1
      Text1(i).Locked = True
  Next i
  For i = 0 To Combo1.Count - 1
  Combo1(i).Locked = True
  Next i
  
  Cmd_find.Enabled = True
  cmdxq.Enabled = True
  cmdnext.Enabled = True
  cmdqd.Enabled = True
  cmdmd.Enabled = True
  Cmdprint.Enabled = True
  TDBGrid3.Enabled = True
  Command1.Enabled = True
  cmdqd.Enabled = True
  Cmddelete.Enabled = True
  Cmdadd.Enabled = True
  Cmdedit.Enabled = True
  Cmdreturn.Enabled = True
  CmdOK.Enabled = False
  Cmdcancel.Enabled = False
  Adoprimaryrs.Recordset.CancelUpdate
  If mvBookMark > 0 Then
    Adoprimaryrs.Recordset.Bookmark = mvBookMark
  Else
    Adoprimaryrs.Recordset.MoveFirst
  End If
End Sub
Private Sub cmdOK_Click()    '确认
On Error GoTo UpdateErr
If Text1(0).Text = "" Then
   MsgBox "所有名称不能为空", 48, "提示"
  
   Exit Sub
End If
If Text1(1).Text = "" Then
   MsgBox "所有名称不能为空", 48, "提示"
  
   Exit Sub
End If
  For i = 0 To Text1.Count - 1
      Text1(i).Locked = True
  Next i
 For i = 0 To Combo1.Count - 1
 Combo1(i).Locked = True
 Next i
  
  Cmd_find.Enabled = True
  cmdxq.Enabled = True
  cmdnext.Enabled = True
  cmdqd.Enabled = True
  cmdmd.Enabled = True
  Cmdprint.Enabled = True
  TDBGrid3.Enabled = True
  Command1.Enabled = True
  cmdqd.Enabled = True
  Cmddelete.Enabled = True
  Cmdadd.Enabled = True
  Cmdedit.Enabled = True
  Cmdreturn.Enabled = True
  CmdOK.Enabled = False
  Cmdcancel.Enabled = False
  Adoprimaryrs.Recordset.UpdateBatch adAffectAll
  If mbAddNewFlag Then
    Adoprimaryrs.Recordset.MoveLast
  End If
  Cmdcancel.Enabled = False
  CmdOK.Enabled = False
  Exit Sub
UpdateErr:
  MsgBox Err.Description
End Sub

Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer)
   If KeyAscii = 13 Then    ' 按回车
      KeyAscii = 0
      SendKeys "{TAB}"
   End If
End Sub
Sub combo_load()
Dim Combo7 As Recordset
Dim combo1_data As Recordset
Dim combo2_data As Recordset
Dim combo3_data As Recordset
Dim Combo4_Data As Recordset
Dim Combo5_Data As Recordset
Dim Combo6_Data As Recordset
Set combo1_data = New Recordset
combo1_data.Open "select DISTINCT sheng from sys_qysz where not sheng is null", DB, adOpenStatic
 If combo1_data.RecordCount > 0 Then
   For i = 1 To combo1_data.RecordCount
    Combo1(0).AddItem (combo1_data.Fields("sheng"))
   If combo1_data.EOF = False Then
     combo1_data.MoveNext
   End If
   Next i
 End If
 Set combo2_data = New Recordset
 combo2_data.Open "select DISTINCT shi from sys_qysz where not shi is null", DB, adOpenStatic
 If combo2_data.RecordCount > 0 Then
   For i = 1 To combo2_data.RecordCount
     Combo1(1).AddItem (combo2_data.Fields("shi"))
   If combo2_data.EOF = False Then
     combo2_data.MoveNext
   End If
   Next i
End If
 Set combo3_data = New Recordset
 combo3_data.Open "select DISTINCT zheng from sys_qysz where not zheng is null", DB, adOpenStatic
 If combo3_data.RecordCount > 0 Then
   For i = 1 To combo3_data.RecordCount
     Combo1(2).AddItem (combo3_data.Fields("zheng"))
   If combo3_data.EOF = False Then
     combo3_data.MoveNext
   End If
   Next i
 End If
 
 Set Combo4_Data = New Recordset
 Combo4_Data.Open "select DISTINCT bizh,hl from sys_bzsz", DB, adOpenStatic
 If Combo4_Data.RecordCount > 0 Then
   For i = 1 To Combo4_Data.RecordCount
    Combo1(3).AddItem (Combo4_Data.Fields("bizh"))
   If Combo4_Data.EOF = False Then
     Combo4_Data.MoveNext
   End If
   Next i
 End If
 Set Combo5_Data = New Recordset
 Combo5_Data.Open "select DISTINCT fkfs from sys_fkfs", DB, adOpenStatic
 If Combo5_Data.RecordCount > 0 Then
   For i = 1 To Combo5_Data.RecordCount
     Combo1(4).AddItem (Combo5_Data.Fields("fkfs"))
    If Combo5_Data.EOF = False Then
     Combo5_Data.MoveNext
   End If
   Next i
End If
 Set Combo6_Data = New Recordset
 Combo6_Data.Open "select DISTINCT zffs from sys_zffs", DB, adOpenStatic
 If Combo6_Data.RecordCount > 0 Then
   For i = 1 To Combo6_Data.RecordCount
     Combo1(6).AddItem (Combo6_Data.Fields("zffs"))
    If Combo6_Data.EOF = False Then
     Combo6_Data.MoveNext
   End If
   Next i
 End If
 Set Combo7 = New Recordset
 Combo7.Open "select DISTINCT name from sys_gzry where zhwu like '%文%'", DB, adOpenStatic
 If Combo7.RecordCount > 0 Then
   For i = 1 To Combo7.RecordCount
     Combo1(5).AddItem (Combo7.Fields("name"))
    If Combo7.EOF = False Then
     Combo7.MoveNext
   End If
   Next i
End If
 End Sub