frmprint.frm

库存管理系统

End Sub

Private Sub asPopup11_Click(Cancel As Boolean)
If DataEnvironment1.rsCommand2.State <> adStateClosed Then
        DataEnvironment1.rsCommand2.Close
    End If
    
    ' 读取 Text1 设定给参数一
      DataEnvironment1.Commands("Command2").Parameters(0) = CStr(DTPicker1.Value)
    ' 读取 Text2 设定给参数二
      DataEnvironment1.Commands("Command2").Parameters(1) = CStr(DTPicker2.Value)

    DataGrid1.DataMember = "Command2"
    Set DataGrid1.DataSource = DataEnvironment1
DataReport3.Show
DataReport3.Sections(2).Controls("Label13").Caption = "开始时间:" & CStr(DTPicker1.Value)
DataReport3.Sections(2).Controls("Label14").Caption = "结束时间:" & CStr(DTPicker2.Value)
End Sub

Private Sub asPopup2_Click(Cancel As Boolean)
If DataEnvironment1.rsCommand1.State <> adStateClosed Then
        DataEnvironment1.rsCommand1.Close
    End If
    
    ' 读取 Text1 设定给参数一
      DataEnvironment1.Commands("Command1").Parameters(0) = CStr(DTPicker1.Value)
    ' 读取 Text2 设定给参数二
      DataEnvironment1.Commands("Command1").Parameters(1) = CStr(DTPicker2.Value)

    DataGrid1.DataMember = "Command1"
    Set DataGrid1.DataSource = DataEnvironment1
End Sub

Private Sub asPopup3_Click(Cancel As Boolean)
If DataEnvironment1.rsKCCL.State <> adStateClosed Then
    DataEnvironment1.rsKCCL.Close
End If
DataGrid1.DataMember = "KCCL"
Set DataGrid1.DataSource = DataEnvironment1

End Sub

Private Sub asPopup4_Click(Cancel As Boolean)
Select Case way.Text
Case "供应商"
    If DataEnvironment1.rsRKDW.State <> adStateClosed Then
            DataEnvironment1.rsRKDW.Close
    End If
    
    ' 读取 Text1 设定给参数一
    DataEnvironment1.Commands("RKDW").Parameters(0) = para.Text

    DataGrid1.DataMember = "RKDW"
    Set DataGrid1.DataSource = DataEnvironment1
Case "用户单位"
    If DataEnvironment1.rsCKDW.State <> adStateClosed Then
            DataEnvironment1.rsCKDW.Close
    End If
    
    ' 读取 Text1 设定给参数一
    DataEnvironment1.Commands("CKDW").Parameters(0) = para1.Text

    DataGrid1.DataMember = "CKDW"
    Set DataGrid1.DataSource = DataEnvironment1
Case "入库支付"
    If DataEnvironment1.rsRKZHF.State <> adStateClosed Then
            DataEnvironment1.rsRKZHF.Close
    End If
    
    ' 读取 Text1 设定给参数一
    DataEnvironment1.Commands("RKZHF").Parameters(0) = para2.Text

    DataGrid1.DataMember = "RKZHF"
    Set DataGrid1.DataSource = DataEnvironment1
Case "出库支付"
    If DataEnvironment1.rsCKZHF.State <> adStateClosed Then
            DataEnvironment1.rsCKZHF.Close
    End If
    
    ' 读取 Text1 设定给参数一
    DataEnvironment1.Commands("CKZHF").Parameters(0) = para3.Text

    DataGrid1.DataMember = "CKZHF"
    Set DataGrid1.DataSource = DataEnvironment1

Case ""

End Select

End Sub

Private Sub asPopup5_Click(Cancel As Boolean)
tishi.Visible = False
SSTab1.Tab = 0
DTPicker1.Visible = True
DTPicker2.Visible = True
para.Visible = False
para1.Visible = False
para2.Visible = False
para3.Visible = False
way.Visible = False
YHXX.BackColor = &H8000000F
GYSJ.BackColor = &H8000000F
asPopup5.BackColor = &HFFC0C0
asPopup6.BackColor = &H8000000F
asPopup7.BackColor = &H8000000F
asPopup8.BackColor = &H8000000F
End Sub

Private Sub asPopup6_Click(Cancel As Boolean)
tishi.Visible = False
SSTab1.Tab = 1
DTPicker1.Visible = True
DTPicker2.Visible = True
para.Visible = False
para1.Visible = False
para2.Visible = False
para3.Visible = False
way.Visible = False
YHXX.BackColor = &H8000000F
GYSJ.BackColor = &H8000000F
asPopup5.BackColor = &H8000000F
asPopup6.BackColor = &HFFC0C0
asPopup7.BackColor = &H8000000F
asPopup8.BackColor = &H8000000F
End Sub

