主题：【参选实例】华海仓库管理软件 v1.0 (源码已公开)

其实好简单的！就睇项目管理入面的事件都系一个一个事件分步骤运行的，只要想在那个步骤中插入自己的代码就OK了！！

呵。道理一样！y版的系对内部表而我的系对自定义功能的！

管理员设置的人员系用动态控件生成，图像化而已！只用窗口和后台数据组成，相对简单些！

后天就公开源码了，
到时再指点下吧！

开发者进入,密码123,进入后再选择登录窗口中的用户名和密码进入.在用CTRL+SHIRT+F12调出系统菜单

ACCESS密码：123　　（把storage.db文件的扩展名改为mdb）

这个难些，因为转换为内部表，那代码就运行不了了！！

还是装个ACCESS吧

学了无坏处！！但很重要（数据库基础）！！若一般用户狐表的内部表已够用了！

之所以用@#$，系用来简化代码！

===找到TreeView4控件查看代码=====

'生产明细表
s 13 = "SELECT M.序号, M.日期, M.部门, M.货品编码, N.货品名称, N.规格型号, N.计量单位, VAL(M.入库数量) AS 数量, M.单价, M.金额, N.备注 FROM CYMX AS M LEFT JOIN 库存商品 AS N ON M.货品编码=N.货品编码 WHERE 类型='生产入库' @#$ ORDER BY 日期, 部门, M.货品编码"     '这里有个'@#$'

略..........

            select case value2  '判断选定节点内容,赋值全局变量

  略.........

               case "生产明细表"   '把SQL字符串赋值给全局变量Vars("str2") 
                    Vars("str2") = s13
               case "部门领用汇总表"
                    Vars("str2") = s14
               case "物品领用汇总表"
                    Vars("str2") = s15
               case "领用明细表"
                    Vars("str2") = s16
            end select

========报表查询窗口查询按钮代码=============

with e.form
    dim sql,str1,str2,str3,kz as string
    kz = "TextBox4,ComboBox4,ComboBox3,ComboBox5,ComboBox6,TextBox1,TextBox3,DateTimePicker1,DateTimePicker2"   '查询条件的控件数组
    str1 = "单号='@$0',类型= '@$1',仓库= '@$2',供应单位= '@$3',经办人= '@$4',货品编码 = '@$5',部门= '@$6',日期 >= #@$7#,日期 <= #@$8#"    '对应查询条件的条件数组（@$为替换符，作用是可简化代码！）
    dim i as integer
    For Each k as string In kz.split(",")    '分解控件数组,循环组合查询条件串sql
        if .Controls(k).Value isnot nothing then    '若条件控件内容为空,跳过,否则组合查询条件串
            if i=0 and .Controls("CheckBox1").Checked then    '判断使用模糊单号还是精确单号查询
                sql = sql & " AND " & str1.split(",")(i).Replace("='@$" & i," like '%" & .Controls(k).Value & "%")    '组合条件串，条件值替换@$i。(模糊查询)
            else
                sql = sql & " AND " & str1.split(",")(i).Replace("@$" & i,.Controls(k).Value)    '组合条件串，条件值替换@$i。(精确查询)
            end if
        end if
    i += 1
    Next
    Dim cmd As New SQLCommand
    cmd.C
    Dim dst As WinForm.DataList = Forms("窗口1").Controls("DataList7")  
    cmd.CommandText = Vars("str2").Replace("@#$",sql)   '把 Vars("str2")=s13 中的'@#$'替换为条件串sql,组成一个完整的SQL查询语句!!
    msgbox(Vars("str2").Replace("@#$",sql))    '查看完整的SQL查询语句串,加入这条代码就明了!!!!!!
    '生成序列号
    dst.DataTable = cmd.ExecuteReader()
    dst.Build()
    For i=1 to dst.count
        Dim dr as DataRow = dst.GetDataRow(i-1)
        dr("序号") = "" & i
    Next
end with