pequery.Post; self.editbtn.Enabled:=true; self.savebtn.Enabled:=false; self.suiDBGrid1.Color:=clwhite; self.suiDBGrid1.ReadOnly:=true; showmessage('提交成功'); end; 提取系部://值得注意的是 datam 窗体必须放在最上面,否则会出错。 procedure TemployeesForm.FormCreate(Sender: TObject); begin with datam.partquery do begin close; sql.Clear; sql.Add('select * from TDepts '); open; self.ComboBoxdept.Clear; self.ComboBoxdept.Items.Add('==请选择系部=='); while not eof do begin self.ComboBoxdept.Items.Add(fieldvalues['deptname']);
next; end; self.ComboBoxdept.ItemIndex:=0; end; end;