物流运输管理系统 第8页
Set Item = lsvClient.ListItems.Add(, , "")
Item.Tag = sys.StrToText(arrclient(0, iq))
Item.Text = sys.StrToText(iq + 1)
Item.SubItems(1) = sys.StrToText(arrclient(1, iq))
Item.SubItems(2) = sys.StrToText(arrclient(2, iq))
Item.SubItems(3) = sys.StrToText(arrclient(3, iq))
Item.SubItems(4) = sys.StrToText(arrclient(4, iq))
Item.SubItems(5) = sys.StrToText(arrclient(5, iq))
Item.SubItems(5) = sys.StrToText(arrclient(6, iq))
Next
Label2.Caption = "共 " & total & " 条记录"
End Sub
4.8 车站管理表单
新建FRMSTATION表单，用来管理物流系统，所有经过的车站信息，在这个表单中，输入物货信息管理系统中所有经过的车站，即可以接受物品货运到达的地方。
车站管理窗体的控件及属性取值如下：
控件 属性 属性取值
label Name lblTitle
Caption 车站管理
Text Name txtItem
Text Name txtItem
commandbutton Name cmdadd
Caption 新增
commandbutton Name cmdmodify
Caption 修改
commandbutton Name cmddelete
Caption 删除
代码如下：
Private Sub Form_Load()
Me.Top = 0
Me.Left = 0
Me.Width = MainForm.Width * 0.4
Me.Height = MainForm.Height * 0.6
'初始化车站
Dim inum As Integer
Dim strsql As String
Dim DB As New clsDataBase
Dim rs As New ADODB.Recordset
ReDim arrstation(0) As String
strsql = "SELECT * FROM STATION"
Set rs = sys.DB.OpenRecordSet(strsql)
If Not (rs.BOF) Or (rs.EOF) Then
inum = 0
Do While Not rs.EOF
ReDim Preserve arrstation(inum)
arrstation(inum) = rs("NAME")
LisStation.AddItem (rs("NAME"))
LisStation.ItemData(inum) = rs("ID")
rs.MoveNext
inum = inum + 1
Loop
End If
End Sub
Private Sub LisStation_Click()
If LisStation.ListIndex <> -1 Then
txtId.Text = LisStation.ItemData(LisStation.ListIndex)
txtStation.Text = LisStation.Text
End If
End Sub
4.9 品名管理表单
新建FRMPRODUCT表单，用来管理系统的品名设置，通过这个表单，可以对物流管理系统中，所有接待的物品品名进行提前设置，可以方便用户在添加运单管理时对货运信息的输入。
代码如下：
Private Sub Command1_Click()
'检查是否为空
If Trim(txtProduct.Text) <> "" Then
'检查是否重复
Dim i As Integer
Dim isfind As Boolean
isfind = False
For i = 0 To UBound(arrProduct)
If txtProduct.Text = arrProduct(i) Then
isfind = True
End If
Next
If isfind = False Then
'取得最大ID
Dim inum As Integer
Dim strsql As String
Dim DB As New clsDataBase
Dim rs As New ADODB.Recordset
strsql = "SELECT MAX(ID) AS MAXID FROM Product"
Set rs = sys.DB.OpenRecordSet(strsql)
If Not IsNull(rs(0)) Then
ID = rs(0) + 1
Else
ID = 0
End If
txtId.Text = ID
MyVar = MsgBox("确认增加？", vbOKCancel, "信息提示")
If MyVar = vbOK Then
'插入数据
strsql = "INSERT INTO Product (ID,NAME) VALUES (" & sys.TextTolong(txtId) & "," & sys.StrToInsert(txtProduct) & ")"
sys.DB.ExecuteSQL (strsql)
MsgBox "操作成功！"
Unload Me
End If
Else
MsgBox "已经存在该品名!"
End If
Else
MsgBox "品名不能为空!"
End If
End Sub
Private Sub Command2_Click()
'检查是否为空
If Trim(txtProduct.Text) <> "" Then
'检查是否重复
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页
物流运输管理系统 第8页下载如图片无法显示或论文不完整，请联系qq752018766
