这个可以用前台工具(Delphi)来作呀。比如你用一个TTable来连数据库Access表,就可以这样了: 在Table1的OnNewRecord事件中写上这些代码: procedure TForm1.Table1NewRecord(DataSet: TDataSet); begin DataSet.FieldByName('Default').AsString:='Default'; //'Default' is your field that you want to evaluate default value! end;
job_desc varchar(50) NOT NULL Default '我是谁')
假设建立一个表叫jobs,有job-id和job-desc两字段,job-id为key,job-desc
默认为 我是谁 ;
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('CREATE TABLE 收入表');
SQL.Add('(');
SQL.Add('编号 char(3),');
SQL.Add('单位名称 char(10),');
SQL.Add('年月 char(5) default 00-00,');
SQL.Add('合计 numeric(14,2) default 0');
SQL.Add(')');
ExecSQL;
end;
代码如下:
CREATE TABLE 收入表
(
编号 char(3),
单位名称 char(10),
年月 char(5) default 00-00,
合计 numeric(14,2) default 0
)
总是说default 错误。
在Table1的OnNewRecord事件中写上这些代码:
procedure TForm1.Table1NewRecord(DataSet: TDataSet);
begin
DataSet.FieldByName('Default').AsString:='Default';
//'Default' is your field that you want to evaluate default value!
end;