dbgrideh 中的keylist,picklist的用法

procedure TForm1.FormCreate(Sender: TObject); begin

DBGridEh1.DataSource:=DataSource1; DataSource1.DataSet:=MemTableEh1;

MemTableEh1.DataDriver:=DataSetDriverEh1; MemTableEh1.FetchAllOnOpen:=True;

DataSetDriverEh1.ProviderDataSet:=ADOQuery1;

ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+ 'Data Source=f:\\mcmygs.mdb;'+ 'Persist Security Info=False;'+

'Jet OLEDB:Database Password=123456'; ADOQuery1.Close;

ADOQuery1.SQL.Text:='Select 自编号,合同号,币种,金额 from dzb'; ADOQuery1.Open;

MemTableEh1.Active:=True; DBGridEh1.Flat:=True; //平面

DBGridEh1.TitleHeight:=20; //标题栏行高

DBGridEh1.OptionsEh:=DBGridEh1.OptionsEh+[dghShowRecNo]; //显示序号 DBGridEh1.ColumnDefValues.AlwaysShowEditButton:=True; //显示DropDowm图标

DBGridEh1.Columns[2].ImageList:=ImageList1; DBGridEh1.Columns[2].ShowImageAndText:=True;

//PickList为显示出来的值,与ImageList中的图标顺序相对应 DBGridEh1.Columns[2].PickList.Add('美元'); DBGridEh1.Columns[2].PickList.Add('欧元'); DBGridEh1.Columns[2].PickList.Add('港币'); DBGridEh1.Columns[2].PickList.Add('日元'); DBGridEh1.Columns[2].PickList.Add('韩元');

//KeyList为数据库表中实际储存值,与PickList中值设置好相对应 DBGridEh1.Columns[2].KeyList.Add('USD'); DBGridEh1.Columns[2].KeyList.Add('EUR'); DBGridEh1.Columns[2].KeyList.Add('HKD'); DBGridEh1.Columns[2].KeyList.Add('JPY'); DBGridEh1.Columns[2].KeyList.Add('KRW'); DBGridEh1.Columns[2].Width:=80;

DBGridEh1.Columns[3].ButtonStyle:=cbsDropDown; //显示计算器 DBGridEh1.Columns[3].DisplayFormat:='#,###,###.00'; DBGridEh1.Columns[3].OptimizeWidth; //自适应宽度 end;

本文来源：https://www.bwwdw.com/article/6ogv.html