ecordCount = 0 then showMessage('记录为空不能删除') else begin if MessageDlg('确定要删除吗?',mtInformation,[mbOK,mbCancel],0) = mrOK then adoquery1.Delete; end; end; procedure TForm1.FormCreate(Sender: TObject); begin adoQuery1.SQL.Clear; adoQuery1.SQL.Add('select * from proj'); adoQuery1.open; end; procedure TForm1.DBGrid1CellClick(Column: TColumn); begin
版权归作者所有
edit1.Text:=inttostr(ADOQuery1.fieldbyname('公司代号').AsInteger); edit2.Text:=ADOQuery1.fieldbyname('项目代码').AsString; edit3.Text:=ADOQuery1.fieldbyname('项目名称').AsString; edit4.Text:=ADOQuery1.fieldbyname('项目总价').AsString; DateTimePicker1.Date:=ADOQuery1.fieldbyname('开工日期').AsDateTime; DateTimePicker2.Date:=ADOQuery1.fieldbyname('预定完工日期').AsDateTime; DateTimePicker3.Date:=ADOQuery1.fieldbyname('完工结案日期').AsDateTime; edit5.Text:=ADOQuery1.fieldbyname('完工率').AsString; edit6.Text:=ADOQuery1.fieldbyname('项目成本材料').AsString; edit7.Text:=ADOQuery1.fieldbyname('项目成本人工').AsString; edit8.Text:=ADOQuery1.fieldbyname('项目成本费用').AsString; edit9.Text:=ADOQuery1.fieldbyname('是否结案').AsString; ProjName:=edit3.Text; end; procedure TForm1.Button4Click(Sender: TObject); begin close; end; procedure TForm1.Button5Click(Sender: TObject); //
查询 begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add('select *from proj where 项目代码='''+edit10.Text+''''); adoquery1.Open; end; end.
数据库设计(sql2000) 数据库
设计 create table proj( 公司名称 项目代码 项目名称 项目总价 开工日期 预定完工日期 完工结案日期 完工率 项目成本材料 项目成本人工 varchar(18) varchar(20) varchar(80) numeric(28,8) smalldatetime smalldatetime smalldatetime numeric(28,8) numeric(28,8) numeric(28,8) not null, not null, null, null, null, null, null, null, null, null,
版权归作者所有
项目成本费用 numeric(28,8) null, 是否结案 bit null, constraint PK_PROJ primary key (公司名称, 项目代码) )