dbgrideh 中的keylist,picklist的用法

2024年4月21日发(作者：)

procedure eate(Sender: TObject);

begin

urce:=DataSource1;

t:=MemTableEh1;

iver:=DataSetDriverEh1;

llOnOpen:=True;

erDataSet:=ADOQuery1;

tionString:='Provider=.4.0;'+

'Data Source=f:;'+

'Persist Security Info=False;'+

'Jet OLEDB:Database Password=123456';

;

:='Select 自编号,合同号,币种,金额 from dzb';

;

:=True;

:=True;

//平面

eight:=20;

//标题栏行高

sEh:=sEh+[dghShowRecNo];

//显示序号

ShowEditButton:=True;

//显示DropDowm

图标

s[2].ImageList:=ImageList1;

s[2].ShowImageAndText:=True;

//PickList为显示出来的值,与ImageList中的图标顺序相对应

s[2].('美元');

s[2].('欧元');

s[2].('港币');

s[2].('日元');

s[2].('韩元');

//KeyList为数据库表中实际储存值,与PickList中值设置好相对应

s[2].('USD');

s[2].('EUR');

s[2].('HKD');

s[2].('JPY');

s[2].('KRW');

s[2].Width:=80;

s[3].ButtonStyle:=cbsDropDown;

//显示计算器

s[3].DisplayFormat:='#,###,###.00';

s[3].OptimizeWidth;

//自适应宽度

end;