数据存储问题~急！

[zjgngp]

员工表：
姓名 部门 工种
张三 财务部 审计
张四 财务部 会计
张五 财务部 经理
张六 总经办 资产管理员


现在有3个edit控件分别是输入名称、规格、部门和一个日期控件。

现在财务部来领衣服，我输入好名称、规格、部门。点击保存。保存的话最终结果要这个样子。

物品发放表
姓名 部门 工种 名称 规格 发放日期
张三 财务部 审计 衣服 L 2009-6-24
张四 财务部 会计 衣服 L 2009-6-24
张五 财务部 经理 衣服 L 2009-6-24

[bdmh]

不明白你要干嘛,你这个最终表有什么特殊的,就是一个普通表,按照你输入的东西append进去就是了

[阿三]

insert into 物品发放表
select 姓名,部门,工种,'衣服' 名称,'L' 规格,'2009-6-24' 日期
from 员工表　where 部门='财务部';

[zjgngp]

[Quote=引用 1 楼 bdmh 的回复:]
不明白你要干嘛,你这个最终表有什么特殊的,就是一个普通表,按照你输入的东西append进去就是了
[/Quote]
我的目的是根据输入的部门对员工表里的部门进行判断，然后自动把发放的物品分别保存这个部门下的每个员工到物品发放表里去。

[bdmh]

insert into 物品发放表(姓名,部门,工种,名称,规格,发放日期) select 姓名,部门,工种,'衣服','L','2009-6-24' from 员工表

[zjgngp]

[Quote=引用 4 楼 bdmh 的回复:]
SQL code
insert into 物品发放表(姓名,部门,工种,名称,规格,发放日期) select 姓名,部门,工种,'衣服','L','2009-6-24' from 员工表
[/Quote]

如果我输入裤子呢。难道还要再改代码？

[阿三]

你不是有三个edit吗，做为变量传给sql

procedure TForm1.Button2Click(Sender: TObject);
var
sSql: String;
begin
sSql := ' insert into 物品发放表'+
' select 姓名,部门,工种,'''+
trim(Edit1.Text)+''' 名称,'''+
trim(Edit2.Text)+''' 规格,'''+
formatdatetime('yyyy-mm-dd',datetimepicker1.date)+''' 日期 from 员工表'+
'　where 部门='''+trim(Edit3.Text)+'''';
with adoquery1 do
begin
close;
sql.text := sSql;
ExecSql;
end;
end;

[莫鸣]

create view t1
as select 名称,规格,部门,日期 from 员工表
where 部门= '财务部'

with adoquery1 do
begin
close;
sql.clear;
sql.add(insert into t1 vlues (名称='''+edit1.text+''',规格='''+edit2.text+''',部门='''+edit3.text+''',日期='''+datatostr(edit4.text)+''');
....
这样的，手写个大概思路，呵呵～