迪信通汇报方案.docVIP

4、查询统计设计 (1入库查询模块设计(窗体名:入库查询.frm Private Sub DBGrid1_Click( End Sub Private Sub Form_Activate( 向combo1添加查询项目列表 Combo1.AddItem (商品名称 Combo1.AddItem (批号 Combo1.AddItem (票号 Combo1.ListIndex = 1 Data1.RecordSource = select * from rkd where ((rkd.日期 between + Chr(35 + rq1.Text + Chr(35 + and + Chr(35 + rq2.Text + Chr(35 + Data1.Refresh End Sub Private Sub Form_Load( 自动识别数据库路径 Data1.DatabaseName = App.Path \yyjxc.mdb End Sub Private Sub Form_Unload(Cancel As Integer frm_main.Enabled = True End Sub Private Sub Command1_Click( 入库查询 Data1.RecordSource = select * from rkd where ((rkd.日期 between + Chr(35 + rq1.Text + Chr(35 + and + Chr(35 + rq2.Text + Chr(35 + and(rkd. Combo1.Text like + Chr(34 + Text1.Text + * + Chr(34 + Data1.Refresh End Sub Private Sub Command2_Click( 删除入库信息 On Error Resume Next Data1.Recordset.Delete Data1.Refresh End Sub Private Sub Command3_Click( frm_main.Enabled = True Unload Me End Sub 程序启动后,选择“查询统计”菜单下的“入库查询”项,将进入入库查询模块。其实现的功能如下: a.按任意时间段、任意字段查询入库商品信息。 b.删除入库商品信息。 (2销售查询模块设计(窗体名:销售查询.frm Private Sub DBGrid1_Click( End Sub Private Sub Form_Activate( 向combo1添加查询项目列表 Combo1.AddItem (商品名称 Combo1.AddItem (批号 Combo1.AddItem (票号 Combo1.ListIndex = 0 Data1.RecordSource = select * from xsd where ((xsd.日期 between + Chr(35 + rq1.Text + Chr(35 + and + Chr(35 + rq2.Text + Chr(35 + Data1.Refresh End Sub Private Sub Form_Load( 自动识别数据库路径 Data1.DatabaseName = App.Path \yyjxc.mdb End Sub Private Sub Form_Unload(Cancel As Integer frm_main.Enabled = True End Sub Private Sub Command1_Click( 查询销售信息 Data1.RecordSource = select * from xsd where ((xsd.日期 between + Chr(35 + rq1.Text + Chr(35 + and + Chr(35 + rq2.Text + Chr(35 + and(xsd. Combo1.Text like + Chr(34 + Text1.Text + * + Chr(34 + Data1.Refresh End Sub Private Sub Command2_Click( 删除销售信息 On Error Resume Next Data1.Recordset.Delete Data1.Refresh End Sub Private Sub Command3_Click( frm_main.Enabled = True Unload Me End Sub 程序启动后,选择“查询统计”菜单下的“销售查询”项,将进入销售查询模块。其实现的功能如下: a.按任意时间段、任意字段查询商品销售信