frmcountquery.frm

一套简易的MIS系统。带SQLServer数据库。供参考。

        cboBuytype.Clear
        cboBuytype.AddItem "入库"
        cboBuytype.Text = cboBuytype.List(0)
        cboBuytype.Enabled = False
    End If
    
End Sub

Private Sub chkCust_Click()
    
    If chkCust.Value = 0 Then
        cmbCust.Enabled = False
    Else
        cmbCust.Enabled = True
    End If
    
End Sub

Private Sub chkGoods_Click()
    
    If chkGoods.Value = 0 Then
        cmbGoods.Enabled = False
    Else
        cmbGoods.Enabled = True
    End If
    
End Sub

Private Sub chkIn_Click()
    
    If chkIn.Value = 0 Then
        cboLiuxiang.Enabled = False
        cboBuytype.Enabled = False
    Else
        cboLiuxiang.Enabled = True
        cboBuytype.Enabled = True
    End If
    
End Sub

Private Sub chkLT_Click()
    
    If chkLT.Value = 0 Then
        cmbLT.Enabled = False
    Else
        cmbLT.Enabled = True
    End If
    
End Sub

Private Sub chkOpr_Click()
    
    If chkOpr.Value = 0 Then
        cmbOPr.Enabled = False
    Else
        cmbOPr.Enabled = True
    End If
    
End Sub

Private Sub chkPay_Click()
    
    If chkPay.Value = 0 Then
        optCash.Enabled = False
        optZZ.Enabled = False
        optHK.Enabled = False
    Else
        optCash.Enabled = True
        optZZ.Enabled = True
        optHK.Enabled = True
    End If
        
End Sub

Private Sub chkState_Click()
    
    If chkState.Value = 0 Then
        cmbState.Enabled = False
    Else
        cmbState.Enabled = True
    End If
    
End Sub

Private Sub cmdClose_Click()
    
    '返回
    tBackMain Me

End Sub

Private Sub cmdOK_Click()
    
    On Error GoTo ErrInfo
    
    Call getSQLString
    Exit Sub
ErrInfo:
    MsgBox Err.Description, vbInformation, "提示："
    
End Sub

Private Sub Form_Load()

    '计算窗体显示位置
    tFormSpace frmMain, Me, uWindows
    
    '初始化显示
    Call getAdd_Liuxiang
    
    Call getBaseInfo
    
    bDate.Value = Format(tServerDate, "YYYY年MM月DD日")
    eDate.Value = Format(tServerDate, "YYYY年MM月DD日")
    
    Call getListHead
    
    Call getListLock
    

End Sub

Private Sub TabStrip1_Click()

End Sub

Private Sub getAdd_Liuxiang() '货物流向类型

    On Error Resume Next
    cboLiuxiang.Clear
    Me.cboLiuxiang.AddItem "出库", 0
    Me.cboLiuxiang.AddItem "入库", 1
    cboLiuxiang.Text = "出库"
    If cboLiuxiang = "出库" Then
        cboBuytype.Clear
        cboBuytype.AddItem "自提", 0
        cboBuytype.AddItem "中转", 1
        cboBuytype.AddItem "外销", 2
        cboBuytype.Text = "自提"
    Else
        cboBuytype.Clear
        cboBuytype.Text = "入库"
        cboBuytype.Enabled = False
    End If
    
End Sub

'初始化信息
Private Sub getBaseInfo()
    
    Dim rsTemp                     As New ADODB.Recordset
    
    Set rsTemp = DBCN.Execute("Select Cust_ID,Cust_Name From tbccCust Where Instate=0 Order By Cust_ID")
    
    If rsTemp.EOF = False Then
        cmbCust.Clear
        cmbCust.AddItem "全部"
        Do Until rsTemp.EOF
            cmbCust.AddItem rsTemp.Fields("Cust_name") & "[" & rsTemp.Fields("Cust_ID") & "]"
            rsTemp.MoveNext
        Loop
        cmbCust.Text = cmbCust.List(0)
    Else
        cmbCust.Clear
        cmbCust.AddItem "全部"
        cmbCust.Text = cmbCust.List(0)
    End If
    
    Set rsTemp = DBCN.Execute("Select Oper_ID,Oper_Name From TbCCOper Where Instate=0 Order By Oper_ID")
    
    If rsTemp.EOF = False Then
        cmbOPr.Clear
        cmbOPr.AddItem "全部"
        Do Until rsTemp.EOF
            cmbOPr.AddItem rsTemp.Fields("Oper_Name") & "[" & rsTemp.Fields("Oper_ID") & "]"
            rsTemp.MoveNext
        Loop
        cmbOPr.Text = cmbOPr.List(0)
    Else
        cmbOPr.Clear
        cmbOPr.AddItem "全部"
        cmbOPr.Text = cmbCust.List(0)
    End If
    
    Set rsTemp = DBCN.Execute("Select Goods_ID,Goods_Name From tbccGoods Where Instate=0 Order By Goods_ID")
    
    If rsTemp.EOF = False Then
        cmbGoods.Clear
        cmbGoods.AddItem "全部"
        Do Until rsTemp.EOF
            cmbGoods.AddItem rsTemp.Fields("Goods_Name") & "[" & rsTemp.Fields("Goods_ID") & "]"
            rsTemp.MoveNext
        Loop
        cmbGoods.Text = cmbGoods.List(0)
    Else
        cmbGoods.Clear
        cmbGoods.AddItem "全部"
        cmbGoods.Text = cmbCust.List(0)
    End If
    
    With cmbLT
        .Clear
        .AddItem "预约开票[0]"
        .AddItem "空车过磅[1]"
        .AddItem "预收款[2]"
        .AddItem "重车过磅[3]"
        .AddItem "结算[4]"
        .Text = .List(0)
    End With
    
    With cmbState
        .Clear
        .AddItem "正常[0]"
        .AddItem "已作废[-1]"
        .AddItem "修改[2]"
        .Text = .List(0)
    End With
    
