form11.frm

来自「MIS系统开发实例（VB+SQL SERVER2000）」· FRM 代码 · 共 972 行 · 第 1/3 页

            Height          =   300
            Left            =   120
            Style           =   2  'Dropdown List
            TabIndex        =   9
            Top             =   360
            Width           =   1455
         End
      End
      Begin VB.Frame Frame5 
         Height          =   1215
         Left            =   360
         TabIndex        =   10
         Top             =   3000
         Width           =   2055
         Begin MSComCtl2.DTPicker DTPicker2 
            Height          =   255
            Left            =   360
            TabIndex        =   15
            Top             =   720
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   450
            _Version        =   393216
            Format          =   65404929
            CurrentDate     =   39089
         End
         Begin MSComCtl2.DTPicker DTPicker1 
            Height          =   255
            Left            =   360
            TabIndex        =   12
            Top             =   360
            Width           =   1335
            _ExtentX        =   2355
            _ExtentY        =   450
            _Version        =   393216
            Format          =   65404929
            CurrentDate     =   39089
         End
         Begin VB.Label Label2 
            Caption         =   "至"
            Height          =   255
            Left            =   120
            TabIndex        =   14
            Top             =   720
            Width           =   255
         End
         Begin VB.Label Label1 
            Caption         =   "从"
            Height          =   255
            Left            =   120
            TabIndex        =   13
            Top             =   360
            Width           =   255
         End
      End
   End
End
Attribute VB_Name = "Form11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim m%

Private Sub Check1_Click()
   If Check1.Value = 1 Then
       Combo1.Enabled = True
       sql = "select distinct yname from yaopinjbxx,xiaoshou,namezidian where yaopinjbxx.yno=namezidian.yno and xiaoshou.pk=yaopinjbxx.pk"
       Call comadd(sql, "yname", Combo1)
   Else
       Combo1.Enabled = False
   End If
End Sub

Private Sub Check10_Click()
   If Check10.Value = 1 Then
       Combo8.Enabled = True
       sql = "select distinct cname from yaopinjbxx,changjiazidian,xiaosdingjia where xiaosdingjia.pk=yaopinjbxx.pk and changjiazidian.cno=yaopinjbxx.cno"
       Call comadd(sql, "cname", Combo8)
   Else
       Combo8.Enabled = False
   End If
End Sub

Private Sub Check2_Click()
   If Check2.Value = 1 Then
       Combo2.Enabled = True
       sql = "select distinct cname from yaopinjbxx,xiaoshou,changjiazidian where yaopinjbxx.cno=changjiazidian.cno and xiaoshou.pk=yaopinjbxx.pk"
       Call comadd(sql, "cname", Combo2)
   Else
       Combo2.Enabled = False
   End If
End Sub

Private Sub Check3_Click()
   If Check3.Value = 1 Then
       Combo3.Enabled = True
       sql = "select distinct fapiaono from xiaoshou"
       Call comadd(sql, "fapiaono", Combo3)
   Else
       Combo3.Enabled = False
   End If
End Sub

Private Sub Check4_Click()
   If Check4.Value = 1 Then
       DTPicker1.Enabled = True
       DTPicker2.Enabled = True
   Else
       DTPicker1.Enabled = False
       DTPicker2.Enabled = False
   End If
End Sub

Private Sub Check5_Click()
   If Check5.Value = 1 Then
       Combo4.Enabled = True
       sql = "select distinct yname from yaopinjbxx,xiaoshou,namezidian where yaopinjbxx.yno=namezidian.yno and xiaoshou.pk=yaopinjbxx.pk"
       Call comadd(sql, "yname", Combo4)
   Else
       Combo4.Enabled = False
   End If
End Sub

Private Sub Check6_Click()
   If Check6.Value = 1 Then
       Combo5.Enabled = True
       sql = "select distinct cname from yaopinjbxx,xiaoshou,changjiazidian where yaopinjbxx.cno=changjiazidian.cno and xiaoshou.pk=yaopinjbxx.pk"
       Call comadd(sql, "cname", Combo5)
   Else
       Combo5.Enabled = False
   End If
End Sub

Private Sub Check7_Click()
   If Check7.Value = 1 Then
       Combo6.Enabled = True
       sql = "select distinct fapiaono from xiaoshou"
       Call comadd(sql, "fapiaono", Combo6)
   Else
       Combo6.Enabled = False
   End If
End Sub

Private Sub Check8_Click()
   If Check8.Value = 1 Then
       DTPicker4.Enabled = True
       DTPicker3.Enabled = True
   Else
       DTPicker4.Enabled = False
       DTPicker3.Enabled = False
   End If
End Sub

Private Sub Check9_Click()
   If Check9.Value = 1 Then
       Combo7.Enabled = True
       sql = "select distinct yname from yaopinjbxx,namezidian,xiaosdingjia where xiaosdingjia.pk=yaopinjbxx.pk and namezidian.yno=yaopinjbxx.yno"
       Call comadd(sql, "yname", Combo7)
   Else
       Combo7.Enabled = False
   End If
End Sub

Private Sub Command1_Click()
   ListView3.ListItems.Clear
   Dim a$, b$
   If Check9.Value = 1 Then
       a = "and yname='" & Combo7.Text & "'"
   Else
       a = ""
   End If
   If Check10.Value = 1 Then
       b = " and cname='" & Combo8.Text & "'"
   Else
       b = ""
   End If
   Call adoopen
   sql = "select yname,cname,ddanwei,dingjia from yaopinjbxx,changjiazidian,namezidian,xiaosdingjia where yaopinjbxx.pk=xiaosdingjia.pk  and yaopinjbxx.yno=namezidian.yno and yaopinjbxx.cno=changjiazidian.cno " & a & b
   Call rs(sql)
   If Not adors.EOF Then
       While Not adors.EOF
             Set x = ListView3.ListItems.Add()
             x.SmallIcon = 2
             x.Text = Trim$(adors.Fields("yname"))
             x.SubItems(1) = Trim$(adors.Fields("cname"))
             x.SubItems(2) = Trim$(adors.Fields("ddanwei"))
             x.SubItems(3) = Trim$(adors.Fields("dingjia"))
             adors.MoveNext
       Wend
  End If
  Call adoclose
