1、(连接到数据库的某一列的)下拉菜单 2、退出程序

关于下拉菜单的问题，通过修改后的最简模式。（节选信息系统实验中的部分代码）

 

 

 

//关闭程序

procedure TForm1.ButtonexitClick(Sender: TObject);
begin
  close;
end;

       

 

//实现下拉菜单，点击选择产品代码（表：ChanPin，列：CPno）
procedure TForm1.ComboBoxcpno1DropDown(Sender: TObject);//用combobox控件中的dropdown函数
begin with adoqcpno do//adoquery控件，name属性是adoqcpno

begin
  close;//关闭之前的sql
  sql.Clear;
  sql.Add('select CPno from ChanPin');//查询语句
  open;//执行查询
  comboboxcpno1.Items.Clear;

  //从结果中搜索并显示ChanPin表中的内容

  while not eof do
  begin
  comboboxcpno1.Items.Add(fieldbyname('CPno').AsString);
  next;
  end;

end;

 

//editmc1属于edit控件，editmc1是它的name。默认enabled属性为false，禁止用户编辑。
  editmc1.Enabled:=true;//令产品名称输入框点击函数可实现。
end;

//通过产品代码自动显示产品名称
procedure TForm1.editmc1click(Sender: TObject);//用edit的click函数实现
var
  cpno,name:string;
begin
  cpno:=comboboxcpno1.Text;//获取产品代码
  if(cpno='')
  then begin
  messagedlg('请先输入产品代码！',mterror,[mbok],0);
  exit;
  end//为输入产品代码
  else
  begin
  adoqcpno.Close;//结束上一次的查询
  adoqcpno.SQL.Text:='select MingCheng from ChanPin where CPno='''+cpno+'''';
  adoqcpno.Open;
  name:=adoqcpno.FieldByName('MingCheng').AsString;
 
  editMC1.Text:=name;
  end;//已输入产品代码
  editmc1.Enabled:=false;//令产品名称不可被用户编辑。
end;