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

📄 fydg.frm

📁 煤炭销售管理系统.完成煤炭销售的日常管理工作,和重车计量系统空车计量系统配合使用.
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
    DBCombo1.text = datPrimaryRS.Recordset.Fields("hwm")
    Text1.text = datPrimaryRS.Recordset.Fields("fphm")
    Combo2.text = datPrimaryRS.Recordset.Fields("jsfs")
    Text3.text = datPrimaryRS.Recordset.Fields("yfl")
    Text4.text = datPrimaryRS.Recordset.Fields("wfl")
    
    
    Exit Sub
    
GoFirstError:
    MsgBox err.Description
End Sub
    
'##################################################################
'## 过程名称：cmdLast_Click
'## 参数： 无
'##################################################################
Private Sub cmdLast_Click()
    On Error Resume Next
    
    datPrimaryRS.Recordset.MoveLast
    'mbDataChanged = False
    Text2.text = datPrimaryRS.Recordset.Fields("sj")
    txtFields(0) = datPrimaryRS.Recordset.Fields("hth")
    txtFields(1) = datPrimaryRS.Recordset.Fields("htl")
    txtFields(3) = datPrimaryRS.Recordset.Fields("fhr")
    txtFields(4) = datPrimaryRS.Recordset.Fields("fhdw")
    'datPrimaryRS.Recordset.Fields("yfl") = 0
    datPrimaryRS.Recordset.Fields("wfl") = txtFields(1)
    txtFields(5) = datPrimaryRS.Recordset.Fields("dj")
    txtFields(7) = datPrimaryRS.Recordset.Fields("je")
    Label2.text = datPrimaryRS.Recordset.Fields("htldx")
    Label4.text = datPrimaryRS.Recordset.Fields("jedx")
    Combo1.text = datPrimaryRS.Recordset.Fields("ysfs")
    txtFields(9) = datPrimaryRS.Recordset.Fields("bz")
    txtFields(10) = datPrimaryRS.Recordset.Fields("tbr")
    txtFields(11) = datPrimaryRS.Recordset.Fields("fzr")
    DBCombo1.text = datPrimaryRS.Recordset.Fields("hwm")
    Text1.text = datPrimaryRS.Recordset.Fields("fphm")
    Combo2.text = datPrimaryRS.Recordset.Fields("jsfs")
    Text3.text = datPrimaryRS.Recordset.Fields("yfl")
    Text4.text = datPrimaryRS.Recordset.Fields("wfl")
    
    
    Exit Sub
    
GoFirstError:
    MsgBox err.Description
    
End Sub
    
'##################################################################
'## 过程名称：cmdNext_Click
'## 参数： 无
'##################################################################
Private Sub cmdNext_Click()
    On Error Resume Next
    'datPrimaryRS.refresh
    datPrimaryRS.Recordset.MoveNext
    
    
    
    If datPrimaryRS.Recordset.EOF Then
        
        datPrimaryRS.Recordset.MoveLast
        
    End If
    
    'mbDataChanged = False
    Text2.text = datPrimaryRS.Recordset.Fields("sj")
    txtFields(0) = datPrimaryRS.Recordset.Fields("hth")
    txtFields(1) = datPrimaryRS.Recordset.Fields("htl")
    txtFields(3) = datPrimaryRS.Recordset.Fields("fhr")
    txtFields(4) = datPrimaryRS.Recordset.Fields("fhdw")
    'datPrimaryRS.Recordset.Fields("yfl") = 0
    datPrimaryRS.Recordset.Fields("wfl") = txtFields(1)
    txtFields(5) = datPrimaryRS.Recordset.Fields("dj")
    txtFields(7) = datPrimaryRS.Recordset.Fields("je")
    Label2.text = datPrimaryRS.Recordset.Fields("htldx")
    Label4.text = datPrimaryRS.Recordset.Fields("jedx")
    Combo1.text = datPrimaryRS.Recordset.Fields("ysfs")
    txtFields(9) = datPrimaryRS.Recordset.Fields("bz")
    txtFields(10) = datPrimaryRS.Recordset.Fields("tbr")
    txtFields(11) = datPrimaryRS.Recordset.Fields("fzr")
    DBCombo1.text = datPrimaryRS.Recordset.Fields("hwm")
    Text1.text = datPrimaryRS.Recordset.Fields("fphm")
    Combo2.text = datPrimaryRS.Recordset.Fields("jsfs")
    Text3.text = datPrimaryRS.Recordset.Fields("yfl")
    Text4.text = datPrimaryRS.Recordset.Fields("wfl")
    
    
    
    Exit Sub
    
