發一段cxDBButtonEdit 的PropertiesButtonClick事件

發一段cxDBButtonEdit 的PropertiesButtonClick事件

procedure TDbModelLastEditorForm.cxDBButtonEdit3PropertiesButtonClick(
  Sender: TObject; AButtonIndex: Integer);
begin
  inherited;
if EditData.State in [dsInsert,dsEdit] then
   begin
     if SelectData('SELECT  Heel_No, Heel_Name, Heel_Type FROM  dbo.Da_Heel') then
        begin
           CheckValue:=False;
           EditData.DataSet.FieldByName('Heel_No').AsString:=ADMSystem.QAPubData.FieldByName('Heel_No').AsString;
           EditData.DataSet.FieldByName('Heel_Name').AsString:=ADMSystem.QAPubData.FieldByName('Heel_Name').AsString;
           EditData.DataSet.FieldByName('Heel_Type').AsString:=ADMSystem.QAPubData.FieldByName('Heel_Type').AsString;
           EditData.DataSet.FieldByName('Heel_No').ConstraintErrorMessage:='';
           CheckValue:=True;
        end;
     QAPubDataClose;
   end;
end;