数据存储问题~急！

Question

员工表：
姓名   部门     工种 
张三   财务部   审计
张四   财务部   会计
张五   财务部   经理
张六   总经办   资产管理员
现在有3个edit控件分别是输入名称、规格、部门和一个日期控件。现在财务部来领衣服，我输入好名称、规格、部门。点击保存。保存的话最终结果要这个样子。物品发放表
姓名    部门   工种   名称  规格  发放日期
张三    财务部  审计   衣服  L     2009-6-24
张四    财务部  会计   衣服  L     2009-6-24
张五    财务部  经理   衣服  L     2009-6-24 

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

你不是有三个edit吗，做为变量传给sqlprocedure 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;

Answer 5

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)+''');
....
   这样的，手写个大概思路，呵呵～