VB-食品状态提醒工具【源码】.docVIP

Dim counts, baozhiqi, bili As IntegerDim xuhao As StringDim shengchanriqi, rukuriqi As StringDim timecount, times As IntegerPrivate Sub Command1_Click() 筛选无效信息 If Text1 = Or Text2 = Or Text3 = Or Text4 = Then Exit Sub Else End If 筛选结束 With ListView1.ListItems.Add .Text = Text4 .SubItems(1) = Text2 入库时间 .SubItems(2) = Text3 保质期 .SubItems(3) = Text1 生产日期 baozhiqi = Val(Text3) timecount = DateDiff(d, Text1, Date) bili = (timecount / baozhiqi) * 100 .SubItems(4) = 适用状态： & bili & % End With counts = counts + 1 Text2.Text = Date Text2.Enabled = False clear up rest of the datas Text1 = : Text3 = : Text4 = reset focus Text1.SetFocusEnd SubPrivate Sub Command2_Click() Text1 = : Text3 = : Text4 = Text1.SetFocusEnd SubPrivate Sub Command3_Click() MsgBox CopyRight2010-2060 David SunEnd SubPrivate Sub Command4_Click() ListView1.ListItems.Remove (ListView1.SelectedItem.Index)End SubPrivate Sub Form_Load() settings Text2 = Date Text2.Enabled = False hide Label4 for the sake of beauty Label4.Visible = False counts = 1 If Dir(App.Path & date.sun) = Then Else If FileLen(App.Path & date.sun) = 0 Then Else openfile End If End IfEnd SubFunction openfile() Open App.Path & date.sun For Input As #1 Do While Not EOF(1) Input #1, xuhao, rukuriqi, baozhiqi, shengchanriqi With ListView1.ListItems.Add .Text = xuhao .SubItems(1) = rukuriqi .SubItems(2) = baozhiqi .SubItems(3) = shengchanriqi timecount = Abs(DateDiff(y, shengchanriqi, Date) If timecount baozhiqi Then .SubItems(4) = 【已过期】 Else bili = (timecount / baozhiqi) * 100 .SubItems(4) = 适用状态： & bili & % End If End With Loop Close #1End FunctionPrivate Sub Form_Unload(Cancel As Integer) Dim listone As ListItem Open App.Path & date.sun For Output As #1 For Each listone In ListView1.ListItems Write #1, listone.Text, listone.ListSubItems(1), listone.ListSubItems(2), listone.ListSubItems(3) Next listone Close #1End SubPrivate Sub ListView1_Click() On Error Resume Next shengchanriqi = ListView1.SelectedItem.ListSubItems.Item(3) timecount = Abs(DateDiff(y, shengchanriqi, Date) baozhiqi = Val(ListView1.SelectedItem.ListSubItems.Item(2) If timecount baozhiqi Then Pbar1.Visible = False forbidden the appear of Prossess Bar Frame2.Visible = False Frobidden the appear of Frame2 Label4.Visible = True show the label Label4.Caption = 食品已过期 & timecount - ListView1.SelectedItem.ListSubItems.Item(2) & 天，请不要食用或使用！ Else Label4.Visible = False forbidden label Pbar1.Visible = True show prossess bar Frame2.Visible = True show frame2 ba