cxsyk.frm

电子衡自动计量系统.能对电子汽车衡进行自动计量.完成车皮存储,重车自动除皮等功能.

      UserName        =   ""
      Password        =   ""
      RecordSource    =   "select ch as 车号,pz as 皮重,sj as 检斤时间 from chk "
      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.Menu caozuo 
      Caption         =   "操作"
      Begin VB.Menu print 
         Caption         =   "打印"
         Shortcut        =   {F12}
      End
      Begin VB.Menu delete 
         Caption         =   "删除"
         Enabled         =   0   'False
         Shortcut        =   {DEL}
      End
      Begin VB.Menu refresh 
         Caption         =   "刷新"
         Shortcut        =   {F11}
      End
      Begin VB.Menu clos 
         Caption         =   "关闭"
      End
   End
   Begin VB.Menu hlp 
      Caption         =   "帮助"
      Begin VB.Menu about 
         Caption         =   "关于"
      End
      Begin VB.Menu neirong 
         Caption         =   "内容"
      End
   End
End
Attribute VB_Name = "cxsyk"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'CODE Manger By BcodeXRose

Private Sub about_Click()
frmAbout.Show
End Sub

'##################################################################
'## 过程名称：clos_Click
'## 参数： 无
'##################################################################
Private Sub clos_Click()
Unload Me
End Sub
    
'##################################################################
'## 过程名称：Command1_Click
'## 参数： 无
'##################################################################
Private Sub Command1_Click()
    Dim strQueryA As String
    strQueryA = "SELECT ch AS 车号, pz AS 皮重, sj AS 检斤时间,id as 流水号  FROM chk where ch like '%" & Text1.Text & "%'"
    With DataEnvironment1.rsCommand1
    If .State = adStateOpen Then .Close
    .Source = strQueryA
    .Open '打开想输出的数据库数据项以便输出
    End With
    DataReport1.Caption = " 使用数据库列表"
    DataReport1.Show 1
End Sub
    
'##################################################################
'## 过程名称：delete_Click
'## 参数： 无
'##################################################################
Private Sub delete_Click()
    Me.datPrimaryRS.Recordset.delete
End Sub
    
'##################################################################
'## 过程名称：Form_KeyPress
'## 参数：KeyAscii 为Integer型
'##################################################################
Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
   '‘ Unload Me
    End If
End Sub
    
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
Me.datPrimaryRS.ConnectionString = connetstr
    'Dim strQueryA As String
Me.datPrimaryRS.RecordSource = "SELECT ch AS 车号, pz AS 皮重, sj AS 检斤时间 FROM chk"
    Me.datPrimaryRS.refresh
    '  With DataEnvironment1.rsCommand1
    '    If .State = adStateOpen Then .Close
    '       .Source = strQueryA
    '      .Open '打开想输出的数据库数据项以便输出
    'End With
    'grdDataGrid.Refresh
    
End Sub
    
'##################################################################
'## 过程名称：Form_Resize
'## 参数： 无
'##################################################################
Private Sub Form_Resize()
    On Error Resume Next
    Picture1.Left = (Me.Width - Picture1.Width) / 2
    'This will resize the grid when the form is resized
    'grdDataGrid.Hei 'ght = Me.ScaleHeight - datPrimaryRS.Height - 230 - picButtons.Height
End Sub
    
'##################################################################
'## 过程名称：Form_Unload
'## 参数：Cancel 为Integer型
'##################################################################
Private Sub Form_Unload(Cancel As Integer)
    Screen.MousePointer = vbDefault
'
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)
    'This is where you would put error handling code
    'If you want to ignore errors, comment out the next line
    'If you want to trap them, add code here to handle them
    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)
    'This will display the current record position for this recordset
    datPrimaryRS.Caption = "Record: " & CStr(datPrimaryRS.Recordset.AbsolutePosition)
End Sub
    
    
    
'##################################################################
'## 过程名称：cmdClose_Click
'## 参数： 无
'##################################################################
Private Sub cmdClose_Click()
Unload Me
End Sub
    
'##################################################################
'## 过程名称：Image1_Click
'## 参数： 无
'##################################################################
Private Sub Image1_Click()
Unload Me
End Sub
    
'##################################################################
'## 过程名称：Image1_MouseDown
'## 参数：Button 为Integer型
'## 参数：Shift 为Integer型
'## 参数：X 为Single型
'## 参数：Y 为Single型
'##################################################################
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Shape1.Visible = True
End Sub
    
'##################################################################
'## 过程名称：Image1_MouseUp
'## 参数：Button 为Integer型
'## 参数：Shift 为Integer型
'## 参数：X 为Single型
'## 参数：Y 为Single型
'##################################################################
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Shape1.Visible = False
End Sub
    
'##################################################################
'## 过程名称：print_Click
'## 参数： 无
'##################################################################
Private Sub print_Click()
    Call Command1_Click
End Sub
    
'##################################################################
'## 过程名称：Text1_Change
'## 参数： 无
'##################################################################
Private Sub Text1_Change()
    On Error Resume Next
    
    datPrimaryRS.RecordSource = "select ch as 车号,pz as 皮重,sj as 检斤时间  from chk where ch like '%" & Text1.Text & "%'"
    datPrimaryRS.refresh
End Sub