End Sub

'显示tou
Private Sub getListHead()
    
    '1、预售
    With lstXSInfo
        .ListItems.Clear
        .FullRowSelect = True
        .GridLines = True
        .LabelEdit = lvwManual
        .View = lvwReport
        With .ColumnHeaders
            .Clear
            .Add , , "@", 0
            .Add , , "自动编码", 1600
            .Add , , "车号", 0
            .Add , , "客户编码", 0
            .Add , , "客户名称", 1600
            .Add , , "商品名称", 1400
            .Add , , "单价", 1300
            .Add , , "数量", 1400
            .Add , , "总金额", 1600
            .Add , , "付款方式", 1200
            .Add , , "商品去向", 1200
            .Add , , "开票时间", 1400
            .Add , , "开票员", 1400
            .Add , , "有效期", 1400
            .Add , , "流通状态", 1300
            .Add , , "状态", 1300
        End With
    End With
    '2、预交
    With lstYSINfo
        .ListItems.Clear
        .FullRowSelect = True
        .GridLines = True
        .LabelEdit = lvwManual
        .View = lvwReport
        With .ColumnHeaders
            .Clear
            .Add , , "@", 0
            .Add , , "自动编码", 1600
            .Add , , "车号", 0
            .Add , , "客户编码", 0
            .Add , , "客户名称", 1600
            .Add , , "商品名称", 1400
            .Add , , "单价", 1300
            .Add , , "数量", 1400
            .Add , , "总金额", 1600
            .Add , , "付款方式", 1200
            .Add , , "商品去向", 1200
            .Add , , "预交款时间", 1400
            .Add , , "收费员", 1400
            .Add , , "有效期", 1400
            .Add , , "流通状态", 1300
            .Add , , "状态", 1300
        End With
    End With
    '3、过磅信息
    With lstGBInfo
        .ListItems.Clear
        .FullRowSelect = True
        .GridLines = True
        .LabelEdit = lvwManual
        .View = lvwReport
        With .ColumnHeaders
            .Clear
            .Add , , "@", 0
            .Add , , "自动编码", 1600
            .Add , , "司机+空车", 0
            .Add , , "空车重量", 1400
            .Add , , "司机+重重量", 0
            .Add , , "重车重量", 1400
            .Add , , "异常标志", 1200
            .Add , , "空车照片", 0
            .Add , , "重车照片", 0
            .Add , , "过磅日期", 2200
            .Add , , "车号", 1500
            .Add , , "操作员", 1400
            .Add , , "单据状态", 1400
            .Add , , "状态", 1300
        End With
    End With
    '4、结算信息
    With lstJSInfo
        .ListItems.Clear
        .FullRowSelect = True
        .GridLines = True
        .LabelEdit = lvwManual
        .View = lvwReport
        With .ColumnHeaders
            .Clear
            .Add , , "@", 0
            .Add , , "自动编码", 1600
            .Add , , "客户编码", 0
            .Add , , "客户名称", 1400
            .Add , , "空车重量", 1300
            .Add , , "重车重量", 1300
            .Add , , "结算量", 1300
            .Add , , "单价", 1300
            .Add , , "其他费用1", 1300
            .Add , , "其他费用2", 1300
            .Add , , "其他费用3", 1300
            .Add , , "应付款金额", 1300
            .Add , , "已付金额", 1300
            .Add , , "付款方式", 1300
            .Add , , "结算日期", 2200
            .Add , , "操作员", 1400
            .Add , , "流通状态", 1400
            .Add , , "状态", 1200
        End With
    End With
    
End Sub

'0:预约开票,1:空车过磅，2：预收款 3：重车过磅,4：结算
Private Function getLTState(iInfo As Integer) As String

    Dim strInfo                     As String
    Select Case iInfo
        Case 0
            strInfo = "预约开票"
        Case 1
            strInfo = "空车过磅"
        Case 2
            strInfo = "预收款"
        Case 3
            strInfo = "重车过磅"
        Case 4
            strInfo = "结算"
    End Select
    getLTState = strInfo & "[" & iInfo & "]"
    
End Function

'状态 0:正常、-1:已作废,2:修改
Private Function getSysState(iInfo As Integer) As String

    Dim strInfo                     As String
    Select Case iInfo
        Case 0
            strInfo = "正常"
        Case -1
            strInfo = "已作废"
        Case 2
            strInfo = "修改"
    End Select
    getSysState = strInfo & "[" & iInfo & "]"
    
End Function

'0：正常；-1：数据异常
Private Function getGBState(iInfo As Integer) As String

    Dim strInfo                     As String
    Select Case iInfo
        Case 0
            strInfo = "正常"
        Case -1
            strInfo = "数据异常"
    End Select
    getGBState = strInfo & "[" & iInfo & "]"
    
End Function

'此单据状态0: 未结算 , 1: 已结算
Private Function getGJSState(iInfo As Integer) As String

    Dim strInfo                     As String
    Select Case iInfo
        Case 0