一个管理系统用interbase建立后台数据库在前台添加用户时,
显示信息如下:
project pmisusr.exe raised exception class EDBEngineError with message 'field value requiredvalidation error for column worksheet,value "*** null ***".process stopped. Use Sep or run to continue.
程序如下:procedure TDM_main.SetAddItemsFilter(ID:String);
begin
with T_add_items do
begin
Filter:='WORKSHEET='''+ID+'''';
Filtered:=True;
Open;
end;
end;procedure TDM_main.AddItems(WorkSheet, Custom:String; StartTime, EndTime:TDateTime);
var
Room:String;
begin
Room:=Q_room_valid.FieldValues['ID'];
T_add_items.AppendRecord([0,WorkSheet,Custom, Room, '0',StartTime,EndTime]);
T_add_items.Refresh;
请高人给予指教谢谢......
解决方案 »
- 有HIS医院管理系统的朋友进来看一看
- 用DELPHI做的收费单据报表如何实现单据套打?
- AxtiveForm中如何使用菜单?
- 一个变量,如何知道它的类型的名字?
- 是Ado的问题吗?百思不得其解!!!快疯了!!!
- 我想让procedure TForm_batch.Edit_colorChange(Sender: TObject);这个change事件不被触发,该怎么弄啊
- 在DBGRID中有多个字段,如何在向右滚动时保持前几个字段不动?
- 如何接收对方发送的数据(未知对方使用哪个端口发送)?
- SAFEARRAY如何封装成Variant?
- 如何编译出快速的程序
- 动态创建组件,如何释放其......
- 送分来了。UP有分.
某一字段的值为Null,引起程序异常。仔细检查一下语法吧!或者把字段的为空属性改为允许!
CREATE DOMAIN "ITEMS_ID" AS INTEGER NOT NULL;
CREATE DOMAIN "LONG_CODE" AS CHAR(20) NOT NULL;
CREATE DOMAIN "ROOM_ID" AS CHAR(5) NOT NULL;
CREATE DOMAIN "SHEET_ID" AS CHAR(10) NOT NULL;
CREATE DOMAIN "SHORT_CODE" AS CHAR(1) NOT NULL;/* Table: SHEET_ITEMS, Owner: PMISDBA */CREATE TABLE "SHEET_ITEMS"
(
"ID" "ITEMS_ID",
"WORKSHEET" "SHEET_ID",
"CUSTOM" "LONG_CODE",
"ROOM" "ROOM_ID",
"MODE" "SHORT_CODE",
"START_TIME" TIMESTAMP,
"END_TIME" TIMESTAMP,
CONSTRAINT "SHEET_ITEMS_ID" PRIMARY KEY ("ID")
);
ALTER TABLE "SHEET_ITEMS" ADD CONSTRAINT "CUSTOM" FOREIGN KEY ("CUSTOM") REFERENCES CUSTOM ("ID");
ALTER TABLE "SHEET_ITEMS" ADD CONSTRAINT "MODE" FOREIGN KEY ("MODE") REFERENCES MODE ("CODE");
ALTER TABLE "SHEET_ITEMS" ADD CONSTRAINT "ROOM" FOREIGN KEY ("ROOM") REFERENCES ROOM ("ID");
ALTER TABLE "SHEET_ITEMS" ADD CONSTRAINT "WORKSHEET1" FOREIGN KEY ("WORKSHEET") REFERENCES WORKSHEET ("ID");
SET TERM ^ ;
/* Triggers only will work for SQL triggers */CREATE TRIGGER "ITEMS_ID" FOR "SHEET_ITEMS"
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
NEW.ID=GEN_ID(GEN_ITEMS_ID,1);
END
^COMMIT WORK ^
SET TERM ;^