frmsales.frm

简单邮电信息管理

               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "Cust_Name"
            Caption         =   "顾客姓名"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column02 
            DataField       =   "O_Date"
            Caption         =   "订单收到时间"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column03 
            DataField       =   "Order_M"
            Caption         =   "收到金额"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column04 
            DataField       =   "Post_Price"
            Caption         =   "收到邮费"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column05 
            DataField       =   "Should_M"
            Caption         =   "应收金额"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column06 
            DataField       =   "Diff"
            Caption         =   "差额"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column07 
            DataField       =   "Finish"
            Caption         =   "收单完成"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column08 
            DataField       =   "Order_ID"
            Caption         =   "商品编号"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column09 
            DataField       =   "S_Size"
            Caption         =   "商品尺码"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column10 
            DataField       =   "Num"
            Caption         =   "商品数量"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            BeginProperty Column00 
            EndProperty
            BeginProperty Column01 
            EndProperty
            BeginProperty Column02 
            EndProperty
            BeginProperty Column03 
            EndProperty
            BeginProperty Column04 
            EndProperty
            BeginProperty Column05 
            EndProperty
            BeginProperty Column06 
            EndProperty
            BeginProperty Column07 
            EndProperty
            BeginProperty Column08 
            EndProperty
            BeginProperty Column09 
            EndProperty
            BeginProperty Column10 
            EndProperty
         EndProperty
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "顾客姓名："
         Height          =   255
         Left            =   2640
         TabIndex        =   4
         Top             =   3360
         Width           =   1095
      End
      Begin VB.Label Label2 
         BackColor       =   &H80000001&
         Caption         =   "订单编号："
         Height          =   255
         Left            =   120
         TabIndex        =   2
         Top             =   3360
         Width           =   1095
      End
   End
End
Attribute VB_Name = "frmSales"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmd_Out_Click()
If Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Combo1.Text = "" Then
    MsgBox "请你将送货信息填写完整", vbOKOnly + vbCritical, "错误"
Else
    Stor_ID = AdoSales.Recordset.Fields("Stor_ID")
    S_Size = AdoSales.Recordset.Fields("S_Size")
    Num = AdoSales.Recordset.Fields("Num")
    Send_Date = AdoSales.Recordset.Fields("Send_Date")
    frmOut.Show
    frmOut.Cmd_Addnew() = True
    frmOut.Text1.Text = Stor_ID
    frmOut.Combo1.Text = S_Size
    frmOut.Text2.Text = Num
    frmOut.Text3.Text = Send_Date
End If
End Sub

Private Sub Cmd_Sales_Click()
Frame2.Enabled = True
Text3.SetFocus
AdoSales.Recordset.Update
End Sub

Private Sub Cmd_Search_Click()
If AdoSales.Recordset.EOF = True Then
    MsgBox "无任何记录可以查询"
Else
    AdoSales.Recordset.MoveFirst
    Cmd_Search.Enabled = False
    Dim ID As Integer
    Dim CustName As String
    ID = IIf(Trim(Text1.Text) = "", 0, Trim(Text1.Text))
    CustName = Trim(Text2.Text)
    
    If ID = 0 And CustName = "" Then
        MsgBox "你没有输入任何查询条件", vbOKOnly + vbCritical, "错误"
    ElseIf ID = 0 Then
        AdoSales.Recordset.Find " Cust_Name='" & CustName & "'"
    ElseIf CustName = "" Then
        AdoSales.Recordset.Find " ID='" & ID & "'"
    Else
        AdoSales.Recordset.Find " ID='" & ID & "' or Cust_Name='" & CustName & "'"
    End If
    
    If AdoSales.Recordset.EOF Then
        MsgBox "没有找到此顾客"
        AdoSales.Recordset.MoveFirst
    End If
    Text1.Text = ""
    Text2.Text = ""
    Cmd_Search.Enabled = True
End If
End Sub


Private Sub Text5_GotFocus()
Text5.Text = Date
End Sub