一、运行界面二、设计界面：三、表文件（Gzrs.dbf）四、有关代码：1、Form1的Init代码：ThisForm.OleControl1
.Nodes.ClearSelectDistinct部门FromgzrsIntoCursorTempS
canThisForm.OleControl1.Nodes.Add(,,''BUMEN''+alltrim(部门),部门)Sele
ctDistinct姓名FromgzrsWheregzrs.部门=Temp.部门IntoCurso
rTemp1SelectTemp1ScanThisForm.OleControl1.Nodes.Add(''BUMEN
''+Alltrim(Temp.部门),4,''XINGMING''+Alltrim(Temp.部门)+Alltrim(姓名),姓名)
EndScanUseInTemp1SelectTempEndScanUseInTempThisForm.Ol
eControl1.Refreshthisform.text1.Value=gzrs.卡号thisform.text2.Value
=gzrs.姓名thisform.text3.Value=gzrs.部门thisform.text4.Value=gzrs.报到日
期thisform.text5.Value=gzrs.住址2、Olecontrol1的NodeClick代码：Active
X控件事件LPARAMETERSnodeXM=ALLTRIM(Node.text)SELECTgzrsLOCAT
EFORALLTRIM(gzrs.姓名)==ALLTRIM(Node.text)IFFOUND()thisform.
text1.Value=gzrs.卡号thisform.text2.Value=gzrs.姓名thisform.text3.V
alue=gzrs.部门thisform.text4.Value=gzrs.报到日期thisform.text5.Value=
gzrs.住址ENDIFThisform.grid1.SetAll(''DynamicForeColor'',''IIF(姓名="&XM
",RGb(255,0,0),rgb(0,0,0))'',''column'')Thisform.grid1.SetAll(''Dynam
icbackColor'',''iif(姓名="&xm",RGb(255,255,0),rgb(255,255,255))'',''col
umn'')Thisform.Grid1.Refresh |
|
