procedure TfmInputJDKPB.GetBMCaption(Sender: TObject);
var
I: Integer;
begin
inherited;
with dmJH_SHJKHGL.qryExecSQL do
begin
SQL.Clear;
SQL.Add('SELECT * FROM BMB');
Open;
First;
while not Eof do
begin
for I := 0 to dbgdItemView.ColumnCount - 1 do
begin
//ShowMessage(dbgdItemView.Columns.Name + ',' + FieldByName('BMBM').AsString);
if Copy(dbgdItemView.Columns.Name,1,4) = FieldByName('BMBM').AsString then
dbgdItemView.Columns.Caption := FieldByName('BMMCH').AsString;
end;
Next;
end;
end;
end;
注：dbgdItemView为TcxGrid类实例。此例从数据库中的BMB（部门表）中取部门名称为TcxGrid类实例的各个Columns表头赋值。
