文档介绍:: .
〈〈NBA求员管理系统》
〈〈数据库原理》课程设计报告——NBA求员管理系统设计与实eSubCommand1_Click()//打开form2窗口EndSubPrivateSubDel_Click()
DimresAsInteger
res=MsgBox("确实要删除此行吗?",vbExclamation+vbYesNo+vbDefaultButton2)
Ifres=vbYesThen
EndIf
EndIfEndSubPrivateSubEdit_Click()EndSubPrivateSubExit_Click()
EndEndSubPrivateSubFirst_Click()EndSubPrivateSubLast_Click()EndSubPrivateSubNext_Click()
EndIfEndSubPrivateSubPrevious_Click()
EndIfEndSubPrivateSubPrint_Click()//打开apg窗口EndSubPrivateSubForm_Load()
DimstrPIDAsString
DimstrSelectAsString
strSelect="select*fromplayer"
CallInitGird
DimstrPID1AsStringDimstrSelectlAsStringstrSelectl="select*fromplayerData"CallInitGirdlDimstrPID2AsStringDimstrSelect2AsStringstrSelect2="select*frombehave"
CallInitGird2
DimstrPID3AsString
DimstrSelect3AsStringEndSubPrivateSubInitGird()
WithDtgCond
.Columns(0).Caption="ID"
.Columns(1).Caption="Name"
.Columns(2).Caption="Capital"
.Columns(3).Caption="Age"
.Columns(4).Caption="Team"
.Columns(5).Caption="No"
.Columns(6).Caption="TeamID"
.Columns(0).Width=1000
.Columns(1).Width=1000
.Columns(2).Width=1000
.Columns(3).Width=1000
EndWithEndSubPrivateSubInitGird1()
WithDtgCond1
.Columns(0).Caption="ID"
.Columns(1).Caption="Name"
.Columns(2).Caption="ppg"
.Columns(3).Caption="rpg"
.Columns(4).Caption="apg"
.Columns(5).Caption="spg"
.Column