End Sub

Private Sub Command2_Click()
   ListView3.ListItems.Clear
End Sub

Private Sub Command3_Click()
   ListView2.ListItems.Clear
   Dim a$, b$, c$, d$
   If Check5.Value = 1 Then
       a = "and yname='" & Combo4.Text & "'"
   Else
       a = ""
   End If
   If Check6.Value = 1 Then
       b = " and cname='" & Combo5.Text & "'"
   Else
       b = ""
   End If
   If Check7.Value = 1 Then
       c = "and fapiaono='" & Combo6.Text & "'"
   Else
       c = ""
   End If
   If Check8.Value = 1 Then
       d = "and shoushi between '" & DTPicker4.Value & "' and '" & DTPicker3.Value & "'"
   Else
       d = ""
   End If
   Call adoopen
   sql = "select fapiaono,yname,cname,ddanwei,curnum,shoushi,zonge,tycourse,xname from yaopinjbxx,changjiazidian,namezidian,xiaosdingjia,xiaoshou,xiaoshouman where yaopinjbxx.pk=xiaosdingjia.pk and yaopinjbxx.pk=xiaoshou.pk and yaopinjbxx.yno=namezidian.yno and yaopinjbxx.cno=changjiazidian.cno and tyinf='1' and xiaoshouman.xiaono=xiaoshou.xiaono " & a & b & c & d
   Call rs(sql)
   If Not adors.EOF Then
       While Not adors.EOF
             Set x = ListView2.ListItems.Add()
             x.SmallIcon = 1
             x.Text = "药NO-" & Trim$(adors.Fields("fapiaono"))
             x.SubItems(1) = Trim$(adors.Fields("yname"))
             x.SubItems(2) = Trim$(adors.Fields("cname"))
             x.SubItems(3) = Trim$(adors.Fields("ddanwei"))
             x.SubItems(4) = Trim$(adors.Fields("curnum"))
             x.SubItems(5) = Trim$(adors.Fields("shoushi"))
             x.SubItems(6) = Trim$(adors.Fields("zonge"))
             x.SubItems(7) = Trim$(adors.Fields("tycourse"))
             x.SubItems(8) = Trim$(adors.Fields("xname"))
             adors.MoveNext
      Wend
   End If
   Call adoclose
End Sub

Private Sub Command4_Click()
ListView2.ListItems.Clear
End Sub

Private Sub Command5_Click()
   ListView1.ListItems.Clear
   Dim a$, b$, c$, d$
   If Check1.Value = 1 Then
       a = "and yname='" & Combo1.Text & "'"
   Else
       a = ""
   End If
   If Check2.Value = 1 Then
       b = " and cname='" & Combo2.Text & "'"
   Else
       b = ""
   End If
   If Check3.Value = 1 Then
       c = "and fapiaono='" & Combo3.Text & "'"
   Else
       c = ""
   End If
   If Check4.Value = 1 Then
       d = "and shoushi between '" & DTPicker1.Value & "' and '" & DTPicker2.Value & "'"
   Else
       d = ""
   End If
   Call adoopen
   sql = "select fapiaono,yname,cname,ddanwei,dingjia,zonge,shoushi,xname,beizhu from yaopinjbxx,changjiazidian,namezidian,xiaosdingjia,xiaoshou,xiaoshouman where yaopinjbxx.pk=xiaosdingjia.pk and yaopinjbxx.pk=xiaoshou.pk and yaopinjbxx.yno=namezidian.yno and yaopinjbxx.cno=changjiazidian.cno and xiaoshou.xiaono=xiaoshouman.xiaono " & a & b & c & d
   Call rs(sql)
   If Not adors.EOF Then
       While Not adors.EOF
             Set x = ListView1.ListItems.Add()
             x.Text = "药NO-" & Trim$(adors.Fields("fapiaono"))
             x.SubItems(1) = Trim$(adors.Fields("yname"))
             x.SubItems(2) = Trim$(adors.Fields("cname"))
             x.SubItems(3) = Trim$(adors.Fields("ddanwei"))
             x.SubItems(4) = Trim$(adors.Fields("dingjia"))
             x.SubItems(5) = Trim$(adors.Fields("zonge"))
             x.SubItems(6) = Trim$(adors.Fields("shoushi"))
             x.SubItems(7) = Trim$(adors.Fields("xname"))
             x.SubItems(8) = Trim$(adors.Fields("beizhu"))
             adors.MoveNext
      Wend
   End If
   Call adoclose
End Sub

Private Sub Command6_Click()
ListView1.ListItems.Clear
End Sub

Private Sub Form_Load()
m = 10
Text1.Text = "欢迎使用医药销售系统   今日时间：" & Date
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Combo5.Enabled = False
Combo6.Enabled = False
Combo7.Enabled = False
Combo8.Enabled = False
DTPicker1.Enabled = False
DTPicker2.Enabled = False
DTPicker4.Enabled = False
DTPicker3.Enabled = False
End Sub

Private Sub Form_Resize()
Picture2.Width = Width
End Sub

Private Sub Timer1_Timer()
If Text1.Left >= -Text1.Width Then
Text1.Left = Text1.Left - m
Else
Text1.Left = Picture3.Width
End If
End Sub