組織構架表項目經理:X-名稱-X X-------聯系方式------X 項目副經理:X-名稱-X X------聯系方式-----X
施工員:X-名稱-X X------聯系方式-------X 質檢員:X-名稱-X X------聯系方式-----X
材料員:X-名稱-X X------聯系方式-------X 安全員:X-名稱-X X------聯系方式-----X
庫管員:X-名稱-X X-------聯系方式------X 核算員:X-名稱-X X------聯系方式-----X
資料員:X-名稱-X X-------聯系方式------X 技朮員:X-名稱-X X------聯系方式-----X
-------------------------------------------------------------------------------------
班組編號 班組名稱 班組類別 班組長姓名 聯系方式
-------------------------------------------------------------------------------------
X------X X-----------------------X X------------X X--------X X-------------------X
X------X X-----------------------X X------------X X--------X X-------------------X
X------X X-----------------------X X------------X X--------X X-------------------X注意:上面是兩列,下面是一列
施工員:X-名稱-X X------聯系方式-------X 質檢員:X-名稱-X X------聯系方式-----X
材料員:X-名稱-X X------聯系方式-------X 安全員:X-名稱-X X------聯系方式-----X
庫管員:X-名稱-X X-------聯系方式------X 核算員:X-名稱-X X------聯系方式-----X
資料員:X-名稱-X X-------聯系方式------X 技朮員:X-名稱-X X------聯系方式-----X
-------------------------------------------------------------------------------------
班組編號 班組名稱 班組類別 班組長姓名 聯系方式
-------------------------------------------------------------------------------------
X------X X-----------------------X X------------X X--------X X-------------------X
X------X X-----------------------X X------------X X--------X X-------------------X
X------X X-----------------------X X------------X X--------X X-------------------X注意:上面是兩列,下面是一列
procedure TSPS_OrganizationInFormA.dbg_ass_workgroupColEnter(
Sender: TObject);
begin
with ads_temp do
begin
if dbg_ass_workgroup.SelectedIndex=2 then
begin
Close;
CommandText:=' select ''[''+REPLACE(class_code,'' '','''')+'']''+REPLACE(class_name,'' '','''') as group_type'
+' from chd_code ';
Open;
dbg_ass_workgroup.Columns[2].PickList.Clear;
while not Eof do
begin
dbg_ass_workgroup.Columns[2].PickList.Add(FieldbyName('group_type').AsString);
next;
end;
end;
end;
end;