source.txt

来自「采用delphi语言实现了人事管理信息系统。使用了access数据库。」· 文本 代码 · 共 30 行

dbgdshowfind.DataSource:=datasource1;
dbgdshowfind.Columns[0].Field:=datasource1.DataSet.FieldByName('number');
dbgdshowfind.Columns[0].Width:=datasource1.DataSet.Fields[0].DisplayWidth+50;
dbgdshowfind.Columns[1].Field:=datasource1.DataSet.FieldByName('name');
dbgdshowfind.Columns[1].Width:=datasource1.DataSet.Fields[1].DisplayWidth+40;
dbgdshowfind.Columns[2].Field:=datasource1.DataSet.FieldByName('sex');
dbgdshowfind.Columns[2].Width:=datasource1.DataSet.Fields[2].DisplayWidth+50;
dbgdshowfind.Columns[3].Field:=datasource1.DataSet.FieldByName('comefrom');
dbgdshowfind.Columns[3].Width:=datasource1.DataSet.Fields[3].DisplayWidth+50;
dbgdshowfind.Columns[4].Field:=datasource1.DataSet.FieldByName('birthday');
dbgdshowfind.Columns[4].Width:=datasource1.DataSet.Fields[4].DisplayWidth+40;
dbgdshowfind.Columns[5].Field:=datasource1.DataSet.FieldByName('ygmz');
dbgdshowfind.Columns[5].Width:=datasource1.DataSet.Fields[5].DisplayWidth+50;
dbgdshowfind.Columns[6].Field:=datasource1.DataSet.FieldByName('education');
dbgdshowfind.Columns[6].Width:=datasource1.DataSet.Fields[6].DisplayWidth+50;
dbgdshowfind.Columns[7].Field:=datasource1.DataSet.FieldByName('phone');
dbgdshowfind.Columns[7].Width:=datasource1.DataSet.Fields[7].DisplayWidth+40;
dbgdshowfind.Columns[8].Field:=datasource1.DataSet.FieldByName('isjh');
dbgdshowfind.Columns[8].Width:=datasource1.DataSet.Fields[8].DisplayWidth+50;
dbgdshowfind.Columns[9].Field:=datasource1.DataSet.FieldByName('worksort');
dbgdshowfind.Columns[9].Width:=datasource1.DataSet.Fields[9].DisplayWidth+50;
dbgdshowfind.Columns[10].Field:=datasource1.DataSet.FieldByName('position');
dbgdshowfind.Columns[10].Width:=datasource1.DataSet.Fields[10].DisplayWidth+40;
dbgdshowfind.Columns[11].Field:=datasource1.DataSet.FieldByName('ygbm');
dbgdshowfind.Columns[11].Width:=datasource1.DataSet.Fields[11].DisplayWidth+50;
dbgdshowfind.Columns[12].Field:=datasource1.DataSet.FieldByName('rcrq');
dbgdshowfind.Columns[12].Width:=datasource1.DataSet.Fields[12].DisplayWidth+50;
dbgdshowfind.Columns[13].Field:=datasource1.DataSet.FieldByName('ygjy');
dbgdshowfind.Columns[13].Width:=datasource1.DataSet.Fields[13].DisplayWidth+40;
exit;