物流管理系统论文范文 第8页
End If
AdoRs.Close
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
If StrCx = 1 Then
Call Flcx(1) '执行托运申请信息查询
ElseIf StrCx = 2 Then
Call Flcx(2) '执行车辆调度信息查询
ElseIf StrCx = 3 Then
Call Flcx(3) '执行货物托运信息查询
ElseIf StrCx = 4 Then
Call Flcx(4) '执行托运验收信息查询
End If
Adodc1.ConnectionString = PublicStr
Adodc1.RecordSource = StrRs
Adodc1.Refresh
Set Dgr_Cx.DataSource = Adodc1
If StrCx = 1 Then '添加托运申请信息查询字段
Call DgrTitle(1) '调用保存查询字符串的过程
For i = 0 To 23
Cbx_tj.AddItem Dgr_Cx.Columns(i).Caption
Next i
ElseIf StrCx = 2 Then '添加车辆调度信息查询字段
Call DgrTitle(2)
For i = 0 To 7
Cbx_tj.AddItem Dgr_Cx.Columns(i).Caption
Next i
ElseIf StrCx = 3 Then '添加货物托运信息查询字段
Call DgrTitle(3)
For i = 0 To 23
Cbx_tj.AddItem Dgr_Cx.Columns(i).Caption
Next i
ElseIf StrCx = 4 Then '添加托运验收信息查询字段
Call DgrTitle(4)
For i = 0 To 6
Cbx_tj.AddItem Dgr_Cx.Columns(i).Caption
Next i
End If
End Sub
在用户自定义的Flcx函数过程当中，保存着相对应的查询字符串信息，根据该查询字符串来完成相应的查询事件，代码如下：
Private Sub Flcx(Nums As Integer)
Select Case Nums
Case 1 '货物申请查询
Me.Caption = "货物申请单查询"
StrRs = "select * from tb_Goods_sqd order by sqd_lszh"
Case 2
Me.Caption = "车辆调度查询"
StrRs = "select * from tb_Goods_cldd order by cldd_id"
Case 3
Me.Caption = "货物托运单查询"
StrRs = "select * from tb_Goods_tyd order by tyd_tydh"
Case 4
Me.Caption = "货物验收单查询"
StrRs = "select * from tb_Goods_khys order by khys_id"
End Select
End Sub
通过文本框中字符信息的改变，调用查询事件的过程FlcxChage执行查询事件，完成各种查询功能。代码如下：
Private Sub Txt_cx_Change()
If Cbx_tj.Text <> "" Then
If StrCx = 1 Then '货物申请单查
Call FlcxChage(1) '调用查询过程
Call DgrTitle(1)
ElseIf StrCx = 2 Then '车辆调度查询
Call FlcxChage(2)
Call DgrTitle(2)
ElseIf StrCx = 3 Then '货物托运单查询
Call FlcxChage(3)
Call DgrTitle(3)
ElseIf StrCx = 4 Then '货物验收单查询
Call FlcxChage(4)
Call DgrTitle(4)
End If
End If
End Sub
在用户自定义的FlcxChage函数过程当中，完成随时查询的操作，实现的代码如下：
Private Sub FlcxChage(Nums As Integer)
Select Case Nums
Case 1 '执行货物申请查询
Adodc1.RecordSource = "select * from tb_Goods_sqd where " & Coms &
" Like '%" + Txt_cx.Text + "%'"
Adodc1.Refresh
Case 2 '执行车辆调度查询
Adodc1.RecordSource = "select * from tb_Goods_cldd where " & Coms &
" Like '%" + Txt_cx.Text + "%'"
Adodc1.Refresh
Case 3 '执行托运信息查询
Adodc1.RecordSource = "select * from tb_Goods_tyd where " & Coms &
" Like '%" + Txt_cx.Text + "%'"
Adodc1.Refresh
Case 4 '执行托运验收查询
Adodc1.RecordSource = "select * from tb_Goods_khys where " & Coms &
" Like '%" + Txt_cx.Text + "%'"
Adodc1.Refresh
End Select
End Sub
附录A 参考文献
1．Visual Basic精彩编程200例 机械工业出版社 赛奎春、高春艳等 2003年1月
2．Visual Basic数据库开发实例解析 机械工业出版社 刘志铭、高春艳等 2003年8月
3．Visual FoxPro数据库开发实例解析 机械工业出版社 王晶莹、王国辉等 2003年9月
4．Power Builder数据库开发实例解析 机械工业出版社 华传铭、张振坤等 2003年9月
5．Delphi数据库开发实例解析 机械工业出版社 赛奎春、郑骁鹏等 2004年2月
6．PowerBuilder 精彩编程200例 机械工业出版社 张振坤、李文立等 2004年9月
7．Visual FoxPro 精彩编程200例 机械工业出版社 王国辉、董韶华等 2004年9月
8．ASP数据库开发实例解析 机械工业出版社 李严、于亚芳、王国辉 2004年12月
9．Delphi工程应用与项目实践 机械工业出版社 宋坤、赵智勇等 2005年1月
10．Visual Basic工程应用与项目实践 机械工业出版社 高春艳、李俊民等 2005年1月
11．Visual C＋＋工程应用与项目实践 机械工业出版社 张雨、阮伟良等 5005年1月
12．JSP工程应用与项目实践 机械工业出版社 陈威、白伟明、李楠 2005年2月
13．ASP工程应用与项目实践 机械工业出版社 王国辉、牛强、李南南 2005年4月
14．Visual Basic 信息系统开发实例精选 机械工业出版社 高春艳、李俊民、张耀庭等
2005年7月
15．ASP 信息系统开发实例精选 机械工业出版社 王国辉、牛强、李南南等 2005年7月
16．Delphi 信息系统开发实例精选 机械工业出版社 宋坤、赵智勇、刘强等 2005年7月
17．Visual foxpro数据库开发关键技术与实例应用 人民邮电出版社 周桓、张雨、王国辉
2004年5月
18．PoweBuilder数据库开发关键技术与实例应用 人民邮电出版社 刘志铭 张振坤 冯文萃
2004年5月
19．Delphi数据库开发关键技术与实例应用 人民邮电出版社 赛奎春 陈紫鸿 宋昆
2004年5月
20．Visual basic数据库开发关键技术与实例应用 人民邮电出版社 高春艳、李艳
2004年5月
21．Visual C++ 管理信息系统完整项目实例剖析 人民邮电出版社 明日科技 2005年7月
22．Visual Basic 管理信息系统完整项目实例剖析 人民邮电出版社 明日科技
2005年7月
23．PowerBuilder 管理信息系统完整项目实例剖析 人民邮电出版社 明日科技
2005年7月
24．Visual FoxPro管理信息系统完整项目实例剖析 人民邮电出版社 明日科技
2005年7月
25．SQL Server数据库开发实例解析 机械工业出版社 宋昆、李严等 2006年1月
26．Access数据库开发实例解析 机械工业出版社 李俊民、高春燕等 2006年1月
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>