Private Sub asPopup7_Click(Cancel As Boolean)
tishi.Visible = False
SSTab1.Tab = 2
DTPicker1.Visible = True
DTPicker1.Enabled = False
DTPicker2.Enabled = False
DTPicker2.Visible = True
para.Visible = False
para1.Visible = False
para2.Visible = False
para3.Visible = False
way.Visible = False
YHXX.BackColor = &H8000000F
GYSJ.BackColor = &H8000000F
asPopup5.BackColor = &H8000000F
asPopup6.BackColor = &H8000000F
asPopup7.BackColor = &HFFC0C0
asPopup8.BackColor = &H8000000F
End Sub

Private Sub asPopup8_Click(Cancel As Boolean)
tishi.Visible = True
SSTab1.Tab = 3
DTPicker1.Visible = False
DTPicker2.Visible = False
para.Visible = True
para1.Visible = False
para2.Visible = False
para3.Visible = False
way.Visible = True
YHXX.BackColor = &H8000000F
GYSJ.BackColor = &H8000000F
asPopup5.BackColor = &H8000000F
asPopup6.BackColor = &H8000000F
asPopup7.BackColor = &H8000000F
asPopup8.BackColor = &HFFC0C0
End Sub

Private Sub asPopup9_Click(Cancel As Boolean)
Select Case way.Text
Case "供应商"
    If DataEnvironment1.rsRKDW.State <> adStateClosed Then
        DataEnvironment1.rsRKDW.Close
    End If
    
    ' 读取 Text1 设定给参数一
    DataEnvironment1.Commands("RKDW").Parameters(0) = para.Text
    DataGrid1.DataMember = "RKDW"
    Set DataGrid1.DataSource = DataEnvironment1
    DataReport4.Show
Case "用户单位"
    If DataEnvironment1.rsCKDW.State <> adStateClosed Then
        DataEnvironment1.rsCKDW.Close
    End If
    
    ' 读取 Text1 设定给参数一
    DataEnvironment1.Commands("CKDW").Parameters(0) = para1.Text
    DataGrid1.DataMember = "CKDW"
    Set DataGrid1.DataSource = DataEnvironment1
    DataReport6.Show
Case "入库支付"
    If DataEnvironment1.rsRKZHF.State <> adStateClosed Then
        DataEnvironment1.rsRKZHF.Close
    End If
    
    ' 读取 Text1 设定给参数一
    DataEnvironment1.Commands("RKZHF").Parameters(0) = para2.Text
    DataGrid1.DataMember = "RKZHF"
    Set DataGrid1.DataSource = DataEnvironment1
    DataReport5.Show
Case "出库支付"
    If DataEnvironment1.rsCKZHF.State <> adStateClosed Then
        DataEnvironment1.rsCKZHF.Close
    End If
    
    ' 读取 Text1 设定给参数一
    DataEnvironment1.Commands("CKZHF").Parameters(0) = para3.Text
    DataGrid1.DataMember = "CKZHF"
    Set DataGrid1.DataSource = DataEnvironment1
    DataReport7.Show
Case ""
End Select
End Sub

Private Sub Form_Load()
Datacheck.DatabaseName = App.Path & "\库存管理.mdb"
Datacheck.Connect = ";pwd=lee1012"
Datacheck.RecordSource = "供应商表"
Datacheck.Refresh
Datacheck.Visible = False
    
Datacheck1.DatabaseName = App.Path & "\库存管理.mdb"
Datacheck1.Connect = ";pwd=lee1012"
Datacheck1.RecordSource = "客户表"
Datacheck1.Refresh
Datacheck1.Visible = False

Datacheck2.DatabaseName = App.Path & "\库存管理.mdb"
Datacheck2.Connect = ";pwd=lee1012"
Datacheck2.RecordSource = "入库表"
Datacheck2.Refresh
Datacheck2.Visible = False

Datacheck3.DatabaseName = App.Path & "\库存管理.mdb"
Datacheck3.Connect = ";pwd=lee1012"
Datacheck3.RecordSource = "出库表"
Datacheck3.Refresh
Datacheck3.Visible = False

MakeWindow Me
   ' AlwaysOnTop Me, True
Me.Top = MDIFrmMain.Height / 2 - Me.Height / 2 - 1000
Me.Left = MDIFrmMain.Width / 2 - Me.Width / 2
DTPicker1.Value = Date
DTPicker2.Value = Date
tishi.Visible = False
para.Visible = False
para1.Visible = False
para2.Visible = False
para3.Visible = False
SSTab1.Tab = 0
asPopup5.BackColor = &HFFC0C0
asPopup6.BackColor = &H8000000F
asPopup7.BackColor = &H8000000F
asPopup8.BackColor = &H8000000F
End Sub