GoFirstError:
    MsgBox err.Description
    
End Sub
    
'##################################################################
'## 过程名称：cmdPrevious_Click
'## 参数： 无
'##################################################################
Private Sub cmdPrevious_Click()
    On Error Resume Next
    'datPrimaryRS.refresh
    
    datPrimaryRS.Recordset.MovePrevious
    'mbDataChanged = False
    If datPrimaryRS.Recordset.BOF Then
        
        datPrimaryRS.Recordset.MoveFirst
        
    End If
    
    Text2.text = datPrimaryRS.Recordset.Fields("sj")
    txtFields(0) = datPrimaryRS.Recordset.Fields("hth")
    txtFields(1) = datPrimaryRS.Recordset.Fields("htl")
    txtFields(3) = datPrimaryRS.Recordset.Fields("fhr")
    txtFields(4) = datPrimaryRS.Recordset.Fields("fhdw")
    'datPrimaryRS.Recordset.Fields("yfl") = 0
    'datPrimaryRS.Recordset.Fields("wfl") = txtFields(1)
    txtFields(5) = datPrimaryRS.Recordset.Fields("dj")
    txtFields(7) = datPrimaryRS.Recordset.Fields("je")
    Label2.text = datPrimaryRS.Recordset.Fields("htldx")
    Label4.text = datPrimaryRS.Recordset.Fields("jedx")
    Combo1.text = datPrimaryRS.Recordset.Fields("ysfs")
    txtFields(9) = datPrimaryRS.Recordset.Fields("bz")
    txtFields(10) = datPrimaryRS.Recordset.Fields("tbr")
    txtFields(11) = datPrimaryRS.Recordset.Fields("fzr")
    DBCombo1.text = datPrimaryRS.Recordset.Fields("hwm")
    Text1.text = datPrimaryRS.Recordset.Fields("fphm")
    Combo2.text = datPrimaryRS.Recordset.Fields("jsfs")
    
    Text3.text = datPrimaryRS.Recordset.Fields("yfl")
    Text4.text = datPrimaryRS.Recordset.Fields("wfl")
    
    Exit Sub
    
GoFirstError:
    MsgBox err.Description
    
End Sub
    
'##################################################################
'## 过程名称：Combo1_Click
'## 参数： 无
'##################################################################
Private Sub Combo1_Click()
    Text1.SetFocus
End Sub
    
'##################################################################
'## 过程名称：Combo1_KeyPress
'## 参数：KeyAscii 为Integer型
'##################################################################
Private Sub Combo1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Text1.SetFocus
    End If
    
End Sub
    
'##################################################################
'## 过程名称：Command1_Click
'## 参数： 无
'##################################################################
Private Sub Command1_Click()
    'Dim dde As Integer
    'dde = MsgBox("采用定位打印吗", 36, "打印方式")
    'If dde = 6 Then
    'printer.Show
    'Call dwdy
    'Exit Sub
    'End If
    Call dy
End Sub
    
'##################################################################
'## 过程名称：DBCombo1_KeyPress
'## 参数：KeyAscii 为Integer型
'##################################################################
Private Sub DBCombo1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Combo1.SetFocus
    End If
End Sub
    
'##################################################################
'## 过程名称：DTPicker1_DblClick
'## 参数： 无
'##################################################################
Private Sub DTPicker1_DblClick()
    DTPicker1.Visible = False
    Text2.Visible = True
    Text2.text = Format(DTPicker1.Value, "yyyy-mm-dd")
    
End Sub
    
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
    Label6.Caption = jl_qym & "发货单"
    
    
    txtFields(11) = jl_zg
    zw(1) = "壹"
    zw(2) = "贰"
    zw(3) = "叁"
    zw(4) = "肆"
    zw(5) = "伍"
    zw(6) = "陆"
    zw(7) = "柒"
    zw(8) = "捌"
    zw(9) = "玖"
    zw(0) = "零"
    
    dw(0) = "分"
    dw(1) = "角"
    dw(2) = ""
    dw(3) = "元"
    dw(4) = "拾"
    dw(5) = "佰"
    dw(6) = "仟"
    dw(7) = "万"
    dw(8) = "拾"
    dw(9) = "佰"
    dw(10) = "仟"
    dw(11) = "亿"
    
    dw1(0) = " "
    dw1(1) = " "
    dw1(2) = "拾"
    dw1(3) = "佰"
    dw1(4) = "仟"
    dw1(5) = "万"
    dw1(6) = "拾"
    dw1(7) = "佰"
    dw1(8) = "仟"
    dw1(9) = "亿"
      
    DTPicker1.Value = Now
    
    headle = 1
    
