Width=1000
DataGrid1.Columns(4).Width=1000
DataGrid1.Columns(5).Width=1000
DataGrid1.Columns(6).Width=1000
DataGrid1.Columns(7).Width=1000
DataGrid1.Columns(8).Width=1000
DataGrid1.Columns(9).Width=1000
DataGrid1.Columns(10).Width=1000
DataGrid1.Columns(11).Width=1000
DataGrid1.Columns(12).Width=1000
DataGrid1.Columns(13).Width=1000
DataGrid1.Columns(14).Width=1000
EndSub
添加、修改和删除记录的代码与设备信息管理窗体中的相关代码相似。
4.6设备巡检信息管理模块
设备巡检管理模块可以添加、修改、删除和查看设备巡检信息。
4.6.1设备巡检信息编辑窗体
设备巡检信息编辑窗体的名称为FrmCheckEdit,窗体的布局如图4-9所示。
图4-9
当单击"确定"按钮时触发Cmd_OK_Click事件,代码如下:
PrivateSubCmd_OK_Click()
'检查用户录入数据的有效性
IfLen(Trim(txtDevNo))=0Then
MsgBox("请选择设备")
Cmd_DeviceSel.SetFocus
ExitSub
EndIf
IfLen(Trim(txtCheckPerson))=0Then
MsgBox"请输入维护人员"
txtCheckPerson.SetFocus
ExitSub
EndIf
'把用户录入的数据赋值到数据库对象变量中
WithMyCheck
.DevNo=MakeStr(txtDevNo)
.CheckDate=Format(dtCheckDate.Value,"yyyy-mm-dd")
.Comment=MakeStr(txtComment)
.FindError=Check1.Value
IfCheck1.Value=1Then
.Reason=MakeStr(txtReason)
Else
.Reason=""
EndIf
.ChangeAccessory=Check2.Value
IfCheck2.Value=1Then
.AccessoryList=MakeStr(txtAccessoryList)
Else
.AccessoryList=""
EndIf
.Reason=MakeStr(txtReason)
.CheckPerson=MakeStr(txtCheckPerson)
.Amount=Val(txtAmount)
'根据变量Modify的值,决定是插入新数据,还是修改已有的数据
IfModify=FalseThen
.Insert
Else
.Update(OriId)
EndIf
EndWith
'关闭窗口
UnloadMe
窗体中其他代码与设备维护信息编辑窗体相似。
4.6.2设备巡检信息管理模块
设备巡检信息管理窗体为FrmCheck,窗体的布局如图4-10所示。
图4-10
GridRefresh过程的功能是设置SELECT语句,根据查询条件在表格中显示满足条件的所有设备巡检记录,代码如下:
PrivateSubGridRefresh()
'设置查询条件
IfLen(Trim(txtDevNo))=0Then
SchCnd="And"
Else
SchCnd="ANDd.DevNo='"+Trim(txtDevNo)+"'And"
EndIf
SchCnd=SchCnd+"c.CheckDateBetween'"+Format(DTStart.Value,"yyyy-mm-dd")_
+"'And'"+Format(DTEnd.Value,"yyyy-mm-dd")+"'"
'设置数据源的属性
Adodc1.ConnectionString=Conn
Adodc1.RecordSource="SELECTc.CheckIDAS编号,c.DevNoAS设备编号,"_
+"t1.InfoNameAS设备品牌,d.ModelAS设备型号,t2.InfoNameAS所属支行,"_
+"d.PlaceAS布放地点,c.CheckDateAS设备巡检时间,c.CommentAS设备巡检内容,"_
+"CASEc.FindErrorWHEN0THEN'否'ELSE'是'ENDAS发现故障,c.ReasonAS故障原因,"_
+"CASEc.ChangeAccessoryWHEN0THEN'否'ELSE'是'ENDAS是否更换配件,"_
+"c.AccessoryListAS更换配件的列表,c.CheckPersonAS巡检人员,c.AmountAS维护费用"_
+"FROMDeviced,BaseInfot1,BaseInfot2,[Check]c"_
+"WHEREd.TypeId=t1.InfoIdANDd.BranchID=t2.InfoIDANDc.DevNo=d.DevNo"_
+SchCnd+"ORDERBYc.CheckID"
'MsgBoxAdodc1.RecordSource
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
DataGrid1.Columns(0).Width=0
DataGrid1.Columns(1).Width=1000
DataGrid1.Columns(2).Width=1000
DataGrid1.Columns(3).Width=1000
DataGrid1.Columns(4).Width=1000
DataGrid1.Columns(5).Width=1000
DataGrid1.Columns(6).Width=1000
DataGrid1.Columns(7).Width=1000
DataGrid1.Columns(8).Width=1000
DataGrid1.Columns(9).Width=1000
DataGrid1.Columns(10).Width=1000
DataGrid1.Columns(11).Width=1000
DataGrid1.Columns(12).Width=1000
DataGrid1.Columns(13).Width=1000
EndSub
添加、修改和删除记录的代码与设备信息管理窗体中的相关代码相似。
4.7设备移机信息管理模块
设备移机信息管理模块可以添加、修改、删除和查看设备移机信息。
4.7.1设备移机信息编辑窗体
设备移机信息编辑窗体的名称为FrmMoveEdit,窗体的布局如图4-11所示。
图4-11
当单击"确定"按钮时触发Cmd_ok_click事件,代码如下:
PrivateSubCmd_OK_Click()
'检查用户录入数据的有效性
IfLen(Trim(txtDevNo))=0Then
MsgBox("请选择设备")
Cmd_DeviceSel.SetFocus
ExitSub
EndIf
IfLen(Trim(txtReason))=0Then
MsgBox"请输入移机原因"
txtReason.SetFocus
ExitSub
EndIf
IfLen(Trim(txtNewPlace))=0Then
MsgBox"请输入新布放地点"
txtNewPlace.SetFocus
ExitSub
EndIf
IfLen(Trim(txtNewAdmin))=0Then
MsgBox"请输入新管理员"
txtNewAdmin.SetFocus
ExitSub
EndIf
'把用户录入的数据赋值到数据库对象变量中
WithMyMove
.DevNo=MakeStr(txtDevNo)
.MoveDate=Format(dtMoveDate.Value,"yyyy-mm-dd")
.Reason=MakeStr(txtReason)
.NewPlace=MakeStr(txtNewPlace)
.NewAdmin=MakeStr(txtNewAdmin)
'根据变量Modify的值,决定是插入新数据,还是修改已有的数据
IfModify=FalseThen
.Insert
Else
.Update(OriId)
EndIf
EndWith
'更新设备的布放地点和管理员
WithMyDevice
.Administrator=MakeStr(txtNewAdmin)
.Place=MakeStr(txtNewPlace)
.UpdateMove(MakeStr(txtDevNo))
EndWith
'关闭窗口
UnloadMe
EndSub
4.7.2设备移机信息管理模块
设备巡检信息管理窗体为FrmMove,窗体的布局如图4-12所示。
图4-12
GridRefresh过程代码如下:
PrivateSubGridRefresh()
'设置查询条件
IfLen(Trim(txtDevNo))=0Then
SchCnd="And"
Else
SchCnd="ANDd.DevNo='"+Trim(txtDevNo)+"'And"
EndIf
SchCnd=SchCnd+"m.MoveDateBetween'"+Format(DTStart.Value,"yyyy-mm-dd")_
+"'And'"+Format(DTEnd.Value,"yyyy-mm-dd")+"'"
'设置数据源的属性
Adodc1.ConnectionString=Conn
Adodc1.RecordSource="SELECTm.MoveIDAS编号,m.DevNoAS设备编号,"_
+"t1.InfoNameAS设备品牌,d.ModelAS设备型号,t2.InfoNameAS所属支行,"_
+"d.PlaceAS布放地点,m.MoveDateAS设备移机时间,m.ReasonAS设备移机原因,"_
+"m.NewPlaceAS新布放地点,m.NewAdminAS新管理员"_
+"FROMDeviced,BaseInfot1,BaseInfot2,Movementm"_
+"WHEREd.TypeId=t1.InfoIdANDd.BranchID=t2.InfoIDANDm.DevNo=d.DevNo"_
+SchCnd+"ORDERBYm.MoveID"
'MsgBoxAdodc1.RecordSource
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
DataGrid1.Columns(0).Width=0
DataGrid1.Columns(1).Width=1000
DataGrid1.Columns(2).Width=1000
DataGrid1.Columns(3).Width=1000
DataGrid1.Columns(4).Width=1000
DataGrid1.Columns(5).Width=1000
DataGrid1.Columns(6).Width=1000
DataGrid1.Columns(7).Width=1000
DataGrid1.Columns(8).Width=1000
DataGrid1.Columns(9).Width=1000
EndSub
添加、修改和删除记录的代码与设备信息管理窗体中的相关代码相似。
4.8设备报废信息管理模块
设备报废信息管理模块可以实现以下功能:
*系统管理员和审批经理可以创建、修
上一篇:
VB银行代扣代发工资系统(论文和程序)
下一篇:
黑色的摄影网站展示功能强大网上少见js技术强悍