Private Sub GYSJ_Click(Cancel As Boolean)
SSTab1.Tab = 5
tishi.Visible = False
DTPicker1.Visible = True
DTPicker1.Enabled = False
DTPicker2.Enabled = False
DTPicker2.Visible = True
para.Visible = False
para1.Visible = False
para2.Visible = False
para3.Visible = False
way.Visible = False
YHXX.BackColor = &H8000000F
GYSJ.BackColor = &HFFC0C0
asPopup5.BackColor = &H8000000F
asPopup6.BackColor = &H8000000F
asPopup7.BackColor = &H8000000F
asPopup8.BackColor = &H8000000F

End Sub

Private Sub imgTitleClose_Click()
Unload Me
End Sub

Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub imgTitleMinimize_Click()
    Me.WindowState = 1
End Sub

Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub kh_Click(Cancel As Boolean)
If DataEnvironment1.rsKH.State <> adStateClosed Then
    DataEnvironment1.rsKH.Close
End If
DataGrid1.DataMember = "KH"
Set DataGrid1.DataSource = DataEnvironment1

End Sub

Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoDrag Me
End Sub

Private Sub para_Click(Area As Integer)
Dim SQLcheck As String
SQLcheck = "SELECT 名称 FROM 供应商表 "
Datacheck.Visible = False
Datacheck.DatabaseName = App.Path & "\库存管理.mdb"
Datacheck.RecordSource = SQLcheck
'Datacheck.Refresh
para.Refresh

End Sub

Private Sub para1_Click(Area As Integer)
Dim SQLcheck1 As String
SQLcheck1 = "SELECT 名称 FROM 客户表 "
Datacheck1.Visible = False
Datacheck1.DatabaseName = App.Path & "\库存管理.mdb"
Datacheck1.RecordSource = SQLcheck1
'Datacheck1.Refresh
para1.Refresh

End Sub

Private Sub para2_Click(Area As Integer)
Dim SQLcheck2 As String
SQLcheck2 = "SELECT 入库支付 FROM 入库表 "
Datacheck2.Visible = False
Datacheck2.DatabaseName = App.Path & "\库存管理.mdb"
Datacheck2.RecordSource = SQLcheck2
'Datacheck2.Refresh
para2.Refresh

End Sub

Private Sub para3_Click(Area As Integer)
Dim SQLcheck3 As String
SQLcheck3 = "SELECT 出库支付 FROM 出库表 "
Datacheck3.Visible = False
Datacheck3.DatabaseName = App.Path & "\库存管理.mdb"
Datacheck3.RecordSource = SQLcheck3
'Datacheck3.Refresh
para3.Refresh

End Sub

Private Sub PRINTKC_Click(Cancel As Boolean)
If DataEnvironment1.rsKCCL.State <> adStateClosed Then
    DataEnvironment1.rsKCCL.Close
End If
DataGrid1.DataMember = "KCCL"
Set DataGrid1.DataSource = DataEnvironment1
DataReport8.Show
End Sub

Private Sub shj_Click(Cancel As Boolean)
If DataEnvironment1.rsGYSH.State <> adStateClosed Then
    DataEnvironment1.rsGYSH.Close
End If
DataGrid1.DataMember = "GYSH"
Set DataGrid1.DataSource = DataEnvironment1

End Sub

Private Sub way_Click()
Select Case way.Text
Case "供应商"
    para.Visible = True
    para1.Visible = False
    para2.Visible = False
    para3.Visible = False
    para.Refresh
Case "用户单位"
    para.Visible = False
    para1.Visible = True
    para2.Visible = False
    para3.Visible = False
    para1.Refresh
Case "入库支付"
    para.Visible = False
    para1.Visible = False
    para2.Visible = True
    para3.Visible = False
    para2.Refresh
Case "出库支付"
    para.Visible = False
    para1.Visible = False
    para2.Visible = False
    para3.Visible = True
    para3.Refresh
Case ""

End Select

End Sub

Private Sub YHXX_Click(Cancel As Boolean)
SSTab1.Tab = 4
tishi.Visible = False
DTPicker1.Visible = True
DTPicker1.Enabled = False
DTPicker2.Enabled = False
DTPicker2.Visible = True
para.Visible = False
para1.Visible = False
para2.Visible = False
para3.Visible = False
way.Visible = False
YHXX.BackColor = &HFFC0C0
GYSJ.BackColor = &H8000000F
asPopup5.BackColor = &H8000000F
asPopup6.BackColor = &H8000000F
asPopup7.BackColor = &H8000000F
asPopup8.BackColor = &H8000000F

End Sub