EndIf
'删除分类
MyBase.Delete(Val(DataList1.BoundText))
DataRefresh'刷新DataList1
EndSub
4.3.2设备品牌信息管理窗体
设备品牌信息管理窗体也是Frmtype,只是公共变量TypeID的值为2。
4.3.3支行信息管理窗体
支行信息管理窗体也是Frmtype,只是公共变量TypeID的值为3。
4.3.4在主界面中增加设置代码
当选择"基本信息管理"/"设备分类管理"菜单时触发mn_Types_Click事件,代码如下:
PrivateSubmn_Types_Click()
FrmType.TypeID=1
FrmType.Caption="设备类型管理"
FrmType.Show1
EndSub
4.4设备信息管理模块
设备信息管理模块包含设备信息的添加、修改、删除和查看等功能。
4.4.1设备信息编辑窗体
设备信息编辑窗体可以用来添加和修改设备的基本信息,窗体名称为FrmDeviceEdit,窗体的布局如图4-4所示。
图4-4
窗体FrmDeviceEdit包含的主要控件及其属性如表4-4所示。
表4-4窗FrmDeviceEdit中包含的控件及其属性
对象名
属性
属性值
txtDevno
设备编号
Adodcl
为设备分类提供数据源
Dco_typeid
设备分类
Adodc2
为设备品牌提供数据源
Dco_enterprise
设备品牌
Txtmodel
设备型号
txtprice
购买价格
txtplace
布放地点
Adodc3
为所属支行提供数据源
Dco_branch
所属支行
Txtstartdate
开通时间
Txtadmin
管理员
Txtposter
创建人
Cmd_ok
Caption
确定
Cmd_cancel
Caption
取消
下面是窗体FrmDeviceEdit中各个过程的代码。
(1)Form_Load()过程。当装入窗体FrmDeviceEdit时触发Form_Load事件,对应的代码如下:
PrivateSubDataRefresh()
'设备分类信息
Adodc1.ConnectionString=Conn'设置连接字符串
Adodc1.RecordSource="SELECT*FROMBaseInfoWHERETypeId=1"'选择设备分类
Adodc1.Refresh
Setdco_TypeId.RowSource=Adodc1'绑定数据源
dco_TypeId.ListField="InfoName"'显示列名
dco_TypeId.BoundColumn="InfoId"'绑定列值
'设备品牌信息
Adodc2.ConnectionString=Conn'设置连接字符串
Adodc2.RecordSource="SELECT*FROMBaseInfoWHERETypeId=2"'选择设备品牌
Adodc2.Refresh
Setdco_Enterprise.RowSource=Adodc2'绑定数据源
dco_Enterprise.ListField="InfoName"'显示列名
dco_Enterprise.BoundColumn="InfoId"'绑定列值
'支行信息
Adodc3.ConnectionString=Conn'设置连接字符串
Adodc3.RecordSource="SELECT*FROMBaseInfoWHERETypeId=3"'选择支行
Adodc3.Refresh
Setdco_Branch.RowSource=Adodc3'绑定数据源
dco_Branch.ListField="InfoName"'显示列名
dco_Branch.BoundColumn="InfoId"'绑定列值
EndSub
(2)cmd_ok_click过程。当单击"确定"按钮时触发cmd_ok_click事件,对应的程序代码如下:
PrivateSubCmd_OK_Click()
'检查用户录入数据的有效性
IfLen(Trim(txtDevNo))=0Then
MsgBox("请输入设备编号")
txtDevNo.SetFocus
ExitSub
EndIf
IfLen(Trim(txtModel))=0Then
MsgBox"请输入设备型号"
txtModel.SetFocus
ExitSub
EndIf
IfLen(Trim(dco_TypeId.Text))=0Then
MsgBox"请选择设备分类"
dco_TypeId.SetFocus
ExitSub
EndIf
IfLen(Trim(dco_Enterprise.Text))=0Then
MsgBox"请选择设备品牌"
dco_Enterprise.SetFocus
ExitSub
EndIf
IfLen(Trim(dco_Branch.Text))=0Then
MsgBox"请选择所属支行"
dco_Branch.SetFocus
ExitSub
EndIf
IfLen(Trim(txtPrice))=0Then
MsgBox"请输入设备单价"
txtPrice.SetFocus
ExitSub
EndIf
IfLen(Trim(txtPlace.Text))=0Then
MsgBox"请选择布放地点"
txtPlace.SetFocus
ExitSub
EndIf
'把用户录入的数据赋值到数据库对象变量中
WithMyDevice
.DevNo=MakeStr(txtDevNo)
.TypeID=Val(dco_TypeId.BoundText)
.EnterpriseID=Val(dco_Enterprise.BoundText)
.Model=MakeStr(txtModel)
.Price=Val(txtPrice)
.Place=MakeStr(txtPlace)
.BranchID=Val(dco_Branch.BoundText)
.StartDate=Format(dtStartDate.Value,"yyyy-mm-dd")
.Administrator=MakeStr(txtAdmin)
.Poster=MakeStr(txtPoster)
.Status="正常"
'根据变量Modify的值,决定是插入新数据,还是修改已有的数据
IfModify=FalseThen
'判断此设备编号是否存在
If.In_DB(Trim(txtDevNo))=TrueThen
MsgBox("已经存在此设备编号")
txtDevNo.SetFocus
ExitSub
EndIf
.Insert
Else
.Update(OriId)
EndIf
EndWith
'关闭窗口
UnloadMe
EndSub
4.4.2设备信息管理窗体
设备信息管理窗体的名称为FrmDevice。在窗体FrmDevice中,使用DataList控件来显示设备分类和所属支行等信息查询条件信息,使用DataGrid控件来显示设备数据,使用3个ADOData控件为它们提供数据源。窗体的主要的控件及其属性如表4-5所示。
表4-5窗体FrmDevice中包含的控件及其属性
对象名
属性
属性值
TxtDevno
设备编号
Adodcl
为设备信息表格提供数据源
DataGrid1
显示设备信息的表格控件
Adodc2
为设备分类提供数据源
Dco_typeid
设备分类
Adodc3
为所属支行提供数据源
Dco_branch
所属支行
Cmd_search
Caption
布放地点
Cmd_reset
Caption
为所属支行提供数据源
Cmd_add
Caption
所属支行
Cmd_modi
Caption
开通时间
Cmd_del
Caption
管理员
Cmd_exit
Caption
创建人
设备信息管理窗体的布局如图4-5所示。
下面是窗体FrmDevice中各个过程的代码。
(1)SchCnd变量。Schcnd变量用来记录查询条件,定义代码如下:
Privateschcndasstring
(2)GridRefresh过程。GridRefresh过程根据变量SchCnd的值读取不同的记录,对应的代码如下:
PrivateSubGridRefresh()
'判断是否有查询字段
IfLen(Trim(txtDevNo))=0Then
SchCnd=""
Else'设置查询条件
SchCnd="ANDd.DevNo='"+Trim(txtDevNo)+"'"
EndIf
IfLen(Trim(dco_TypeId.Text))>0Then
SchCnd=SchCnd+"ANDd.TypeId="+Trim(dco_TypeId.BoundText())
EndIf
IfLen(Trim(dco_Branch.Text))>0Then
SchCnd=SchCnd+"ANDd.BranchID="+Trim(dco_Branch.BoundText())
EndIf
Adodc1.ConnectionString=Conn'设置连接字符串
Adodc1.RecordSource="SELECTd.DevNoAS设备编号,t1.InfoNameAS分类,"_
+"t2.InfoNameAs设备品牌,d.ModelAS设备型号,d.PriceAS购买价格,"_
+"d.PlaceAS布放地点,t3.InfoNameAS所属支行,d.StartDateAS开通时间,"_
+"d.AdministratorAS管理员,d.PosterAS提交人,d.StatusAs状态"_
+"FROMDeviced,BaseInfot1,BaseInfot2,BaseInfot3"_
+"WHEREd.TypeId=t1.InfoIdAndd.EnterpriseID=t2.InfoIdAndd.BranchID=t3.InfoId"_
+SchCnd+"ORDERBYd.DevNo"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1'设置数据源
DataGrid1.Columns(0).Width=800'设置列宽度
DataGrid1.Columns(1).Width=1200
DataGrid1.Columns(2).Width=1200
DataGrid1.Columns(3).Width=1200
DataGrid1.Columns(4).Width=1200
DataGrid1.Columns(5).Width=1000
DataGrid1.Columns(6).Width=1200
DataGrid1.Columns(7).Width=800
DataGrid1.Columns(8).Width=1200
DataGrid1.Columns(9).Width=1200
DataGrid1.Columns(10).Width=1200
EndSub
Form_Load过程。
PrivateSubForm_Load()
'设备分类
上一篇:
VB银行代扣代发工资系统(论文和程序)
下一篇:
多年来只想说一句,我不怪你