物流管理系统毕业设计论文范文，内附代码Adodc1.ConnectionString = PublicStr Adodc1.RecordSource = "select * from tb_user" Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then Adodc1.Recordset.MoveFirst Cbx_Name.Clear '在添加数据时，首先清空控件中的内容 Do While Adodc1.Recordset.EO
Private Sub Form_Load() Adodc1.ConnectionString = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123" Adodc1.RecordSource = "select * from ask_info" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub
手机界面的电话号码查询,Private Sub Command1_Click() If Text1 "" Then Adodc1.RecordSource = "select * from call where 科室或姓名代码 like '%" & Text1 & "%' " Adodc1.Refresh End If End Sub Private Sub DataGrid1_Click() End Sub Private Sub Form_Load() a = "Provider=Mic
VB 对分组统计数据进行分析，并使用柱状图来显示，按仓库分组小计。下面是相关代码： Private Sub Command1_Click() Adodc1.RecordSource = "select 仓库,现库存数量 from (SELECT sum(库存) as 现库存数量,仓库 from tb_kc group by 仓库)" Adodc1.Refresh Set MSChart1.DataSource = Adodc1 End Sub Private Su
