dbgrideh 中的keylist,picklist的用法

dbgrideh

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;