End Sub
    
'##################################################################
'## 过程名称：Form_Unload
'## 参数：Cancel 为Integer型
'##################################################################
Private Sub Form_Unload(Cancel As Integer)
    '  Screen.MousePointer = vbDefault
    On Error Resume Next
    Dim dd As Integer
    dd = MsgBox("发货单可能发生了变更，" + Chr(10) + Chr(13) + "确认这些变更吗", 36, "确认")
    If dd <> 6 Then
        datPrimaryRS.Recordset.CancelUpdate
    End If
    
    
    FYGL.cmdAdd.Enabled = True
    FYGL.cmdDelete.Enabled = True
    FYGL.cmdFirst.Enabled = True
    FYGL.cmdLast.Enabled = True
    FYGL.cmdPrevious.Enabled = True
    
     
    Unload Me
    headle = 0
End Sub
    
'##################################################################
'## 过程名称：datPrimaryRS_Error
'## 参数：ByVal 为orNumber As Long型
'## 参数：Description 为String型
'## 参数：ByVal 为de As Long型
'## 参数：ByVal 为rce As String型
'## 参数：ByVal 为pFile As String型
'## 参数：ByVal 为pContext As Long型
'## 参数：fCancelDisplay 为Boolean型
'##################################################################
Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
    '错误处理程序代码置于此处
    '想要忽略错误，注释掉下一行
    '想要捕获它们，在此添加代码以处理它们
    MsgBox "Data error event hit err:" & Description
End Sub
    
'##################################################################
'## 过程名称：datPrimaryRS_MoveComplete
'## 参数：ByVal 为eason As ADODB.EventReasonEnum型
'## 参数：ByVal 为ror As ADODB.Error型
'## 参数：adStatus 为ADODB.EventStatusEnum型
'## 参数：ByVal 为cordset As ADODB.Recordset型
'##################################################################
Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    '为这个 recordset 显示当前记录位置
    datPrimaryRS.Caption = "Record: " & CStr(datPrimaryRS.Recordset.AbsolutePosition)
End Sub
    
'##################################################################
'## 过程名称：datPrimaryRS_WillChangeRecord
'## 参数：ByVal 为eason As ADODB.EventReasonEnum型
'## 参数：ByVal 为cords As Long型
'## 参数：adStatus 为ADODB.EventStatusEnum型
'## 参数：ByVal 为cordset As ADODB.Recordset型
'##################################################################
Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    '验证代码置于此处
    '下列动作发生时该事件被调用
    Dim bCancel As Boolean
    
    Select Case adReason
        Case adRsnAddNew
        Case adRsnClose
        Case adRsnDelete
        Case adRsnFirstChange
        Case adRsnMove
        Case adRsnRequery
        Case adRsnResynch
        Case adRsnUndoAddNew
        Case adRsnUndoDelete
        Case adRsnUndoUpdate
        Case adRsnUpdate
    End Select
    
    If bCancel Then adStatus = adStatusCancel
End Sub
    
'##################################################################
'## 过程名称：cmdAdd_Click
'## 参数： 无
'##################################################################
Private Sub cmdAdd_Click()
    On Error GoTo AddErr
    datPrimaryRS.Recordset.AddNew
    Text2.text = ""
    txtFields(0) = ""
    txtFields(1) = ""
    txtFields(3) = ""
    txtFields(4) = ""
    'datPrimaryRS.Recordset.Fields("yfl") = 0
    'datPrimaryRS.Recordset.Fields("wfl") = txtFields(1)
    txtFields(5) = ""
    txtFields(7) = ""
    Label2.text = ""
    Label4.text = ""
    Combo1.text = ""
    txtFields(9) = ""
    txtFields(10) = ""
    txtFields(11) = ""
    DBCombo1.text = ""
    Text1.text = ""
    
    Exit Sub
AddErr:
    MsgBox err.Description
End Sub
    
'##################################################################
'## 过程名称：cmdDelete_Click
'## 参数： 无
12345

⌨️ 快捷键说明

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